1 2 3 4 5 6 7 8 9 10 11 12 13
| 'fonction appelante
Public Function résultatCalculs(ByRef ResultatCalcul As DataSet1.ResultatCalculDataTable, ByVal longueurSep As System.Double, ByVal largeurSep As System.Double, ByVal epaisseurSep As System.Double)
'
'
'
Call calcul(ResultatCalcul, Cartons, Intercalaires, longueurSep, largeurSep, epaisseurSep)
'les paramètres cartons et intercalaires ne passent pas. ils correspondent tous 2 à des tables du dataset1...
'
'
end function
'procédure appelée
Public Sub calcul(ByRef ResultatCalcul As DataSet1.ResultatCalculDataTable, ByVal longueurSep As System.Double, ByVal largeurSep As System.Double, ByVal epaisseurSep As System.Double, ByVal Cartons As DataSet1.CartonsDataTable) |
Partager