以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  数据统计错误啊  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=25901)
--  作者：pefong
--  发布时间：2012/11/19 20:01:00
--  数据统计错误啊
我有一段代码是放在datacolchanged里面的，当订单导入之后，在一级分类这个表里自动统计四种类型的数量
但是每次都是只统计了导入订单的第一行，而不是全部统计，怎么回事呢，各位大侠看看
代码：

 Case "接单日期"
        Dim dr As DataRow = DataTables("一级分类").Find("接单日期 =\' " & e.DataRow("接单日期") & "\'")
        If dr Is Nothing Then
            dr = DataTables("一级分类").AddNew()
            dr("接单日期") = e.DataRow("接单日期")
            dr("订单量") = DataTables("生产订单明细").Compute(" Sum(生产订单数量) " , "接单日期 =\' " & e.DataRow("接单日期") & "\' ")
            dr("9901") = DataTables("生产订单明细").Compute(" Sum(生产订单数量) " , "接单日期 =\' " & e.DataRow("接单日期") & "\' And  物料分类=\'9901\'")
            dr("9902") = DataTables("生产订单明细").Compute(" Sum(生产订单数量) " , "接单日期 =\' " & e.DataRow("接单日期") & "\' And  物料分类=\'9902\'")
            dr("9903") = DataTables("生产订单明细").Compute(" Sum(生产订单数量) " , "接单日期 =\' " & e.DataRow("接单日期") & "\' And  物料分类=\'9903\'")
            dr("9904") = DataTables("生产订单明细").Compute(" Sum(生产订单数量) " , "接单日期 =\' " & e.DataRow("接单日期") & "\' And  物料分类=\'9904\'")
        End If
--  作者：狐狸爸爸
--  发布时间：2012/11/19 20:35:00
--  

这种代码不应该放在DataColChanged。

最好做个例子，将这两个表传上来，输入一些测试数据，说明一下统计需求，方便别人帮你。