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

想求指定不规则字母后面数值之和？？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.zip

 

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

 

 

后面加了ABCD四列，分别求前面几列对应字母后数值的和

 

此主题相关图片如下：qq截图20190324161543.png

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

 

此主题相关图片如下：qq截图20190324213710.png

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

关闭重新打开可以保存，但是计算结果出不了

重新打开第三次重置后就可以了

 

为什么会出现这情况的？