静态代码参考帮助完美执行 想用表内事件实现动态执行 求指导一下 谢谢！
'S elect Case e.Sender.Name
'Case "新增"
'MessageBox.Show("新增")
'Case "修改"
'MessageBox.Show("修改")
'Case "删除"
'MessageBox.Show("删除")
'Case "审核"
'MessageBox.Show("审核")
'End S elect
想实现动态获取对应按钮的代码 困扰很久了 求代码指导一下 谢谢！
S elect Case e.Sender.Name
Dim czy As String = User.Name
Dim cmd As New SQLCommand
cmd.CommandText = "S elect 工具栏名,代码 From {权限} Where 账号 = '" & czy & "'"
Dim dt As DataTable = cmd.ExecuteReader()
For Each dr As DataRow In dt.DataRows
Case dr("工具栏名")
dr("代码")
Next
End S elect
或者老师可以提供一下相应的案例我这参考一下也行
[此贴子已经被作者于2020/2/25 16:37:00编辑过]
加好友 
发短信
Post By：2020/2/25 14:36:00 [显示全部帖子]
此主题相关图片如下：动态设置代码.png
