Foxtable(狐表)用户栏目专家坐堂 → [求助]BuildTree


  共有2109人关注过本帖平板打印复制链接

主题:[求助]BuildTree

帅哥哟,离线,有人找我吗?
wumingrong1
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1029 积分:6497 威望:0 精华:0 注册:2014/1/3 12:49:00
[求助]BuildTree  发帖心情 Post By:2019/6/25 21:27:00 [只看该作者]

1、以下读取【列表项目表】数据时只能读取到被加载的数据、如果我想直接读取数据库中的数据;命令该怎么修改?

 

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("列表项目表","列表项目1|列表项目2"," 表名 = '移动优化整治项目清单表' and 列名 = '工单类型' ")

 

 

2、以下读取【岗位执行操作维护表】数据时只能读取到被加载的数据、如果我想直接读取数据库中的数据;命令该怎么修改?

 

For Each dt As DataRow In DataTables("岗位执行操作维护表").dataRows

If   dt("表名") = "移动优化整治项目清单表"  And dt("工作岗位") = "支撑中心"  And dt("执行类型") = "按钮【加载已处理】"   Then
Dim str1 = dt("列表项目1")
Dim nstr1 As String = "系统编号 is null or ( 区域名称 = '" & User.Roles & "' and ( "
For Each s1 As String In str1.split("/")
    nstr1 &= " 工单当前环节 = '"& s1 &"' or "
Next
nstr1 = nstr1.substring(0, nstr1.length-3) & " ))"
'msgbox(nstr1)

DataTables("移动优化整治项目清单表").LoadFIlter = nstr1
DataTables("移动优化整治项目清单表").Load

[此贴子已经被作者于2019/6/25 21:49:56编辑过]

 回到顶部