Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]TextBox求和运算，绑定数据库后，失效了。


  共有2603人关注过本帖树形打印复制链接

主题：[求助]TextBox求和运算，绑定数据库后，失效了。
帅哥哟，离线，有人找我吗？
by0521
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：149 积分：1657 威望：0 精华：0 注册：2019/3/28 14:49:00 		[求助]TextBox求和运算，绑定数据库后，失效了。  发帖心情 Post By：2019/4/17 15:39:00 [显示全部帖子]

Dim cmb As WinForm.TextBox = Forms("拼卷二").Controls("TextBox6")
Dim cmb2 As WinForm.TextBox = Forms("拼卷二").Controls("TextBox11")
Dim cmb3 As WinForm.TextBox = Forms("拼卷二").Controls("TextBox12")
Dim cmb4 As WinForm.TextBox = Forms("拼卷二").Controls("TextBox13")
Dim cmb5 As WinForm.TextBox = Forms("拼卷二").Controls("TextBox10")
Dim txt As Integer = cmb.Value
Dim txt2 As Integer= cmb2.Value
Dim txt3 As Integer= cmb3.Value
Dim txt4 As Integer= cmb4.Value
cmb5.Value = txt+txt2+txt3+txt4

TextBox6，TextBox11，TextBox12，TextBox13， TextBox10 在没有绑定数据库时，TextBox10能显示求和计算的数。
 但是文本框 绑定数据库后，求和公式就不计算了。 如何处理这个情况呢。
 回到顶部
帅哥哟，离线，有人找我吗？
by0521
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：149 积分：1657 威望：0 精华：0 注册：2019/3/28 14:49:00 		  发帖心情 Post By：2019/4/18 10:00:00 [显示全部帖子]

看了那个TextChanged，没能理解具体意思。
实际情况是这样的。
首先输入卷号，搜索出对应的米数，然后填入拼出米数A、拼出米数B
在输入最终接头数量后，自动计算出最终米数，最终米数=原始米数+ A拼出米数 +B拼出米数。
最终接头数量的对应文本框里ValueChanged事件里面就是对应最开始发的代码。但是现在是不计算。得不出最终米数。
如果在最终米数的对应文本框的Click事件里写入代码，点击文本框后，又可以得出最终米数了。

图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
by0521
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：149 积分：1657 威望：0 精华：0 注册：2019/3/28 14:49:00 		  发帖心情 Post By：2019/4/18 10:18:00 [显示全部帖子]

补上附件

 回到顶部
帅哥哟，离线，有人找我吗？
by0521
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：149 积分：1657 威望：0 精华：0 注册：2019/3/28 14:49:00 		  发帖心情 Post By：2019/4/18 14:13:00 [显示全部帖子]

图片点击可在新窗口打开查看
代码中加入cmb5.writeValue后是能正常自动计算了。但是提示这个错误。
 回到顶部
帅哥哟，离线，有人找我吗？
by0521
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：149 积分：1657 威望：0 精华：0 注册：2019/3/28 14:49:00 		  发帖心情 Post By：2019/4/18 15:32:00 [显示全部帖子]

自动计算可以了，
预览的时候有错误提示。
错误所在事件：窗口,拼卷,TextBox17,ValueChanged
详细错误信息：
未将对象引用设置到对象的实例。

附件上传失败，链接：https://pan.baidu.com/s/1PxY5PNZoLkMDD8xCk_JE5w 
提取码：wzb9 
 回到顶部
帅哥哟，离线，有人找我吗？
by0521
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：149 积分：1657 威望：0 精华：0 注册：2019/3/28 14:49:00 		  发帖心情 Post By：2019/4/18 16:01:00 [显示全部帖子]

【textbox17】的valuechanged事件的代码
Dim cmb As WinForm.TextBox = Forms("拼卷").Controls("TextBox6")
Dim cmb2 As WinForm.TextBox = Forms("拼卷").Controls("TextBox11")
Dim cmb3 As WinForm.TextBox = Forms("拼卷").Controls("TextBox12")
Dim cmb4 As WinForm.TextBox = Forms("拼卷").Controls("TextBox13")
Dim cmb5 As WinForm.TextBox = Forms("拼卷").Controls("TextBox10")
Dim txt As Integer = cmb.Value
Dim txt2 As Integer= cmb2.Value
Dim txt3 As Integer= cmb3.Value
Dim txt4 As Integer= cmb4.Value
cmb5.Value=txt+txt2+txt3+txt4
cmb5.WriteValue
这样TextBox17内填入内容后， TextBox10 能自动显示出和。
 回到顶部
帅哥哟，离线，有人找我吗？
by0521
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：149 积分：1657 威望：0 精华：0 注册：2019/3/28 14:49:00 		  发帖心情 Post By：2019/4/18 16:20:00 [显示全部帖子]

一步步调试，好了。非常感谢你。

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 5 次数据查询