调试看看
Dim id1 As Integer = Tables("表A").Rows(Tables("表A").TopPosition)("_Identify")
msgbox(id1)
Dim id2 As Integer = Tables("表A").Rows(Tables("表A").BottomPosition)("_Identify")
msgbox(id2)
msgbox(DataTables("表A").Compute("count(物料编码)"," 价格= 0.00 "))
msgbox(DataTables("表A").Compute("count(物料编码)"," 价格 is null"))
msgbox(DataTables("表A").Compute("count(物料编码)"," 价格 is null and [_Identify] >= " & id1 & " And [_Identify] <= " & id2))
msgbox(DataTables("表A").Compute("count(物料编码)","[_Identify] >= " & id1 & " And [_Identify] <= " & id2))
加好友 
发短信
Post By：2021/9/9 9:56:00 [显示全部帖子]
