Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Combobox im sevDatagrid2
Autor: RG
Datum: 26.04.07 12:50
Hallo, ich habe in einer Datenbanktabelle ein Feld für Zahlungsart mit Zahlen von 1 - 4. Jetzt will ich eine Combobox mit den Textzuordnungen. Klappt alles bis zum Speichern. Kann mir jemand einen Tip geben, wo der Fehler ist. Ich versuchs seit Stunden vergeblich . Hier der Code Sub Griderstellen() Dim SQL As String SQL = "select * from Zahlungseingang where lnr = " & AuftragDaten.Lnr With GridZahlung .Clear True .LockUpdate True .DataMode = Mode_Recordset .ShowSortSymbols = True .AutoEdit = True .AutoSort = True .AllowEdit = True .AllowMultiSelect = False .AllowDelete = True Set .Recordset = gdb(2).OpenRecordset(SQL) .Columns(1).Width = GridSpalte(10, .Width) .Columns(2).Visible = False .Columns(3).Width = GridSpalte(30, .Width) .Columns(4).Width = GridSpalte(30, .Width): .Columns(4).ColType = TYPE_COMBOLIST .Columns(5).Width = GridSpalte(34, .Width): .Columns(5).Align = ALIGNMENT_RIGHT .AutoUpdate = True .LockUpdate False .Refresh .DoSort "id" If .Rows > 0 Then .row = .Rows row = .Rows End If End With End Sub Private Sub GridZahlung_RowLoaded(ByVal nRow As Long, Item As sevDataGrid2.ListItem) With Item Select Case GridZahlung.Recordset.Fields("ZA").Value Case 1: .CellText(4) = "Scheck" Case 2: .CellText(4) = "Überweisung" Case 3: .CellText(4) = "Bar" Case 4: .CellText(4) = "Gutschrift" End Select .CellText(5) = FormatCurrency(.CellText(5)) End With End Sub Private Sub GridZahlung_FillComboBox(ByVal nRow As Long, ByVal nCol As Long, _ oComboBox As sevDataGrid2.EditComboBox) With GridZahlung If .Columns(nCol).Key = "ZA" Then With oComboBox .AddItem "Scheck" .AddItem "Überweisung" .AddItem "Bar" .AddItem "Gutschrift" .BoundColumn = 1 End With End If End With End Sub Vielen Dank schon mal im voraus. ReinerG

Combobox im sevDatagrid2	592	RG	26.04.07 12:50
Re: Combobox im sevDatagrid2	332	Dieter	26.04.07 14:21

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