- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 查询按钮不能使用&表格也不见了 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=51813)
-- 发布时间：2014/6/3 22:44:00
-- 查询按钮不能使用&表格也不见了
各位高手，请帮忙看下以下查询代码不能实现查询功能，前段时间都可以，现在不行了，另我的系统所有数据表格也看不到，请指点下，谢谢！
Dim Filter As String
With e.Form.Controls("品牌")
If .Value IsNot Nothing Then
Filter = "品牌 = \'" & .Value & "\'"
End If
End With
With e.Form.Controls("款号")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "款号 = \'" & .Value & "\'"
End If
End With
With e.Form.Controls("颜色")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "颜色 = \'" & .Value & "\'"
End If
End With
With e.Form.Controls("尺码")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "尺码 = \'" & .Value & "\'"
End If
End With
With e.Form.Controls("门店")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "门店 = \'" & .Value & "\'"
End If
End With
With e.Form.Controls("开始日期")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "单据日期 >= #" & .Value & "#"
End If
End With
With e.Form.Controls("截止日期")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "单据日期 <= #" & .Value & "#"
End If
End With
If Filter > "" Then
Tables("出入库明细").Filter = Filter
End If
此主题相关图片如下：qq图片20140603224026.jpg
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:新建文件夹.rar |
-- 发布时间：2014/6/3 22:55:00
--
最后一段改一下
If Filter > "" Then
e.Form.Controls("出入库明细").Table.Filter = Filter
End If
-- 发布时间：2014/6/4 21:35:00
--
版主，我的所有数据表格都看不到，是不是哪儿设置出了问题，帮忙看下，谢谢哈！
-- 发布时间：2014/6/4 21:37:00
--
最后一句代码，改成这样，看2楼。
If Filter > "" Then
e.Form.Controls("出入库明细").Table.Filter = Filter
End If