主题：[求助]关联表

关联表做个一个模糊查询，全部的代码如下：

 

Dim mhcx1 As WinForm.TextBox = e.Form.Controls("模糊查询")
mhcx1.Text = ""

 

Tables("组装单.组装明细单").Filter = "组装图号 = '" & Tables("组装单").Current("组装图号") & "'"

 

如何更改呢

 

 

此主题相关图片如下：smm20160112235200.png

代码没有问题，如果是副本表，参考http://www.foxtable.com/help/topics/1906.htm

Dim mhcx1 As WinForm.TextBox = e.Form.Controls("模糊查询")

 

Dim filter As String = "1=2"
For Each c As Col In Tables("组装单.组装明细单").cols
    filter &= " or convert(" & c.name & ",'System.String') like '%" & mhcx1.Text & "%'"
Next
Tables("组装单.组装明细单").Filter = filter

谢谢老师， OK了

还有一个问题， 关联表《组装单.组装明细单》有一列为产品ID 在一楼付图里有个查询价格按钮, 点击打开一个窗口，里面有个组装明细表的副本表， 如何只能筛选出关联表《组装单.组装明细单》当前产品ID的所有数据，写了一个代码如下， 如果这个关联表有多个行， 只能筛选出第一行的数据， 其他行的筛选不能来

 

比如关联表有三行，CP001， CP002， CP003， 选择CP001打开窗口可以筛选出只有CP001的数据， 但是选择CP002， CP003， 显示的还是CP001的数据

 

Tables("相关组装_组装明细表").Filter = "产品ID = '" & Tables("组装单.组装明细单").Current("产品ID") & "'"

我顶一下，等待老师回复！

没有测试出这种情况，上传例子看看

 msgbox看一下你的内容，注意表名不要写错。

 

msgbox(Tables("组装单.组装明细单").Current("产品ID")）