- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求几句代码。 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=129127)
-- 发布时间：2018/12/22 1:05:00
-- 求几句代码。
1 如图， 我想实现：鼠标选中一个区域， 点击按钮后， 这段区域所在行都能打上勾。
2 表中有一个金额字段， 打上勾的时候怎么计算打勾行的合计。
此主题相关图片如下：33333.png
此主题相关图片如下：33333.png-- 发布时间：2018/12/22 9:13:00
--
Dim t As Table = Tables("表A")
Dim sum As Double
For i As Integer = t.TopPosition To t.BottomPosition
t.Rows(i).Checked =True
sum = sum + t.Rows(i)("金额")
Next