外部SQL前提下根据‘导航信息’表的数据生成目录树打开程序时
不报错也不加载,窗口设计时点击应用又能正常加载
代码应该没有问题 内部数据版上正常
是我代码放的位置不对吗, 还是SQL数据库时 不能调用table 要调用datatable ?
导航窗口
afterload 代码
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode
Dim dt As DataTable = DataTables("导航信息")
tr.StopRedraw()
tr.Nodes.Clear
tr.Nodes.Add("桌面") ‘设置返回主页面使用
For Each dr As DataRow In dt.Select("","编号")
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''导航权限_显示
Dim a As String = dr("权限")
Dim c() As String
c = a.split(",")
For Index As Integer = 0 To c.Length - 1
If c(Index)=_UserGroup Then
If dr.IsNull("编号") = False AndAlso dr("编号").Length = 4 Then
nd = tr.Nodes.Add(dr("编号"),dr("标题"))
Functions.Execute("AddChildren",nd,dt)
End If
End If
Next
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Next
要怎么修改?
另外弄的一个版本
同样问题
Dim trvf As WinForm.TreeView = e.Form.Controls("trv")
trvf.GenerateTree("导航信息","路径","标题", ".", "权限 like '" & _UserGroup & "'")