no reply
any way
i will elaborate again.
User will click the required row and either click move up or down.....
I am able to do taht with below code
Code:
Public Sub MoveRow(intFrom As Integer, intTo As Integer)
Dim tmpQID As Integer
Dim tmpQText As String
Dim tmpRowCol As Long
If intTo <> 0 Or intTo <> msfTestQuestions.Rows - 1 Then
With msfTestQuestions
tmpQID = .TextMatrix(intTo, 1)
tmpQText = .TextMatrix(intTo, 2)
tmpRowCol = .BackColor ' ???? help here
.TextMatrix(intTo, 1) = .TextMatrix(intFrom, 1)
.TextMatrix(intTo, 2) = .TextMatrix(intFrom, 2)
.TextMatrix(intFrom, 1) = tmpQID
.TextMatrix(intFrom, 2) = tmpQText
End With
End If
End Sub
i call this function to move up or down
for ex....to move up
Code:
Call MoveRow(msfTestQuestions.Row, msfTestQuestions.Row - 1)
now i need is to move the color also
something like swap color
i have tried .Backcolor , .CellBackcolor
please help
some one
btw yellow color indicates selected row