主题：[求助]统计字符数量

Dim dic As new Dictionary(of String, Integer)
For Each r As DataRow In e.DataTable.DataRows
    For Each cname As String in "第一列,第二列,第三列".split(",")
        If r.Isnull(cname) = False Then
            If dic.ContainsKey(r(cname)) = False Then
                dic.Add(r(cname), 1)
            Else
                dic(r(cname)) += 1
            End If
        End If
    Next
Next
For Each key As String In dic.Keys
    Dim fdr As DataRow = DataTables("表B").find("第一列 = '" & key & "'")
    If fdr Is Nothing Then
        fdr = DataTables("表B").addnew
        fdr("第一列") = key
    End If
    fdr("第三列") = dic(key)
Next

甜老师  在给帮忙看一下   表A  我需要用到筛选  但是表B  不会一起筛选    还有一个问题就是  表A  数据删除     表B  统计数据还在  这样不行

 

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

点击浏览该文件:测试 (1).table

清空datacolchanged事件，项目属性maintablechanged事件写代码

 

Dim dic As new Dictionary(of String, Integer)
For Each r As DataRow In e.DataTable.DataRows
    For Each cname As String In "第一列,第二列,第三列".split(",")
        If r.Isnull(cname) = False Then
            If dic.ContainsKey(r(cname)) = False Then
                dic.Add(r(cname), 1)
            Else
                dic(r(cname)) += 1
            End If
        End If
    Next
Next
For Each key As String In dic.Keys
    Dim fdr As DataRow = DataTables("表B").find("第一列 = '" & key & "'")
    If fdr Is Nothing Then
        fdr = DataTables("表B").addnew
        fdr("第一列") = key
    End If
    fdr("第三列") = dic(key)
Next

此主题相关图片如下：cw.png

关闭项目，删除项目里的bin目录，然后重新打开项目

是甜老师的这个代码出错  给帮忙改下

 

清空datacolchanged事件，项目属性maintablechanged事件写代码   Dim dic As new Dictionary(of String, Integer) For Each r As DataRow In DataTables("表A").DataRows     For Each cname As String In "第一列,第二列,第三列".split(",")         If r.Isnull(cname) = False Then             If dic.ContainsKey(r(cname)) = False Then                 dic.Add(r(cname), 1)             Else                 dic(r(cname)) += 1             End If         End If     Next Next For Each key As String In dic.Keys     Dim fdr As DataRow = DataTables("表B").find("第一列 = '" & key & "'")     If fdr Is Nothing Then         fdr = DataTables("表B").addnew         fdr("第一列") = key     End If     fdr("第三列") = dic(key) Next

代码没有问题。如果是24楼的错误，就是25楼的解决方法

我照你说的弄了    还是不行   

Dim dic As new Dictionary(of String, Integer)
For Each r As DataRow In  DataTables("表a").DataRows
    For Each cname As String In "第一列,第二列,第三列".split(",")
        If r.Isnull(cname) = False Then
            If dic.ContainsKey(r(cname)) = False Then
                dic.Add(r(cname), 1)
            Else
                dic(r(cname)) += 1
            End If
        End If
    Next
Next
For Each key As String In dic.Keys
    Dim fdr As DataRow = DataTables("表B").find("第一列 = '" & key & "'")
    If fdr Is Nothing Then
        fdr = DataTables("表B").addnew
        fdr("第一列") = key
    End If
    fdr("第三列") = dic(key)
Next

这个只是代码  换了一个地方   我说的问题还是存在       第一  表A  数据   删除以后   表B的统计数据  还在