以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  关联表的筛选窗口设计  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=2062)

--  作者：woodiy --  发布时间：2009/3/9 12:13:00 --  关联表的筛选窗口设计 此主题相关图片如下：无标题.jpg 我筛选控件的代码如下：Dim Filter As String With e.Form.Controls("TextBox1")     If .Value IsNot Nothing Then         Filter = "[色名色号] LIKE \'*" & .Value & "*\'"     End If End With With e.Form.Controls("TextBox2")     If .Value IsNot Nothing Then         If Filter > "" Then             Filter = Filter & " and "         End If         Filter = Filter & "[款号] LIKE \'*" & .Value & "*\'"     End If End With With e.Form.Controls("TextBox3")     If .Value IsNot Nothing Then         If Filter >"" Then             Filter = Filter & " And "         End If         Filter = Filter & "[缸号] LIKE \'*" & .Value & "*\'"     End If End With If Filter > "" Then     Tables("生产管理").Filter = Filter End If 为什么代码没有起作用，说明一下。谢谢！

--  作者：kylin --  发布时间：2009/3/9 12:25:00 --   Tables("生产管理").Filter = Filter 应该用 Tables("父表名.子表名").Filter = Filter

--  作者：woodiy --  发布时间：2009/3/9 12:28:00 --   好的，谢谢！