| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 合计赋值到单元格text中 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=95000) |
| -- 作者：k931931 -- 发布时间：2017/1/7 15:54:00 -- 合计赋值到单元格text中 请教老师，合计值怎么赋值到text中 代码如下，但是没有成功，我定义在datachangeing事件中 Dim sl As WinForm.TextBox = e.Form.Controls("数量") sl.Text = Tables("入库单父表.入库单子表").Compute("sum(数量)") （附件图片又无法上传了，不知道为什么）
[此贴子已经被作者于2017/1/7 15:56:45编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2017/1/7 15:58:00 -- 代码没有问题。提示什么错误？ 是哪个表的事件，窗口有没有打开？
|
| -- 作者：k931931 -- 发布时间：2017/1/7 16:51:00 -- 是入库单父表datachangeing的事件，窗口打开时，提示“未将对象引用设置到对象的实例。”，并且代码没有执行成功。 |
| -- 作者：有点蓝 -- 发布时间：2017/1/7 17:40:00 -- 窗口afterload代码和入库单父表datachangeing的事件完整代码发上来看看 |
| -- 作者：k931931 -- 发布时间：2017/1/7 17:56:00 -- 我现在把这个代码放在了botton的click事件中，而且中间通过sum转换了一下，能正常执行，放在了datachangeing都会出现调用错误， Dim Sum As Double Sum = Tables("入库单父表.入库单子表").Compute("Sum(数量)") Dim t1 As WinForm.TextBox = e.Form.Controls("数量") \'t1.text=sum |
| -- 作者：k931931 -- 发布时间：2017/1/7 18:07:00 -- 原因我找到了，这个datachangeing太慢了，并不是立即更新，所以数据一直没有出来，要等半分钟 |
| -- 作者：k931931 -- 发布时间：2017/1/7 18:20:00 -- 这个有办法吗，我加上了如下更新代码，也依然不动，只有click事件才会立即更新 Tables("入库单父表").Refresh Tables("入库单父表.入库单子表").Refresh |
| -- 作者：有点色 -- 发布时间：2017/1/8 16:06:00 -- 1、代码写到datacolchangd事件才对；
2、代码要这样写
If forms("窗口1").opened then |