How does one move a line of MSHFlesGrid data up or down multiple row postions within the grid?

How do I select a line of data in an MSHFlexGrid and click a button to move that line up in the grid one row for each click, or click another button to move the line down one row in a grid for each click? I need a way to allow users to position lines of grid data.... many thanks if you can assist.
LVL 4
jazjefAsked:
Who is Participating?
 
Martin LissOlder than dirtCommented:
Here's a complete example.
Project1.zip
0
 
jazjefAuthor Commented:
Here's some assistance... this code will move a selected row of data UP on an MSHFlexGrid. However, it will not keep the row of data highlighted during the process.

How can I keep the row of data highlighted as I click the button and move the row?

Private Sub Command1_Click()
    Dim strTemp As String
    Dim i As Integer
   
    If MSHFlexGrid1.Row > 1 Then
        For i = 1 To MSHFlexGrid1.Cols - 1
            strTemp = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row - 1, i)
            MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row - 1, i) = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, i)
            MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, i) = strTemp
        Next i
    End If
   
    MSHFlexGrid1.Row = MSHFlexGrid1.Row - 1

End Sub
0
 
jazjefAuthor Commented:
I solved my own problem.....
Here's how to do it for those who are interested:

Private Sub Command1_Click()

    Dim strTemp As String
    Dim i As Integer
   
    If MSHFlexGrid1.Row > 1 Then
        For i = 1 To MSHFlexGrid1.Cols - 1
            strTemp = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row - 1, i)
            MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row - 1, i) = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, i)
            MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, i) = strTemp
        Next i
    End If
   
    MSHFlexGrid1.Row = MSHFlexGrid1.Row - 1
    MSHFlexGrid1.col = 0
    MSHFlexGrid1.ColSel = MSHFlexGrid1.Cols - 1

End Sub
0
 
Martin LissOlder than dirtCommented:
I'm glad I was able to help.

In my profile you'll find links to some articles I've written that may interest you.
Marty - MVP 2009 to 2015
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.