Civ |Nom | ---- M., Henry, Mayor, ---- M., Henry, Mayor, etc.
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
203 internautes nous ont dit merci ce mois-ci
Public Structure notaire Dim civ As String Dim nom As String Dim pnom As String Dim tel As String Dim etab As String End Structure Sub Main() Dim listenotaire(10000) As notaire For i = 0 To dsCommande.Tables(0).Rows.Count - 1 listenotaire(i).nom = Trim$(dsCommande.Tables(0).Rows(i).Item(0).ToString) listenotaire(i).pnom = Trim$(dsCommande.Tables(0).Rows(i).Item(1).ToString) listenotaire(i).civ = Trim$(dsCommande.Tables(0).Rows(i).Item(2).ToString) listenotaire(i).tel = Trim$(dsCommande.Tables(0).Rows(i).Item(3).ToString) listenotaire(i).etab = Trim$(dsCommande.Tables(0).Rows(i).Item(4).ToString) results = results & listenotaire(i).civ & listenotaire(i).nom & listenotaire(i).pnom & listenotaire(i).tel & listenotaire(i).etab Next
results = "Civilite, Nom, Prenom, , Etablissement</TD>---- \" For i = 0 To dsCommande.Tables(0).Rows.Count - 1 nom = Trim$(dsCommande.Tables(0).Rows(i).Item(0).ToString) pnom = Trim$(dsCommande.Tables(0).Rows(i).Item(1).ToString) civ = Trim$(dsCommande.Tables(0).Rows(i).Item(2).ToString) tel = Trim$(dsCommande.Tables(0).Rows(i).Item(3).ToString) etab = Trim$(dsCommande.Tables(0).Rows(i).Item(4).ToString) results = results & \"" & civ & ", " & nom & ", " & pnom & ", " & tel & ", " & etab & ", \" Next results = results & " "