请问MSHFlexGrid固定行的合并！

Question

物品编号|期初结余|期初结余|期初结余|
物品编号|数量|单价|金额|只合并这两行的‘物品编号’和‘期初结余’，谢谢！

Answer 1

把MSHFlexGrid的MergeCells属性设置为：1 - flexMergeFree就可以了。

Answer 2

Private Sub Command1_Click()
MSFlexGrid1.MergeCells = flexMergeFree
MSFlexGrid1.MergeCol(0) = True
MSFlexGrid1.MergeRow(0) = True
End SubPrivate Sub Form_Load()
MSFlexGrid1.Col = 0
MSFlexGrid1.Row = 0
MSFlexGrid1.Text = "物品编号"
MSFlexGrid1.Col = 1
MSFlexGrid1.Row = 0
MSFlexGrid1.Text = "期初结余"
MSFlexGrid1.Col = 2
MSFlexGrid1.Row = 0
MSFlexGrid1.Text = "期初结余"
MSFlexGrid1.Col = 3
MSFlexGrid1.Row = 0
MSFlexGrid1.Text = "期初结余"
MSFlexGrid1.Col = 4
MSFlexGrid1.Row = 0
MSFlexGrid1.Text = "期初结余"
MSFlexGrid1.Col = 0
MSFlexGrid1.Row = 1
MSFlexGrid1.Text = "物品编号"
MSFlexGrid1.Col = 0
MSFlexGrid1.Row = 2
MSFlexGrid1.Text = "物品编号"
End Sub

Answer 3

.MergeCol(0)= True整列都会合并，且使用合并属性之后，单击单元格显示被击中的状态（BackColorSel属性）会失效！不知道怎么会这样？

Answer 4

Private Sub MSHFlexGrid1_Click()
Dim x As Integer
Dim y As Integerx = Me.MSHFlexGrid1.Col
y = Me.MSHFlexGrid1.Row
MSHFlexGrid1.CellBackColor = vbRed    '换个这个显示颜色可以吗:)End Sub合并法用christion3(黑翼堕天使) 的方法^_^

Answer 5

MSFlexGrid1.MergeCells = flexMergeFree    '合并所有具有相同内容的项,只有相同内容的才会合并