主题：[求助]跨表引用

老师，有多个品名 怎样（如：张三、李四、王五 ）来引用一个单价。谢谢老师。

If e.DataCol.Name = "品名" Then '如果内容发生变动的是品名列
    If e.NewValue Is Nothing Then '如果新值是空白,也就是品名列的内容为空
        e.DataRow("单价") = Nothing '那么清空此行单价列的内容
    Else
        Dim dr As DataRow
        '否则在产品表查找同名的产品行,将找到的行赋值给变量dr
        dr = DataTables("产品").Find("[品名] = '" & e.NewValue & "'")
        If dr IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing
            e.DataRow("单价") = dr("单价")
        End If
    End If
End If

????

老师，多个品名同时用一个单价。

这个是产品表的维护问题，和代码有啥关系？

老师，怎样把入库明细表的客户名称、客户编号、商品名称、规格引用到入库统计表中，然后自动统计每个客户、的商品、规格的数据。

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

老师，我的意思是把入库明细表的客户名称、客户编号、产品名称、规格，不重复地引用（复制）到统计表中。

订单表的DataColChanged事件代码设置为：

Select Case e.DataCol.Name
    Case "客户名称","客户编号",".....
        Dim pr As DataRow
        pr = DataTables("统计").Find("客户名称 = '" & e.DataRow("客户名称") & "' and 客户编号=..........")

        If pr Is Nothing Then
            pr = DataTables("统计").addnew

pr("客户名称") = e.DataRow("客户名称")

……

        End If
End Select

老师，统计表有客户名称、客户编号、商品名称、商品编号、规格相同的禁止引用，如果客户名称、客户编号、商品名称、商品编号、而规格不同的同样可以引用。

用法一样