- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]按钮代码赋值 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=136867)
-- 发布时间：2019/6/23 13:46:00
-- [求助]按钮代码赋值
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:授权.rar |
-- 发布时间：2019/6/23 17:11:00
--
请具体说明操作步骤，以及你需要达到的效果。
-- 发布时间：2019/6/23 17:32:00
--
此主题相关图片如下：image 2.png
-- 发布时间：2019/6/23 18:11:00
--
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
ElseIf arr.length = 2
dr = DataTables("窗口控件管理").AddNew
dr("窗口名1") = arr(0)
Dim btn() = arr(1).split("|")
If btn.length = 2
dr("按扭名") = btn(0).trim
dr("标题") = btn(1).trim
Else
dr("按扭名") = arr(1)
End If
End If
End If
Next