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

原来的数据源采用的是局域网模式，重新定向到网络模式后，登录失败，哪儿有问题啊？

连接时没有问题的。

1、重定向后，需要合并数据。

 

2、登陆失败报什么错？

此主题相关图片如下：qq截图20170224095012.png


此主题相关图片如下：11.png

好久没弄弧表了，上午刚把服务器弄好。

对应的，去看登陆按钮的事件代码

 

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

 

有点色老师，应该是这儿有问题，重新定向后这个怎么写啊？

_UserName = dr("账号") 
_UserGroup = dr("部门") 

查不到，说明你表里面没有数据。

 

If dr Is Nothing Then

    msgbox("账号不存在")

    return

End If

 

 

原因在于：

判断了为空啊

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)