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

参考

http://www.foxtable.com/webhelp/scr/2262.htm

http://www.foxtable.com/webhelp/scr/0362.htm

drawcell事件，编写代码

If e.col.name = "计时" Then

    e.Text = val(e.text) \ 3600 & "时" & (val(e.text) mod 3600) \ 60

End If

Select Case e.DataCol.name
    Case "入井时间","升井时间"
        Dim dr As DataRow = e.DataRow
        If dr.IsNull("入井时间") Or dr.IsNull("升井时间") Then
            dr("计时") = Nothing
        Else
            Dim tp As TimeSpan
            If dr("升井时间") > dr("入井时间")
                tp = dr("升井时间") - dr("入井时间")
            Else
                tp = cdate(dr("升井时间")).adddays(1) - cdate(dr("入井时间"))
                dr("计时") = tp.TotalSeconds()   '真正的时段型数据要转换为秒数,才能存入时段列
            End If
        End If
End Select

datacolchanged事件

Dim dic As new Dictionary(of String, Integer)
For Each r As DataRow In e.DataTable.DataRows
    For Each c As DataCol In e.DataTable.DataCols
        If r.Isnull(c.name) = False Then
            If dic.ContainsKey(r(c.name)) = False Then
                dic.Add(r(c.name), 1)
            Else
                dic(r(c.name)) += 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

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

清空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

改成

Dim dic As new Dictionary(of String, Integer)
For Each r As Row In  Tables("表a").Rows
    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
DataTables("表B").DataRows.clear
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