主题：[求助]未将对象引用到实例

以下内容为程序代码:

1 Dim zh As WinForm.TextBox = e.Form.Controls("账号")
2 Dim dh As WinForm.TextBox = e.Form.Controls("电话")
3 Dim dr As DataRow = _UserTable.SQLFind("Account = '" & _UserAccount & "'")
4 If dr Is Nothing Then
5 MessageBox.Show ("账号不存在,或者电话号码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
6 zh.value=""
7 dh.value=""
8 Else
9 If zh.Value ="" Then
10 MessageBox.Show ("请输入账号!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
11 Else
12 Dim mms As String = dr("Phone")
13 If dh.Value = "" Then
14 MessageBox.Show ("电话不能为空!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
15 Else
16 If dh.Value = mms Then
17 Forms("忘记密码").baseform.Opacity = 0
18 Forms("忘记密码").close
19 Forms("修改密码").open
20 Else
21 MessageBox.Show ("账号不存在,或者电话号码错误!","提示",MessageBoxButtons.OK)
22 zh.Value=""
23 dh.Value=""
24 End If
25 End If
26 End If
27 End If

以下内容为程序代码:

1 Dim mm As WinForm.TextBox = e.Form.Controls("密码")
2 Dim mm1 As WinForm.TextBox = e.Form.Controls("密码1")
3 If mm1.value=mm.value Then
4 _UserTable.SQLReplaceFor("password", mm.value, "Account = '" & _UserAccount & "'")
5 mm.value=""
6 mm1.value=""
7 MessageBox.show("修改成功!","提示",MessageBoxButtons.OK)
8 Else
9 MessageBox.show("两次密码不一致,请重新输入!","提示",MessageBoxButtons.OK)
10 mm.value=""
11 mm1.value=""
12 End If