i don't know any automatic way of doing it, but you can make a cycle like:
Private Sub MSFlexGrid1_Click()
Dim response
Dim row_in_case
Dim i As Integer
Dim j As Integer
row_in_case = MSFlexGrid1.Row
MsgBox "rowe:" & row_in_case
response = MsgBox("would you like to add a new row?", vbYesNo, "your title here"
If response = vbYes Then
With MSFlexGrid1
.Rows = .Rows + 1 ' add a new row
'copy all other rows to next position
For i = .Rows - 1 To 0 Step -1
.Row = i + 1
For j = 0 To .Cols
'copy all cols to next position row in the exact col position
' (...)
Loop
Loop
End With
'now, do whatever you want in the new row - row_in_case:
MSFlexGrid1.Row = row_in_case
' now treat it the way you want
Else
Exit Sub
End If
End Sub
hope it helps,
good work ===================
* Marta Oliveira *
===================
marta100@aeiou.pt
-------------------
CPC_TA- Braga
-------------------
Portugal
===================
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.