- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]查不出时间段的数据，还是按日期查，哪里错了 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=60588)
-- 发布时间：2014/11/27 15:06:00
-- [求助]查不出时间段的数据，还是按日期查，哪里错了
MainTable = Tables("采购费")
Dim st As RibbonMenu.DatePicker = RibbonTabs("chugangshoujian").Groups("数据操作").Items("开始日期")
Dim js As RibbonMenu.DatePicker = RibbonTabs("chugangshoujian").Groups("数据操作").Items("结束日期")
Dim kssj As RibbonMenu.TextBox = RibbonTabs("chugangshoujian").Groups("数据操作").Items("开始时间")
Dim jssj As RibbonMenu.TextBox = RibbonTabs("chugangshoujian").Groups("数据操作").Items("结束时间")
Dim kais As Date
Dim jshu As Date
kais = format(st.value,"yyyy-MM-dd ") & kssj.Text
jshu = format(js.value,"yyyy-MM-dd ") & jssj.Text
messagebox.show(Tables("采购费").FIlter)
DataTables("采购费").LoadFilter = " 日期 >= \'" & kais.Date & "\' And 日期 <= \'" & jshu.Date & "\' And 进出港 = \'出港\' "
DataTables("采购费").Load()
此主题相关图片如下：qq图片20141127150702.jpg
请问专家哪里错了
[此贴子已经被作者于2014-11-27 15:08:53编辑过]
-- 发布时间：2014/11/27 15:10:00
--
messagebox.show(DataTables("采购费").LoadFilter)
弹出一下条件看看
-- 发布时间：2014/11/27 15:11:00
--
你先试试这样行不行
kais = New Date(st.value.Year, st.value.Month, st.value.Day, 0, 0, 0)
jshu = New Date(js.value.Year, js.value.Month, js.value.Day, 23, 59, 59)
messagebox.show(Tables("采购费").FIlter)
[此贴子已经被作者于2014-11-27 15:11:31编辑过]