[求助]导航可不可见问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

此主题相关图片如下：11.png

想用导航表生成导航，符合可不可见列的用户组才显示，在启动未将对象引用设置到对象的实例。，问一下老师，我的代码有什么问题吗

'生成编译函数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

code= code & "end Select " & vbcrlf

Functions.Remove("nav")

Functions.Add("nav",Code)

Functions.Complie

[此贴子已经被作者于2021/11/19 15:18:11编辑过]

主题：[求助]导航可不可见问题