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

[fly_miss]

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

[fly_miss]

up

[bruce168]

up

[qiyunhui]

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 ’不合并
.
.

我借别人的，你自己试试啊！