Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Flexgrid und sort
Autor: Philipp
Datum: 10.07.04 16:27
Hallo und einen schönen Samstag, ich habe da mal eine kurze Frage zum Flexgrid-Control. Ich habe ein Sort-event. Das funktioniert auch ganz prima. Problem ist nur, das wenn dieser Event ausgeführt wird das Ergebnis unten im Flexgrid angezeigt wird und nicht oben.(Das Grid ist nicht ganz gefüllt) Code: Option Explicit Private m_SortColumn As Integer Private m_SortOrder As SortSettings Private Sub MSFlexGrid1_KeyPress(KeyAscii As Integer) Dim sTemp As String With MSFlexGrid1 sTemp = .TextMatrix(.Row, .Col) Select Case KeyAscii Case 8 ' backspace If Len(sTemp) > 0 Then sTemp = Left$(sTemp, Len(sTemp) - 1) End If Case 27 ' escape sTemp = "" Case 0 To 31 KeyAscii = 0 Case Else sTemp = sTemp & Chr$(KeyAscii) End Select .TextMatrix(.Row, .Col) = sTemp End With End Sub Private Sub MSFlexGrid1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) If MSFlexGrid1.MouseRow <> 0 Then Exit Sub SortByColumn MSFlexGrid1.MouseCol End Sub Private Sub SortByColumn(ByVal sort_column As Integer) MSFlexGrid1.Visible = False MSFlexGrid1.Refresh MSFlexGrid1.Col = sort_column MSFlexGrid1.ColSel = sort_column MSFlexGrid1.Row = 0 MSFlexGrid1.RowSel = 0 If m_SortColumn <> sort_column Then m_SortOrder = flexSortGenericAscending ElseIf m_SortOrder = flexSortGenericAscending Then m_SortOrder = flexSortGenericDescending Else m_SortOrder = flexSortGenericAscending End If MSFlexGrid1.Sort = m_SortOrder If m_SortColumn >= 0 Then MSFlexGrid1.TextMatrix(0, m_SortColumn) = _ Mid$(MSFlexGrid1.TextMatrix(0, m_SortColumn), 3) End If m_SortColumn = sort_column If m_SortOrder = flexSortGenericAscending Then MSFlexGrid1.TextMatrix(0, m_SortColumn) = "> " & _ MSFlexGrid1.TextMatrix(0, m_SortColumn) Else MSFlexGrid1.TextMatrix(0, m_SortColumn) = "< " & _ MSFlexGrid1.TextMatrix(0, m_SortColumn) End If MSFlexGrid1.Visible = True End Sub Wie kann ich das Ergebnis im Grid oben anzeigen? Besten Dank und Grüße

Flexgrid und sort	598	Philipp	10.07.04 16:27
Re: Flexgrid und sort	355	manyki	10.07.04 17:45
Re: Flexgrid und sort	336	Philipp	10.07.04 18:47
Re: Flexgrid und sort	383	manyki	10.07.04 19:35
Re: Flexgrid und sort	329	Philipp	10.07.04 20:06

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen