老师好,下面代码报错,如果点击没有在组合框中设置过代码的表就有下面的报错。.NET Framework 版本:2.0.50727.8669
Foxtable 版本:2017.4.22.1
错误所在事件:窗口,组合框,ComboBox1,TextChanged
详细错误信息:
未将对象引用设置到对象的实例。
If DataTables.Contains(e.sender.text) Then '
Dim tj As String = "Select * Fr om {" & e.sender.text & "}"
Dim c As String
If e.Sender.Text = "入库" Then
c = ("编号|47|记录日期|71|入库单编号|71|开piao日期|59|fa piao号码")
Else If e.Sender.Text = "商品信息" Then
c = ("编号|47|供货_厂家ID|121|供货_厂家|145|商品ID|139")
End If
Tables("组合框_Table1").Fill(tj, "数据库", False) '加载Table
Tables("组合框_Table1").SetColVisibleWidth(c)
Tables("组合框_Table1").ShowCheckBox = True
Else
MessageBox.Show("对不起没此表!", "提示")
End If