以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  表达式列 列非常多  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=88825)
--  作者：281512373
--  发布时间：2016/8/10 10:36:00
--  表达式列 列非常多


图片点击可在新窗口打开查看此主题相关图片如下：qq图片20160810103201.png
图片点击可在新窗口打开查看

 

合计怎么写 有简化的方法吗？
--  作者：cbt
--  发布时间：2016/8/10 11:04:00
--  

\'可以用  DataColChanged 事件

 

Dim b As Integer =0
For i As Integer = 1 To 3 \'自己控制
    b += e.DataRow("h" &i)
Next
e.DataRow("aa") = b
--  作者：大红袍
--  发布时间：2016/8/10 11:11:00
--  

 没办法，必须一列一列的写，而且要这样写

 

isNull(H1,0) + isNull(H2,0) + isNull(H3,0)
--  作者：281512373
--  发布时间：2016/8/10 11:33:00
--  

谢谢 

 

帮我改一下

 

除 表a 合计  列以为 都清空

 

Dim dr As Row = Tables("表A").current
If dr IsNot Nothing Then
    For Each dc As Col In Tables("表A").cols
        dr(dc)= Nothing
    Next
    End If
--  作者：大红袍
--  发布时间：2016/8/10 11:40:00
--  
Dim dr As Row = Tables("表A").current
If dr IsNot Nothing Then
    For Each dc As Col In Tables("表A").cols
        If dc.name <> "合计" AndAlso dc.DataCol.Expression = "" Then
            dr(dc.name)= Nothing
        End If
    Next
End If