主题：求不规则字母后数值值之和

 

具体请说明你要做到什么效果？

 

 

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

 

关闭你的项目，重新打开，重新输入代码测试，即可。