- 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=34884)
-- 发布时间：2013/6/18 16:19:00
-- [求助]时段筛选
请问以下代码错误在哪里？
Dim tb As WinForm.Table = e.Form.Controls("Table1")
Dim dtp1 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
Dim dtp2 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker2")
Dim drpb_name As WinForm.DropDownBox = e.Form.Controls("DropBox_name")
Dim drpb_bh As WinForm.DropDownBox = e.Form.Controls("DropBox_bh")
Dim rb_all As WinForm.RadioButton = e.Form.Controls("RadioButton_all")
Dim rb_wh As WinForm.RadioButton = e.Form.Controls("RadioButton_wh")
Dim rb_yh As WinForm.RadioButton = e.Form.Controls("RadioButton_yh")
If rb_all.Checked = True Then
If dtp1.Value IsNot Nothing And drpb_name.Text Is Nothing And drpb_bh.Text Is Nothing Then
Dim fiter As String = ("借出日期 >= #" & dtp1.value & "# And 借出日期 <= #" & dtp2.value & "# Or 归还日期 >= #" & dtp1.value & "# And 归还日期 <= #" & dtp2.value & "#")
tb.Table.Filter = fiter
End If
End If
-- 发布时间：2013/6/18 16:23:00
--
可以把错误信息贴上来吗，这样能提高解答效率。
-- 发布时间：2013/6/18 16:24:00
--
出现什么问题?
-- 发布时间：2013/6/18 16:25:00
--
不能正常筛选，无错误提示！
-- 发布时间：2013/6/18 16:26:00
--
说明你日期没有对.
messagebox.show(fiter) 一下你拼接出来的条件 自然知道问题所在了.
-- 发布时间：2013/6/18 16:30:00
--
可能是你筛选的表达式存在问题，请问dtp1 和dtp2分别代表什么时间？
-- 发布时间：2013/6/18 16:43:00
--
解决了，改为如下：if dtp1.Value IsNot Nothing And drpb_name.Text = "" And drpb_bh.Text = "" Then 成功！
谢谢楼上
-- 发布时间：2013/6/18 16:49:00
--
如上图
此主题相关图片如下：qq截图20130618164559.png
-- 发布时间：2013/6/18 16:54:00
--
时段筛选可以筛选工具的“借出时间”和“还回时间”字段如上测试了一下，请教大虾，如果设置“搜索”按钮代码有没有优化的办法，我只会用最笨的办法，将以上要筛选的控件的所有情况全部来写一遍，好麻烦，请明示
-- 发布时间：2013/6/18 16:59:00
--
狐爸给个意见呗!