以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  代码错误  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=123340)
--  作者：cjl333333333
--  发布时间：2018/8/12 20:15:00
--  代码错误
Dim BB As String = CurrentTable.Name

If Functions.Execute("ShouQuan","基本操作","新增") Then
    If Functions.Execute("ShouQuan","表格权限","\'"& BB &"\'") Then
             DataTables("BB").AllowEdit = True
              Dim AA As String = forms.activeform.name
        With Tables(AA)
            If .Current Is Nothing OrElse .Current.DataRow.RowState = DataRowState.Unchanged Then
                Syscmd.Row.AddNew()
            Else
                msgbox("有记录还在编辑中,请处理上一记录后再新增")
            End If
        End With
    Else
        msgbox("权限不足!")
    End If
Else
    msgbox("权限不足!")
End If

其中    If Functions.Execute("ShouQuan","表格权限","\'"& BB &"\'") Then  总是出错  变量BB在这里要怎么写？求解
--  作者：有点甜
--  发布时间：2018/8/12 20:33:00
--  

改成

 

If Functions.Execute("ShouQuan","表格权限", BB) Then