Dim cnt As IntegerDim aa As String = "雇员"cnt = DataTables("订单").SQLCompute("Count(*)", "" & aa & " = 'EP01' And 数量 > 500")Output.Show("订单数:" & cnt)