主题：点击刷新筛选树结果不会刷新

你的刷新按钮，写了什么代码？是你自己写的代码吗？你理解里面的意思吗？

 

请贴出所写代码，你可以加入msgbox调试一下，看里面的代码是否已经触发。

这个问题我还是照不出原因来。

 

贴出所写代码。

这是“刷新目录树”里面Click的代码：

 

BuildTree是根据加载的数据生成的。你是不是限制了表格数据的生成？

 

方法一：http://www.foxtable.com/webhelp/scr/2054.htm

 

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = "SELECT DISTINCT 产品,客户 From {订单}"
dt = cmd.ExecuteReader()
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt,"产品|客户")

 

方法二：你先把表格【JPK612任务单】的数据加载出来，再生成目录树即可。比如

 

DataTables("JPK612任务单").Loadfilter = ""

DataTables("JPK612任务单").LoadTop = ""

DataTables("JPK612任务单").Loadpage = 0

DataTables("JPK612任务单").Load

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")

 

 

我的数据一登陆系统即全部已经加载了。然后我增加数据行，再按“刷新目录树”。如果我是开发者，那么此时，目录树会将新增加的数据行资料在目录树里面显示出来；如果我不是开发者，那么此时，目录树就不会将新增加的数据行资料显示出来。问题就在这里。

前面我在百度网盘上分享了我的系统档案，你可以登陆试一下。谢谢。

 

如果执行这个代码呢？目录树能否正常生产？

 

DataTables("JPK612任务单").Loadfilter = ""

DataTables("JPK612任务单").LoadTop = ""

DataTables("JPK612任务单").Loadpage = 0

DataTables("JPK612任务单").Load

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")

在哪里执行？在“杂项”的“命令窗口”里面？

 

改到你原来的代码那里执行。