- 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)
-- 发布时间：2019/3/24 10:14:00
-- 求不规则字母后数值值之和
想求指定不规则字母后面数值之和？？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.zip |
-- 发布时间：2019/3/24 15:08:00
--
具体请说明你要做到什么效果？
-- 发布时间：2019/3/24 16:09:00
--
后面加了ABCD四列，分别求前面几列对应字母后数值的和
-- 发布时间：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
-- 发布时间：2019/3/24 21:38:00
--
此主题相关图片如下：qq截图20190324213710.png
-- 发布时间：2019/3/24 22:42:00
--
关闭你的项目，重新打开，重新输入代码测试，即可。
-- 发布时间：2019/3/25 19:09:00
--
关闭重新打开可以保存，但是计算结果出不了
-- 发布时间：2019/3/25 19:11:00
--
重新打开第三次重置后就可以了
-- 发布时间：2019/3/25 19:13:00
--
为什么会出现这情况的？