主题：跨表统计数据

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

参考：http://www.foxtable.com/webhelp/topics/1522.htm

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

判断列名吗？这样也不行

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

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


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

请上传实例说明

 

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