flexgrid的单元格合并

 C1FlexGrid1.AllowMerging = C1.Win.C1FlexGrid.AllowMergingEnum.Custom
        Dim cr As C1.Win.C1FlexGrid.CellRange
        cr = C1FlexGrid1.GetCellRange(0, 0, 6, 0)
        cr.StyleNew.TextAlign = C1.Win.C1FlexGrid.TextAlignEnum.CenterCenter
        C1FlexGrid1.MergedRanges.Add(cr)
        cr = C1FlexGrid1.GetCellRange(0, 1, 0, 5)
        cr.StyleNew.TextAlign = C1.Win.C1FlexGrid.TextAlignEnum.CenterCenter
        C1FlexGrid1.MergedRanges.Add(cr)
        cr = C1FlexGrid1.GetCellRange(1, 1, 1, 2)
        cr.StyleNew.TextAlign = C1.Win.C1FlexGrid.TextAlignEnum.CenterCenter
        C1FlexGrid1.MergedRanges.Add(cr)
        cr = C1FlexGrid1.GetCellRange(2, 1, 3, 2)
        cr.StyleNew.TextAlign = C1.Win.C1FlexGrid.TextAlignEnum.CenterCenter
        C1FlexGrid1.MergedRanges.Add(cr)
        cr = C1FlexGrid1.GetCellRange(1, 3, 3, 5)
        cr.StyleNew.TextAlign = C1.Win.C1FlexGrid.TextAlignEnum.CenterCenter
        C1FlexGrid1.MergedRanges.Add(cr)
        cr = C1FlexGrid1.GetCellRange(5, 1, 6, 1)
        cr.StyleNew.TextAlign = C1.Win.C1FlexGrid.TextAlignEnum.CenterCenter
        C1FlexGrid1.MergedRanges.Add(cr)
        cr = C1FlexGrid1.GetCellRange(4, 2, 6, 2)
        cr.StyleNew.TextAlign = C1.Win.C1FlexGrid.TextAlignEnum.CenterCenter
        C1FlexGrid1.MergedRanges.Add(cr)

        C1FlexGrid1.Rows(0).Item(0) = "A"
        C1FlexGrid1.Rows(0).Item(1) = "B"
        C1FlexGrid1.Rows(1).Item(1) = "C"
        C1FlexGrid1.Rows(2).Item(1) = "D"
        C1FlexGrid1.Rows(1).Item(3) = "E"
        C1FlexGrid1.Rows(5).Item(1) = "F"
        C1FlexGrid1.Rows(4).Item(2) = "G"