主题：新手提问2

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