老师，这是按钮代码。
此主题相关图片如下：image 2.png
DataTables("窗口控件管理").DeleteFor("")
Dim trv As WinForm.TreeView = Forms("授权表").controls("TreeView3")
Dim dr As DataRow
For Each n As WinForm.TreeNode In trv.AllNodes
If n.Nodes.Count = 0 Then
Dim arr() As String = n.FullPath.Split("\")
If arr.length = 4 Then
dr = DataTables("窗口控件管理").AddNew
dr("窗口归类") = arr(0)
dr("窗口名") = arr(1)
dr("窗口名1") = arr(2)
Dim btn() = arr(3).split("|")
If btn.length = 2
dr("按扭名") = btn(0).trim
dr("标题") = btn(1).trim
Else
dr("按扭名") = arr(3)
End If
ElseIf arr.length = 3
dr = DataTables("窗口控件管理").AddNew
dr("窗口归类") = arr(0)
dr("窗口名") = Nothing
dr("窗口名1") = arr(1)
Dim btn() = arr(2).split("|")
If btn.length = 2
dr("按扭名") = btn(0).trim
dr("标题") = btn(1).trim
Else
dr("按扭名") = arr(2)
End If
End If
End If
Next
加好友 
发短信
Post By：2019/6/23 13:46:00 [显示全部帖子]
