- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 数据载入问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=64921)
-- 发布时间：2015/3/5 9:58:00
-- 数据载入问题
我写了如下代码，想实现的功能时在载入数据时只显示我在条件中要求的，结果运行时却全部显示了：
forms("栽后作业记录").show
If forms("栽后作业记录").opened Then
Tables("栽后作业记录_Table1").DataSource = DataTables("物料领取记录")
Tables(物料领取记录).DataTable.LoadFilter = "[使用环节] = \'施肥\'and \'灌溉\'and \'病虫害预防\' and \'病虫害处理\'and \'剪枝\'and \'土壤耕作\'"
Dim trv As WinForm.TreeView = Forms("栽后作业记录").Controls("TreeView1")
trv.BuildTree("物料领取记录", "领用部门|领用单位|制单编号")
Forms("栽后作业记录").Controls("gb1").text ="物料领取记录"
End If
-- 发布时间：2015/3/5 9:59:00
--
Tables(物料领取记录).DataTable.Load
-- 发布时间：2015/3/5 10:14:00
--
bin老师，加了之后就会出现截图的提示：
此主题相关图片如下：qq截图20150305101243.png
-- 发布时间：2015/3/5 10:15:00
--
Tables(物料领取记录).DataTable.LoadFilter = "[使用环节] = \'施肥\'and \'灌溉\'and \'病虫害预防\' and \'病虫害处理\'and \'剪枝\'and \'土壤耕作\'"
改成
Tables(物料领取记录).DataTable.LoadFilter = "[使用环节] in (\'施肥\',\'灌溉\',\'病虫害预防\',\'病虫害处理\',\'剪枝\',\'土壤耕作\')"
-- 发布时间：2015/3/5 10:23:00
--
老师，还是不行，并没有实现筛选，还是全部显示
-- 发布时间：2015/3/5 10:24:00
--
没道理,请上例子.
-- 发布时间：2015/3/5 10:25:00
--
整体的功能设想是这样的
forms("栽后作业记录").show
If forms("栽后作业记录").opened Then
Tables("栽后作业记录_Table1").DataSource = DataTables("物料领取记录")\'绑定另一窗口的table表是“物料领取记录”
Tables(“物料领取记录").DataTable.LoadFilter = "[使用环节] = \'施肥\'and \'灌溉\'and \'病虫害预防\' and \'病虫害处理\'and \'剪枝\'and \'土壤耕作\'" \'对于新窗口中的数据表进行筛选
Dim trv As WinForm.TreeView = Forms("栽后作业记录").Controls("TreeView1") ’根据筛选后数据生成目录树
trv.BuildTree("物料领取记录", "领用部门|领用单位|制单编号")
Forms("栽后作业记录").Controls("gb1").text ="物料领取记录"
End If
-- 发布时间：2015/3/5 10:25:00
--
老师，还是不行，并没有实现筛选，还是全部显示
不明白你想说什么，条件你设置成什么，最后就加载什么啊
Tables(物料领取记录).DataTable.LoadFilter = "[使用环节] in (\'施肥\',\'灌溉\',\'病虫害预防\',\'病虫害处理\',\'剪枝\',\'土壤耕作\')"
Tables(物料领取记录).DataTable.Load
-- 发布时间：2015/3/5 10:30:00
--
老师，现在好了，重新打开了一下，然后把
Tables(物料领取记录).DataTable.Load加上就合适了，谢谢老师