可也,先用:MSHFLEXGRID.MERGECELLS=2
           MSHFLEXGRID.MERGECOL(0)=TRUE
           MSHFLEXGRID.MERGECOL(1)=TRUE
这样做就可以了。快给分吧!

解决方案 »

  1.   

    试试这些东西行不行
    Private Sub Command1_Click()
        Dim i  As Long, j As Long
        With m
            For i = 1 To 2
                For j = 1 To 10
                    .TextMatrix(i - 1, j - 1) = "1_1"
                Next j
            Next i
            For i = 3 To 10
                For j = 1 To 10
                    .TextMatrix(i - 1, j - 1) = i & "_" & j
                Next j
            Next i
        End With
    End SubPrivate Sub Command2_Click()
        With m
            .MergeCells = 1
            .MergeRow(1) = True
            .MergeRow(0) = True
        End With
    End Sub
      

  2.   

    首先谢谢楼上的二位了。
    to songyangk(小草)
      你的方法只合并了两行,没有合并列。
    我希望的是不仅对前两行进行行合并,还对所有列的前两行进行列合并.
    我是用这个控件来显示数据集,用合并可以显示多层的列标头结构,但我不想让数据也合并显示。
      

  3.   

    俺用 Videosoft Flexgrid是很好用的!
      

  4.   

    to shaosx()
    在哪下这个控件,有注册码吗
      

  5.   

    mshflexgrid不能解决?好像很多人碰到这个问题啊,哪位大侠知道就告诉大家吧?
      

  6.   

    我现在也遇到了这个问题。
    不过,我想这样解决:
    自己编写一个控件,用两个MSHFlexGrid。一个作表头,一个作表体。这样,可以单独对表头进行列合并而不影响表体啦!大家认为这个思路怎样?