主题：语法解法

认认真真看代码啊

 

Dim trv As WinForm.TreeView = Forms("窗口1").Controls("TreeView1")
Dim dt As DataTable = DataTables("LFA1")
trv.nodes.Clear
Dim nd As WinForm.TreeNode = trv.nodes.Add("按【类型】划分")
For Each lx As String In dt.GetValues("ktokk")
    nd.nodes.Add(lx)
Next
nd = trv.nodes.Add("按【名称】划分")
For Each lx As String In dt.GetValues("name1")
    nd.nodes.Add(lx)
Next

Dim trv As WinForm.TreeView = Forms("窗口1").Controls("TreeView1")
Dim ary1() = {"按【类型】划分", "按【名称】划分"}
Dim ary2() = {"ktokk", "ktokk"}
Dim dt As DataTable = DataTables("LFA1")
trv.nodes.Clear
For i As Integer = 0 To ary1.length-1
    Dim nd As WinForm.TreeNode = trv.nodes.Add(ary1(i))
    For Each lx As String In dt.GetValues(ary2(i))
        nd.nodes.Add(lx)
    Next   
Next

不理解你的意思，请具体上传一个实例，说明要做到的效果。所说的效果，必须和你给的例子匹配。

'用代码批量生成[根目录]
Dim ary1() = {"产品","客户","雇员"}

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode
trv.nodes.Clear
Dim dt As DataTable
Dim cmd As new SQLCommand
For i As Integer = 0 To ary1.length-1
    nd=trv.nodes.Add(Ary1(i))
    Select Case nd.name
        Case "产品"
            cmd.CommandText="select distinct 产品 from {订单}"
            dt=cmd.ExecuteReader
            For Each dr As DataRow In dt.DataRows
                nd.nodes.add(dr("产品"))
            Next
        Case "客户"          
            Dim ary2() = {"外部","内部"}
            For i1 As Integer = 0 To ary2.length-1
                nd.nodes.add(ary2(i1))
            Next
    End Select
Next

1、

 

Dim p = e.node.ParentNode
If p Is Nothing Then p = e.sender
For Each n As WinForm.TreeNode In p.Nodes
    If n.name <> e.Node.name Then
        n.CollapseAll
    End If
Next

e.node.ExpandAll

 

 

2、控制目录树节点生成的先后顺序即可，具体问题上传实例测试

1、效率问题，sql语句没问题，你只能试试建立索引。

 

2、msgbox(dt.datacols.contains("集中删除")) 弹出什么，如果是true，说明是有的；那就只能是别的事件有错误代码。

 

如果弹出false，说明你dt就是没有这列的。

msgbox(Tables("采购管理系统_table1").cols.contains("集中删除"))

 

弹出什么？如果也是true，那就是你别的事件代码有问题。

db2判断中文，参考 select c1 from t1 where length(某列) <> length(某列, CODEUNITS32)

1、db2的中文查找，自行百度；

 

2、不明白你的意思，实例发上来测试。

参考

 

http://www.foxtable.com/webhelp/scr/2394.htm