| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]窗口设计个文本框，文本框里的数会等于某列总和 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=96787) |
| -- 作者：jick0526 -- 发布时间：2017/2/27 22:03:00 -- [求助]窗口设计个文本框，文本框里的数会等于某列总和 在窗口设计时，设计个文本框，文本框里的数会等于C列的总和，这个代码怎么写 |
| -- 作者：wyz20130512 -- 发布时间：2017/2/27 22:15:00 -- 窗口的AfterLoad事件代码： Dim txtbox As WinForm.TextBox = e.Form.Controls("TextBox1") txtbox.Value = DataTables("表A").Compute("Sum(C列)")
|
| -- 作者：jick0526 -- 发布时间：2017/2/28 21:38:00 -- 老师，是这样的我试这代码可以，但是不能实时更新，当我在单元格添加数据时，文本框内还是显示原来的总会，要关闭重新打开项目后才会才会显示新的总和，我想当单元格添加数据是，文本框会实时更新总和，麻烦能帮我修改下吗？谢谢！ |
| -- 作者：有点蓝 -- 发布时间：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 |
| -- 作者：有点色 -- 发布时间：2017/3/1 10:08:00 -- 或者直接写timertick事件
Dim txtbox As WinForm.TextBox = e.Form.Controls("TextBox1")
txtbox.Value = DataTables("表A").Compute("Sum(C列)")
|