有没有控件可以取得Excel中合并单元格层次的效果？最好给段代码

Question

寻找一个控件，使查询结果呈现Excel中合并单元格的层次效果，如上层是“中国”，第二层是“山东”、“四川”、...， “中国”对应的单元格是合并的，最好给一段代码

Answer 1

Private Sub Form_Load()Me.MSHFlexGrid1.Cols = 5
Me.MSHFlexGrid1.Rows = 3
Me.MSHFlexGrid1.FixedRows = 2Me.MSHFlexGrid1.MergeCells = flexMergeFreeMe.MSHFlexGrid1.MergeRow(0) = TrueMe.MSHFlexGrid1.TextMatrix(0, 1) = "中国"
Me.MSHFlexGrid1.TextMatrix(0, 2) = "中国"
Me.MSHFlexGrid1.TextMatrix(0, 3) = "中国"Me.MSHFlexGrid1.TextMatrix(1, 1) = "A"
Me.MSHFlexGrid1.TextMatrix(1, 2) = "B"
Me.MSHFlexGrid1.TextMatrix(1, 3) = "C"Dim i As Integer, j As IntegerFor i = 0 To 1
    Me.MSHFlexGrid1.Row = i
    For j = 1 To 3
        Me.MSHFlexGrid1.Col = j
        Me.MSHFlexGrid1.CellAlignment = 4
    Next j
Next iMe.MSHFlexGrid1.Row = Me.MSHFlexGrid1.FixedRows
Me.MSHFlexGrid1.Col = Me.MSHFlexGrid1.FixedColsEnd Sub