以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何实现跨表查询?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=184520)

--  作者:lgz518
--  发布时间:2022/12/12 10:55:00
--  如何实现跨表查询?
需求:通过产品表的产品编号查询出订单表的相同的产品编号的数据,不是定位,是查找数据

下面代码,是定位,不象查询那样将产品的产品编号把订单的产品编号相同的数据全部列出,其他不相关不显示,如何实现?

Dim wz As Integer
Dim dr As DataRow
dr = DataTables("订单").Find("[产品编号] = \'" & e.Table.Current("产品编号") & "\'")
If dr IsNot Nothing Then
    wz = Tables("订单").FindRow(dr)
    If wz >= 0 Then
        Tables("订单").Position = wz
    End If
End If

--  作者:有点蓝
--  发布时间:2022/12/12 10:58:00
--  
用select:http://www.foxtable.com/webhelp/topics/0400.htm