diff --git a/Wardrobe/GUI.vb b/Wardrobe/GUI.vb index 52520eb..3f80759 100644 --- a/Wardrobe/GUI.vb +++ b/Wardrobe/GUI.vb @@ -291,7 +291,7 @@ Public Class GUI exportTable = Create_ExportTable() - Program.Build_Grating() + Program.Build_Grating(exportTable) 'Test för att SW API Dim pointTable As New DataTable @@ -302,7 +302,7 @@ Public Class GUI End Sub Private Function Create_ExportTable() As DataTable - Dim gratingTable As DataTable + Dim gratingTable As New DataTable gratingTable.Columns.Add("TYPE", GetType(String)) gratingTable.Columns.Add("SERRATED", GetType(Boolean)) gratingTable.Columns.Add("WIDTH", GetType(Decimal)) diff --git a/Wardrobe/Program.vb b/Wardrobe/Program.vb index fb50f48..c788d18 100644 --- a/Wardrobe/Program.vb +++ b/Wardrobe/Program.vb @@ -18,8 +18,8 @@ Public Class Program Dim parentID As Integer = 0 Dim gratingParameters As DataRow = impTable.Rows(0) inst_ = ExternalClass.instantiate_parts(parentID, gratingParameters("TYPE"), "") ' Ange pressure welded eller type A, Serrated? - ExternalClass.modify_parameter_value("DP_GRATING_WIDTH", inst_, gratingParameters("WIDTH")) 'Länka width - ExternalClass.modify_parameter_value("DP_GRATING_LENGTH", inst_, gratingParameters("LENGTH")) 'Länka length + ExternalClass.modify_parameter_value("DP_GRATING_WIDTH", inst_, gratingParameters("WIDTH")) + ExternalClass.modify_parameter_value("DP_GRATING_LENGTH", inst_, gratingParameters("LENGTH")) 'Lägg in fler DP importClass.copyGroupsByDataSet(ExternalClass.groupds_new)