语法错误:“0”运算符后缺少操作数。
老师麻烦帮忙改下代码，谢谢
If user.group = "采购" Then
Dim cnt1 As Integer
Dim cnt2 As Integer
Dim cnt3 As Integer
Dim cnt4 As Integer
cnt1 = DataTables("计划申请表").Compute("Count([_Identify])", "采购单号 is null And 审核 = true and 类型 = '生产采购'or 类型 = '订单采购' 0r 类型 = '零星采购'")
cnt2 = DataTables("计划申请表").Compute("Count([_Identify])", "采购单号 is null And 审核 = true and 类型 = '外协加工'")
cnt3 = DataTables("计划申请表").Compute("Count([_Identify])", "采购单号 is not null And 送检单号 is null And 类型 = '生产采购'or 类型 ='订单采购' 0r 类型 ='零星采购'")
cnt4 = DataTables("计划申请表").Compute("Count([_Identify])", "采购单号 is not null And 送检单号 is null and 类型 = '外协加工'")
If cnt1 > 0 Or cnt2 > 0 Or cnt3 > 0 Or cnt4 > 0 Then
Forms("采购员").open
Else
Forms("采购员").close
End If
End If
加好友 
发短信
Post By：2018/7/12 18:13:00 [只看该作者]
