Dim rsebay As New ADODB.Recordset
 
Private Sub grid_auktion_EditKeyDown(KeyCode As Integer, Shift As Integer)
Dim rsupdate As New ADODB.Recordset
Dim nachname As String, vorname As String
Dim komma As Long
Dim sText As String
Dim nCol As Long
 
    ' ComboBox-Auswahl?
    If KeyCode = 0 And Shift = 0 Then
        With grid_auktion
            ' ausgewählten Eintrag ermitteln
            sText = .EditText
 
            komma = InStr(1, sText, ",")
            nachname = Left(sText, komma - 1)
            vorname = Right(sText, Len(sText) - komma - 1)
            sqlsuche = "SELECT * FROM EbayKontakt WHERE Name LIKE '" & nachname _
              & "' AND Vorname LIKE '" & vorname & "'"
            sqlsuche = suchen(sqlsuche, rsupdate)
            ' Spalte ermitteln
            nCol = .Col
 
            ' Felder je nach ComboBox vorbelegen
            If nCol = 3 And .IsEditMode = MODE_EDIT Then
                .SelectedItem.CellText("name") = nachname
                .SelectedItem.CellText("vorname") = vorname
                .SelectedItem.CellText("kontaktidx") = rsupdate.Fields( _
                  "IDX").Value
            End If
        End With
    End If
 
End Sub
 
Private Sub grid_auktion_ErrorUpdate(ByVal nRow As Long, ByVal nCol As Long, _
  ByVal sText As String, ByVal nError As Long, ByVal sDescription As String)
MsgBox "Es ist ein Fehler beim Aktualisieren der Daten aufgetreten!" & _
    vbCrLf & vbCrLf & CStr(nError) & ": " & sDescription
End Sub
 
Private Sub grid_auktion_FillComboBox(ByVal nRow As Long, ByVal nCol As Long)
Dim rsname As New ADODB.Recordset
 
    If nCol = 3 Then
 
        sqlsuche = suchen("SELECT * FROM EbayKontakt ORDER BY Name, Vorname", _
          rsname)
 
        If rsname.RecordCount > 0 Then
 
            With grid_auktion
                Do While Not rsname.EOF
                    .ComboAddItem rsname.Fields("Name").Value & ", " & _
                      rsname.Fields("Vorname").Value
                    rsname.MoveNext
                Loop
            End With
            rsname.Close
        End If
 
    End If
    Set rsname = Nothing
End Sub
 
Private Sub grid_auktion_RowLoaded(ByVal nRow As Long, Item As _
  sevDataGrid.ListItem)
    With Item
        If .CellText("bewertungich") = True Then
            .CellImage("artikelnummer") = 6
        ElseIf .CellText("versendet") = True Then
            .CellImage("artikelnummer") = 4
        ElseIf .CellText("gezahlt") = True Then
            .CellImage("artikelnummer") = 2
        Else
            .CellImage("artikelnummer") = 3
        End If
    End With
End Sub
 
Private Sub grid_füllen()
 
    sqlsuche = suchen("SELECT EbayArtikel.[Artikelnummer]," & _
      "EbayArtikel.[Artikel], EbayKontakt.[Name], EbayKontakt.[Vorname]," & _
      "EbayArtikel.[Artikelpreis], " _
        & "EbayArtikel.[Versand], EbayArtikel.[Endpreis], EbayArtikel.[HTML]," & _
        "EbayArtikel.[DatumEnde], EbayArtikel.[UhrzeitEnde], " _
        & "EbayArtikel.[Beendet], EbayArtikel.[Bezahlt]," & _
        "EbayArtikel.[Verschickt], EbayArtikel.[BewertungAbgegeben]," & _
        "EbayArtikel.[BewertungErhalten], EbayArtikel.[KontaktIDX] " _
        & "FROM EbayArtikel LEFT JOIN EbayKontakt ON EbayArtikel.[KontaktIDX] =" & _
        "EbayKontakt.[IDX]", rsebay)
 
    With grid_auktion
        .LockUpdate True
        Set .Recordset = rsebay
 
        .LockUpdate False
        .Refresh
    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)