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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 筛选问题

共有2896人关注过本帖树形打印复制链接主题：筛选问题

seal51

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

加好友

发短信

等级：八尾狐帖子：1837 积分：12990 威望：0 精华：0 注册：2013/6/10 9:23:00

筛选问题

Post By：2014/9/18 10:39:00 [显示全部帖子]

Dim cj As WinForm.ComboBox = e.Form.Controls("厂家")
Tables("导入排产产品_排产明细表").Filter = "供应商 = '" & cj.Value & "'"

需要加一个筛选条件就是只显示某个排产单号下的厂家列表

seal51

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

加好友

发短信

等级：八尾狐帖子：1837 积分：12990 威望：0 精华：0 注册：2013/6/10 9:23:00

Post By：2014/9/18 10:50:00 [显示全部帖子]

Dim cj As WinForm.ComboBox = e.Form.Controls("厂家")
Tables("导入排产产品_排产明细表").Filter = "current 排产单号？？ and 供应商 = '" & cj.Value & "'"

请老师指教？号的部分

seal51

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

加好友

发短信

等级：八尾狐帖子：1837 积分：12990 威望：0 精华：0 注册：2013/6/10 9:23:00

Post By：2014/9/18 10:56:00 [显示全部帖子]

以下是引用Bin在2014-9-18 10:49:00的发言：
Tables("导入排产产品_排产明细表").Filter = "供应商 = '" & cj.Value & "' and 排产单号='XXX'"

排产单号是动态的，是否需要e.IsFocusCell

排产主表和排产明细表通过排产单号关联，选择不同的排产单号，排产明细表里有很多产品明细对应不同厂家，我需要筛选某个排产单号下的某个厂家下的产品，我上面的代码显示了所有的厂家的产品

[此贴子已经被作者于2014-9-18 11:00:10编辑过]

seal51

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

加好友

发短信

等级：八尾狐帖子：1837 积分：12990 威望：0 精华：0 注册：2013/6/10 9:23:00

Post By：2014/9/18 11:03:00 [显示全部帖子]

谢谢老师，达到要求！

seal51

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

加好友

发短信

等级：八尾狐帖子：1837 积分：12990 威望：0 精华：0 注册：2013/6/10 9:23:00

Post By：2014/9/18 11:26:00 [显示全部帖子]

以下是引用Bin在2014-9-18 10:54:00的发言：
Tables("排产明细表").Filter = "供应商 = '" & cj.Value & "' and 排产单号='" & tables("排产明细表").current("排产单号") & "'"

这段代码写在排产主表.排产明细表（关联表）里老死机，怎么回事？

未将对象引用设置到对象的实例

[此贴子已经被作者于2014-9-18 11:29:17编辑过]

seal51

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

加好友

发短信

等级：八尾狐帖子：1837 积分：12990 威望：0 精华：0 注册：2013/6/10 9:23:00

Post By：2014/9/18 11:32:00 [显示全部帖子]

组合框的SelectedIndexChanged事件里

seal51

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

加好友

发短信

等级：八尾狐帖子：1837 积分：12990 威望：0 精华：0 注册：2013/6/10 9:23:00

Post By：2014/9/18 12:49:00 [显示全部帖子]

问题在窗口1的下拉列表的筛选

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目w1w.rar

seal51

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

加好友

发短信

等级：八尾狐帖子：1837 积分：12990 威望：0 精华：0 注册：2013/6/10 9:23:00

Post By：2014/9/18 14:38:00 [显示全部帖子]

复制到我现有的系统，出现

“.NET Framework 版本：2.0.50727.3655
Foxtable 版本：2014.9.9.1
错误所在事件：窗口,排产主窗口,AfterLoad
详细错误信息：
Invalid parameters for Select method.”

seal51

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

加好友

发短信

等级：八尾狐帖子：1837 积分：12990 威望：0 精华：0 注册：2013/6/10 9:23:00

Post By：2014/9/18 14:40:00 [显示全部帖子]

现有窗口,排产主窗口,AfterLoad 的代码如下，那个有问题呢？？

Tables("排产主表").ExtendLastCol = True
Tables("排产主表").Filter = "已完成 = false"
'Tables("排产主表.排产明细表").Filter = "已完成 = false"
Tables("排产主表").Select(0, 0)
Tables("排产明细表").Select(0, 0)
Tables("排产主表.排产明细表").Select(0, 0)

Dim zxd As WinForm.CheckBox = forms("排产主窗口").Controls("主勾选")
If zxd.Checked = False Then
Tables("排产主表").Filter = "已完成 = false"
Else
Tables("排产主表").Filter = "已完成 = True"
End If

seal51

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

加好友

发短信

等级：八尾狐帖子：1837 积分：12990 威望：0 精华：0 注册：2013/6/10 9:23:00

Post By：2014/9/18 14:50:00 [显示全部帖子]

以下是引用有点甜在2014-9-18 14:12:00的发言：

用下面的代码测试一点问题都没有啊

Dim gys As WinForm.ComboBox = e.Form.Controls("供应商")
Tables("订单.订单明细表").Filter = "供应商 = '" & gys.Value & "' and 订单编号='" & Tables("订单明细表").current("订单编号") & "'"

为什么我把上面的代码加入我现有的系统，选择下拉列表的值，筛选出来是空的呢

下一主题 >> << 上一主题

总数 21 1 2 3 下一页

主题：筛选问题