[VS 2005 .NET]

Signaler
Messages postés
22
Date d'inscription
mercredi 23 mai 2007
Statut
Membre
Dernière intervention
18 juin 2007
-
Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
-
Public






Shared



Function
résultatCalculs(

ByVal
longueurSep

As
System.Decimal,

ByVal
largeurSep

As
System.Decimal,

ByVal
epaisseurSep

As
System.Decimal)

As
Emballage_DS.ResultatCalculDataTable


   Dim
dt

As



New
Emballage_DS.ResultatCalculDataTable


   Dim
dsParam

As



New
Emballage_DS   dsParam.ReadXml(


"F:\dotnet\paramDatas.xml"
)


   For



Each
cartonRow

As
Emballage_DS.CartonsRow

In
dsParam.Cartons.Rows


      For



Each
intercalaireRow

As
Emballage_DS.IntercalairesRow

In
dsParam.Intercalaires.Rows


         Dim
resultatcalculrow

As
Emballage_DS.ResultatCalculRow = dt.NewResultatCalculRow


         Dim
resultatcalculrow2

As
Emballage_DS.ResultatCalculRow = dt.NewResultatCalculRow


         If
resultatcalculrow.nbSepCart <> 0

Or
resultatcalculrow2.nbSepCart <> 0

Then

            dt.AddResultatCalculRow(resultatcalculrow)


            dt.AddResultatCalculRow(resultatcalculrow2)







         Else            'je voudrais ne pas afficher la ligne et passer à la suivante








         End



If








         Next






      Next






      Return
dt


End



Function

2 réponses

Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
55
Salut à toi aussi

, (autant de politesse m'émeuh)
Mais c'est de mieux en mieux...
Tu sais que le plus tu en dis sur ton problème le plus on pourras t'aider...
La nous ne sommes pas ton debuggueur ou bien un fournisseur de Snippets (codyx Powa)

@+: Ju£i?n
Pensez: Réponse acceptée
Messages postés
7741
Date d'inscription
mercredi 1 septembre 2004
Statut
Membre
Dernière intervention
24 septembre 2014
37
Ah tiens la mode vient de changer ???

Après les questions sans code, maintenant c'est le code sans question ?????

Allez courage, encore un peu d'effort et on arrivera à avoir un forum ou le règlement est respecté.

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php