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
Afficher la suite