主题：有个小项目 不知道怎么实施？

 一样是跨表统计啊，有什么问题？

 

http://www.foxtable.com/help/topics/1472.htm

 

 有什么问题，跟着帮助做就不会有错。

  你现在是什么问题，哪里不对？

1、你的库存表无需实时变化，用查询表直接统计更方便；

 

2、你修改关键列的时候，首先，你要根据列名和旧值，去更新库存表的数据，然后，你要根据列名和新值，去更新库存表数据。

 

怎么可能两个值都变动？每变动一个值，就会触发一次datacolchanged事件

 没改变一个值就会触发一次datacolchanged代码啊。

 是的。

 

 要判断列名和新旧值合并成条件，查找，修改

 很简单啊。

 

 http://www.foxtable.com/help/topics/2490.htm

 

  怎么不对，不是对应修改了两行的数据了么。

Select Case e.DataCol.Name
    Case "产品编码"
        If  e.DataRow.IsNull("产品编码") = False  AndAlso e.DataRow.IsNull("颜色") = False AndAlso e.DataRow.IsNull("仓库") = False Then
            Dim filter1 As String = "产品编码 ='" & e.DataRow("产品编码") & "'  And 颜色 ='" & e.DataRow("颜色") & "'And 仓库 ='" & e.DataRow("仓库") & "'"
            Dim dr1 As DataRow
            dr1 = DataTables("库存表").Find(filter1)
            If dr1 IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing
                dr1("金额") = e.DataTable.Compute("sum(金额)", filter1)
            Else
                Dim dr As DataRow = DataTables("库存表").AddNew()
                dr("产品编码")=e.DataRow("产品编码")
                dr("产品名称")=e.DataRow("产品名称")
                dr("分类名称")=e.DataRow("分类名称")
                dr("分类编码")=e.DataRow("分类编码")
                dr("分类名称")=e.DataRow("分类名称")
                dr("颜色")=e.DataRow("颜色")
                dr("仓库")=e.DataRow("仓库")
                dr("金额") = e.DataTable.Compute("sum(金额)", filter1)
            End If
            Dim filter2 As String = "产品编码 ='" & e.oldvalue & "'  And 颜色 ='" & e.DataRow("颜色") & "'And 仓库 ='" & e.DataRow("仓库") & "'"
            Dim dr2 As DataRow
            dr2 = DataTables("库存表").Find(filter2)
            If dr2 IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing
                dr2("金额") = e.DataTable.Compute("sum(金额)", filter2)
            End If
        End If
End Select