If User.Name = "开发者" Then
DataTables("表B").LoadFilter = ""
Else
DataTables("表B").LoadFilter = "姓名 = '" & User.Name & "'"
End If
DataTables("表B").Load()
'e.Form.Controls("TreeView1").BuildTree("表B", "页面|任务")
Dim tv As WinForm.TreeView
tv = e.Form.Controls("TreeView1")
tv.BuildTree("表B", "页面|任务", "", "页面,排序")
Vars("yq") = 0
Dim t As C1Command.C1DockingTab = e.Form.Controls("TabControl1").BaseControl
t.CanCloseTabs = True
t.CloseBox = 1
AddHandler t.TabPageClosing, AddressOf _TabPageClosing
Dim pg As WinForm.TabPage
pg = Forms("窗口1").Controls("TabControl1").TabPages(1)
pg.Visible = False
pg = Forms("窗口1").Controls("TabControl1").TabPages(2)
pg.Visible = False
pg = Forms("窗口1").Controls("TabControl1").TabPages(3)
pg.Visible = False
pg = Forms("窗口1").Controls("TabControl1").TabPages(4)
pg.Visible = False
TreeView1的NodeMouseClick:
Dim vals() As String = e.Node.FullName.Split("\")
For Each val As String In vals
For Each c As WinForm.Control In e.Form.Controls
If c.Gettype.Name = "TabControl" Then
Dim tab As WinForm.TabControl = c
If tab.TabPages.Contains(val) Then
tab.TabPages(val).Visible = True
End If
End If
Next
Next
加好友 
发短信
Post By：2023/7/13 14:23:00 [只看该作者]
