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

做一个自定义用户登录的案例，无法打开项目，错误提示如下，如何修复，请各位老师指教，谢谢！！

.NET Framework 版本：2.0.50727.8670

Foxtable 版本：2016.4.6.1

错误所在事件：窗口,用户登录,Button1,Click

详细错误信息：

String 引用没有设置为 String 的实例。

参数名: s

[此贴子已经被作者于2016/4/13 15:45:16编辑过]

账户 3009

密码 yyzlxc

[此贴子已经被作者于2016/4/13 10:21:46编辑过]

没有给下面的变量赋值

Public _Key1 As String '加密1

Public _Key2 As String '加密2

谢谢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

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