主题：[求助]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

1、使用SQLCommand加载数据后在输出，类似：http://www.foxtable.com/webhelp/topics/2054.htm

以下命令只能看到 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")

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)

 

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)

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

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

For Each dt1 As DataRow In DataTables("岗位执行操作维护表").SQLSelect("")
   
   
    Dim nstr1 As String = " 系统编号 Is Null Or ( ( " '手工增加内容
    If   dt1("表名") = "资源不准确整改清单表"  And dt1("工作岗位") = "内线归档组"  And dt1("执行类型") = "按钮【加载数据】1"   Then
        Dim str1 = dt1("列表项目1")
       
       
        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
   
    Dim nstr2 As String = "And ("
    If   dt1("表名") = "资源不准确整改清单表"  And dt1("工作岗位") = "内线归档组"  And dt1("执行类型") = "按钮【加载数据】2"   Then
        Dim str2 = dt1("列表项目1")
       
        For Each s2 As String In str2.split("/")
            nstr2 &= " 工单当前环节 = '" & s2 & "' or "
        Next
        nstr2 = nstr2.substring(0, nstr2.length-3) & "))"
       
        msgbox(nstr2)
       
    End If
    If nstr2 <> "And (" Then
        msgbox(nstr1 & nstr2)
        Exit For
    End If
Next