以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请高手帮忙看下  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=24888)
--  作者：mike
--  发布时间：2012/10/25 19:13:00
--  请高手帮忙看下

Dim user As String = e.Form.Controls("ComboBox1").Text
Dim pwd As String = e.Form.Controls("TextBox1").Text
Dim dr As DataRow = DataTables("用户登录表").Find("员工姓名 = \'" & user & "\'")   \'分开查询,防注入登录
If dr IsNot Nothing Then
    pwd = MD5Encrypt(pwd)
    If pwd = dr("密码") Then
        _UserName = dr("员工姓名")
        _UserLoginName = user
        _UserGroup = ("权限")
        e.Form.Close()
    Else
        MessageBox.Show("输入的密码错误,请重试!", "出错")
    End If
End If<!--StartFragment -->

 编译错误：Name\'_UserName\' is not declared
<!--StartFragment -->
错误代码_UserName = dr("员工姓名")
请高手帮忙看下
[此贴子已经被作者于2012-10-25 19:20:42编辑过]
--  作者：有点甜
--  发布时间：2012/10/25 19:18:00
--  
错误提示是？
--  作者：mike
--  发布时间：2012/10/25 19:20:00
--  
编译错误：Name\'_UserName\' is not declared
--  作者：有点甜
--  发布时间：2012/10/25 19:25:00
--  

那你在全局代码中加上这个：

 

Public _UserName As String

 

http://www.foxtable.com/help/topics/1842.htm

 
--  作者：mike
--  发布时间：2012/10/25 19:41:00
--  

谢谢

[此贴子已经被作者于2012-10-25 20:21:26编辑过]
--  作者：有点甜
--  发布时间：2012/10/25 19:57:00
--  

这个提示不会有别的理由，注意所有的全局变量你都要定义好。

实在不行，就做个例子发上来吧。
--  作者：mike
--  发布时间：2012/10/25 20:22:00
--  
可以了，看错了。谢谢