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
