以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  同列相加  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=86977)
--  作者：bm
--  发布时间：2016/6/29 22:22:00
--  同列相加
帮忙看看怎样才能通过代码实现列1=总计
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb


[此贴子已经被作者于2016/6/29 23:02:25编辑过]
--  作者：大红袍
--  发布时间：2016/6/30 1:19:00
--  
If e.DataCol.name = "第一列" Then
    If e.DataRow.IsNull("第一列") Then
        e.DataRow("总计") = Nothing
    Else
        Dim sum As Double = 0
        For Each s As String In e.DataRow.Lines("第一列")
            sum += val(s)
        Next
        e.DataRow("总计") = sum
    End If
End If
--  作者：bm
--  发布时间：2016/7/3 17:46:00
--  万分感谢
谢谢大红袍老师
--  作者：bm
--  发布时间：2016/7/3 17:50:00
--  能帮忙解释下代码吗
比想象的还好。原来就打算纯数字，现在后面加英文或者其他都可以了
--  作者：大红袍
--  发布时间：2016/7/4 1:26:00
--  

代码的意思，就是获取每一行，然后相加而已

 

http://www.foxtable.com/help/topics/2717.htm