窗口AfterLoad事件设如下代码，应用窗口的时候总显示图一错误。但也可以正常应用，请问老师可能是什么问题？
If User.Name = "开发者" Or User.Name = "管理员" Then
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELEC T DISTINCT 项目名称,施工合同段,章节,子目号+ '|' +子目名称 as 子目,支付编号+ '|' +细目名称 as 细目,桩号 Fro m {中间计量表}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt,"项目名称|施工合同段|章节|子目|细目|桩号")
trv.Nodes.Insert("加载所有数据",0)
Else
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELEC T DISTINCT 项目名称,施工合同段,章节,子目号+ '|' +子目名称 as 子目,支付编号+ '|' +细目名称 as 细目,桩号 Fro m {中间计量表} where 承包人机构 in ('" & User.Roles.replace(",","','") & "') or 监理机构 in ('" & User.Roles.replace(",","','") & "') or 业主机构 in ('" & User.Roles.replace(",","','") & "')"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt,"项目名称|施工合同段|章节|子目|细目|桩号")
trv.Nodes.Insert("加载所有数据",0)
End If
vars("中间计量表filter") = DataTables("中间计量表").LoadFilter
图一：
此主题相关图片如下：2222.png
图二：
此主题相关图片如下：1111.png
加好友 
发短信
Post By：2018/11/11 12:09:00 [显示全部帖子]
