主题：[求助]关于统计的问题

引用看完了，跨表统计你也看一下吧。

http://www.foxtable.com/help/topics/1472.htm

 比如要统计红色地方的库存，就这样写

Dim filter As String = "药品名称 = '牛黄解毒片' and 批号 = '1122'"

Dim sum As String = DataTables("rkmx").Compute("sum(数量)", filter) - DataTables("xsmx").Compute("sum(销售数量)", filter & " and 销售数量 > 0")
msgbox(sum)

 以下代码生成一个查询表

Dim q As new QueryBuilder
q.ConnectionName = "frd"
q.TableName = "统计"
q.SelectString = "Select 药品名称,批号,规格,单位, (Select sum(数量) from {rkmx} As a where a.药品名称 = c.药品名称 And a.批号 = c.批号) - (Select sum(销售数量) from {xsmx} As a where a.药品名称 = c.药品名称 And a.批号 = c.批号) As 库存 from (Select 药品名称,批号,规格,单位 from (Select 药品名称,批号,规格,单位,数量 from {rkmx} union all Select 药品名称,批号,规格,单位,销售数量 from {xsmx}) As b group by 药品名称,批号,规格,单位) As c"
q.Build
MainTable = Tables("统计")