请老师和各位高手帮忙：我有一主表“交易表”内有第一列为“综合成交价格”，第二列为“M1成交数量”，第三列为“M1成交金额”，第四列为“M2成交数量”，第五列为“M2成交金额”。

现拟生成统计表“价格分布表”第一列为品种，第二列为“分布二元以下”，第三列为“分布二元至三元”，第四列为“分布三至四元”，第五列为“四元以上”。现要求给价格分布表赋值：

第一行第一列赋值为“MM1”，第二行第一列赋值为“MM2”，第三行第一列赋值为“MMT”小计；第四行第一列赋值为“VM1”,第五行第一列赋值为“VM2”,第六第一列赋值为“VMT”;

第一行第二列赋值为：M1二元以下的累计成交额，第一行第三列为：M1二元至三元的累计成交额，第一行第四列为M1三元至四元累计成交额，第一行第五列M1四元以上累计成交额；

第二行第二列赋值为：M2二元以下的累计成交额，第二行第三列为：M2二元至三元的累计成交额，第二行第四列为：M2三元至四元累计成交额，第二行第五列为：M2四元以上累计成交额；

第三行第二列赋值为：MMT二元以下的小计成交额，第三行第三列为MMT二元至三元的小计成交额，第三行第四列为MMT三元至四元小计成交额；第三行第五列为：MMT四元以上小计成交额； 

第四行第二列为M1二元以下的累计成交量，第四行第三列为M1二元至三元的累计成交量，第四行第四列为M1三元至四元累计成交量；第四行第五列M1四元以上累计成交量；

第五行第二列为M2二元以下的累计成交量，第五行第三列为M2二元至三元的累计成交量，第五行第四列为M2三元至四元累计成交量；第五行第五列M2四元以上累计成交量；

第六行第二列为VMT二元以下的累计成交额，第六行第三列为VMT二元至三元的累计成交额，第六行第四列为VMT三元至四元累计成交额；第六行第五列VMT四元以上累计成交额；

请老师和高手帮忙编写出生成统计表的代码。谢谢！

Dim dr As DataRow = e.DataRow
Dim dt As DataTable =DataTables("t000000")
If e.DataCol.Name = "品种" And dr.IsNull("品种") = False Then
    dr("二元以下") = dt.Compute("Sum(mm1)", "综合成交价格>0 and 综合成交价格<2")
dr("二至三元") = dt.Compute("Sum(mm1)", "综合成交价格>2 and 综合成交价格<3")
 dr("三至四元") = dt.Compute("Sum(mm1)", "综合成交价格>3 and 综合成交价格<4")
dr("四元以上") = dt.Compute("Sum(mm)", "综合成交价格>4 ")
End If

以上是我想赋第一行的值，但值还为空白。

请老师指教。

主表：t000000

统计表: