主题：跨表统计数据

Tables("入库明细").Current("码单重量") = DataTables("入库明细码单").Compute("Sum(码单重量)","[入库单号] = '" & Tables("入库明细").Current("入库单号") & "'")

 

入库明细  的 码单重量  是  入库明细码单 码单重量的合计数，代码是是这样写吗？入库明细码单增加一行死机退出

DataColChanged

 

Tables("入库明细").Current("码单重量") = DataTables("入库明细码单").Compute("Sum(码单重量)","[入库单号] = '" & Tables("入库明细").Current("入库单号") & "'")

 

下面的代码是  入库表   和  入库明细 跨表更新的

If e.DataCol.Name = "入库码单号"  Then
    If e.NewValue Is  Nothing  Then
        e.DataRow("品名") =  Nothing
        e.DataRow("材质") =  Nothing
        e.DataRow("规格") =  Nothing
        e.DataRow("长度") =  Nothing
        e.DataRow("理计数量") =  Nothing
        e.DataRow("理计重量") =  Nothing
        e.DataRow("码单数量") =  Nothing
        e.DataRow("码单重量") =  Nothing
        e.DataRow("厂发数量") =  Nothing
        e.DataRow("厂发重量") =  Nothing
        e.DataRow("厂发重量") =  Nothing
        e.DataRow("入库单号") =  Nothing
        e.DataRow("入库码单号") =  Nothing
    Else
        Dim dr As  DataRow
        dr =  DataTables("入库明细").Find("[入库码单号] = '" & e.NewValue &  "'")
        If dr IsNot Nothing
            e.DataRow("品名") = dr("品名")
            e.DataRow("材质") = dr("材质")
            e.DataRow("规格") = dr("规格")
            e.DataRow("产地") = dr("产地")
            e.DataRow("长度") = dr("长度")
            e.DataRow("理计数量") = dr("理计数量")
            e.DataRow("理计重量") = dr("理计重量")
            e.DataRow("码单数量") = dr("码单数量")
            e.DataRow("码单重量") = dr("码单重量")
            e.DataRow("厂发数量") = dr("厂发数量")
            e.DataRow("厂发重量") = dr("厂发重量")
            e.DataRow("入库单号") = dr("入库单号")
            e.DataRow("入库码单号") = dr("入库码单号")
        End  If
    End  If
End  If

Dim d1  As  DataRow = e.DataRow
Select Case e.DataCol.Name
    Case  "码单重量"
       d1("码单重量") = DataTables("入库明细码单").Compute("Sum(码单重量)","[入库码单号] = '" & Tables("入库明细").Current("入库码单号") & "'")       
    End  Select

判断列名吗？这样也不行

代码统计没有效果
此主题相关图片如下：入库.png


此主题相关图片如下：入库1.png

 

昨天测试了一下午，没有做好，请老师帮忙看下

此主题相关图片如下：码单.png

 

还是没有统计

此主题相关图片如下：码单1.png


此主题相关图片如下：码单2.png

 

在窗口的按钮里操作增加的

此主题相关图片如下：码单3.png

根据一样的入库码单好是可以统计的吧，代码没有效果啊

Dim d1  As  DataRow = e.DataRow
Select Case e.DataCol.Name
    Case  "入库码单号"
       d1("码单重量") = DataTables("入库明细码单").Compute("Sum(码单重量)","[入库码单号] = '" & d1("入库码单号") & "'")
    End  Select

 

 

这样没有计算

这样写程序不会死机了，统计还是没有作用