求个跨表引用和统计的实现方法！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

还是下不去手，代码写点删点，觉得很简单的东西就是整不出来，可能还是不扎实，但是吧帮助翻便了都没找到好办法，像下面的这个例子，获取父表对应的行，但是父表还有很多行，到底怎么弄呢。

Select Case e.DataCol.Name
    Case "产品编号"
        If e.NewValue Is Nothing Then
            e.DataRow("单价") = Nothing
        Else
            Dim pr As DataRow = e.DataRow.GetParentRow("产品")
            If pr IsNot Nothing Then
                e.DataRow("单价") = pr("单价")
                If e.OldValue <> e.NewValue Then '如果新旧产品编号不同
                    DataTables("产品").DataCols("产品编号").RaiseDataColChanged(pr) '重算新产品的销售数量和金额
                End If
            End If
        End If
        If e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then '如果原产品编号不为空,且和新产品编号不同.
            pr = DataTables("产品").Find("[产品编号] = " & e.OldValue)
            If pr IsNot Nothing Then
                DataTables("产品").DataCols("产品编号").RaiseDataColChanged(pr) '重算原产品的销售数量和金额
            End If
        End If
    Case "数量","折扣","已付款","单价"
        If e.OldValue <> e.NewValue Then
            Dim pr As DataRow = e.DataRow.GetParentRow("产品")
            If pr IsNot Nothing Then
                DataTables("产品").DataCols("产品编号").RaiseDataColChanged(pr)
            End If
        End If
End Select

主题：求个跨表引用和统计的实现方法！