mshflexgrid 合并標題行給我看看問題出現在哪里

Question

Dim strfix() As String
            Dim strfix1() As String
            With MSHGrid4
                strfix1 = Split("貨號|數量|單位|絲印|絲印|切布|切布|染色|染色|壓紋|壓紋|塑膠|塑膠|射骨|射骨|定型|定型|手撼|噴油|植毛|點油|剪枝|裝配", "|")
                strfix = Split("貨號|數量|單位|模具|碼數|模具|扎數|模具|扎數|模具|扎數|模具|數量|模具|數量|模具|數量|手撼|噴油|植毛|點油|剪枝|裝配", "|")
                .Cols = 23
               .FixedRows = 2
               .FixedCols = 0
                            .MergeCells = flexMergeRestrictColumns
               For i = 0 To 22
                    .TextMatrix(0, i) = strfix1(i)
                    .TextMatrix(1, i) = strfix(i)
                    
                    .MergeCol(i) = True
                Next i
                .MergeCells = flexMergeRestrictRows               .MergeRow(0) = True '合并固定行
               .MergeRow(1) = True '
                
                .ColWidth(0) = 1500
                .ColWidth(1) = 600
                For i = 2 To 23
                    .ColWidth(i) = 600
                Next
                .ColAlignment(-1) = 4
                For i = 1 To 4
                    .ColAlignment(i) = 1
                Next
                .ColAlignmentFixed = 4
            End With

Answer 1

好像是有这样的问题,合并列在中间如果有未合并时后面再需要合并的将不能成功,
换成这样似乎可以的:
strfix1 = Split("貨號|數量|單位|手撼|噴油|植毛|點油|剪枝|裝配|絲印|絲印|切布|切布|染色|染色|壓紋|壓紋|塑膠|塑膠|射骨|射骨|定型|定型", "|")
                strfix = Split("貨號|數量|單位|手撼|噴油|植毛|點油|剪枝|裝配|模具|碼數|模具|扎數|模具|扎數|模具|扎數|模具|數量|模具|數量|模具|數量", "|")但可能不合你的要求.

Answer 2

難道MSHFLEXGRID是這樣的濫嗎?救救我吧,有沒有其他的控件好一點的?

Answer 3

mshflexgrid就是有个样的问题,你可以用vsflexgrid,这个不错的.

Answer 4

可vsflexgrid只能显示数据100行，不知为何？

Answer 5

把 .MergeCells = flexMergeRestrictColumns改成.MergeCells = flexMergeFree然后把.MergeCells = flexMergeRestrictRows去了，就可以了

Answer 6

to  kinlin(小林)  可是我只想合并標題,按你這樣所有的數据都合并了

Answer 7

很简单的你只要去掉.MergeCells = flexMergeRestrictRows
 就可以了............
                '.MergeCells = flexMergeRestrictRows               .MergeRow(0) = True '合并固定行
               .MergeRow(1) = True '
.................