主题：[求助]BuildTree

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

以下命令只能看到 msgbox(nstr1) 内容、看不到 msgbox(nstr2) 内容

想要实现【DataTables("资源不准确整改清单表").LoadFIlter = nstr1 & nstr2】；命令该怎么修改？

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

If   dt1("表名") = "资源不准确整改清单表"  And dt1("工作岗位") = "内线归档组"  And dt1("执行类型") = "按钮【加载数据】1"   Then
Dim str1 = dt1("列表项目1")

End If
End If
Next

以上命令是没问题的;问题是我以下这个命令该放在哪个地方才能顺利执行呢?

DataTables("资源不准确整改清单表").LoadFIlter = nstr1 & nstr2
DataTables("资源不准确整改清单表").Load

放以下位置提示错误

     msgbox(nstr2)       
    End If

DataTables("资源不准确整改清单表").LoadFIlter = nstr1 & nstr2
DataTables("资源不准确整改清单表").Load

Next