Tables("窗口1_Table1").DataSource = dt1 \'将统计结果绑定到Table
With DataTables("窗口1_Table1").DataCols \'用表达式列计算库存数据
.Add("库存_数量",Gettype(Integer), "IIF((IsNull([进货_数量],0) - ISNULL([销售_数量],0) - ISNULL([退货_数量],0))<0,0,IsNull([进货_数量],0) - ISNULL([销售_数量],0) - ISNULL([退货_数量],0))")
.Add("库存_金额",Gettype(Double), "[库存_数量] /[进货_数量] * [进货_金额]")
End With