If e.node.Level = 0 Then
e.node.Expand
ElseIf e.node.Level =1 Then
Dim bmm As String = e.node.Name.Split("+")(0)
DataTables("授权表").LoadFilter = "用户组='" & e.node.ParentNode.Name & "' and bm ='" & bmm & "'"
DataTables("授权表").Load()
Dim zd As new Dictionary(of String,String)
zd.Clear
Dim ms As Integer = 0
For Each dr As DataRow In DataTables("授权表").dataRows
If zd.ContainsKey(dr("lm"))=False Then
zd.Add(dr("lm"),"1")
End If
If dr.IsNull("lm")=True Then
ms +=1
End If
Next
If ms=0 Then
Dim rw As DataRow = DataTables("授权表").AddNew
rw("用户组") = e.node.ParentNode.Name
rw("bm") = bmm
rw.Save
End If
Dim ss As new List(of String)
For Each cl As Col In Tables(bmm).Cols
If zd.ContainsKey(cl.Name)=False Then
If Connections.Count=0 Then
Dim rw As DataRow = DataTables("授权表").AddNew
rw("用户组") = e.node.ParentNode.Name
rw("bm") = bmm
rw("lm") = cl.Name
Else
ss.Add("('" & e.node.ParentNode.Name & "','" & bmm & "','" & cl.name & "',0,0)")
zd.Add(cl.Name,"1")
End If
End If
Next
Dim Arys() As String
Arys=ss.ToArray()
Dim ssj As String = String.Join(",",Arys)
If ssj > "" Then
Dim cmd As new SQLCommand
cmd.ConnectionName = "Dingdan"
cmd.CommandText = "Insert Into 授权表 (用户组,bm,lm,不可见,不可编辑) Values" & ssj
cmd.ExecuteScalar
output.show(ssj)
DataTables("授权表").LoadFilter = "用户组='" & e.node.ParentNode.Name & "' and bm ='" & bmm & "'"
DataTables("授权表").Load()
End If
DataTables("授权表").save()
For Each cl As Col In Tables(bmm).Cols
Dim lmm As String = IIF(cl.Caption > "" ,cl.Caption,cl.Name)
Dim bm2 As String = IIF(DataTables(bmm).Caption > "" ,DataTables(bmm).Caption,bmm)
DataTables("授权表").ReplaceFor("列名",lmm,"lm='" & cl.Name & "'")
DataTables("授权表").ReplaceFor("表名",bm2,"bm='" & bmm & "'")
Next
DataTables("授权表").AcceptChanges()
End If
加好友 
发短信
Post By：2017/6/2 15:50:00 [只看该作者]
此主题相关图片如下：qq截图20170602155043.jpg
