主题：[讨论]

欲在1－10列的数值变化时，合计也随着变化。
此主题相关图片如下：qq截图20140730090401.jpg

在表事件的datacolchanged中所写的代码：

Dim sts() As String = {"分切净重_1","分切净重_2","分切净重_3","分切净重_4","分切净重_5","分切净重_6","分切净重_7","分切净重_8","分切净重_9","分切净重_10"}

For Each st As String In sts

If e.DataCol.name = st Then

    Dim dr As DataRow = e.DataRow

    dr("分切净重_合计") = dr("分切净重_1")+dr("分切净重_2")+dr("分切净重_3")+dr("分切净重_4")+dr("分切净重_5")+dr("分切净重_6")+dr("分切净重_7")+dr("分切净重_8")+dr("分切净重_9")+dr("分切净重_10" )

End If

Next

但提示出错！