- 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=64434)
-- 发布时间：2015/2/13 14:48:00
-- [求助]如何动态生成过滤条件?
窗口中,一个控件为combobox,名称为"月份",另一个控件为值班时间,也是combobox,现在要根据月份选择的月,在值班时间里,显示这个月的值班时间,我原想用的代码是:可是不成功,后在列表项目中数据表,有个过滤条件中设置动态表达式,可又不成功,能有什么办法解决,代码为:
Dim yf As WinForm.ComboBox = e.Form.Controls("月份")
Dim zbsj As WinForm.combobox = e.Form.Controls("值班时间")
Tables("值班排序表").Filter = "月份 = \'" & yf.text & "\' and 时间_日期 like \'*" & zbsj.text & "*\'"
过滤条件动态表达式为:[月份] = \'" & vars(月份) & "\'
求高手.
-- 发布时间：2015/2/13 14:49:00
--
你的列是什么类型? 具体情况上个例子看看
-- 发布时间：2015/2/13 14:54:00
--
请看软件:
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:综合服务台值班系统.zip |
-- 发布时间：2015/2/13 14:59:00
--
没看懂你的情况.
-- 发布时间：2015/2/13 15:02:00
--
在值班排序表中,当某个人要值班时,选择年度/月份/值班时间/带班领导/值班人员,然后,在相应的日期里,填写值班情况,就是这么个意思,
-- 发布时间：2015/2/13 15:04:00
--
这个意思？
Dim nd As WinForm.ComboBox = e.Form.Controls("年度")
Dim yf As WinForm.ComboBox = e.Form.Controls("月份")
\'Dim xhgg As WinForm.ComboBox = e.Form.Controls("姓名")
yf.ComboList = DataTables("值班排序表").GetComboListString("月份","年度 = \'" & nd.text & "\'","月份")
Dim filter As String = "1=1"
If nd.Text > "" Then
filter &= " and 年度 = \'" & nd.text & "\'"
End If
If yf.Text > "" Then
filter &= " and 月份 like \'*" & yf.text & "*\'"
End If
Tables("值班排序表").Filter = filter
http://www.foxtable.com/help/topics/1058.htm
-- 发布时间：2015/2/13 15:08:00
--
给你写了年度和月份 日期时间以此类推
-- 发布时间：2015/2/13 15:25:00
--
就是值班时间写不出来,我按你的样式,做了一个,值班时间的代码为:e.sender.ComboList = DataTables("值班排序表").GetComboListString("时间_日期","年度 = \'" & e.Form.Controls("年度").text & "\'and 月份 = \'" & e.Form.Controls("月份").text & "\'","月份")
最后出现如下提示:
此主题相关图片如下：截图00.png
此主题相关图片如下：截图00.png-- 发布时间：2015/2/13 15:31:00
--
.
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:综合服务台值班系统.foxdb |
-- 发布时间：2015/2/13 15:36:00
--
值班时间的00.00.00,能否去掉,请看图:
此主题相关图片如下：截图01.png