以下是引用edisontsui在2018/7/19 14:22:00的发言:这是“刷新目录树”里面Click的代码:
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("JPK612任务单","装配piao号|类型")
现在让我郁闷的是,我以开发者的身份使用这个按钮是没有问题的,但是以其他普通用户的身份使用这个按钮却有问题。
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")
trv.BuildTree("JPK612任务单","装配piao号|类型")