Salve a tutti
Ho fatto questo esperimento, devo caricare 6 combobox con 6
parole " coperto antipasto primo secondo contorno dessert " e il relativo
prezzo, che poi mi riempie una label in corrispondenza
della combo selezionata
io ho fatto cosi
Private Sub carico_combo_portate_prezzi()
Dim Cn As New OleDbConnection(Percorso)
Dim Trova As String = ""
Try
Trova = "SELECT * FROM menuprezzicamere "
Cn.Open()
Dim cmd As New OleDbCommand(Trova, Cn)
Dim dr As OleDbDataReader = cmd.ExecuteReader
dr.Read()
Dim x As Integer
For x = 0 To 5
Dim Combo = TryCast(Me.Controls.Find("ComboPortate"& x, True)(0), ComboBox)
Dim pasto As String = dr.Item("Coperto").ToString
Dim costo As Decimal = dr.Item("coperto1").ToString
Combo.Items.Add(pasto & Space(30) & costo)
Dim pasto1 As String = dr.Item("antipasti").ToString
Dim costo1 As Decimal = dr.Item("antipasti1").ToString
Combo.Items.Add(pasto1 & Space(30) & costo1)
Dim pasto2 As String = dr.Item("primi").ToString
Dim costo2 As Decimal = dr.Item("primi1").ToString
Combo.Items.Add(pasto2 & Space(30) & costo2)
Dim pasto3 As String = dr.Item("secondi").ToString
Dim costo3 As Decimal = dr.Item("secondi1").ToString
Combo.Items.Add(pasto3 & Space(30) & costo3)
Dim pasto4 As String = dr.Item("contorni").ToString
Dim costo4 As Decimal = dr.Item("contorni1").ToString
Combo.Items.Add(pasto4 & Space(30) & costo4)
Dim pasto5 As String = dr.Item("dessert").ToString
Dim costo5 As Decimal = dr.Item("dessert1").ToString
Combo.Items.Add(pasto5 & Space(30) & costo5)
Next
dr.Close()
Cn.Close()
Catch es As Exception
MessageBox.Show("Errore: _ "& es.Message)
End Try
End Sub
poi per popolare la label prezzo ho fatto in questo modo
Private Sub ComboPortate0_SelectionChangeCommitted(sender As Object, e As EventArgs) Handles ComboPortate0.SelectionChangeCommitted,
ComboPortate1.SelectionChangeCommitted, ComboPortate2.SelectionChangeCommitted, ComboPortate3.SelectionChangeCommitted,
ComboPortate4.SelectionChangeCommitted, ComboPortate5.SelectionChangeCommitted
Dim nomecombo As String = ActiveControl.Name
Dim a As String = nomecombo
Dim i As String = Mid(a, 13)
Dim nomecasella As String = ActiveControl.Text
Dim costa As String = Trim(Mid(nomecasella, 10))
Dim labbox = TryCast(Me.Controls.Find("LabPrezzo"& i, True)(0), Label)
labbox.Text = costa
End Sub
il tutto funziona senza problemi
secondo voi è una ciofeca o può andare anche cosi
gradirei un vostro parere su tutto questo
grazie 1000 a tutti
Claudio