From 5ee89a26a0c57ab24ea0ed5e0ae60640fb98c176 Mon Sep 17 00:00:00 2001 From: Mans Date: Fri, 7 May 2021 15:22:30 +0200 Subject: [PATCH] Integer to Long --- Wardrobe/SolidWorks/Frame_3D.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Wardrobe/SolidWorks/Frame_3D.vb b/Wardrobe/SolidWorks/Frame_3D.vb index ee55c06..1fabfbf 100644 --- a/Wardrobe/SolidWorks/Frame_3D.vb +++ b/Wardrobe/SolidWorks/Frame_3D.vb @@ -347,7 +347,7 @@ Public Class Frame_3D Dim frameCombDT As New DataTable Dim numOfValues As Integer = l - Dim numOfComb As Integer = Calculate_Factorial(frameLengths.Count) / (Calculate_Factorial(numOfValues) * Calculate_Factorial(frameLengths.Count - numOfValues)) + Dim numOfComb As Long = Calculate_Factorial(frameLengths.Count) / (Calculate_Factorial(numOfValues) * Calculate_Factorial(frameLengths.Count - numOfValues)) For j = 1 To numOfValues frameCombDT.Columns.Add("Enum " & j, GetType(Integer)) @@ -447,7 +447,7 @@ Public Class Frame_3D End Function Private Shared Function Calculate_Factorial(num As Integer) - Dim result As Integer + Dim result As Long If num = 0 Then result = 1 Else