- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]重新定向数据源后登录失败 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=96609)
-- 发布时间：2017/2/24 9:55:00
-- [求助]重新定向数据源后登录失败
原来的数据源采用的是局域网模式，重新定向到网络模式后，登录失败，哪儿有问题啊？
连接时没有问题的。
[此贴子已经被作者于2017/2/24 9:57:32编辑过]
-- 发布时间：2017/2/24 9:57:00
--
1、重定向后，需要合并数据。
2、登陆失败报什么错？
-- 发布时间：2017/2/24 9:58:00
--
此主题相关图片如下：qq截图20170224095012.png
此主题相关图片如下：11.png
-- 发布时间：2017/2/24 9:59:00
--
好久没弄弧表了，上午刚把服务器弄好。
[此贴子已经被作者于2017/2/24 9:59:40编辑过]
-- 发布时间：2017/2/24 10:03:00
--
对应的，去看登陆按钮的事件代码
http://www.foxtable.com/webhelp/scr/1485.htm
-- 发布时间：2017/2/24 10:15:00
--
有点色老师，应该是这儿有问题，重新定向后这个怎么写啊？
Dim dr As DataRow
dr = DataTables("账号密码").Find("账号 = \'" & zh.text & "\'")
dr = DataTables("账号密码").Find("账号 = \'" & zh.text & "\'")
_UserName = dr("账号")
_UserGroup = dr("部门")
[此贴子已经被作者于2017/2/24 10:16:17编辑过]
-- 发布时间：2017/2/24 10:20:00
--
查不到，说明你表里面没有数据。
If dr Is Nothing Then
msgbox("账号不存在")
return
End If
-- 发布时间：2017/2/24 10:22:00
--
原因在于：
还有，zh从和而来，是不是为空？
[此贴子已经被作者于2017/2/24 10:22:50编辑过]
-- 发布时间：2017/2/24 10:24:00
--
判断了为空啊
MessageBox.Show(1)
Dim dr As DataRow
dr = DataTables("账号密码").Find("账号 = \'" & zh.text & "\'")
_UserName = dr("账号")
_UserGroup = dr("部门")
_UserPassword = dr("密码")
MessageBox.Show(2)
If dr Is Nothing Then
msgbox("账号不存在")
Return
End If
Dim bmyz As String = dr("部门")
If bm.value <> bmyz Then
MessageBox.Show ("账号与部门不一致!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
Return
End If
MessageBox.Show(3)
[此贴子已经被作者于2017/2/24 10:24:53编辑过]
-- 发布时间：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("部门")