Dim q As new QueryBuilder
q.TableName = "a"
Dim sql As String = "Select {表A}.存货编号,iif({表A}.数量 is null,0,{表A}.数量)-iif({表B}.数量 is null,0,{表B}.数量) As [数量]"
sql += "F rom {表B} Right JOIN {表A} ON {表A}.[存货编号] = {表B}.[存货编号]"
sql += " where iif({表A}.数量 is null,0,{表A}.数量)<>iif({表B}.数量 is null,0,{表B}.数量)"
q.SelectString = sql
q.Build
MainTable = Tables("a")