Msflexgrid( add a row)

[Micky]

Hi,
I have a msflexgrid which has 10 rows of data in it.
Now I want to add a blank row before the 5th row of data
How do I do it.

If I use
msflexgrid.rows= msflexgrid.rows+1
This adds a Row BUT ONLY AT the end of the Msflexgrid.

I want a blank row before the 5th row of data ??
Anybody help me

thnks
A Student

[MartinLiss]

The CodeBank is not the place to ask questions that are unrelated to one of the CodeBank threads, so I've moved your question to the proper forum.

[MartinLiss]

Public Sub InsertRow(msf As MSFlexGrid, row As Integer)
 
    Dim intRow As Integer
    Dim intCol As Integer
    
    ' Move the rows down
    For intRow = MSFlexGrid1.Rows - 1 To row Step -1
        For intCol = 0 To MSFlexGrid1.Cols - 1
            MSFlexGrid1.TextMatrix(intRow, intCol) = MSFlexGrid1.TextMatrix(intRow - 1, intCol)
        Next
    Next
    
    ' Blank the row
    For intCol = 0 To MSFlexGrid1.Cols - 1
        MSFlexGrid1.TextMatrix(row, intCol) = ""
    Next
    
End Sub

Usage:
InsertRow MSFlexGrid1, 5

[brucevde]

The AddItem method creates a new row. It has an Index parameter that lets you specify were to add the row.

FlexGrid.AddItem "",5

[MartinLiss]

I never knew that