|
| |
Fragen & Antworten rund um sev-Komponenten| Problem mit Combobox | |  | | Autor: Bernd Bandekow | | Datum: 28.06.18 18:29 |
| Ich bekomme da beim Kompilieren einen Fehler bei FillCombobox
"Deklaration der Prozedur entspricht nicht der Beschreibung eines Ereignisses oder einer Prozedur mit demselben Namen"
Und das selbst, wenn ich nur den Code aus der Hilfe einpaste (Mein Grid heißt Grid0 und sonst funktioniert auch alles)....
Fehlen mir da Deklarationen im Modul?
Private Sub Grid0_FillComboBox(ByVal nRow As Long, ByVal nCol As Long, _
oComboBox As sevDataGrid3.EditComboBox)
With sevGrid1
If nCol = .GetCol("PLZ") Then
' ComboBox an Recordset binden
With oComboBox
Set .Recordset = odb.OpenRecordset("SELECT ID, PLZ, Ort FROM tblPLZ" & _
"ORDER BY PLZ")
' ID-Spalte an das DataGrid-Recordset binden
.BoundColumn = 1
' PLZ-Spalte bei der Auswahl in die Edit-TextBox übernehmen
.DisplayColumn = 2
' Breite der ComboBox-Liste festlegen
.Width = 3000
' Max. 10 sichtbare Zeilen in der aufgeklappten Liste anzeigen
.ListRowsMax = 10
' 1. Spalte (ID) ausblenden
.ColVisible(1) = False
' Breite der 2. Spalte (PLZ) festlegen
.ColWidth(2) = 700
' Spaltenbeschriftung
.ColCaption(2) = "Plz"
.ColCaption(3) = "Ort"
' Spaltenbezeichner anzeigen
.ColumnHeaderVisible = True
End With
End If
End With
End Sub
Beitrag wurde zuletzt am 28.06.18 um 18:30:47 editiert. | |
| Re: Problem mit Combobox | | | | Autor: Bernd Bandekow | | Datum: 28.06.18 22:53 |
| Access 2010 und 2016.
Das SevGrid1 steht nur drin, weil ich den Text da nicht geändert hatte, aber die Sub hätte auch komplett leer sein können.
Ich hab mir das in der Demo nochmal angeschaut und da ist die Sub-Deklaration:
Private Sub Grid0_FillComboBox(ByVal nRow As Long, ByVal nCol As Long, _
oComboBox As Object
So geht zumindest die Kompilierung durch, bin gerade am Testen... | |
| Re: Problem mit Combobox | | | | Autor: Bernd Bandekow | | Datum: 28.06.18 23:39 |
| Hmm OK, mit Object läuft der Code.
Hab ihn in eine schöne Funktion gegossen, die mir aus meiner Tabelle die passenden SQL-Strings und Feldanzahl und Breiten an das Grid übergibt.
Sobald ich jetzt in das Feld reinklicke, wird schön der Text angezeigt (Spalte 2, Spalte 1 mit der ID ist unsichtbar, aber Bound).
Aber als Grundanzeige habe ich überall die ID's drin, den Text sehe ich erst, wenn ich die Liste öffne...
Muss das über RowLoaded laufen? | |
| Re: Problem mit Combobox | | | | Autor: Bernd Bandekow | | Datum: 01.07.18 02:06 |
| So, das mit der Anzeige habe ich hinbekommen. Allerdings habe ich jetzt das Problem, dass in der Ansicht schön der Text steht und in der Auswahlliste auch allerdings sortiert er mir offensichtlich beim Klicken trotzdem nach der gebundenen und nicht sichtbaren ID. Damit funktioniert die Textsortierung nicht, da die ID's mit dazugehörigem Text aus diversen Tabellen kommen und bereits fest sind. Ich hatte erst überlegt, mit der TAG-Sortierung zu arbeiten, allerdings nutze ich überall Recordsets.
Gibt es keine Möglichkeit, einfach nach CellText zu sortieren, das wäre doch eigentlich das logischste? | |
| Re: Problem mit Combobox | | | | Autor: Bernd Bandekow | | Datum: 02.07.18 18:15 |
| Hmm, schade eigentlich, das war nicht die Antwort die ich hören wollte. 
Trotzdem danke. | |
 | 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 |
 |
|
vb@rchiv CD Vol.6 vb@rchiv  Vol.6
Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
Online-Update-Funktion
Entwickler-Vollversionen
u.v.m.Jetzt zugreifen Tipp des Monats TOP! Unser Nr. 1 
Neu! sevDataGrid 3.0
Mehrspaltige Listen, mit oder ohne DB-Anbindung. Autom. Sortierung, Editieren von Spalteninhalten oder das interaktive Hinzufügen von Datenzeilen sind ebenso möglich wie das Erstellen eines Web-Reports. Weitere Infos
|
| |
|
Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|
April 2024
Sie sind aktuell nicht angemeldet.