数据载入问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 数据载入问题

共有3069人关注过本帖树形打印复制链接主题：数据载入问题

新航程小何

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：629 积分：4786 威望：0 精华：0 注册：2014/9/17 11:34:00

数据载入问题 发帖心情

Post By：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

新航程小何

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：629 积分：4786 威望：0 精华：0 注册：2014/9/17 11:34:00

Post By：2015/3/5 10:14:00 [显示全部帖子]

bin老师，加了之后就会出现截图的提示：
图片点击可在新窗口打开查看

此主题相关图片如下：qq截图20150305101243.png

新航程小何

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：629 积分：4786 威望：0 精华：0 注册：2014/9/17 11:34:00

Post By：2015/3/5 10:23:00 [显示全部帖子]

老师，还是不行，并没有实现筛选，还是全部显示

新航程小何

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：629 积分：4786 威望：0 精华：0 注册：2014/9/17 11:34:00

Post By：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

新航程小何

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：629 积分：4786 威望：0 精华：0 注册：2014/9/17 11:34:00

Post By：2015/3/5 10:30:00 [显示全部帖子]

老师，现在好了，重新打开了一下，然后把

Tables(物料领取记录).DataTable.Load加上就合适了，谢谢老师

下一主题 >> << 上一主题

主题：数据载入问题