哦哦,我在按钮click事件代码是这样写的:
If e.form.controls.contains("Table1") Then '已经存在表控件了
e.form.RemoveControl("Table1")
DataTables.Unload(e.form.name & "_Table1")
Else
Dim y As Integer = Date.Today.Year
Dim dt1 As New Date(y, 1, 1)
Dim dt2 As New Date(y, 12, 31)
Dim tb2 As WinForm.Table
tb2 = e.Form.CreateSQLTable("Table1", "Select * Flom {表XXX} where 日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#" ,"acc_表XXX")'
e.Form.AddControl(tb2)
e.form.controls("Table1").visible = False
DataTables("表222").dataCols("列表名").RaiseDataColChanged()
End If
然后点击这个按钮, 会提示: 不存在名称为' 表222_table" 的datatable. 未将对象引用设置到对象的实例。