[求助]重新定向数据源后登录失败 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]重新定向数据源后登录失败

共有1630人关注过本帖树形打印复制链接主题：[求助]重新定向数据源后登录失败

狐狸爸爸

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47449 积分：251065 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2017/2/24 10:22:00 [显示全部帖子]

原因在于：

http://www.foxtable.com/webhelp/scr/2044.htm

还有，zh从和而来，是不是为空？

[此贴子已经被作者于2017/2/24 10:22:50编辑过]

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47449 积分：251065 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2017/2/24 10:25:00 [显示全部帖子]

Dim dr As DataRow

If zh Is Nothing Then

MessageBox.show("zh是空的,没有赋值")

Return

End If

dr = DataTables("账号密码").Find("账号 = '" & zh.text & "'")

If dr Is Nothing Then

MessageBox.show("没有符合条件的行")

Return

End If

_UserName = dr("账号")

_UserGroup = dr("部门")

狐狸爸爸

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47449 积分：251065 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2017/2/24 10:30:00 [显示全部帖子]

基本逻辑混乱，你的代码：

Dim dr As DataRow
dr = DataTables("账号密码").Find("账号 = '" & zh.text & "'")
_UserName = dr("账号")
_UserGroup = dr("部门")
_UserPassword = dr("密码")
If dr Is Nothing Then
    msgbox("账号不存在")
    Return
End If

应该改为：

Dim dr As DataRow
dr = DataTables("账号密码").Find("账号 = '" & zh.text & "'")
If dr Is Nothing Then
    msgbox("账号不存在")
    Return
End If
_UserName = dr("账号")
_UserGroup = dr("部门")
_UserPassword = dr("密码")

肯定要先判断是否存在帐号，才去取值啊，这样才能避免出错。

[此贴子已经被作者于2017/2/24 10:31:20编辑过]

下一主题 >> << 上一主题

主题：[求助]重新定向数据源后登录失败