- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助] (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=14385)
-- 发布时间：2011/11/17 17:25:00
-- [求助]
此主题相关图片如下：aaa.png
狐狸爸爸帮忙看看错在哪里？ 简单的用户登录界面
-- 发布时间：2011/11/17 17:29:00
--
请您上传文件，并具体说明怎么操作，遇到什么问题。
-- 发布时间：2011/11/17 17:30:00
-- [已解决]InputValue函数问题
好繁琐的代码啊 员工姓名 = 这里错了
去看下编程基础 表达式哪一节吧
xml 是变量 都不能用引号的
[此贴子已经被作者于2011-11-17 17:32:02编辑过]
-- 发布时间：2011/11/17 17:42:00
--
用户登录界面输入正确的用户名和密码不能登录
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |
-- 发布时间：2011/11/17 17:50:00
--
xm1不是xml 谢谢！
-- 发布时间：2011/11/17 17:54:00
--
呵呵，很明显，你学了很多，但是消化不太好。
正确的代码：
Dim frm As WinForm.Form
frm = Forms("窗口1")
Dim xm1 As String = frm.controls("combobox1").text
Dim ma1 As String = frm.controls("textbox1").text
With DataTables("czglydjb")
If xm1 = "" Or ma1 = "" Then
MessageBox.Show("请输入用户名及密码:")
Else
Dim dr As DataRow = .Find("员工姓名 = \'" & xm1 & "\'")
If dr IsNot Nothing AndAlso dr("员工密码") = ma1 Then
Forms("窗口2").show()
Else
MessageBox.Show("密码或用户名不正确,请重新输入!")
End If
End If
End With
这个一定要看一下：
http://www.foxtable.com/help/topics/1284.htm
简单实战之后，回头再系统补两遍帮助，这样效果更好。
-- 发布时间：2011/11/17 17:59:00
--
谢谢狐狸爸爸！没错，温故而知新，继续努力！
-- 发布时间：2011/11/18 10:30:00
--
狐狸爸爸，Tables("表A").Filter = "[编号] = " & Vars("编号") 和 Tables("表A").Filter = "[编号] = Vars("编号")“一样吗？第二行代码有没有语法错误？
-- 发布时间：2011/11/18 10:42:00
--
第二行错了，而且很严重。
建议看看：
http://www.foxtable.com/help/topics/1284.htm