以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求不规则字母后数值值之和  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=132533)

--  作者:zhuxinhui
--  发布时间:2019/3/24 10:14:00
--  求不规则字母后数值值之和
想求指定不规则字母后面数值之和??
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.zip


--  作者:有点甜
--  发布时间:2019/3/24 15:08:00
--  

 

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

 

 


--  作者:zhuxinhui
--  发布时间:2019/3/24 16:09:00
--  

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

 


--  作者:zhuxinhui
--  发布时间:2019/3/24 16:16:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20190324161543.png
图片点击可在新窗口打开查看

--  作者:有点甜
--  发布时间:2019/3/24 17:25:00
--  

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

 


--  作者:zhuxinhui
--  发布时间:2019/3/24 21:38:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20190324213710.png
图片点击可在新窗口打开查看

--  作者:有点甜
--  发布时间:2019/3/24 22:42:00
--  
关闭你的项目,重新打开,重新输入代码测试,即可。
--  作者:zhuxinhui
--  发布时间:2019/3/25 19:09:00
--  

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


--  作者:zhuxinhui
--  发布时间:2019/3/25 19:11:00
--  

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

 


--  作者:zhuxinhui
--  发布时间:2019/3/25 19:13:00
--  
为什么会出现这情况的?