未将对象引用设置到对象的实例?
Private Sub mm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim sqlstr As String
Dim ds1 As DataSet
sqlstr = "select distinct gcmc from textinfo "
ds1 = GetDataFromDb2(sqlstr, "textinfo ")
ComboBox1.DataSource = ds1.Tables( "textinfo ")
ComboBox1.DisplayMember = "gcmc "
Me.MaximizeBox = False
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Dim sqlstr As String
Dim ds As DataSet
Dim temptext As String
Dim bind As New BindingSource
temptext = ComboBox1.Text
sqlstr = "select * from textinfo where gcmc= ' " & temptext & " ' "
ds = GetDataFromDb2(sqlstr, "textinfo ")
bind.DataSource = ds
bind.DataMember = "textinfo "
DataGridView1.DataSource = bind
DataGridView1.Columns( "gcmc ").HeaderCell.Value = "工程名称 "
End Sub
运行提示: DataGridView1.Columns( "gcmc ").HeaderCell.Value = "工程名称 " 这个语句,未将对象引用设置到对象的实例?
该怎么处理呀?
[解决办法]
Private Sub ComboBox1_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectionChangeCommitted
ComboBox1_SelectionChangeCommitted用这个事件
