……
With DataTables("仓库现存量_现存量1").DataCols '用表达式列计算库存数据
.Add("库存数量_A类",Gettype(Integer), "IsNull([上月结存_A类],0) + ISNULL([入库数量_A类],0) - ISNULL([出库数量_A类],0)")
.Add("库存数量_B类",Gettype(Integer), "IsNull([上月结存_B类],0) + ISNULL([入库数量_B类],0) - ISNULL([出库数量_B类],0)")
End With
DataTables("仓库现存量_现存量1").removefor("库存数量_A类=0 and 库存数量_B类=0")