主题：[求助]全局代码的值问题

我测试没有问题，我输入阿强，密码444，显示登录成功，提示“阿强-4”

 

至于错误提示，是下面加粗的部分有问题

 

 

Dim drs As List(Of DataRow)
drs = DataTables("ProUser").Select("UserID = SoftUserID ")
If drs.Count = 0 Then
    MessageBox.Show("你还没有被授予业务处理权限,请联系系统管理员", "提示", MessageBoxButtons.YesNo)
Else
    Tables("SelectPro_Table1").Filter = "UserID = SoftUserID "
End If

 

你好好看看：

http://www.foxtable.com/help/topics/1284.htm

 

应该是：

Dim drs As List(Of DataRow)
drs = DataTables("ProUser").Select("UserID = " & SoftUserID)
If drs.Count = 0 Then
    MessageBox.Show("你还没有被授予业务处理权限,请联系系统管理员", "提示", MessageBoxButtons.YesNo)
Else
    Tables("SelectPro_Table1").Filter = "UserID = " & SoftUserID
End If

 

合成表达式是基本工，必须掌握的