欲在1-10列的数值变化时,合计也随着变化。
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/jpg.gif)
此主题相关图片如下:qq截图20140730090401.jpg
![dvubb 图片点击可在新窗口打开查看](UploadFile/2014-7/2014730975080027.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
但提示出错!