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

我说的是格式  不是00:00    我第一张图那不标的很清楚    8:50   我想显示8小时50分   

 

参考

 

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

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

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

谢谢  就是一行代码的问题    

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

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

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

我表达的有点遗漏      表A  我只想统计其中几列的数据   比如   第一列  第二列  第三列  第四列