Dim nms As String() = {"仓库","商品编号","商品名称","规格","单位"} \'指定连接列
dt1.Combine(nms,dt2,nms)
dt1.Combine(nms,dt3,nms)
Tables("实时库存_Table1").DataSource = dt1 \'将统计结果绑定到Table
With DataTables("实时库存_Table1").DataCols \'用表达式列计算库存数据
.Add("实时库存_数量",Gettype(Double), "IsNull([累计进货_数量],0) + IsNull([期初_库存],0) - IsNull([累计出库_数量],0)")
.Add("实时库存_金额",Gettype(Double), "iif([实时库存_数量]=0 Or [累计进货_数量]=0 Or [累计进货_金额]=0,0,IsNull([实时库存_数量],0) / IsNull([累计进货_数量],0) * IsNull([累计进货_金额],0))")
End With