If e.Node.Level = 0 Then
Forms("菜单按钮").Show
Dim dr As DataRow
' dr = DataTables("表A").Find("[菜单] = '" & e.Node.Name & "'")
dr = DataTables("表B").Find("[角色] = 'BOOS'") 根据角色筛选结果 然后结果动态生成按钮
If dr IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing
Dim zcdd As WinForm.Button
Dim Multi As String = dr("配置")
Dim newMulti As String = "('" & Multi.Replace("|", "','") & "')"
Dim drs As List(Of DataRow) = DataTables("表A").Select("[窗口] in " & newMulti, "菜单")
' For Each drn As DataRow In drs
For Each drn As DataRow In DataTables("表A").select("[菜单] = '" & e.Node.Name & "'")
Dim Value As String = drn("窗口")
Dim sps() As Char = {"|"}
Dim Names() As String = Value.Split(sps)
Dim s As Integer = 2
Dim t As Integer = 5
For i As Integer = 0 To Names.length - 1
If i <> 0 Then
If i Mod 10 = 0 Then
s = 2
t = t + 81.9
Else
s = s + 72.9
End If
End If
Dim nm As String = Names(i)
zcdd = e.Form.CreateControl(nm, ControlTypeEnum.Button)
zcdd.Font = New Font("宋体", 9, FontStyle.Regular)
zcdd.Text = nm
zcdd.name = nm
zcdd.Width = 72
zcdd.Height = 81
zcdd.Left = s + 8
zcdd.Top = t + 2
zcdd.BorderSize = 0
Forms("菜单按钮").AddControl(zcdd)
Next
Next
End If
老师帮我再看看
End If
此主题相关图片如下：企业微信截图_20240402222347.png
[此贴子已经被作者于2024/4/2 22:40:43编辑过]
加好友 
发短信
Post By：2024/4/2 21:49:00 [只看该作者]
