- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]取消筛选 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=87390)
-- 发布时间：2016/7/10 17:04:00
-- [求助]取消筛选
此主题相关图片如下：2.png
帽胚合同明细 表的 CurrentChanged 事件代码如下：
Tables("帽胚出入明细").Filter = "款号 = \'" & Tables("帽胚录入_帽胚合同明细").Current("款号") & "\' and 颜色 = \'" & Tables("帽胚录入_帽胚合同明细").Current("颜色") & "\'"
这是 重置筛选 按钮的代码
Dim k As WinForm.ComboBox = e.Form.Controls("款号查询")
Dim h As WinForm.ComboBox = e.Form.Controls("合同号查询")
k.Text = ""
h.Text = ""
Tables("帽胚录入_帽胚合同明细").Filter = ""
按一下出错
此主题相关图片如下：1.png
重置的时候出错了，请问怎呢解决？
[此贴子已经被作者于2016/7/10 17:04:56编辑过]
-- 发布时间：2016/7/11 5:14:00
--
CurrentChanged事件
If Tables("帽胚录入_帽胚合同明细").Current IsNot Nothing
Tables("帽胚出入明细").Filter = "款号 = \'" & Tables("帽胚录入_帽胚合同明细").Current("款号") & "\' and 颜色 = \'" & Tables("帽胚录入_帽胚合同明细").Current("颜色") & "\'"
End If
-- 发布时间：2016/7/11 14:10:00
--
谢谢。