MSFlexGrid有固定行2行，有什么方法可以在固定行中实行自由合并，但除了固定行之外的行列永不合并？

zhengjialon 2010-08-10 03:12:29

需要在固定行分别实行行和列的合并，但列合并总会影响到非固定行中的单元格。

...全文

75 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

zhengjialon 2010-08-11

打赏
举报

只能通过这种变通的方式了

chinaboyzyq 2010-08-11

打赏
举报

1)一般ID列不会有重复。
2)msflexgrid在列上做不到你的要求，要变通一下。
3)参考程序如下：



Private Sub Form_Load()



    With MSFlexGrid1

        .Rows = 5

        .Cols = 3

        .FixedRows = 2

        .FixedCols = 0

        

        Text1.Text = "ID"

        Text1.BorderStyle = 0

        Text1.Height = .RowHeight(0)

        Text1.Locked = True

        Text1.Alignment = 2

        Text1.BackColor = &H8000000F

        Text1.Move .Left + .ColPos(0) + 60, .Top + .RowPos(0) + 60 + _

                   .RowHeight(0) / 2, .CellWidth - 15, .CellHeight



        .TextMatrix(0, 1) = "时间"

        .TextMatrix(0, 2) = "时间"

        .TextMatrix(1, 1) = "计划时间"

        .TextMatrix(1, 2) = "实际时间"

        .FixedAlignment(0) = 4

        .FixedAlignment(1) = 4

        .FixedAlignment(2) = 4

 

        .MergeCells = 1

        .MergeRow(0) = True

        .MergeRow(1) = False



        .ColAlignment(-1) = 4

         Dim R%, C%

         For R = 2 To 4

             For C = 0 To 2

                .TextMatrix(R, C) = "1"

         Next C, R



    End With

End Sub

zhengjialon 2010-08-11

打赏
举报

这样做不行，ID列如果有重复数据也被合并了

chinaboyzyq 2010-08-10

打赏
举报



Private Sub Form_Load()



    With MSFlexGrid1

        .Rows = 5

        .Cols = 3

        .FixedRows = 2

        .FixedCols = 0

    

        .TextMatrix(0, 0) = "ID"

        .TextMatrix(1, 0) = "ID"

        .MergeCells = 1

        .MergeCol(0) = True

        .MergeCol(1) = False



        .TextMatrix(0, 1) = "时间"

        .TextMatrix(0, 2) = "时间"

        .TextMatrix(1, 1) = "计划时间"

        .TextMatrix(1, 2) = "实际时间"

        .FixedAlignment(0) = 4

        .FixedAlignment(1) = 4

        .FixedAlignment(2) = 4

 

        .MergeCells = 1

        .MergeRow(0) = True

        .MergeRow(1) = False



    End With

End Sub

chinaboyzyq 2010-08-10

打赏
举报



Private Sub Form_Load()



    With MSFlexGrid1

        .Rows = 5

        .Cols = 3

        .FixedRows = 2

        .FixedCols = 0

    

        .TextMatrix(0, 0) = "ID"

        .TextMatrix(1, 0) = "ID"

        .MergeCells = 1

        .MergeCol(0) = True

        .MergeCol(1) = False

        .MergeRow(2) = False



        .TextMatrix(0, 1) = "时间"

        .TextMatrix(0, 2) = "时间"

        .TextMatrix(1, 1) = "计划时间"

        .TextMatrix(1, 2) = "实际时间"

        .FixedAlignment(0) = 4

        .FixedAlignment(1) = 4

        .FixedAlignment(2) = 4

 

        .MergeCells = 1

        .MergeRow(0) = True

        .MergeRow(1) = False



    End With

End Sub