ComboBox Tabelle Auswahl in TextBox Ausgabe
Hallo Gemeinde ich bin Anfänger und habe vor kurzem mit dem programmieren angefangen VB 2010. Jetzt bin dabei eine Anwendung zu erstellen und komme irgendwie nicht so richtig weiter habe auch schon in den verschiedensten Foren gestöbert aber keine Lösung finden können, hoffe mir kann hier jemand weiter helfen.
Kurze Erläuterung meines Vorhabens. Ich möchte ein Form erstellen in dem sich 3 ComboBoxen befinden und 3 TextBoxen. In der ersten ComboBox1 wähle ich einen Wert aus der dann in der ComboBox2 eine Spalte aus einer Tabelle anzeigt mit den entsprechenden Bezeichnungen. Die Bezeichnung soll mit einem Wert gekoppelt sein der wiederum , durch Auswahl der Bezeichnung in der TextBox1 Angezeigt werden soll. Das selbe möchte ich dann mit der ComboBox3 durchführen so das durch Auswahl der Bezeichnung die wiederum mit einem Wert gekoppelt ist der Wert dann in der TextBox2 Angezeigt wird. Diese beiden Werte aus TextBox1 und TextBox2 sollen schon durch den Auswahlprozess der in den ComboBoxen 2 und 3 ausgelöst wird in den TextBoxen 1 und 2 Angezeigt werden und in der TextBox3 als Summe Ausgegeben werden. Siehe unten Form / Steuerelemente / Tabelle
Nun zu mein Problem die Vorauswahl der Tabelle und Anzeige der Spalte funktioniert schon mal, aber nicht mit der richtigen Ausgabe und Anzeige der Werte in den TextBoxen. Da bekomme ich dann immer eine Fehlermeldung siehe unten.
Wenn mir da jemand eine Lösungsvorschlag geben könnte würde mir das schon mal sehr weiter helfen. Danke
Hier nun noch der Code
Nun zu mein Problem die Vorauswahl der Tabelle und Anzeige der Spalte funktioniert schon mal, aber nicht mit der richtigen Ausgabe und Anzeige der Werte in den TextBoxen. Da bekomme ich dann immer eine Fehlermeldung siehe unten.
Wenn mir da jemand eine Lösungsvorschlag geben könnte würde mir das schon mal sehr weiter helfen. Danke
Hier nun noch der Code
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: Diese Codezeile lädt Daten in die Tabelle "DataSet1.Tabelle". Sie können sie bei Bedarf verschieben oder entfernen.
Me.TabelleTableAdapter.Fill(Me.DataSet1.Tabelle)
ComboBox1.Items.AddRange(New String() {"Auswahl 1", "Auswahl 2", "Auswahl 3"})
End Sub
Private Sub TabelleBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Validate()
Me.TabelleBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.DataSet1)
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Me.TextBox1.Clear()
Select Case ComboBox1.SelectedIndex
Case 0
Me.ComboBox2.DataSource = DataSet1.Tables("Tabelle")
Me.ComboBox2.DisplayMember = "Bezeichnung1"
Me.TextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TabelleBindingSource, "Wert1", True))
Case 1
Me.ComboBox2.DataSource = DataSet1.Tables("Tabelle")
Me.ComboBox2.DisplayMember = "Bezeichnung2"
Me.TextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TabelleBindingSource, "Wert2", True))
Case 2
Me.ComboBox2.DataSource = DataSet1.Tables("Tabelle")
Me.ComboBox2.DisplayMember = "Bezeichnung3"
Me.TextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TabelleBindingSource, "Wert3", True))
End Select
End Sub
Private Sub ClearAllTextboxes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClearAllTextboxes.Click
For i As Integer = 0 To Me.Controls.Count - 1
Dim TextboxControl As Control = New Control(CStr(i))
TextboxControl = Me.Controls(i)
If TypeOf TextboxControl Is TextBox Then
TextboxControl.Text = ""
End If
Next
End Sub
End Class
Please also mark the comments that contributed to the solution of the article
Content-Key: 143394
Url: https://administrator.de/contentid/143394
Printed on: April 17, 2024 at 23:04 o'clock