主题：新手提问2

目录树窗口AfterLoad

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode
Dim wr As String
For Each dt As DataTable In DataTables
    nd = Trv.Nodes("统计年份")
    wr = dt.Name
    If wr.Substring(0,1) = "d" Then
        nd = nd.Nodes.Add(wr)
        nd.nodes.add("表A")
        nd.Nodes.Add("表B")
        nd.Nodes.Add("表C")
    End If
Next

treeView控件的Nodemouseclick:

Dim ne As String
Dim s As String
Dim trv As WinForm.TreeView = Forms("目录树").Controls("TreeView1")
ne = trv.SelectedNode.Name
For Each dt As DataTable In DataTables
    s = dt.Name
    If s = ne Then
        Forms("主窗口").Open()
Tables("主窗口_Table1").DataSource = DataTables(ne) '动态绑定数据表
Dim a As Integer=DataTables(ne).DataCols.Count
Dim i As Integer
For i=1 To a-1
    Tables("主窗口_Table1").Cols(i).Width=30
Next
With Tables("主窗口_Table1")
    .MergeMode = MergeModeEnum.Standard '标准合并模式
    .MergeCols.Clear() '清除原来的合并列
    .MergeCols.Add("员工姓名") '加入要合并的列
    '.MergeSort = "员工姓名" '设置合并模式下的排序方式
    .AllowMerge = True '启用合并模式
End With
    End If
Next

For Each dt As DataTable In DataTables
    s = dt.Name
    If s = ne Then
        Forms("主窗口").Open()
        Tables("主窗口_Table1").DataSource = DataTables(ne) '动态绑定数据表
        Dim a As Integer=DataTables(ne).DataCols.Count
        Dim i As Integer
        For i=1 To a-1
            Tables("主窗口_Table1").Cols(i).Width=30
        Next
        With Tables("主窗口_Table1")
            .MergeMode = MergeModeEnum.Standard '标准合并模式
            .MergeCols.Clear() '清除原来的合并列
            .MergeCols.Add("员工姓名") '加入要合并的列
            '.MergeSort = "员工姓名" '设置合并模式下的排序方式
            .AllowMerge = True '启用合并模式
        End With
    End If
Next

改成

For Each dt As DataTable In DataTables
    s = dt.Name
    If s = ne Then
        Forms("主窗口").Open()
        Tables("主窗口_Table1").DataSource = DataTables(ne) '动态绑定数据表
        Dim a As Integer=DataTables(ne).DataCols.Count
        Dim i As Integer
        For i=1 To a-1
            Tables("主窗口_Table1").Cols(i).Width=30
        Next
        With Tables("主窗口_Table1")
            .MergeMode = MergeModeEnum.Standard '标准合并模式
            .MergeCols.Clear() '清除原来的合并列
            .MergeCols.Add("员工姓名") '加入要合并的列
            '.MergeSort = "员工姓名" '设置合并模式下的排序方式
            .AllowMerge = True '启用合并模式
        End With
        Exit For
    End If
Next