此主题相关图片如下:动态编译.png
更新后提示上图,在导航表的Afterload中写入如下代码,在click中调用Functions.Execute("nav",e.sender.name),请问老师现在怎么办
'生成编译函数nav
Dim code As String
code= " dim name as string = args(0) " & vbcrlf
code= code & " Select Case name " & vbcrlf
Dim roles() As String = _userGroup.Split(",")
For Each role As String In roles
Dim drs As List(Of DataRow) = DataTables("导航").Select("可不可见 = '" & role & "' or 可不可见 like '" & role & ",*' or 可不可见 like '*," & role & ",*' Or 可不可见 like '*," & role & "'")
For Each dr As DataRow In drs
If dr("代码")> "" Then
code = code & " case " & """" & dr("名称") & """" & vbcrlf
code = code & dr("代码") & vbcrlf
End If
Next
Next
code= code & "end Select " & vbcrlf
Functions.Remove("nav")
Functions.Add("nav",Code)
Functions.Complie
[此贴子已经被作者于2021/12/1 22:26:44编辑过]