- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]未将对象引用到实例 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=71075)
-- 发布时间：2015/7/4 13:00:00
-- [求助]未将对象引用到实例
此主题相关图片如下：11.jpg
输入对应信息，点击确认弹窗
此主题相关图片如下：00.jpg
确认按钮button,click事件代码
以下内容为程序代码:
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 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
云服务器端的数据表Users内容如下：
此主题相关图片如下：03.png
忘记密码窗口设计的功能是输入对应的姓名和号码，打开修改密码窗口（强制修改密码）
ps:不知为何附件无法上传，所以只能文字描述。
修改密码窗口设计很简单，两个文本框输入密码，和再次输入
然后一个确认按钮，一个取消按钮
以下内容为程序代码:
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
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
现在问题时，为何用姓名和号码的方式无法正常运行，为何有图一的提示，能帮我看看问题出在哪里吗
-- 发布时间：2015/7/4 13:17:00
--
没有人帮助吗？
-- 发布时间：2015/7/4 13:28:00
--
调试一下,看看是那一行报错.http://www.foxtable.com/help/topics/1485.htm
搞不定就把例子发上来.
-- 发布时间：2015/7/4 14:24:00
--
另：楼主粘贴代码的时候，记得常规复制粘贴，不要加上编号。
-- 发布时间：2015/7/4 15:53:00
-- [求助]附件内容，请帮忙看看
附件：密码888
另外 我想用户在注册的时候，能进行审核，如何设置或修改代码？
应该需要设置一个逻辑列进行判断吧？！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目副本.rar |
-- 发布时间：2015/7/4 16:18:00
--
_UserTable你只是定义了，并没有生成，当然出错，你看看帮助是这么做的吧：
http://www.foxtable.com/help/topics/2945.htm
你是不是漏掉了第五步？
其实你用3楼的方法，三下五除二，就知道是那一行代码出错，就知道原因了。
其实你用3楼的方法，三下五除二，就知道是那一行代码出错，就知道原因了。
至于扩展功能，自己想怎么做，就怎么做。
-- 发布时间：2015/7/4 16:49:00
-- 回复：（狐狸爸爸）_UserTable你只是定义了，并没有生...
此主题相关图片如下：11111.jpg
测试了第一条就有问题，这个是什么情况？
另外刚刚上传项目的时候将项目事件中的代码删掉了
此主题相关图片如下：222.jpg
-- 发布时间：2015/7/4 16:50:00
-- 回复：（狐狸爸爸）_UserTable你只是定义了，并没有生...
刚刚将代码直接复制粘贴，无法发表，提示我没有权限！
所以只有截图上传附件了！
经常在论坛发表的时候遇到没有权限的情况，很是郁闷哇！
-- 发布时间：2015/7/4 16:53:00
--
1、AfterOpenProject时间没有e参数，所以不存在e.form。
2、错误提示可以抓图，代码最好直接粘贴，不要抓图，抓图往往不完整，而且不方便别人测试，要测试你的代码，别人还得重新输入一次。