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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 多个窗口共用下拉窗口？

共有5866人关注过本帖树形打印复制链接主题：多个窗口共用下拉窗口？

狐狸爸爸

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

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2013/5/27 17:19:00 [显示全部帖子]

看不懂你的问题，你设置了筛选，任何时候都可以取消筛选啊

狐狸爸爸

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

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2013/5/27 17:29:00 [显示全部帖子]

你上面的代码，哪里有和出库表相关的筛选？

提问的时候，尽量讲清楚来龙去脉。

狐狸爸爸

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

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2013/5/28 11:56:00 [显示全部帖子]

其实学编程，关键在于理解，如果你理解了我上次写给你的代码，那么这个问题你可以用同样的方法解决：

Dim txt As String = e.Form.DropDownBox.Text

Dim tbl As Table = Tables("客户录入_Table1")

Dim r AS row

If e.form.DopTable IsNot Nothing Then

r = e.Form.DropTable.Current

End If

Dim flt as String

If txt = "" Then

if r IsNot Nothing Then

flt= "县 = '" & r("县") & "'"

End if

Else

txt = "'*" & txt & "*'"

if r IsNot Nothing Then

flt = "县 = '" & r("县") & "' And 客户 Like " & txt

else

flt = "客户 Like " & txt

end if

End If

tbl.Filter= flt

e.Form.DropDownBox.Select() '将输入焦点返回下拉列表框

主题：多个窗口共用下拉窗口？