Private Sub dg_inventar_EditKeyPress(KeyAscii As Integer)
    With dg_inventar
        If .Col = .GetCol("artikel") Then
            If KeyAscii = 60 Or KeyAscii = 62 Then ' < > Zeichen
                artikelsort = Not artikelsort
                KeyAscii = 0
                ' Fillcombobox neu starten ?!?!
            End If
        End If
    End With
End Sub

Private Sub dg_inventar_FillComboBox(ByVal nRow As Long, ByVal nCol As Long, _
  oComboBox As sevDataGrid2.EditComboBox)
Dim rs As New ADODB.Recordset
 
With dg_inventar
    If .Columns(nCol).Key = "artikel" Then
        With oComboBox
 
            If artikelsort Then
                sqlsuche = suchen("SELECT Artikelnummer, Artikel, Garantie FROM" & _
                  "Artikel " _
                & "ORDER BY Artikel", rs)
            Else
                sqlsuche = suchen("SELECT Artikelnummer, Artikel, Garantie FROM" & _
                  "Artikel " _
                & "ORDER BY Artikelnummer", rs)
            End If
 
            Set .Recordset = rs
 
            .Width = 9000
 
            .COLWIDTH(1) = 3000
            .COLWIDTH(2) = 5000
            .COLWIDTH(3) = 1000
            .ColAlign(3) = ALIGNMENT_CENTER
 
            .ListRowsMax = 15
            .BoundColumn = 1
            .DisplayColumn = 2
        End With
    End If
End With
End Sub

Gru? aus Oberhausen, Salvatore

---

Man braucht nur mit Liebe einer Sache nachzugeben,
so gesellt sich das Gl?ck hinzu. (Johannes Trojan)