datacolchanged事件,代码
Dim cs() As String = {"第二列","第三列","第四列","第五列","第六列"}
If array.indexof(cs, e.DataCol.name) >= 0 Then
Dim ary() As String = {"A", "B", "C", "D"}
For Each s As String In ary
e.DataRow(s & "后合计") = 0
Next
For Each c As String In cs
Dim str = e.DataRow(c)
If str <> Nothing Then
For Each s As String In ary
Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "(?<=" & s & ")[0-9]+")
Dim sum As Double = 0
For i As Integer = 0 To mc.count-1
sum += val(mc(i).value)
Next
e.DataRow(s & "后合计") += sum
Next
End If
Next
End If