Sort on Head Click - Problem

Computer: Software & Programmierung Visual Basic
1

Schönen guten Tag,
hier bin ich nochmal.

Also ich habe n Problem mit meiner Sortierfunktion.
Ich hab n FlexGrid wo es leider kein Head Click gibt. Ich Frage ab, wenn MouseRow = 0
Dann Sortiere
Wenn MouseRow 0
Dann gehe in AUSLESEN
(Er soll dann die zeilen anzeigen also die Inhalte)

Das Problem welches sich ergibt, bezieht sich aufs Sortieren. Die Inhalte Zeigt er an. Sortieren tut er aber nur wenn man vorher auf eine andere Zeile als die 0te geklickt hat. Ich kopier einfach mal den Quelltext hier her:

Private Sub SortByColumn(ByVal sort\_column As Integer)
 With Me.DGV
 If .MousePointer = 0 And .Col \> .FixedCols - 1 Then
 .Col = .MouseCol
 If LastSortCol .Col Then .Tag = 0
 If .Tag = 0 Or .Tag = 6 Then
 .Sort = 5
 .Tag = 5
 LastSortCol = .Col
 Else
 .Sort = 6
 .Tag = 6
 LastSortCol = .Col
 End If
 .Col = 0
 .Row = 0
 End If
 .RowSel = 1
 End With
End Sub

Private Sub DGV\_Click()
 With Me.DGV
 If .MouseRow = 0 Then
 SortByColumn DGV.MouseCol
 ElseIf .Row 0 Then
 Auslesen
 End If
 End With
End Sub

hoffe wer hat ne idee danke :smile:

grüße vom digi

2

Hallo digitalfreak.

Dies hier scheint Deine Sortier-Funktion zu sein.

> Private Sub SortByColumn(ByVal sort\_column As Integer)  
> With Me.DGV  
> If .MousePointer = 0 And .Col \> .FixedCols - 1 Then  
> .Col = .MouseCol  
> If LastSortCol .Col Then .Tag = 0  
> If .Tag = 0 Or .Tag = 6 Then  
> .Sort = 5  
> .Tag = 5  
> LastSortCol = .Col  
> Else  
> .Sort = 6  
> .Tag = 6  
> LastSortCol = .Col  
> End If  
> .Col = 0  
> .Row = 0  
> End If  
> .RowSel = 1  
> End With  
> End Sub

Du solltest eine auch eine Funktion daraus machen mit

Private Function Blabla
 'Dein Code
End Function

Ist LastSortCol eine öffentlich Variable?
Der Wert, den Du im DGV_Click Ereignis an die Funktion übergibst, findet in Deiner Funktion selbst überhaupt keine Anwendung (sort_Column).
Wozu wird denn der MousePointer in der Funktion abgefragt?

Da bräuchte man noch mehr Infomationen.

Viele Grüße
Carsten

3

Ich sag mal ups ^^ … Habe da dran rum gebastelt und getestet was wann wo drinne steht und so. Hab anscheind die Funktion aus dem Projekt wo ich rumprobiert hab hier ins Forum kopiert *g*

Ich habs jetz hinbekommen. Habs einfach auf Doppelklick gelegt und beim DGV_Click die zeile 0 ausgeschlossen.

Das geht wunderbar:smile: Ich mein Click oder dbl_Click sch**** drauf :smiley:

Danke aber trotzdem :smile: grüße vom digi :smile:

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]