以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 价格问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=173862) |
-- 作者:qinlao666 -- 发布时间:2021/12/20 13:48:00 -- 价格问题
如上图所问,请老师赐教代码,谢谢! |
-- 作者:有点蓝 -- 发布时间:2021/12/20 14:19:00 -- 明细表AfterCheckRow事件 dim pr as row = tables("父表").current if pr isnot nothing then dim sum as double For Each r As Row In e.Table.GetCheckedRows \'遍历所有已经勾选的行 sum = sum + r("价格") Next pr("价格") = sum endif
|