Dim cpcx As String = e.Form.Controls("查询产品资料").text
If cpcx = "" Then
    MessageBox.show("请输入查询的数据!","提示")
    Return
Else
    DataTables("产品资料主表").LoadFilter = "品名 Like \'%" & cpcx & "%\' Or 规格 Like \'%" & cpcx & "%\'"
    DataTables("产品资料主表").Load()
    DataTables("产品资料子表").LoadFilter ="料号 Like \'%" & cpcx & "%\' Or 品牌 Like \'%" & cpcx & "%\'"
    DataTables("产品资料子表").Load()
    DataTables("产品资料孙表").LoadFilter ="供应商 Like \'%" & cpcx & "%\'"
    DataTables("产品资料孙表").Load()
    DataTables("产品报价子表").LoadFilter ="客户名称 Like \'%" & cpcx & "%\' Or CPN Like \'%" & cpcx & "%\'"
    DataTables("产品报价子表").Load()  
End If

‘=================

除了能查【产品资料主表】的数据外，输入【产品资料子表】【产品资料孙表】【产品报价子表】【产品报价孙表】的相关数据都查询不到

其中关联关系是：

产品资料主表 ----产品资料子表---产品资料孙表

                                 |

                        产品报价子表

                                 |

                         产品报价孙表

在各个父表里的afterload事件里用了e.DataTable.LoadChildren("子表")的加载方法

我想用一个查询框查询4个表的数据，并且能加载到相应的父表，子表数据，该如何做呢？

 看你的代码，load之后，事件里又重新load了一次数据，当然查不到。

 你变通一下，去掉事件的代码，先Load，再LoadChildren，再AppendLoad

此主题相关图片如下：qq图片20140508150144.jpg

我可能没说清楚，如图这样的，我想用一个查询按钮查询四张表中任意一张表的指定列的数据，查出来后同步加载其他相关的表的数据

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:查询测试.foxdb

例子来了，窗口1

 说一个笨的办法，希望有高手想到更好的方法。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:查询测试.foxdb