以文本方式查看主题

-  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=38479)

--  作者:kingjdar
--  发布时间:2013/7/30 13:07:00
--  [求助] 如何用代码求和 行内有空值。(已解决)

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:如何用代码计算相加 有空值.table

表达式可以实现,但是如何用代码实现,不得方法,不知思路。

还在学习中,望指点~

[此贴子已经被作者于2013-7-30 14:15:52编辑过]

--  作者:y2287958
--  发布时间:2013/7/30 13:35:00
--  
Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "第一列","第二列","第三列"
        dr("第五列") = IIF(dr.Isnull("第一列"),0,dr("第一列"))+IIF(dr.Isnull("第二列"),0,dr("第二列"))+IIF(dr.Isnull("第三列"),0,dr("第三列"))
End Select

--  作者:kingjdar
--  发布时间:2013/7/30 13:55:00
--  

Dim dr As DataRow = e.DataRow
Select Case e.DataCol.name
    Case "第一列","第二列","第三列"
        If dr("第一列") OrElse dr("第二列") OrElse dr("第三列") 

        Else
            dr("第五列")=dr("第一列")+dr("第二列")+dr("第三列")
        End If
End Select

 

我是这样 也计算不出啊。

 


--  作者:kingjdar
--  发布时间:2013/7/30 13:55:00
--  
计算不出啊 ~
--  作者:lsy
--  发布时间:2013/7/30 14:08:00
--  
2楼的代码放在DataColChanged事件中,能计算。
--  作者:kingjdar
--  发布时间:2013/7/30 14:15:00
--  

恩 谢谢。两位,我明天哪里出问题了。~~图片点击可在新窗口打开查看


--  作者:e-png
--  发布时间:2013/7/30 16:48:00
--  

直接这样就可以了:

Dim dr As DataRow = e.DataRow
Select Case e.DataCol.name
    Case "第一列","第二列","第三列"

            dr("第五列")=dr("第一列")+dr("第二列")+dr("第三列")

End Select