- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] 单元格相同字符串个数统计 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=138035)
-- 发布时间：2019/7/21 17:14:00
-- [求助] 单元格相同字符串个数统计
老师，点击按钮如何能自动统计字符串的个数，达到表B的 效果？
[此贴子已经被作者于2019/7/21 17:13:53编辑过]
-- 发布时间：2019/7/21 21:19:00
--
\'\'\'
For Each r As Row In Tables("表A").Rows
Dim ar() As String = r("异常结果").split("、")
For Each s As String In ar
Dim dr As DataRow = DataTables("表B").Find("病名=\'" & s & "\'")
If dr Is Nothing Then
dr = DataTables("表B").AddNew
dr("病名") = s
End If
dr("数量") = dr("数量")+1
Next
Next
-- 发布时间：2019/7/22 6:25:00
--
老师，好像不对也。
不好意思，是我没有判断表A的异常结果是否为空。已解决。谢谢！
[此贴子已经被作者于2019/7/22 6:42:39编辑过]