- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]学习窗口筛选.table的错误 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=40222)
-- 发布时间：2013/9/12 12:18:00
-- [求助]学习窗口筛选.table的错误
打开casestuduy的窗口筛选TABLE时的时间筛选时总提示附件的错误。
请老师们告知什么问题
此主题相关图片如下：qq截图20130912121631.jpg
此主题相关图片如下：qq截图20130912122042.jpg
此主题相关图片如下：qq截图20130912122051.jpg
[此贴子已经被作者于2013-9-12 12:21:35编辑过]
-- 发布时间：2013/9/12 12:25:00
--
合成的表达式有问题，你可以用mssagbeox.show显示下你合成的筛选表达式，就知道问题所在了
-- 发布时间：2013/9/12 13:52:00
--
casestuduy里的东西都没有改过啊，怎么能错误呢，难道是故意设置的错误？
-- 发布时间：2013/9/12 13:55:00
--
Dim Filter As String
With e.Form.Controls("cmbProduct")
If .Value IsNot Nothing Then
Filter = "产品 = \'" & .Value & "\'"
End If
End With
With e.Form.Controls("cmbCustomer")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "客户 = \'" & .Value & "\'"
End If
End With
With e.Form.Controls("cmbEmployee")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "雇员 = \'" & .Value & "\'"
End If
End With
With e.Form.Controls("StartDate")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "日期 >= #" & .Value & "#"
End If
End With
With e.Form.Controls("EndDate")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "日期 <= #" & .Value & "#"
-- 发布时间：2013/9/12 14:03:00
--
你好,你这个原因看起来是因为你系统日期格式有问题导致,请检查一下你是否把系统日期格式设置为带有星期几的了.
-- 发布时间：2013/9/12 14:28:00
--
果真是这个问题，谢谢了啊！~~~~~