With DataTables(e.Form.Name & "_table1").DataCols \'用表达式列计算库存数据
\'.Add("订单数量",Gettype(Double))
\'.Add("中国出库数量",Gettype(Double))
\'.Add("柬埔寨入库数量",Gettype(Double))
.Add("超领数量",Gettype(Double),"IsNull([发料数量],0) - ISNULL([订单数量],0)")
.Add("补损率",Gettype(Double),"IsNull([超领数量],0) / ISNULL([订单数量],0)")
End With