请问在MSHFLEXGRID中,第0列和第1列如何合并,其他列都可以合并

Question

第0列和第1列的文本是相同的,可是却不能合并,其他的列都是可以的

Answer 1

Private Sub Form_Load()
    Dim i As Long    With sgrd
        .Cols = 5
        .Rows = 4
        For i = 1 To 4
            .TextMatrix(0, i) = "学生档案"
            .ColAlignment(i) = 4
        Next
        .TextMatrix(1, 0) = "序号"
        .TextMatrix(2, 0) = "2 "
        .TextMatrix(3, 0) = "2 "
        .TextMatrix(1, 1) = "姓名"
        .TextMatrix(1, 2) = "姓名"
        .TextMatrix(1, 3) = "性别"
        .TextMatrix(1, 4) = "年龄"
        .MergeCells = flexMergeRestrictRows
        .MergeRow(0) = True
        .MergeRow(1) = True
        .MergeCol(0) = True
    End With
End Sub'合并单元格==================================
'语法
'
'object.MergeCells [=value]
'
'MergeCells 属性的语法包含如下部分内容:
'
'部分 描述
'object 一个对象表达式，其值为“应用于”列表中的一个对象。
'value 一个整数或常数，指定单元分组（合并）。如设置值中所指定。
'
'
'设置值
'
'Value 的设置值如下所示:
'
'常数 值 描述
'flexMergeNever 0 不显示。包含相同内容的单元不分组。这是缺省设置。
'flexMergeFree 1 自由。包含相同内容的单元总是合并。
'flexMergeRestrictRows 2 限制行。只有行中包含相同内容的相邻单元（向当前单元左边）才合并。
'flexMergeRestrictColumns 3 限制列。只有列中包含相同内容的相邻单元（向当前单元上方）才合并。
'flexMergeRestrictBoth 4 限制行和列。只有在行中（向左）或在列中（向上）包含相同内容的单元才合并。'======================================
限制合并
MergeCells为2时限制行(向左)；为3时限制列（向上）
MergeCells =2合并第一、二行例子：
MergeRow(0) =True   ’合并
MergeRow(1) =True   ’合并
MergeRow(2) =False  ’不合并
MergeRow(3) =False  ’不合并
   .
   .我借别人的，你自己试试啊！