以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  列相加代码如何最简?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=101027)

--  作者:13861676007
--  发布时间:2017/5/23 21:10:00
--  列相加代码如何最简?
有表A,a,b,c 三列都是数值型,公式是c=a+b ,C列不设置为表达式列,是否有简单的代码可实现?现在我运用的代码是从第一行判断到最后一行,一条条执行的。
--  作者:wyz20130512
--  发布时间:2017/5/23 21:16:00
--  
DataColChanged事件

Select Case e.DataCol.Name
    Case "a","b"
        e.DataRow("c") = e.DataRow("a") + e.DataRow("b")
End Select


--  作者:sloyy
--  发布时间:2017/5/23 21:18:00
--  
自动合计比较简单
Tables("A").Cols("C").GrandTotal = True
Tables(
"A
").GrandTotal = True