Aggiornamento dati tra due form

giovedì 09 agosto 2007 - 15.06

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

giobaxx Profilo | Junior Member

55 messaggi | Data Invio: gio 9 ago 2007 - 15:06

altro problema da "scemi" ma non nè vengo a capo

ho due form, ....nella form1 uno ho una combobox che è riempita con un dataset...
a parte il fatto che non riesco a far funzionare il doubleclick sulla combobox..avevo pensato di farlo per richiamare la form2 che mi serviva per aggiungere un campo ad una tabella.....ma non succede niente se metto

Private Sub cmbDitta_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbDitta.DoubleClick
Dim frm2 As New Form2
frm2.ShowDialog()
end sub

...beh ho aperto la form2 con un button...la form2 mi serve appunto per aggiungere una riga alla tabella.....aggiornare il database....per poi aggiornare la combobox sul form1 con il campo aggiunto...

..l'aggiornamento del database funziona....ma per vedere la combobox aggiornata devo stoppare e far ripartire il progetto....

io dalla form2 pensavo di fare così,
......
Dim frm1 As New Form1
'riempiComboNomeDitta(frm1.cmbDitta)
'frm1.Refresh()
.....
ma non succede niente!!!!!
---
dove RiempiComboditta è una funzione:
Public Sub riempiComboNomeDitta(ByVal cmb As ComboBox)
Dim da As New OleDbDataAdapter
Dim cn As System.Data.OleDb.OleDbConnection = ConnectToDB()
Dim strSQL As String
strSQL = "SELECT * FROM tblNomeDitta"
Dim cmd As New Data.OleDb.OleDbCommand(strSQL, cn)
cn.Open()
da.SelectCommand = cmd
Dim ds As New DataSet
da.Fill(ds, "tblnomeDitta")
Dim dv As New DataView(ds.Tables("tblNomeDitta"))
With cmb
.DataSource = dv
.ValueMember = "idDitta"
.DisplayMember = "NomeDitta"
' MsgBox(cmb.DisplayMember)
End With
cn.Close()
End Sub

che devo fare!!!aiutooooooooooooooooo

SSUPERPIPPO Profilo | Guru

1.095 messaggi | Data Invio: ven 10 ago 2007 - 21:07

Quando apri una Form con il metodo ShowDialog, alla chiusura della stessa il codice riprende ed esegue gli aggiornamenti del caso.

Esempio:

Private Sub CommandButton1 (ByVal sender As Object, ByVal e As System.EventArgs) Handles CommandButton1.Click
Dim frm2 As New Form2
frm2.ShowDialog() ' Apre il Form2 e rimane in attesa della chiusura dello stesso

' Alla chiusura di Form2 esegue le sottostanti istruzioni

...
...

' Ricrea il dataset con la tua funzione e rieffettua il binding con la combobox
' Il refresh non serve a niente!
...
...

end sub

prova così, ciao

Alessandro

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !