mehdi-tarkian
/
X2021
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Small fixes

This commit is contained in:
Anton 2021-03-10 15:12:54 +01:00
parent 76e94c28a1
commit 0106aace4f
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Wardrobe/Gratings Data/User_Input.vb
View File

@ -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