以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]跨表引用  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=144982)
--  作者：江南小镇
--  发布时间：2020/1/4 19:14:00
--  [求助]跨表引用

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



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
--  作者：wei0769
--  发布时间：2020/1/5 10:47:00
--  
????
--  作者：江南小镇
--  发布时间：2020/1/5 11:44:00
--  
老师，多个品名同时用一个单价。
--  作者：有点蓝
--  发布时间：2020/1/5 21:27:00
--  
这个是产品表的维护问题，和代码有啥关系？

产品表给每个品名维护好单价不就行了
--  作者：江南小镇
--  发布时间：2020/1/8 7:20:00
--  
老师，怎样把入库明细表的客户名称、客户编号、商品名称、规格引用到入库统计表中，然后自动统计每个客户、的商品、规格的数据。


--  作者：有点蓝
--  发布时间：2020/1/8 8:39:00
--  
参考：http://www.foxtable.com/webhelp/topics/1472.htm
--  作者：江南小镇
--  发布时间：2020/1/8 8:53:00
--  
老师，我的意思是把入库明细表的客户名称、客户编号、产品名称、规格，不重复地引用（复制）到统计表中。
如果客户名称、客户编号、产品名称对应的有两个或多个规格那么客户名称、客户编号、产品名称可以再次引用到统计表中。
--  作者：有点蓝
--  发布时间：2020/1/8 9:02:00
--  

订单表的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
--  作者：江南小镇
--  发布时间：2020/1/8 14:50:00
--  
老师，统计表有客户名称、客户编号、商品名称、商品编号、规格相同的禁止引用，如果客户名称、客户编号、商品名称、商品编号、而规格不同的同样可以引用。
--  作者：有点蓝
--  发布时间：2020/1/8 15:00:00
--  
用法一样