- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助帮忙在代码里加一个条件 谢谢 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=83010)
-- 发布时间：2016/3/29 16:52:00
-- 求助帮忙在代码里加一个条件 谢谢
Dim Filter As String
With e.Form.Controls("票号")
If .Value IsNot Nothing Then
Tables("安阳输入").Filter = "票号 = \'" & .Value & "\'"
End If
End With
老师们帮帮忙在上面加一个筛选条件吧 回款日期 列 等于空白的情况下 谢谢
-- 发布时间：2016/3/29 17:47:00
--
你要的是这个？
http://www.foxtable.com/help/topics/1058.htm
-- 发布时间：2016/3/29 18:15:00
--
是啊 帮忙改改吧 我改一直错 不好意思.. 就是 安阳输入表里 筛选条件是 1.回款日期 等于空白 2.就是根据 票号 那里输入数据然后查询了
谢谢 谢谢
-- 发布时间：2016/3/29 18:21:00
--
Tables("安阳输入").Filter = "票号 = \'" & .Value & "\' and 回款日期 is null"
-- 发布时间：2016/3/29 18:34:00
--
感谢 感谢