以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 转内部函数  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=89989)
--  作者：188802386
--  发布时间：2016/9/2 16:38:00
--  [求助] 转内部函数
定义了全局变量 dim _tab as string

请问内部函数可以这样写吗
Dim dt As String = "_tab"
Dim dr As DataRow = DataTables("用户管理").SQLFind("name =\'" & _username & "\'")
If dr.IsNull("授权集合") = False Then
    Dim nms() As String = dr("授权集合").Split(",")
    For Each nm As String In nms
        If nm Like dt Then \'如果授权集合包括当前表名
            Return True \'返回True
        End If
    Next
End If
--  作者：188802386
--  发布时间：2016/9/2 16:43:00
--  
在执行命令窗口的时候
Dim _tab As String = "用户管理"
msgbox(Functions.Execute("加载范围"))
弹出框始终是空白的
--  作者：狐狸爸爸
--  发布时间：2016/9/2 17:02:00
--  

我看到你一楼的代码，并没有接收传递过去的参数啊：

 

Dim dt As String = "_tab"

 

是不是应该改为：

 

Dim dt As String = args(0)