Select Case e.node.Name
Case e.node.Name
Dim dr As DataRow
dr = DataTables("加载树设置").Find("表名 = '" & e.node.Name & "'")
Dim kd As String = dr("宽度")
Dim hs As String = dr("行数")
Dim nms() As String
If dr.Isnull("列名")=False Then
nms = dr("列名").Split(",")
End If
Dim dr1 As DataRow
Dim dr2 As DataRow
Dim Filter As String
Dim nms1() As String = _UserRoles.Split(",")
For Each nm As String In nms1
dr1 = DataTables("加载内容表").Find("表名 = '" & e.node.Name & "' and 角色 like '%" & nm & "%' and 列名 is not null and 列内容 is not null and 制单人=false")
dr2 = DataTables("加载内容表").Find("表名 = '" & e.node.Name & "' and 角色 like '%" & nm & "%' and 制单人 = true")
If dr1 IsNot Nothing And Tables.Contains(e.node.Name) Then
Filter = dr1("列名") & " In ( '" & dr1("列内容").replace(",","','") & "')"
If DataTables.Contains(e.node.Name) = False Then
DataTables(e.node.Name).LoadFilter = Filter
DataTables(e.node.Name).Load
End If
If dr IsNot Nothing And Tables.Contains(e.node.Name) Then
For i As Integer = 0 To nms.Length - 1
If i=0 Then
Tables(e.node.Name).OpenLoadTree("" & nms(0) & "",kd,hs,True,Filter)
ElseIf i=1 Then
Tables(e.node.Name).OpenLoadTree("" & nms(0) & "|" & nms(1) & "",kd,hs,True,Filter)
Else
Tables(e.node.Name).OpenLoadTree("" & nms(0) & "|" & nms(1) & "|" & nms(2) & "",kd,hs,True,Filter)
End If
Next
End If
ElseIf dr2 IsNot Nothing And Tables.Contains(e.node.Name) Then
Filter = dr2("制单人列") & " = '" & _UserName & "'"
If DataTables.Contains(e.node.Name) = False Then
DataTables(e.node.Name).LoadFilter = Filter
DataTables(e.node.Name).Load
End If
If dr IsNot Nothing And Tables.Contains(e.node.Name) Then
For i As Integer = 0 To nms.Length - 1
If i=0 Then
Tables(e.node.Name).OpenLoadTree("" & nms(0) & "",kd,hs,True,Filter)
ElseIf i=1 Then
Tables(e.node.Name).OpenLoadTree("" & nms(0) & "|" & nms(1) & "",kd,hs,True,Filter)
Else
Tables(e.node.Name).OpenLoadTree("" & nms(0) & "|" & nms(1) & "|" & nms(2) & "",kd,hs,True,Filter)
End If
Next
End If
Else
Filter = ""
If DataTables.Contains(e.node.Name) = False Then
DataTables(e.node.Name).LoadFilter = Filter
DataTables(e.node.Name).Load
End If
If dr IsNot Nothing And Tables.Contains(e.node.Name) Then
For i As Integer = 0 To nms.Length - 1
If i=0 Then
Tables(e.node.Name).OpenLoadTree("" & nms(0) & "",kd,hs,True,Filter)
ElseIf i=1 Then
Tables(e.node.Name).OpenLoadTree("" & nms(0) & "|" & nms(1) & "",kd,hs,True,Filter)
Else
Tables(e.node.Name).OpenLoadTree("" & nms(0) & "|" & nms(1) & "|" & nms(2) & "",kd,hs,True,Filter)
End If
Next
End If
End If
Next
End Select
当某张表在“加载树设置”表中不存在时，就会提示以下错误，要如何调整
此主题相关图片如下：微信图片_20220113223000.png
加好友 
发短信
Post By：2022/1/13 22:32:00 [只看该作者]
