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

判断列名吗？这样也不行

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