主题：求指点 自动计算列

表事件

 

利息_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