我用下面的代码,替换上面教学中的代码,页面总是加载中,哪里错误了呢? 教学代码:http://www.foxtable.com/mobilehelp/index.htm?page=0041.htm
我是想用现有的用户表,验证登录身份。是外部数据源
'验证用户身份
If UserName = "张三" AndAlso Password = "888" Then
Verified = True
ElseIf Username = "李四" AndAlso Password="999" Then
Verified = True
End If
----------------------------------------------------------------------------------------------
Dim dr As DataRow
dr = DataTables("Staff").Find("email ='" & UserName & "'") '在职员表中找到邮箱为输入邮箱的
'验证用户身份
If Password = dr("password") Then
Verified = True
End If
[此贴子已经被作者于2017/10/23 1:02:36编辑过]