以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  合计数  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=108131)
--  作者：kaituozhe
--  发布时间：2017/10/17 9:05:00
--  合计数

Tables("全表_table1").GrandTotal = True
For Each c As DataCol In Tables("全表_table1").DataTable.dataCols
    If c.IsNumeric  Then
        Tables("全表_table1").Cols(c.name).GrandTotal = True
    End If
Next

以上代码可以在表最后一行显示合计数，但是我怎么通过代码得到此数，并显示在控件text中
--  作者：有点甜
--  发布时间：2017/10/17 9:47:00
--  

合计行的值无法直接获取，你可以写代码统计。比如在timertick事件

 

e.form.Controls("TextBox1").Text = Tables("全表_table1").Compute("sum(某列)")
--  作者：xxfoxtable
--  发布时间：2017/10/24 23:46:00
--  
以下是引用有点甜在2017/10/17 9:47:00的发言：

合计行的值无法直接获取，你可以写代码统计。比如在timertick事件

 

e.form.Controls("TextBox1").Text = Tables("全表_table1").Compute("sum(某列)")

如果带复选框，这个语句应该怎么写？
--  作者：有点甜
--  发布时间：2017/10/25 9:25:00
--  
以下是引用xxfoxtable在2017/10/24 23:46:00的发言：

如果带复选框，这个语句应该怎么写？

 

带复选框指什么，要如何统计？举例说明。
--  作者：xxfoxtable
--  发布时间：2017/10/25 12:28:00
--  
 打勾的合计，不打勾的不合计
--  作者：有点甜
--  发布时间：2017/10/25 12:53:00
--  
Dim t As Table = Tables("全表_table1")
Dim sum = 0
For Each r As Row In t.GetCheckedRows
    sum += r("某列")
Next
e.form.Controls("TextBox1").Text = sum