以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何实现数据引用?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=187242)

--  作者:lin98
--  发布时间:2023/7/3 9:28:00
--  如何实现数据引用?
下面代码是同库引用,如何实现跨库引用?订单表是外部A数据库,产品表是外部B数据库,如何实现外部A数据库的订单表的字段,引用外部B数据库的产品表的字段?


If
 e.DataCol.Name = "产品编号" Then
    If e.NewValue Is Nothing Then
        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("单价")
        End
 
If
    
End If
End
 If
--  作者:有点蓝
--  发布时间:2023/7/3 9:44:00
--  
把2个数据库都添加到数据源里即可
--  作者:lin98
--  发布时间:2023/7/3 10:45:00
--  
1.您的意思是把2个数据库整合一个数据库?我的理解是数据源是数据库,数据构成是数据库、表,个人的习惯
2.Dim dr As DataRow
        dr = DataTables("产品").Find("[产品编号] = \'" & e.NewValue & "\'")
跨库或跨数据源是不是这要指出数据库或数据源名,怎么处理?

--  作者:lin98
--  发布时间:2023/7/3 10:47:00
--  
需求:实现外部A数据库或A数据源的订单表的字段,引用外部B数据库或B数据源的产品表的字段
--  作者:有点蓝
--  发布时间:2023/7/3 10:50:00
--  
不是合并为一个数据库。数据源里可以添加无数的数据库里的:http://www.foxtable.com/webhelp/topics/1822.htm,添加后,把不同数据库需要用到的表格都添加进来即可