查询 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

共有2737人关注过本帖树形打印复制链接主题：查询

大红袍

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/10/19 22:43:00 [显示全部帖子]

必须加载出来才行

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

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/10/27 9:06:00 [显示全部帖子]

呃，你可以动态加载啊

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

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

大红袍

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/10/27 11:51:00 [显示全部帖子]

这个就是不关联的啊

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

大红袍

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/10/27 11:51:00 [显示全部帖子]

认认真真看8楼，直接拷贝代码就能用。

大红袍

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/10/27 12:10:00 [显示全部帖子]

If DataTables("订单主表").DataRows.Count = 0 Then '如果订单表没有数据
    DataTables("订单").LoadFilter = "订单编号 Is Null" '不加载订单明细
Else
    Dim ids As String
    For Each dr As DataRow In DataTables("订单主表").DataRows
        ids = ids & ",'" & dr("订单编号") & "'"
    Next
    ids= ids.Trim(",")
    DataTables("订单").LoadFilter = "订单编号 In (" & ids.trim(",") & ")"
End If
DataTables("订单").Load()