Giusto
Qui creo la datatable e vado a leggere i dati da file xml
codice:
' ########## LETTURA ELENCO DATI ANAGRAFICI
If ds.Tables("Anagrafe") Is Nothing Then
ds.Tables.Add("Anagrafe")
ds.Tables("Anagrafe").Columns.Add(New DataColumn("IDTelefono"))
ds.Tables("Anagrafe").Columns.Add(New DataColumn("Cognome"))
ds.Tables("Anagrafe").Columns.Add(New DataColumn("Nome"))
ds.Tables("Anagrafe").Columns.Add(New DataColumn("Via"))
ds.Tables("Anagrafe").Columns.Add(New DataColumn("NumeroCivico"))
ds.Tables("Anagrafe").Columns.Add(New DataColumn("Paese"))
ds.Tables("Anagrafe").PrimaryKey = New DataColumn() {ds.Tables("Anagrafe").Columns("IDTelefono")}
Try
ds.Tables("Anagrafe").ReadXml(Application.StartupPath + "\Anagrafe.xml")
Catch ex As Exception
MsgBox("ERRORE -> LETTURA FILE XML Anagrafe IN MyDef.gatDataAdapterAllTables" + vbCrLf + ex.Message)
End Try
End If
Mentre qui vado a caricare i dati dentro la combobox
codice:
Try
CmbTelefono.DataSource = ds.Tables("Anagrafe")
CmbTelefono.DisplayMember = "IDTelefono"
CmbTelefono.ValueMember = "IDTelefono"
CmbTelefono.Text = ""
Catch ex As Exception
MsgBox("ERRORE -> Caricamento CmbTelefono IN Principale.Load" + vbCrLf + ex.Message)
Me.Close()
End Try
Grazie