From 0106aace4f6b56f8f3cf2e2e945d1d6d4fe2e666 Mon Sep 17 00:00:00 2001 From: Anton Date: Wed, 10 Mar 2021 15:12:54 +0100 Subject: [PATCH] Small fixes --- Wardrobe/Gratings Data/User_Input.vb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/Wardrobe/Gratings Data/User_Input.vb b/Wardrobe/Gratings Data/User_Input.vb index 7addc91..84baa89 100644 --- a/Wardrobe/Gratings Data/User_Input.vb +++ b/Wardrobe/Gratings Data/User_Input.vb @@ -470,15 +470,15 @@ gratingTable.Rows(0)("CROSSBAR_SPACING") = CInt(cSpacing) If Individual.ComboBox_Type.Text = "Pressure Welded" Then - gratingTable.Rows(0)("TYPE") = "pressure_welded" ' Här behövs namn på HLCt modellen + gratingTable.Rows(0)("TYPE") = "pressure_welded" gratingTable.Rows(0)("CROSSBAR_DIAMETER") = CBDiameter gratingTable.Rows(0)("CROSSBAR_THICKNESS") = 0 gratingTable.Rows(0)("CROSSBAR_HEIGHT") = 0 Else - gratingTable.Rows(0)("TYPE") = "type_a" ' Här behövs namn på HLCt modellen + gratingTable.Rows(0)("TYPE") = "type_a" gratingTable.Rows(0)("CROSSBAR_DIAMETER") = 0 - gratingTable.Rows(0)("CROSSBAR_THICKNESS") = CBThickness - gratingTable.Rows(0)("CROSSBAR_HEIGHT") = CBHeight + gratingTable.Rows(0)("CROSSBAR_THICKNESS") = 2 'CBThickness FIXA + gratingTable.Rows(0)("CROSSBAR_HEIGHT") = 20 'CBHeight FIXA End If Return gratingTable