Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
'cmd.CommandText = "S elect *, 订单数量 - 发货数量 As 欠货数量 from (s elect 产品代码,产品型号规格,颜色,单位,sum(订单数量) As 订单数量,sum(发货数量) As 发货数量 from (S elect 产品代码,产品型号规格,颜色,单位,sum(订单数量) As 订单数量,0 As 发货数量 from 销售订单明细 group by 产品代码,产品型号规格,颜色 union all S elect 产品代码,产品型号规格,颜色,0 As 订单数量,sum(发货数量) As 发货数量 from 销售发货明细 group by 产品代码,产品型号规格,颜色) As a group by 产品代码,产品型号规格,颜色) as b where 订单数量 - 发货数量 <> 0 "
cmd.CommandText = "S elect *, 订单数量 - 发货数量 As 欠货数量 from (s elect 产品代码,产品型号规格,颜色,单位,sum(订单数量) As 订单数量,sum(发货数量) As 发货数量 from (S elect a.*,b.单位 from (S elect 产品代码,产品型号规格,颜色,sum(订单数量) As 订单数量,0 As 发货数量 from 销售订单明细 group by 产品代码,产品型号规格,颜色) As a left join 销售订单明细 As b on a.产品代码=b.产品代码 And a.产品型号规格=b.产品型号规格 And a.颜色=b.颜色 union all S elect a.*,b.单位 from (S elect 产品代码,产品型号规格,颜色,sum(发货数量) As 发货数量,0 As 发货数量 from 销售发货明细 group by 产品代码,产品型号规格,颜色) As a left join 销售发货明细 As b on a.产品代码=b.产品代码 And a.产品型号规格=b.产品型号规格 And a.颜色=b.颜色 ) as b where 订单数量 - 发货数量 <> 0 "
dt = cmd.ExecuteReader()
Tables("销售发货_销售发货统计表").DataSource = dt
Tables("销售发货_销售发货统计表").AutoSizeCols() '设置自动列宽