新问题又出现了，确定的click代码又变成了同样的错误提示.....无语了
此主题相关图片如下：11111111.jpg
以下内容为程序代码:
1 Dim UserName As String = e.Form.Controls("UserName").Value
2 Dim dr As DataRow
3 If UserName = "" Then
4 Messagebox.show("请选择用户!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
5 Return
6 End If
7 dr = _UserTable.SQLFind("[Name] = '" & UserName & "'")
8 If dr Is Nothing Then
9 Messagebox.show("此用户不存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
10 Return
11 End If
12 If e.Form.Controls("PassWord").Value = dr("Password") Then
13 _UserName = UserName
14 _UserGroup = dr("Group")
15 e.Form.Close
16 Else
17 Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
18 End If
加好友 
发短信
Post By：2015/1/12 16:19:00 [只看该作者]
