主题：记录数

Dim s As String

Dim f() As String = {"接单","已派车","作业中","待收单","待结账","正结费","待确认","待审核","已审核"}

For i As Integer = 0 To f.Length-1

    Dim c As Integer = Tables("业务大表").Compute("Count([_Identify])","状态 = '" & f(i) & "'")

    If c > 0

        s += f(i) & ":" & c

    End If

Next

RibbonMenu.StatusBar.Message1 =  s