- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]明细表中有日期，如何筛选出起始日期和结束日期范围内的主表数据 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=31660)
-- 发布时间：2013/4/18 18:24:00
-- [求助]明细表中有日期，如何筛选出起始日期和结束日期范围内的主表数据
求助，明细表中有日期，如何筛选出起始日期和结束日期范围内的主表数据。如图。
要如何改帮助文件中的以下代码？谢谢！
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 & "#"
End
If
End
With
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:窗口筛选.zip |
此主题相关图片如下：1.jpg
-- 发布时间：2013/4/18 20:43:00
--
不知道这样对不对，总感觉你要的查询有点问题。
Dim Filter As String
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 & "#"
End If
End With
Dim s As String = DataTables("明细表").GetComboListString("订单编号",Filter)
s = s.Replace("|","\',\'")
Tables("订单").Filter = "订单编号 in(\'" & s & "\')"
End If
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:窗口筛选.table |
[此贴子已经被作者于2013-4-18 22:22:00编辑过]
-- 发布时间：2013/4/18 22:10:00
--
谢谢解答，你附件打不开，用你的代码，单段筛选日期可以，加上其它条件后不行，继续求助！
-- 发布时间：2013/4/19 15:29:00
--
求高人指点代码，谢谢！
-- 发布时间：2013/4/19 16:03:00
--
好了.
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:窗口筛选.zip |
-- 发布时间：2013/4/19 17:12:00
--
Bin,谢谢，有点错误再帮修正一下。
此主题相关图片如下：11.jpg