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在这里要怎么写？求解
加好友 
发短信
Post By：2018/8/12 20:15:00 [只看该作者]
