以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]自动筛选 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=120027) |
||||
-- 作者:616808120 -- 发布时间:2018/6/5 20:48:00 -- [求助]自动筛选 表格包含商品名称与有效期两列,如何设计按钮,单击后在窗口中显示有效期符合条件的商品 我在按钮中设计的代码为: Dim dt As Date = Date.Today.AddDays(180) Dim fil As String fil = "[有效期] >= 0 <= dt " Dim b As Table = Tables("窗口1_table1") b.Filter = fil 运行时显示无法找到“dt"列。 上事例,请高手帮助。
|
||||
-- 作者:有点蓝 -- 发布时间:2018/6/5 21:05:00 -- Dim dt As Date = Date.Today Dim fil As String fil = "[有效期] >= #" & dt & "# and [有效期] <= #" & dt.AddDays(180) & "# " Dim b As Table = Tables("窗口1_table1") b.Filter = fil [此贴子已经被作者于2018/6/5 21:05:47编辑过]
|