- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 救命，弄了几天 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=40087)
-- 发布时间：2013/9/9 11:12:00
-- 救命，弄了几天
代码测试没问题，可登录点确定按钮就有问题，是外源
代码如下：
Dim UserName As String = e.Form.Controls("UserName").Value
Dim cmd As New SQLCommand
Dim dt As DataTable
Dim dr As DataRow
cmd.ConnectionName = "MYERP"
If UserName = "" Then
Messagebox.show("请选择用户!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
End If
cmd.CommandText = "Select * From {Users} Where [Name] = \'" & UserName & "\'"
dt = cmd.ExecuteReader
If dt.DataRows.Count = 0 Then
Messagebox.show("此用户不存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
End If
dr = dt.DataRows(0)
If e.Form.Controls("password").Value = dr("password") Then
_UserName = UserName
\' _UserGroup = dr("Group")
MessageBox.show(1)
e.Form.Close
Else
Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
Dim cmd As New SQLCommand
Dim dt As DataTable
Dim dr As DataRow
cmd.ConnectionName = "MYERP"
If UserName = "" Then
Messagebox.show("请选择用户!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
End If
cmd.CommandText = "Select * From {Users} Where [Name] = \'" & UserName & "\'"
dt = cmd.ExecuteReader
If dt.DataRows.Count = 0 Then
Messagebox.show("此用户不存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
End If
dr = dt.DataRows(0)
If e.Form.Controls("password").Value = dr("password") Then
_UserName = UserName
\' _UserGroup = dr("Group")
MessageBox.show(1)
e.Form.Close
Else
Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
此主题相关图片如下：qq图片20130909110606.jpg
[此贴子已经被作者于2013-9-9 11:35:17编辑过]
-- 发布时间：2013/9/9 11:18:00
--
有什么问题呢?
另外系统本身有 UserName 这个系统变量,请不要再使用相同的变量名称了.
-- 发布时间：2013/9/9 11:24:00
--
我贴图了啊
-- 发布时间：2013/9/9 11:25:00
--
找了几个高手看过了，看不出原因
-- 发布时间：2013/9/9 11:26:00
--
图片挂了,你这样传图只能自己看见
此主题相关图片如下：上传图片请参考这里.gif
-- 发布时间：2013/9/9 11:26:00
--
你的图片别人看不到，图片要上传才行。
-- 发布时间：2013/9/9 11:36:00
--
现在能看见了吧
-- 发布时间：2013/9/9 11:39:00
--
某个地方有空值了,不是什么大难题啊.
建议您用这个方法：
http://www.foxtable.com/help/topics/1485.htm
一分析调试就能知道哪里空值了.
实在不会可以把例子发出来,我帮你解决.
-- 发布时间：2013/9/9 11:46:00
--
我样例在别人电脑上也没问题
-- 发布时间：2013/9/9 11:46:00
--
升级到最新的版本，应该可以了