主题：统计次数

收到了吧

 请，上传上来

按时间统计故障次数，一个小时算一次

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

点击浏览该文件:故障统计.table

Dim ptime As Date
Dim count As Integer = 0
For Each dr As DataRow In DataTables("年一二期1月份机组故障统计").Select("", "时间")
    Dim sp As TimeSpan = cdate(dr("时间")) - ptime
    If sp.TotalHours >= 1 Then
        count += 1
        ptime = dr("时间")
    End If
Next

msgbox(count)

写到表的DataColChanged事件？

 什么时候需要统计，就写到哪里

能显示故障描述吗

 

你应用场景是什么啊，做什么操作的时候，最后要什么效果啊

统计以后显示到表里，最后在故障描述后面一列里

  这个意思？

 

Dim ptime As Date
Dim count As Integer = 0
For Each dr As DataRow In DataTables("年一二期1月份机组故障统计").Select("", "时间")
    Dim sp As TimeSpan = cdate(dr("时间")) - ptime
    If sp.TotalHours >= 1 Then
        count += 1
        dr("风机状态") = count
        ptime = dr("时间")
    End If
Next