Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

sevGrid und EditCombo
Autor: aweta
Datum: 14.09.05 18:08
Hallo, ich fülle meine EditCombo-Listen "per Hand". Dabei gibt es id- und bezeichnung-Spalten. id-Spalte ist nicht sichtbar. Mein Problem: wenn ich EditCombo anklicke, wird die Bezeichnung nicht vorselektiert. Was mache ich falsch? Bsp.: Private Sub sevGrid1_FillComboBox(ByVal nRow As Long, ByVal nCol As Long, oComboBox As sevDataGrid2.EditComboBox) On Error GoTo ErrHandler oComboBox.ColumnAdd "id" oComboBox.ColumnAdd "bezeichnung" Dim lCounter As Long: lCounter = 1 If nCol = sevGrid1.GetCol("hersteller") Then '******************hersteller***************************** While lCounter <= 5 sevGrid1.ComboAddItem CStr(lCounter) & vbTab & "Hersteller" & CStr(lCounter), CStr(lCounter) lCounter = lCounter + 1 Wend ElseIf nCol = sevGrid1.GetCol("kategorie") Then '*****************kategorie******************************** While lCounter <= 5 sevGrid1.ComboAddItem CStr(lCounter) & vbTab & "Kategorie" & CStr(lCounter), CStr(lCounter) lCounter = lCounter + 1 Wend End If oComboBox.ColVisible("id") = False oComboBox.DisplayColumn = 2 oComboBox.ListRowsMax = 10 Exit Sub ErrHandler: MsgBox Err.Description, vbCritical End Sub

sevGrid und EditCombo	807	aweta	14.09.05 18:08
Re: sevGrid und EditCombo	458	Dieter	15.09.05 07:04
Re: sevGrid und EditCombo	518	aweta	15.09.05 13:12

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