主题：统计次数

请具体你的问题。

 

如果要计算次数，必须循环每一行去比较

 例子发上来

 上传foxtable例子，说明要实现什么效果

  那就是上传例子。

 那你就把这个表的foxtable例子发上来。

 请，上传上来

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)

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

 

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

  这个意思？

 

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