主题：跨表统计数据

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


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

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

 

 

 

 

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
ElseIf e.DataCol.Name = "码单重量"  Then
    Dim dr As  DataRow
    dr =  DataTables("入库明细").Find("[入库码单号] = '" & e.DataRow("入库码单号") &  "'")
    If dr IsNot Nothing Then
        DataTables("入库明细").DataCols("入库码单号").RaiseDataColChanged
    End If
End  If

 If dr IsNot Nothing Then

 

加Then 和不加 意思是一样吗？去掉If dr IsNot Nothing 就不计算了

加Then 和不加 意思是一样，这个不可能会影响代码的执行

输入计算出的的数据为什么会清空，是用错了跨表自动更新？

ElseIf e.DataCol.Name = "码单重量"  Then
    Dim dr As  DataRow
    dr =  DataTables("入库明细").Find("[入库码单号] = '" & e.DataRow("入库码单号") &  "'")
    If dr IsNot Nothing Then
        DataTables("入库明细").DataCols("入库码单号").RaiseDataColChanged(dr )
    End If
End  If

谢谢老师，可以了，帮助看了不下5遍编程还是不顺畅

入库明细表

DataColChanged

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

 

入库明细表码单

DataColChanged

Select Case e.DataCol.Name
    Case  "码单重量"
        If e.DataCol.Name = "码单重量"   Then
            Dim dr2 As  DataRow
            dr2 =  DataTables("入库明细").Find("[入库码单号] = '" & e.DataRow("入库码单号") &  "'")
            If dr2 IsNot Nothing Then
                DataTables("入库明细").DataCols("入库码单号").RaiseDataColChanged(dr2)
            End  If
        End  If
    Case  "码单数量"
        If e.DataCol.Name = "码单数量"   Then
            Dim dr1 As  DataRow
            dr1 =  DataTables("入库明细").Find("[入库码单号] = '" & e.DataRow("入库码单号") &  "'")
            If dr1 IsNot Nothing Then
                DataTables("入库明细").DataCols("入库码单号").RaiseDataColChanged(dr1)
            End If
        End  If
    End  Select

 

入库明细表统计 码单数量  和 码单重量    代码可以简化下吗？

 

 

Select Case e.DataCol.Name
    Case  "码单重量","码单数量"
            Dim dr2 As  DataRow
            dr2 =  DataTables("入库明细").Find("[入库码单号] = '" & e.DataRow("入库码单号") &  "'")
            If dr2 IsNot Nothing Then
                DataTables("入库明细").DataCols("入库码单号").RaiseDataColChanged(dr2)
            End  If
    End  Select

入库明细码单删除一行时，入库明细统计的至不变，正确是要减少，请问怎么用代码处理