dim a as double = dt1.Compute("Sum(入仓数量)", Filter)
dr("本月入仓") = a
dim b as double = dt2.Compute("Sum(出仓数量)", Filter)
dr("本月出仓") = b