[求助]在MSHFLexGrid如何实现固定行单元格合并 - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → [求助]在MSHFLexGrid如何实现固定行单元格合并

标题：[求助]在MSHFLexGrid如何实现固定行单元格合并

只看楼主

chenliu

等　级：新手上路
帖　子：34
专家分：0
注　册：2007-7-15

楼主

问题点数：0 回复次数：3

[求助]在MSHFLexGrid如何实现固定行单元格合并

请问，如何在设置MSHFLexGrid表固定行的时候实现两行固定行，第一行单元格跨列多行合并。效果如下：
项目1 | 项目2
数量 |单价 |金额 |数量 |单价 |金额

搜索更多相关主题的帖子: 单元格　 MSHFLexGrid　单价　金额　

2007-08-14 20:16

心中有剑

等　级：新手上路
威　望：5
帖　子：611
专家分：0
注　册：2007-5-18

第 2 楼

得分:0

Option Explicit

Private Sub Form_Load()
Dim i As Long

MSHFlexGrid1.Rows = 3
MSHFlexGrid1.Cols = 5
MSHFlexGrid1.FixedCols = 0
MSHFlexGrid1.TextMatrix(0, 0) = "aa"
MSHFlexGrid1.TextMatrix(0, 1) = "aa"
MSHFlexGrid1.TextMatrix(0, 2) = "bb"
MSHFlexGrid1.TextMatrix(0, 3) = "bb"

MSHFlexGrid1.MergeCells = flexMergeRestrictColumns
For i = 0 To MSHFlexGrid1.Cols - 1
MSHFlexGrid1.MergeCol(i) = True

Next
MSHFlexGrid1.MergeRow(0) = True

End Sub