Spread Windows Forms 13.0 Product Documentation
FarPoint.Win.Spread Assembly / FarPoint.Win.Spread.Model Namespace / ISheetAxisModel Interface / SetMergePolicy Method
Row or column index
Value with the merge policy
Example


In This Topic
    SetMergePolicy Method (ISheetAxisModel)
    In This Topic
    Sets the cell merge policy for the specified row or column.
    Syntax
    'Declaration
     
    Sub SetMergePolicy( _
       ByVal index As Integer, _
       ByVal value As MergePolicy _
    ) 
    'Usage
     
    Dim instance As ISheetAxisModel
    Dim index As Integer
    Dim value As MergePolicy
     
    instance.SetMergePolicy(index, value)
    void SetMergePolicy( 
       int index,
       MergePolicy value
    )

    Parameters

    index
    Row or column index
    value
    Value with the merge policy
    Example
    This example sets and returns how cells in a column that have the same content are grouped in a single cell spanning multiple rows.
    FarPoint.Win.Spread.Model.ISheetAxisModel isa;
    isa = (FarPoint.Win.Spread.Model.ISheetAxisModel)fpSpread1.ActiveSheet.Models.ColumnAxis;
    fpSpread1.ActiveSheet.RowCount = 12;
    fpSpread1.ActiveSheet.ColumnCount = 5;
    fpSpread1.ActiveSheet.Columns[1].Width = 150;
    fpSpread1.ActiveSheet.SetClip(0, 0, 1, 5, "VS Live\tSan Francisco\tScott\tScott\t12:00");
    fpSpread1.ActiveSheet.SetClip(1, 0, 1, 5, "VS Live\tSan Francisco\tScott\tChris\t12:00");
    fpSpread1.ActiveSheet.SetClip(2, 0, 1, 5, "VS Live\tSan Francisco\tScott\tChris\t1:00");
    fpSpread1.ActiveSheet.SetClip(3, 0, 1, 5, "MSCE\tSan Francisco\tScott\tScott\t12:00");
    fpSpread1.ActiveSheet.SetClip(4, 0, 1, 5, "VS Live\tOrlando\tChris\tChris\t1:00");
    fpSpread1.ActiveSheet.SetClip(5, 0, 1, 5, "VS Live\tOrlando\tScott\tChris\t2:00");
    fpSpread1.ActiveSheet.SetClip(6, 0, 1, 5, "VS Live\tNew York\tGreg\tGreg\t2:00");
    fpSpread1.ActiveSheet.SetClip(7, 0, 1, 5, "VS Live\tNew York\tGreg\tJim\t2:00");
    fpSpread1.ActiveSheet.SetClip(8, 0, 1, 5, "VS Live\tNew York\tGreg\tJim\t3:00");
    fpSpread1.ActiveSheet.SetClip(9, 0, 1, 5, "VS Live\tNew York\tScott\tJim\t4:00");
    fpSpread1.ActiveSheet.SetClip(10, 0, 1, 5, "PRN\tRaleigh\tScott\tScott\t7:00");
    fpSpread1.ActiveSheet.SetClip(11, 0, 1, 5, "PRN\tCary\tJenny\tRyan\t6:00");
    DialogResult dlg; 
    dlg = MessageBox.Show("Do you want to merge the data?", "Get/SetMergePolicy", MessageBoxButtons.YesNo);
    if (dlg == DialogResult.Yes)
    {
    isa.SetMergePolicy(-1, FarPoint.Win.Spread.Model.MergePolicy.Always);
    fpSpread1.SetBounds(fpSpread1.Bounds.X, fpSpread1.Bounds.Y, fpSpread1.Bounds.Width + 1, fpSpread1.Bounds.Height);
    label1.Text = "The merge policy is " + isa.GetMergePolicy(-1).ToString();
    }
    Dim isa As FarPoint.Win.Spread.Model.ISheetAxisModel
    isa = FpSpread1.ActiveSheet.Models.ColumnAxis
    With FpSpread1.ActiveSheet
    .RowCount = 12
    .ColumnCount = 5
    .Columns(1).Width = 150
    .SetClip(0, 0, 1, 5, "VS Live" & vbTab & "San Francisco" & vbTab & "Scott" & vbTab & "Scott" & vbTab & "12:00")
    .SetClip(1, 0, 1, 5, "VS Live" & vbTab & "San Francisco" & vbTab & "Scott" & vbTab & "Chris" & vbTab & "12:00")
    .SetClip(2, 0, 1, 5, "VS Live" & vbTab & "San Francisco" & vbTab & "Scott" & vbTab & "Chris" & vbTab & "1:00")
    .SetClip(3, 0, 1, 5, "MSCE" & vbTab & "San Francisco" & vbTab & "Scott" & vbTab & "Scott" & vbTab & "12:00")
    .SetClip(4, 0, 1, 5, "VS Live" & vbTab & "Orlando" & vbTab & "Chris" & vbTab & "Chris" & vbTab & "1:00")
    .SetClip(5, 0, 1, 5, "VS Live" & vbTab & "Orlando" & vbTab & "Scott" & vbTab & "Chris" & vbTab & "2:00")
    .SetClip(6, 0, 1, 5, "VS Live" & vbTab & "New York" & vbTab & "Greg" & vbTab & "Greg" & vbTab & "2:00")
    .SetClip(7, 0, 1, 5, "VS Live" & vbTab & "New York" & vbTab & "Greg" & vbTab & "Jim" & vbTab & "2:00")
    .SetClip(8, 0, 1, 5, "VS Live" & vbTab & "New York" & vbTab & "Greg" & vbTab & "Jim" & vbTab & "3:00")
    .SetClip(9, 0, 1, 5, "VS Live" & vbTab & "New York" & vbTab & "Scott" & vbTab & "Jim" & vbTab & "4:00")
    .SetClip(10, 0, 1, 5, "PRN" & vbTab & "Raleigh" & vbTab & "Scott" & vbTab & "Scott" & vbTab & "7:00")
    .SetClip(11, 0, 1, 5, "PRN" & vbTab & "Cary" & vbTab & "Jenny" & vbTab & "Ryan" & vbTab & "6:00")
    End With
    Dim dlg As DialogResult
    dlg = MessageBox.Show("Do you want to merge the data?", "Get/SetMergePolicy", MessageBoxButtons.YesNo)
    If dlg = DialogResult.Yes Then
    isa.SetMergePolicy(-1, FarPoint.Win.Spread.Model.MergePolicy.Always)
    FpSpread1.SetBounds(FpSpread1.Bounds.X, FpSpread1.Bounds.Y, FpSpread1.Bounds.Width + 1, FpSpread1.Bounds.Height)
    Label1.Text = "The merge policy is " & isa.GetMergePolicy(-1).ToString()
    End If
    See Also