以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]自定义用户登录（已解决）  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=83607)
--  作者：yyzlxc
--  发布时间：2016/4/13 10:18:00
--  [求助]自定义用户登录（已解决）
做一个自定义用户登录的案例，无法打开项目，错误提示如下，如何修复，请各位老师指教，谢谢！！


.NET Framework 版本：2.0.50727.8670
Foxtable 版本：2016.4.6.1
错误所在事件：窗口,用户登录,Button1,Click
详细错误信息：
String 引用没有设置为 String 的实例。
参数名: s




[此贴子已经被作者于2016/4/13 15:45:16编辑过]
--  作者：yyzlxc
--  发布时间：2016/4/13 10:19:00
--  
账户 3009 

密码 yyzlxc
[此贴子已经被作者于2016/4/13 10:21:46编辑过]
--  作者：Hyphen
--  发布时间：2016/4/13 11:00:00
--  
没有给下面的变量赋值

Public _Key1 As String \'加密1
Public _Key2 As String \'加密2
--  作者：yyzlxc
--  发布时间：2016/4/13 13:22:00
--  
谢谢Hyphen老师的指教，对案例进行修改，现在可以正常打开。但是存在一个问题，在窗口TextBox3控件，输入错误的账号后，如果不关闭窗口，重新输入正确账号，就会出现错误（错误信息如下），一定要重新打开项目输入正确账号才行。如何修改代码，使其不出错（重新上传案例）。请各位老师指教，谢谢！

.NET Framework 版本：2.0.50727.8670
Foxtable 版本：2016.4.6.1
错误所在事件：窗口,用户登录,TextBox3,TextChanged
详细错误信息：
未将对象引用设置到对象的实例。

窗口TextBox3控件TextChanged事件的代码：

If e.Form.Controls("TextBox3").Text <> "" Then
    Dim tx As WinForm.TextBox = e.Sender
    If tx.Text.Length = 4 Then
        Dim id As String = e.Form.Controls("TextBox3").Text
        Dim pr As DataRow = DataTables("用户信息").Find("账号 = \'"& id &"\'")
        If pr IsNot Nothing Then
            e.Form.Controls("TextBox1").Value = pr("姓名")
            e.Form.Controls("TextBox2").Value = pr("部门")
            e.Form.Controls("TextBox4").Select()
        Else
            e.Form.Controls("TextBox3").Value = Nothing
            e.Form.Controls("TextBox3").Select()
            PopMessage("对应的用户不存在!","提示",PopIconEnum.Infomation,5)
            Return
        End If
    End If
End If

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目13.rar
--  作者：Hyphen
--  发布时间：2016/4/13 14:45:00
--  
If e.Form.Controls("TextBox3").Text <> "" Then
    Dim tx As WinForm.TextBox = e.Sender
    If tx.Text.Length = 4 Then
        Dim id As String = e.Form.Controls("TextBox3").Text
        Dim pr As DataRow = DataTables("用户信息").Find("账号 = \'"& id &"\'")
        If pr IsNot Nothing Then
            e.Form.Controls("TextBox1").Value = pr("姓名")
            e.Form.Controls("TextBox2").Value = pr("部门")
            e.Form.Controls("TextBox4").Select()
        Else
            e.Form.Controls("TextBox3").Value = “”
            e.Form.Controls("TextBox3").Select()
            PopMessage("对应的用户不存在!","提示",PopIconEnum.Infomation,5)
            Return
        End If
    End If
End If
--  作者：yyzlxc
--  发布时间：2016/4/13 15:45:00
--  
谢谢Hyphen老师的赐教，问题解决，再次感谢！！