msflexgrid中如何对一行进行排序而不影响别的行

Question

vb msflexgrid中如何对一行进行排序而不影响别的行就是说我只想要第一行每一个单元格的排序，然后不会影响到每一行跟每一行中的每一列只对那一行各列的数据做排序这个可以实现吗

Answer 1

Dim i As Integer, j As Integer, tmp As StringWith MSFlexGrid1
For i = .Cols - 1 To 1 Step -1
   tmp = .TextMatrix(0, i)
   For j = i - 1 To 0 Step -1
      If .TextMatrix(0, j) > tmp Then
         .TextMatrix(0, i) = .TextMatrix(0, j)
         .TextMatrix(0, j) = tmp
         tmp = .TextMatrix(0, i)
      End If
   Next j
Next i
End With单元各内容是字符还是数字？如果是数字，比较时 If Val(.TextMatrix(0, j)) > Val(tmp) Then