MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Visual Studio /.NET > Visual Studio .NET (alle Produkte: C#, VB.NET etc.)
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 06.09.2018, 15:46   #1
BrunMi
MOF User
MOF User
Standard VB - dynamischer Zugriff auf Combobox

Hallo zusammen,

Ich habe gerade folgendes Problem:
Ich möchte gerne eine Funktion schreiben, mit der ich die Datenquelle verschiedener Comboboxen ändern kann.

Meiner Logik nach sollte das doch irgendwie folgendermaßen gehen:

Code:

        

Sub comboboxDataChange(Comboboxname as String)
Using conn As New OleDbConnection(My.Settings.Datengrundlage)
            ' SQL-Command erstellen:
            Dim cmd As New OleDbCommand("Select irgendwas from irgendeinerTabelle", conn)

            ' DataAdapter:
            Dim da As New OleDbDataAdapter(cmd)

            ' DataSet:
            Dim ds As New DataSet()

            ' DataSet füllen:
            da.Fill(ds, "Tabellenname")

            ' Daten an ComboBox binden:
            me.controls(Comboboxname).DisplayMember = "Name"
            me.controls(Comboboxname).ValueMember = "ID"
            me.controls(Comboboxname).DataSource = ds.Tables("Tabellenname")

        End Using

end sub
Ich bekomme dann aber den Fehler

"DisplayMember" ist kein Member von "Control".

Hat jemand eine Idee, wie man das zum laufen kriegt?
Danke schonmal für alle Antworten.

Gruß,
BrunMi

__________________

Wenn Gott wollen würde, dass man USB Sticks sicher entfernt, würde es sicher in der Bibel stehen.
BrunMi ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.09.2018, 14:48   #2
Minifuzzy
MOF User
MOF User
Standard

Hallo BrunMi,

Me.Controls(Comboboxname) ist vom Typ Control und besitzt die Eigenschaften DisplayMember und ValueMember noch nicht. Wenn Du vorher ein casting durchführst, funktioniert es:
Code:

' Daten an ComboBox binden:
Dim cbox As ComboBox = DirectCast(Me.Controls(Comboboxname), ComboBox)
cbox.DisplayMember = "Name"
cbox.ValueMember = "ID"
cbox.DataSource = ds.Tables("Tabellenname")

__________________

Gruß
Minifuzzy
Minifuzzy ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.09.2018, 12:40   #3
BrunMi
Threadstarter Threadstarter
MOF User
MOF User
Standard

Hallo minifuzzy,

Danke für die Antwort.
Funktioniert wunderbar

Gruß,
BrunMi

__________________

Wenn Gott wollen würde, dass man USB Sticks sicher entfernt, würde es sicher in der Bibel stehen.
BrunMi ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist Aus.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 05:06 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.