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

1、For Each dt1 As DataRow In DataTables("岗位执行操作维护表").SQLSelect("")
   
    If   dt1("表名") = "资源不准确整改清单表"  And dt1("工作岗位") = "内线归档组"  And dt1("执行类型") = "按钮【加载数据】1"   Then
        Dim str1 = dt1("列表项目1")
       
       
        Dim nstr1 As String = " 系统编号 Is Null Or ( ( " \'手工增加内容
        For Each s1 As String In str1.split("/") \'把查询到的内容按"/"进行分割
            nstr1 &= " 工单类型 = \'" & s1 & "\' or " \'把分割后的内容按 区域 = \'\' or 进行填写
        Next
        nstr1 = nstr1.substring(0, nstr1.length-3) & ") " \'删除分割后内容的后面3个字符.并且增加符号")"
       
        msgbox(nstr1)
    End If
   
   
    If   dt1("表名") = "资源不准确整改清单表"  And dt1("工作岗位") = "内线归档组"  And dt1("执行类型") = "按钮【加载数据】2"   Then
        Dim str2 = dt1("列表项目1")
        Dim nstr2 As String = "And ("
        For Each s2 As String In str2.split("/")
            nstr2 &= " 工单当前环节 = \'" & s2 & "\' or "
        Next
        nstr2 = nstr2.substring(0, nstr2.length-3) & "))"
       
        msgbox(nstr2)
       
    End If
Next

2、具体实例发上来测试

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

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

放以下位置提示错误

     msgbox(nstr2)       
    End If

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

Next