专家坐堂-[求助]更新后动态编译无法使用Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

更新后提示上图，在导航表的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

code= code & "end Select " & vbcrlf

Functions.Remove("nav")

Functions.Add("nav",Code)

Functions.Complie