Civ |Nom | ---- M., Henry, Mayor, ---- M., Henry, Mayor, etc.
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 & " "
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question