Sort MSFlexGrid 1

[TimmyNF]

Hi,

I have flexgrid where the last row is a total of data in the rows above. Is there any way I can sort all the rows minus the last one?

 

[srinivaspvl]

Dim spql As String
Dim ab, cd As Double
spql = "select * from emp"
RS.Source = spql
RS.Open
If RS.RecordCount > 0 Then
For i = 1 To RS.RecordCount
ab = RS.Fields("salary&quot
cd = RS.Fields("Netsalary&quot
RS.MoveNext
Next i
End If
RS.close

'here we will get the totals.

Dim strsql As String
strsql = "SELECT * FROM emp"
RS.Source = strsql
RS.Open
With RS
Do While Not .EOF
MSFlexGrid .TextMatrix(MSFlexGrid.Rows - 1, 0) = RS.Fields(0)
MSFlexGrid .TextMatrix(MSFlexGrid.Rows - 1, 1) = RS.Fields("salary&quot
MSFlexGrid .TextMatrix(MSFlexGrid.Rows - 1, 2) = RS.Fields("netsalary&quot
MSFlexGrid .Rows = MSFlexGrid.Rows + 1
Loop
End With
'here we will display the total records. And at the end
'this will display the totals.

MSFlexGrid.TextMatrix(MSFlexGrid.Rows - 1, 1) = ab
MSFlexGrid.TextMatrix(MSFlexGrid.Rows - 1, 1) = cd
RS.close
'Try this this will solve your problem. Best of luck,"
Srinivas_pvl@hotmail.com

 

[srinivaspvl]

Dim spql As String
Dim ab, cd As Double
spql = "select * from emp"
RS.Source = spql
RS.Open
If RS.RecordCount > 0 Then
For i = 1 To RS.RecordCount
ab = RS.Fields("salary&quot
cd = RS.Fields("Netsalary&quot
RS.MoveNext
Next i
End If
RS.close

'here we will get the totals.

Dim strsql As String
strsql = "SELECT * FROM emp order by salary"
'here you can write sorting quarry. Your last record
' will not be effected
RS.Source = strsql
RS.Open
With RS
Do While Not .EOF
MSFlexGrid .TextMatrix(MSFlexGrid.Rows - 1, 0) = RS.Fields(0)
MSFlexGrid .TextMatrix(MSFlexGrid.Rows - 1, 1) = RS.Fields("salary&quot
MSFlexGrid .TextMatrix(MSFlexGrid.Rows - 1, 2) = RS.Fields("netsalary&quot
MSFlexGrid .Rows = MSFlexGrid.Rows + 1
Loop
End With
'here we will display the total records. And at the end
'this will display the totals.

MSFlexGrid.TextMatrix(MSFlexGrid.Rows - 1, 1) = ab
MSFlexGrid.TextMatrix(MSFlexGrid.Rows - 1, 1) = cd
RS.close
'Try this this will solve your problem. Best of luck,"
Srinivas_pvl@hotmail.com

 

[merlinx]

With a flexgrid named FG1 :


Private Sub FG_Sort(ByVal Col2Sort As Long)
Dim rows As Long
Dim cols As Long
Dim fixcol As Long
Col2Sort = Col2Sort - 1
rows = FG1.rows
cols = FG1.cols
fixrows = FG1.FixedRows
FG1.Col = Col2Sort
FG1.Row = fixrows
FG1.RowSel = rows - fixrows - 1
FG1.ColSel = Col2Sort
FG1.Sort = 1
End Sub


Sort options are :

FlexSortNone = 0
FlexSortGenericAscending = 1
FlexSortGenericDescending = 2
FlexSortNumericAscending = 3
FlexSortNumericDescending = 4
FlexSortNoCaseAscending = 5
FlexSortNoCaseDescending = 6
FlexSortStringAscending = 7
FlexSortStringDescending = 8
FlexSortCustom = 9

 

[JohnYingling]

Merlinx has it.
From the Docs.
"The Sort property always sorts entire rows. To specify the range to be sorted, set the Row and RowSel properties. If Row and RowSel are the same, the MSHFlexGrid will sort all non-fixed rows."

http://www.VBResizer.com

Forms/Controls Resizing/Tabbing Control

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript