Foxtable(狐表)用户栏目专家坐堂 → [求助]窗口设计个文本框,文本框里的数会等于某列总和


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

主题:[求助]窗口设计个文本框,文本框里的数会等于某列总和

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


加好友 发短信
等级:三尾狐 帖子:715 积分:6677 威望:0 精华:0 注册:2016/6/27 17:56:00
[求助]窗口设计个文本框,文本框里的数会等于某列总和  发帖心情 Post By:2017/2/27 22:03:00 [只看该作者]

在窗口设计时,设计个文本框,文本框里的数会等于C列的总和,这个代码怎么写

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


加好友 发短信
等级:六尾狐 帖子:1242 积分:9374 威望:0 精华:0 注册:2013/5/12 9:22:00
  发帖心情 Post By:2017/2/27 22:15:00 [只看该作者]

窗口的AfterLoad事件代码:

Dim txtbox As WinForm.TextBox = e.Form.Controls("TextBox1")
txtbox.Value = DataTables("表A").Compute("Sum(C列)")

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


加好友 发短信
等级:三尾狐 帖子:715 积分:6677 威望:0 精华:0 注册:2016/6/27 17:56:00
  发帖心情 Post By:2017/2/28 21:38:00 [只看该作者]

老师,是这样的我试这代码可以,但是不能实时更新,当我在单元格添加数据时,文本框内还是显示原来的总会,要关闭重新打开项目后才会才会显示新的总和,我想当单元格添加数据是,文本框会实时更新总和,麻烦能帮我修改下吗?谢谢!

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105478 积分:536381 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/2/28 22:49:00 [只看该作者]

表ADataColChanged事件

If e.DataCol.Name = "C列" AndAlso Forms("xx窗口").Opened
    Dim txtbox As WinForm.TextBox = Forms("xx窗口").Controls("TextBox1")
    txtbox.Value = e.DataTable.Compute("Sum(C列)")
End If

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


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

或者直接写timertick事件

 

Dim txtbox As WinForm.TextBox = e.Form.Controls("TextBox1")
txtbox.Value = DataTables("表A").Compute("Sum(C列)")

 回到顶部