以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  列相加代码如何最简？  (http://www.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