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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]

共有12353人关注过本帖树形打印复制链接主题：[求助]

wzh198059

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

加好友

发短信

等级：幼狐帖子：142 积分：1365 威望：0 精华：0 注册：2011/11/7 15:18:00

[求助]

Post By：2011/11/17 17:25:00 [只看该作者]

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

狐狸爸爸帮忙看看错在哪里？简单的用户登录界面

狐狸爸爸

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

加好友

发短信

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

Post By：2011/11/17 17:29:00 [只看该作者]

请您上传文件，并具体说明怎么操作，遇到什么问题。

hanxuntx

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

加好友

发短信

等级：九尾狐帖子：2609 积分：16926 威望：0 精华：11 注册：2011/9/20 16:13:00

[已解决]InputValue函数问题 发帖心情

Post By：2011/11/17 17:30:00 [只看该作者]

好繁琐的代码啊员工姓名 = 这里错了

去看下编程基础表达式哪一节吧

xml 是变量都不能用引号的

[此贴子已经被作者于2011-11-17 17:32:02编辑过]

wzh198059

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

加好友

发短信

等级：幼狐帖子：142 积分：1365 威望：0 精华：0 注册：2011/11/7 15:18:00

Post By：2011/11/17 17:42:00 [只看该作者]

用户登录界面输入正确的用户名和密码不能登录

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.rar

wzh198059

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

加好友

发短信

等级：幼狐帖子：142 积分：1365 威望：0 精华：0 注册：2011/11/7 15:18:00

Post By：2011/11/17 17:50:00 [只看该作者]

xm1不是xml 谢谢！

狐狸爸爸

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

加好友

发短信

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

Post By：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