此主题相关图片如下: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编辑过]