老师好,我想设计一个输出 需要的表名 的窗口 ,在窗口的AfterLoad事件中写了如下代码’ <工程造价汇总表>是后台数据表
问题:当我把<工程造价汇总表>加载进来时,下面的代码就能正常起作用,在窗口中能正常显示所需要的表名,如果是不把<工程造价汇总表>加载进来就报错,说找不到<工程造价汇总表>,可是我明明用SQLfind语句在后台数据表中查找的,并且用LOAD加载了数据了 为啥还不起作用呢,还是说找不到表 ,请老师看看代码是哪儿出问题了 谢谢老师
Dim lb As WinForm.CheckedListBox = e.Form.Controls("lbk")
Dim bm As String
Dim strs() As String = {"全隐框玻璃幕墙单价分析表", "全明框玻璃幕墙单价分析表", "半明半隐框玻璃幕墙单价分析表"}
For Each str As String In strs
Dim dr As DataRow
If DataTables.Contains("工程造价汇总表") Then
dr = DataTables("工程造价汇总表").FIND("工程量 > 0 and 项目内容辅助列='" & str & " '")
Else
dr = DataTables("工程造价汇总表").SQLFIND("工程量 > 0 and 项目内容辅助列='" & str & " '")
End If
If dr IsNot Nothing Then
'按条件加载 < 工程造价汇总表 > 的数据
DataTables("工程造价汇总表").LoadFilter = "工程量 > 0"
DataTables("工程造价汇总表").Load()
bm = bm & "|" & str
End If
Next
lb.ComboList = bm