Dim flt As String = "机号 = '" & Tables("八月时间").Current("机号") & "'" Dim cnt As Integer = DataTables("八月时间").Compute("Count([_Identify])",flt) Dim sum As Integer = DataTables("八月时间").Compute("Sum([空时])",flt) StatusBar.Message1 = "航段:" & cnt & " 空时:" & (sum \ 3600) & ":" & ((sum Mod 3600) \ 60)
|