- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]TextBox求和运算，绑定数据库后，失效了。 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=133641)
-- 发布时间：2019/4/17 15:39:00
-- [求助]TextBox求和运算，绑定数据库后，失效了。
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能显示求和计算的数。
但是文本框 绑定数据库后，求和公式就不计算了。 如何处理这个情况呢。
-- 发布时间：2019/4/17 15:59:00
--
看看
http://www.foxtable.com/webhelp/scr/0768.htm
-- 发布时间：2019/4/18 10:00:00
--
看了那个TextChanged，没能理解具体意思。
实际情况是这样的。首先输入卷号，搜索出对应的米数，然后填入拼出米数A、拼出米数B
在输入最终接头数量后，自动计算出最终米数，最终米数=原始米数+ A拼出米数 +B拼出米数。
最终接头数量的对应文本框里ValueChanged事件里面就是对应最开始发的代码。但是现在是不计算。得不出最终米数。
如果在最终米数的对应文本框的Click事件里写入代码，点击文本框后，又可以得出最终米数了。
-- 发布时间：2019/4/18 10:18:00
--
补上附件
-- 发布时间：2019/4/18 10:51:00
--
加入代码，比如
cmb5.writeValue
-- 发布时间：2019/4/18 14:13:00
--
代码中加入cmb5.writeValue后是能正常自动计算了。但是提示这个错误。
-- 发布时间：2019/4/18 15:02:00
--
看不到图片，请正确上传图片，贴出具体错误
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78
-- 发布时间：2019/4/18 15:32:00
--
自动计算可以了，
预览的时候有错误提示。
错误所在事件：窗口,拼卷,TextBox17,ValueChanged
详细错误信息：
未将对象引用设置到对象的实例。
附件上传失败，链接：https://pan.baidu.com/s/1PxY5PNZoLkMDD8xCk_JE5w
提取码：wzb9
-- 发布时间：2019/4/18 15:43:00
--
贴出你【textbox17】的valuechanged事件的代码
要学会调试 http://www.foxtable.com/webhelp/scr/1485.htm
-- 发布时间：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 能自动显示出和。