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