-- 作者:alangoon
-- 发布时间:2014/7/21 16:25:00
-- [求助]Filter不起作用,请指点!
各位大师,请帮忙看看是怎么回事?
如下图:
此主题相关图片如下:filter.jpg
照理说,审核标志=True才能显示在这,但是没有审核的也出现了。不知道是怎么回事?
下面是代码:
输入字符查询文本框的代码:
TextChanged:
Dim txt As String = e.Form.Controls("TextBox1").Text Dim tbl As Table = Tables("选择物料_Table1") \'Dim supplierid As String If e.Form.Controls("wu").Checked = True Then \' “无所谓”Checkbox选上后的代码 , 数据来自 物料编码表 If txt = "" Then tbl.Filter = "" Else txt = "\'*" & txt & "*\'" tbl.Filter = " 物料编号 Like " & txt & " Or 原厂编号 Like " & txt & " Or 重要参数 Like " & txt & " And 审核标志 = True" ‘主要是And 审核标志 = True这个条件似乎不起作用 End If End If
If e.Form.Controls("stock").Checked = True Then \' “有库存”Checkbox选上后的代码 , 数据来自 剩余库存表 If txt = "" Then tbl.Filter = "" Else txt = "\'*" & txt & "*\'" tbl.Filter = " 物料描述 Like " & txt & " And 剩余库存 > 0 " End If End If
|