以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求指点 自动计算列  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=65884)
--  作者：lujun
--  发布时间：2015/3/25 0:22:00
--  求指点 自动计算列
求指点   这段代码为什么不自动计算

表事件

 

利息_DataColChanged

 

Select Case e.DataCol.Name

        Case "利息","利息2","利息3"

      Dim dr As DataRow = e.DataRow

   If dr.IsNull("利息")  Then

          dr("合计") = Nothing

        ElseIf dr.IsNull("利息2")  Then

               dr("合计") = dr("利息")

         ElseIf dr.IsNull("利息3")  Then

                dr("合计") = dr("利息") + dr("利息2")

         Else 

               dr("合计") = dr("利息") + dr("利息2") + dr("利息3")

   End If

End Select
--  作者：狐狸爸爸
--  发布时间：2015/3/25 8:24:00
--  

代码看不出问题，但是对于已经输入的数据，你要重置一下利息列才能生效，参考：

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

 
--  作者：有点甜
--  发布时间：2015/3/25 9:12:00
--  

 呃，为什么不直接写

 

Select Case e.DataCol.Name
   
    Case "利息","利息2","利息3"
       
        dr("合计") = dr("利息") + dr("利息2") + dr("利息3")
       
End Select