- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 筛选订单表中 起始日期 到 结束日期 之间的记录代码=》怎么写 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=1543)
-- 发布时间：2009/1/3 21:56:00
-- 筛选订单表中 起始日期 到 结束日期 之间的记录代码=》怎么写
If MainTable.Name = "调用"
Dim f As New Filler
f.SourceTable = DataTables("订单")
f.SourceCols = "产品,单价,折扣,数量,日期,已付款,编号,型号"
f.DataTable = DataTables("调用")
f.DataCols = "产品,单价,折扣,数量,日期,已付款,编号,型号"
【\'筛选订单表中 开始日期 到 结束日期 之间的记录代码=》怎么写？？？？？】
DataTables("调用").DataRows.Clear() \'清除原来的数据
f.Fill() \'填充数据
End If
绑定的全局变量（日期型），怎么还有时、分、秒啊？
此主题相关图片如下：未命名.jpg
[此贴子已经被作者于2009-1-3 22:12:37编辑过]
-- 发布时间：2009/1/3 22:56:00
--
Dim StartDate,EndDate As Date
StartDate = 窗口开始日期值
EndDate = 窗口结束日期值
If MainTable.Name = "调用"
Dim f As New Filler
f.SourceTable = DataTables("订单")
f.SourceCols = "产品,单价,折扣,数量,日期,已付款,编号,型号"
f.DataTable = DataTables("调用")
f.DataCols = "产品,单价,折扣,数量,日期,已付款,编号,型号"
f.Filter = "[日期] >= #" & StartDate & "# And [日期] <= #" & EndDate & "#"
DataTables("调用").DataRows.Clear() \'清除原来的数据
f.Fill() \'填充数据
End If
-- 发布时间：2009/1/4 0:07:00
--
谢谢czy版主了，咱代码就是摆不清楚。休息去了～
-- 发布时间：2009/1/4 16:58:00
--
谁还能解释1楼中 日期框 的问题 怎样只显示日期，不显示时间（00:00:00）呢？？
项目事件Initialize中代码：
Vars.Add("开始日期",GetType(Date))
Vars.Add("结束日期",GetType(Date))