Foxtable(狐表)用户栏目专家坐堂 → 合计赋值到单元格text中


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

主题:合计赋值到单元格text中

帅哥哟,离线,有人找我吗?
k931931
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:170 积分:1372 威望:0 精华:0 注册:2016/12/28 19:32:00
合计赋值到单元格text中  发帖心情 Post By:2017/1/7 15:54:00 [只看该作者]

请教老师,合计值怎么赋值到text中
代码如下,但是没有成功,我定义在datachangeing事件中
Dim sl As WinForm.TextBox = e.Form.Controls("数量")
sl.Text = Tables("入库单父表.入库单子表").Compute("sum(数量)")

(附件图片又无法上传了,不知道为什么)
[此贴子已经被作者于2017/1/7 15:56:45编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111427 积分:567211 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/1/7 15:58:00 [只看该作者]

代码没有问题。提示什么错误?

是哪个表的事件,窗口有没有打开?

 回到顶部
帅哥哟,离线,有人找我吗?
k931931
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:170 积分:1372 威望:0 精华:0 注册:2016/12/28 19:32:00
  发帖心情 Post By:2017/1/7 16:51:00 [只看该作者]

是入库单父表datachangeing的事件,窗口打开时,提示“未将对象引用设置到对象的实例。”,并且代码没有执行成功。

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111427 积分:567211 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/1/7 17:40:00 [只看该作者]

窗口afterload代码和入库单父表datachangeing的事件完整代码发上来看看

 回到顶部
帅哥哟,离线,有人找我吗?
k931931
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:170 积分:1372 威望:0 精华:0 注册:2016/12/28 19:32:00
  发帖心情 Post By: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
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:170 积分:1372 威望:0 精华:0 注册:2016/12/28 19:32:00
  发帖心情 Post By:2017/1/7 18:07:00 [只看该作者]

原因我找到了,这个datachangeing太慢了,并不是立即更新,所以数据一直没有出来,要等半分钟

 回到顶部
帅哥哟,离线,有人找我吗?
k931931
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:170 积分:1372 威望:0 精华:0 注册:2016/12/28 19:32:00
  发帖心情 Post By:2017/1/7 18:20:00 [只看该作者]

这个有办法吗,我加上了如下更新代码,也依然不动,只有click事件才会立即更新
Tables("入库单父表").Refresh
Tables("入库单父表.入库单子表").Refresh

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/1/8 16:06:00 [只看该作者]

1、代码写到datacolchangd事件才对;

 

2、代码要这样写

 

If forms("窗口1").opened then
    Dim sl As WinForm.TextBox = Forms("窗口1").Controls("数量")
    sl.Text = Tables("入库单父表.入库单子表").Compute("sum(数量)")
End If


 回到顶部