Adding new rows form text file

B

bbohannon

I'm new to vb programming. I'm trying to get the information that I
have received so far that is display on form, to also display another
tab page with a plan type view of the text fields by changing one or
the other comboboxes.

They tower_lenght and tower_width. When these change the first set of
text boxes change to match the sql table records for those boxes form
a select lookup.

I would like to know if I can some help with this? Here is an example
of code that creates the first view.

Public Sub set_fill_layout()

'set fill pack visibility to false
SC1.Visible = False
SC2.Visible = False
SC3.Visible = False
SC4.Visible = False
SC5.Visible = False
SC6.Visible = False
SCA.Visible = False
SCC.Visible = False

SC1F.Visible = False
SC2F.Visible = False
SC3F.Visible = False
SC4F.Visible = False
SC5F.Visible = False
SC6F.Visible = False
' SCAF.Visible = False
'SCCF.Visible = False

'set joist and joist text boxes visibility to false
JoistA.Visible = False
AJ1.Visible = False
JoistB.Visible = False
AJ2.Visible = False
JoistC.Visible = False
AJ3.Visible = False
JoistD.Visible = False
AJ4.Visible = False
JoistE.Visible = False
AJ5.Visible = False
JoistF.Visible = False
AJ6.Visible = False
JoistG.Visible = False
AJ7.Visible = False
JoistH.Visible = False
AJ8.Visible = False
JoistI.Visible = False
AJ9.Visible = False
JoistJ.Visible = False
AJ10.Visible = False
JoistK.Visible = False
AJ11.Visible = False
JoistL.Visible = False
AJ12.Visible = False
JoistM.Visible = False
AJ13.Visible = False
JoistN.Visible = False
AJ14.Visible = False
JoistO.Visible = False
AJ15.Visible = False
JoistP.Visible = False
AJ16.Visible = False

FSCA.Visible = False
FSCA_Label.Visible = False
FSCAP.Visible = False
FSCA1_Label.Visible = False
FSCA_Size.Visible = False
FSCA2_Label.Visible = False
FSCA_Lght.Visible = False
FSCA3_Label.Visible = False

FSC1.Visible = False
FSC1_Label.Visible = False
FSC1P.Visible = False
FSC11_Label.Visible = False
FSC1_Size.Visible = False
FSC12_Label.Visible = False
FSC1_Lght.Visible = False
FSC13_Label.Visible = False

FSC2.Visible = False
FSC2_Label.Visible = False
FSC2P.Visible = False
FSC21_Label.Visible = False
FSC2_Size.Visible = False
FSC22_Label.Visible = False
FSC2_Lght.Visible = False
FSC23_Label.Visible = False

FSC3.Visible = False
FSC3_Label.Visible = False
FSC3P.Visible = False
FSC31_Label.Visible = False
FSC3_Size.Visible = False
FSC32_Label.Visible = False
FSC3_Lght.Visible = False
FSC33_Label.Visible = False

FSC4.Visible = False
FSC4_Label.Visible = False
FSC4P.Visible = False
FSC41_Label.Visible = False
FSC4_Size.Visible = False
FSC42_Label.Visible = False
FSC4_Lght.Visible = False
FSC43_Label.Visible = False

FSC5.Visible = False
FSC5_Label.Visible = False
FSC5P.Visible = False
FSC51_Label.Visible = False
FSC5_Size.Visible = False
FSC52_Label.Visible = False
FSC5_Lght.Visible = False
FSC53_Label.Visible = False

FSC6.Visible = False
FSC6_Label.Visible = False
FSC6P.Visible = False
FSC61_Label.Visible = False
FSC6_Size.Visible = False
FSC62_Label.Visible = False
FSC6_Lght.Visible = False
FSC63_Label.Visible = False

FSCC.Visible = False
FSCC_Label.Visible = False
FSCCP.Visible = False
FSCC1_Label.Visible = False
FSCC_Size.Visible = False
FSCC2_Label.Visible = False
FSCC_Lght.Visible = False
FSCC3_Label.Visible = False

ESC1.Visible = False
ESC1_Label.Visible = False
ESC1P.Visible = False
ESC11_Label.Visible = False
ESC1_Size.Visible = False
ESC12_Label.Visible = False
ESC1_Lght.Visible = False
' ESC13_Label.Visible = False

ESC2.Visible = False
ESC2_Label.Visible = False
ESC2P.Visible = False
ESC21_Label.Visible = False
ESC2_Size.Visible = False
ESC22_Label.Visible = False
ESC2_Lght.Visible = False
'ESC23_Label.Visible = False

ESC3.Visible = False
ESC3_Label.Visible = False
ESC3P.Visible = False
ESC31_Label.Visible = False
ESC3_Size.Visible = False
ESC32_Label.Visible = False
ESC3_Lght.Visible = False
'ESC33_Label.Visible = False

ESC4.Visible = False
ESC4_Label.Visible = False
ESC4P.Visible = False
ESC41_Label.Visible = False
ESC4_Size.Visible = False
ESC42_Label.Visible = False
ESC4_Lght.Visible = False
' ESC43_Label.Visible = False

ESC5.Visible = False
ESC5_Label.Visible = False
ESC5P.Visible = False
ESC51_Label.Visible = False
ESC5_Size.Visible = False
ESC52_Label.Visible = False
ESC5_Lght.Visible = False
'ESC53_Label.Visible = False

ESC6.Visible = False
ESC6_Label.Visible = False
ESC6P.Visible = False
ESC61_Label.Visible = False
ESC6_Size.Visible = False
ESC62_Label.Visible = False
ESC6_Lght.Visible = False
'ESC63_Label.Visible = False

ESCC.Visible = False
ESCC_Label.Visible = False
ESCCP.Visible = False
ESCC1_Label.Visible = False
ESCC_Size.Visible = False
ESCC2_Label.Visible = False
ESCC_Lght.Visible = False
'ESCC3_Label.Visible = False

SCA_Label.Visible = False
Panel_sca.Visible = False
SCA1_Label.Visible = False
Panel_sca1.Visible = False
SCB_Label.Visible = False
Panel_scb.Visible = False
SCB1_Label.Visible = False
Panel_scb1.Visible = False
SCC_Label.Visible = False
Panel_SCC.Visible = False
SCC1_Label.Visible = False
Panel_scc1.Visible = False

AC2_FPPV_Panel.Visible = False
AC1_FPPV_Panel.Visible = False
EC2_FPPV_Panel.Visible = False
EC1_FPPV_Panel.Visible = False
AC2_FPPV_Panel.Visible = False
AC1_FPPV_Panel.Visible = False
EC2_FPPV_Panel.Visible = False
EC1_FPPV_Panel.Visible = False

determine_fill_pcs()

Dim ssql_fillpks As String
ssql_fillpks = "SELECT * FROM Tower_Fill"
ssql_fillpks = ssql_fillpks + " WHERE Tower_Length = '" +
Me.Tower_Length.Text + "' "
ssql_fillpks = ssql_fillpks + " AND cell_loc = '" + scell_loc
+ "' "
ssql_fillpks = ssql_fillpks + " AND nlbays = '" +
Format(nlbays) + "' "

'MsgBox(ssql_fillpks)

Me.DS_Fill1.Clear()
Me.DA_Fill.SelectCommand.CommandText = ssql_fillpks
Me.DA_Fill.Fill(Me.DS_Fill1)

Dim left_col_center, fill_joist_loc, tb_joist_loc As Integer

Dim PIX_XJ As Double
Dim tempF As String

' If scell_loc = "END" Then
PIX_XC = 1150 / (CDbl(sTower_Length) * 12 + 6 + 1.75 + 1.75)
' for add cell
'Else
Pix_FW = Int(600 / CDbl(sTower_Length)) / 10
'MsgBox(Pix_FW)
Pix_FL = Int(700 / CDbl(sTower_Width)) / 10
'MsgBox(Pix_FL)
'End If

'left wall panel
PanelW1.Visible = True
PanelW1.Width = 1.75 * PIX_XC
PanelW1.Left = 5

'left column
PanelC1.Visible = True
PanelC1.Width = 6 * PIX_XC
PanelC1.Left = PanelW1.Left + PanelW1.Width
left_col_center = PanelC1.Left + PanelC1.Width / 2

'main fill support beam
PanelB1.Visible = True
PanelB1.Left = PanelC1.Left + PanelC1.Width
PanelB1.Width = 1150 - PanelC1.Width * 2 - PanelW1.Width * 2

'right column
PanelC7.Visible = True
PanelC7.Width = 6 * PIX_XC
PanelC7.Left = PanelB1.Left + PanelB1.Width

If scell_loc = "END" Then
'right
PanelW2.Visible = True
PanelW2.Width = 1.75 * PIX_XC
PanelW2.Left = PanelC7.Left + PanelC7.Width
Else
'left
PanelW2.Visible = True
PanelW2.Width = 1.75 * PIX_XC
PanelW2.Left = PanelC7.Left - PanelW2.Width
End If

If scell_loc = "END" Then
Me.TB14.Text = Format(CDbl(sTower_Length) * 12)
Me.Label6.Text = "CCol-CCol"
Else
Me.TB14.Text = Format(CDbl(sTower_Length) * 12 - 4.75)
Me.Label6.Text = "CCol-Wall"
End If

'Joist 1 location end cell
' PIX_XJ = (1150 - PanelW1.Width * 2 - PanelC1.Width) /
(CDbl(sTower_Length) * 12)
PIX_XJ = PIX_XC
If CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_A.ToString) <> "0"
Then
fill_joist_loc =
CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_A.ToString) * PIX_XJ -
CDbl(Me.JoistA.Width.ToString) / 2
JoistA.Location = New Point(fill_joist_loc +
left_col_center, 52)
JoistA.Visible = True

'1st Textbox
tb_joist_loc =
CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_A.ToString) * PIX_XJ / 2 - 15
AJ1.Location = New Point(tb_joist_loc + left_col_center,
96)
AJ1.Visible = True
AJ1.Text = Me.AJ1.Text
End If

Me.TB24.Text = Me.DS_Fill1.Tower_Fill(0).Joist_A.ToString

'Joist 2 location end cell
If CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_B.ToString) <> "0"
Then
fill_joist_loc = fill_joist_loc +
CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_B.ToString) * PIX_XJ
JoistB.Location = New Point(fill_joist_loc +
left_col_center, 52)
JoistB.Visible = True

'1st Textbox
tb_joist_loc =
(CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_A.ToString) +
CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_B.ToString) / 2) * PIX_XJ - 15
AJ2.Location = New Point(tb_joist_loc + left_col_center,
96)
AJ2.Visible = True
AJ2.Text = Me.AJ2.Text

Me.TB24.Text = CDbl(Me.TB24.Text) +
CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_B.ToString)
End If

'Joist 3 location end cell
If CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_C.ToString) <> "0"
Then
If CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_D.ToString) <> "0"
Then
fill_joist_loc = fill_joist_loc +
CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_C.ToString) * PIX_XJ
JoistC.Location = New Point(fill_joist_loc +
left_col_center, 52)
JoistC.Visible = True

End If
'1st Textbox
tb_joist_loc =
(CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_A.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_B.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_C.ToString) / 2) * PIX_XJ - 15
AJ3.Location = New Point(tb_joist_loc + left_col_center,
96)
AJ3.Visible = True
AJ3.Text = Me.AJ3.Text

Me.TB24.Text = CDbl(Me.TB24.Text) +
CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_C.ToString)
End If

'Joist 4 location end cell
If CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_D.ToString) <> "0"
Then
If CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_E.ToString) <> "0"
Then
fill_joist_loc = fill_joist_loc +
CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_D.ToString) * PIX_XJ
JoistD.Location = New Point(fill_joist_loc +
left_col_center, 52)
JoistD.Visible = True

End If
'1st Textbox
tb_joist_loc =
(CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_A.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_B.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_C.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_D.ToString) / 2) * PIX_XJ - 15
AJ4.Location = New Point(tb_joist_loc + left_col_center,
96)
AJ4.Visible = True
AJ4.Text = Me.AJ4.Text

Me.TB24.Text = CDbl(Me.TB24.Text) +
CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_D.ToString)
End If

'Joist 5 location end cell
If CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_E.ToString) <> "0"
Then
If CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_F.ToString) <> "0"
Then
fill_joist_loc = fill_joist_loc +
CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_E.ToString) * PIX_XJ
JoistE.Location = New Point(fill_joist_loc +
left_col_center, 52)
JoistE.Visible = True

End If
'1st Textbox
tb_joist_loc =
(CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_A.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_B.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_C.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_D.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_E.ToString) / 2) * PIX_XJ - 15
AJ5.Location = New Point(tb_joist_loc + left_col_center,
96)
AJ5.Visible = True
AJ5.Text = Me.AJ5.Text

Me.TB24.Text = CDbl(Me.TB24.Text) +
CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_E.ToString)
End If

'Joist 6 location end cell
If CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_F.ToString) <> "0"
Then
If CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_G.ToString) <> "0"
Then
fill_joist_loc = fill_joist_loc +
CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_F.ToString) * PIX_XJ
JoistF.Location = New Point(fill_joist_loc +
left_col_center, 52)
JoistF.Visible = True

End If
'1st Textbox
tb_joist_loc =
(CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_A.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_B.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_C.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_D.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_E.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_F.ToString) / 2) * PIX_XJ - 15
AJ6.Location = New Point(tb_joist_loc + left_col_center,
96)
AJ6.Visible = True
AJ6.Text = Me.AJ6.Text

Me.TB24.Text = CDbl(Me.TB24.Text) +
CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_F.ToString)
End If

'Joist 7 location end cell
If CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_G.ToString) <> "0"
Then
If CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_H.ToString) <> "0"
Then
fill_joist_loc = fill_joist_loc +
CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_G.ToString) * PIX_XJ
JoistG.Location = New Point(fill_joist_loc +
left_col_center, 52)
JoistG.Visible = True

End If
'1st Textbox
tb_joist_loc =
(CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_A.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_B.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_C.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_D.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_E.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_F.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_G.ToString) / 2) * PIX_XJ - 15
AJ7.Location = New Point(tb_joist_loc + left_col_center,
96)
AJ7.Visible = True
AJ7.Text = Me.AJ7.Text

Me.TB24.Text = CDbl(Me.TB24.Text) +
CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_G.ToString)
End If

'Joist 8 location end cell
If CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_H.ToString) <> "0"
Then
If CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_I.ToString) <> "0"
Then
fill_joist_loc = fill_joist_loc +
CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_H.ToString) * PIX_XJ
JoistH.Location = New Point(fill_joist_loc +
left_col_center, 52)
JoistH.Visible = True

End If
'1st Textbox
tb_joist_loc =
(CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_A.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_B.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_C.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_D.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_E.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_F.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_G.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_H.ToString) / 2) * PIX_XJ - 15
AJ8.Location = New Point(tb_joist_loc + left_col_center,
96)
AJ8.Visible = True
AJ8.Text = Me.AJ8.Text

Me.TB24.Text = CDbl(Me.TB24.Text) +
CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_H.ToString)
End If

'Joist 9 location end cell
If CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_I.ToString) <> "0"
Then
If CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_J.ToString) <> "0"
Then
fill_joist_loc = fill_joist_loc +
CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_I.ToString) * PIX_XJ
JoistI.Location = New Point(fill_joist_loc +
left_col_center, 52)
JoistI.Visible = True

End If
'1st Textbox
tb_joist_loc =
(CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_A.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_B.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_C.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_D.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_E.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_F.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_G.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_H.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_I.ToString) / 2) * PIX_XJ - 15
AJ9.Location = New Point(tb_joist_loc + left_col_center,
96)
AJ9.Visible = True
AJ9.Text = Me.AJ9.Text

Me.TB24.Text = CDbl(Me.TB24.Text) +
CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_I.ToString)
End If

'Joist 10 location end cell
If CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_J.ToString) <> "0"
Then
If CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_K.ToString) <> "0"
Then
fill_joist_loc = fill_joist_loc +
CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_J.ToString) * PIX_XJ
JoistJ.Location = New Point(fill_joist_loc +
left_col_center, 52)
JoistJ.Visible = True

End If
'1st Textbox
tb_joist_loc =
(CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_A.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_B.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_C.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_D.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_E.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_F.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_G.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_H.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_I.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_J.ToString) / 2) * PIX_XJ - 15
AJ10.Location = New Point(tb_joist_loc + left_col_center,
96)
AJ10.Visible = True
AJ10.Text = Me.AJ10.Text

Me.TB24.Text = CDbl(Me.TB24.Text) +
CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_J.ToString)
End If

'Joist 11 location end cell
If CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_K.ToString) <> "0"
Then
If CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_L.ToString) <> "0"
Then
fill_joist_loc = fill_joist_loc +
CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_K.ToString) * PIX_XJ
JoistK.Location = New Point(fill_joist_loc +
left_col_center, 52)
JoistK.Visible = True

End If
'1st Textbox
tb_joist_loc =
(CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_A.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_B.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_C.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_D.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_E.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_F.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_G.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_H.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_I.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_J.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_K.ToString) / 2) * PIX_XJ - 15
AJ11.Location = New Point(tb_joist_loc + left_col_center,
96)
AJ11.Visible = True
AJ11.Text = Me.AJ11.Text

Me.TB24.Text = CDbl(Me.TB24.Text) +
CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_K.ToString)
End If

'Joist 12 location end cell
If CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_L.ToString) <> "0"
Then
If CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_M.ToString) <> "0"
Then
fill_joist_loc = fill_joist_loc +
CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_L.ToString) * PIX_XJ
JoistL.Location = New Point(fill_joist_loc +
left_col_center, 52)
JoistL.Visible = True

End If
'1st Textbox
tb_joist_loc =
(CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_A.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_B.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_C.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_D.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_E.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_F.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_G.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_H.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_I.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_J.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_K.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_L.ToString) / 2) * PIX_XJ - 15
AJ12.Location = New Point(tb_joist_loc + left_col_center,
96)
AJ12.Visible = True
AJ12.Text = Me.AJ12.Text

Me.TB24.Text = CDbl(Me.TB24.Text) +
CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_L.ToString)
End If

'Joist 13 location end cell
If CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_M.ToString) <> "0"
Then
If CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_N.ToString) <> "0"
Then
fill_joist_loc = fill_joist_loc +
CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_M.ToString) * PIX_XJ
JoistM.Location = New Point(fill_joist_loc +
left_col_center, 52)
JoistM.Visible = True

End If
'1st Textbox
tb_joist_loc =
(CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_A.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_B.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_C.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_D.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_E.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_F.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_G.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_H.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_I.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_J.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_K.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_L.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_M.ToString) / 2) * PIX_XJ - 15
AJ13.Location = New Point(tb_joist_loc + left_col_center,
96)
AJ13.Visible = True
AJ13.Text = Me.AJ13.Text

Me.TB24.Text = CDbl(Me.TB24.Text) +
CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_M.ToString)
End If

'Joist 14 location end cell
If CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_N.ToString) <> "0"
Then
If CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_O.ToString) <> "0"
Then
fill_joist_loc = fill_joist_loc +
CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_N.ToString) * PIX_XJ
JoistN.Location = New Point(fill_joist_loc +
left_col_center, 52)
JoistN.Visible = True

End If
'1st Textbox
tb_joist_loc =
(CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_A.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_B.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_C.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_D.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_E.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_F.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_G.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_H.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_I.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_J.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_K.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_L.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_M.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_N.ToString) / 2) * PIX_XJ - 15
AJ14.Location = New Point(tb_joist_loc + left_col_center,
96)
AJ14.Visible = True
AJ14.Text = Me.AJ14.Text

Me.TB24.Text = CDbl(Me.TB24.Text) +
CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_N.ToString)
End If

'Joist 15 location end cell
If CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_O.ToString) <> "0"
Then
If CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_P.ToString) <> "0"
Then
fill_joist_loc = fill_joist_loc +
CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_O.ToString) * PIX_XJ
JoistO.Location = New Point(fill_joist_loc +
left_col_center, 52)
JoistO.Visible = True

End If
'1st Textbox
tb_joist_loc =
(CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_A.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_B.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_C.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_D.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_E.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_F.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_G.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_H.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_I.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_J.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_K.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_L.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_M.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_N.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_O.ToString) / 2) * PIX_XJ - 15
AJ15.Location = New Point(tb_joist_loc + left_col_center,
96)
AJ15.Visible = True
AJ15.Text = Me.AJ15.Text

Me.TB24.Text = CDbl(Me.TB24.Text) +
CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_O.ToString)
End If

'Joist 16 location end cell
If CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_P.ToString) <> "0"
Then
'1st Textbox
tb_joist_loc =
(CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_A.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_B.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_C.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_D.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_E.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_F.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_G.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_H.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_I.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_J.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_K.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_L.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_M.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_N.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_O.ToString) + _

CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_P.ToString) / 2) * PIX_XJ - 15
AJ16.Location = New Point(tb_joist_loc + left_col_center,
96)
AJ16.Visible = True
AJ16.Text = Me.AJ16.Text

Me.TB24.Text = CDbl(Me.TB24.Text) +
CDbl(Me.DS_Fill1.Tower_Fill(0).Joist_P.ToString)
End If

Me.tb25.Text = "0"


' sFillHtSC

'set visibility of SCA
If (CDbl(Me.DS_Fill1.Tower_Fill(0).SCA.ToString) = "3") Then
SCA.Width = PanelC1.Width / 2
SCA.Left = PanelC1.Left
SCA.Visible = True
SCA.BringToFront()

Me.tb25.Text = "3"
FSCA.Visible = True
FSCA.Text = "SCA"
FSCA_Label.Visible = True
FSCAP.Visible = True
FSCAP.Text = sWUnits
FSCA1_Label.Visible = True
FSCA_Size.Visible = True
FSCA_Size.Text = "3"
FSCA2_Label.Visible = True
FSCA_Lght.Visible = True
FSCA_Lght.Text = "72"""
FSCA3_Label.Visible = True
SCA_Label.Visible = True
Panel_sca.Visible = True
SC_FPPV_Panel.Visible = True
fppv_Label1.Visible = True

End If

'set visibility of SCC
If (CDbl(Me.DS_Fill1.Tower_Fill(0).SCC.ToString) = "3") Then
SCC.Width = PanelC1.Width / 2
SCC.Left = PanelW2.Left - PanelC1.Width / 2
SCC.Visible = True
SCC.BringToFront()
Me.tb25.Text = CDbl(Me.tb25.Text) + 3

FSCC.Visible = True
FSCC.Text = "SCC"
FSCC_Label.Visible = True
FSCCP.Visible = True
FSCCP.Text = sWUnits
FSCC1_Label.Visible = True
FSCC_Size.Visible = True
FSCC_Size.Text = "3"
FSCC2_Label.Visible = True
FSCC_Lght.Visible = True
FSCC_Lght.Text = "72"""
FSCC3_Label.Visible = True
SCC_Label.Visible = True
Panel_SCC.Visible = True
SC_FPPV_Panel.Visible = True
fppv_Label1.Visible = True
End If


Dim fill_location As Double

If (CDbl(Me.DS_Fill1.Tower_Fill(0).SC1.ToString) <> "0") And
(CDbl(Me.DS_Fill1.Tower_Fill(0).SCA.ToString) = "0") Then
SC1.Left = PanelC1.Left
SC1.Width = CDbl(Me.DS_Fill1.Tower_Fill(0).SC1.ToString) *
PIX_XC
SC1.Visible = True
Me.tb25.Text = CDbl(Me.tb25.Text) +
CDbl(Me.DS_Fill1.Tower_Fill(0).SC1.ToString)

SC1F.Left = 490
SC1F.Width = CDbl(Me.DS_Fill1.Tower_Fill(0).SC1.ToString)
* Pix_FW
SC1F.Visible = True
tempF = SC1F.Left

FSC1.Visible = True
FSC1.Text = "SC1"
FSC1_Label.Visible = True
FSC1P.Visible = True
FSC1P.Text = Int(sCWInch / sFillWd) * sFillHtSC
FSC11_Label.Visible = True
FSC1_Size.Visible = True
FSC1_Size.Text = sFillWd
FSC12_Label.Visible = True
FSC1_Lght.Visible = True
FSC1_Lght.Text = Me.DS_Fill1.Tower_Fill(0).SC1.ToString
End If

If (CDbl(Me.DS_Fill1.Tower_Fill(0).SC1.ToString) <> "0") And
(CDbl(Me.DS_Fill1.Tower_Fill(0).SCA.ToString) = "3") Then
SC1.Left = PanelC1.Left + PanelC1.Width / 2
SC1.Width = CDbl(Me.DS_Fill1.Tower_Fill(0).SC1.ToString) *
PIX_XC
SC1.Visible = True
Me.tb25.Text = CDbl(Me.tb25.Text) +
CDbl(Me.DS_Fill1.Tower_Fill(0).SC1.ToString)

SC1F.Left = 490
SC1F.Width = Me.DS_Fill1.Tower_Fill(0).SC1.ToString *
Pix_FW
SC1F.Visible = True
tempF = SC1F.Left

FSC1.Visible = True
FSC1.Text = "SC1"
FSC1_Label.Visible = True
FSC1P.Visible = True
FSC1P.Text = Int(sCWInch / sFillWd) * sFillHtSC
FSC11_Label.Visible = True
FSC1_Size.Visible = True
FSC1_Size.Text = sFillWd
FSC12_Label.Visible = True
FSC1_Lght.Visible = True
FSC1_Lght.Text = Me.DS_Fill1.Tower_Fill(0).SC1.ToString
FSC13_Label.Visible = True
fppv_Label1.Visible = True

End If
SC1.Top = 28
SC1.BringToFront()

SC1F.Top = 28
SC1F.BringToFront()

'fill pack 2
If (CDbl(Me.DS_Fill1.Tower_Fill(0).SC2.ToString) <> "0") Then
SC2.Left = SC1.Left + SC1.Width
SC2.Width = CDbl(Me.DS_Fill1.Tower_Fill(0).SC2.ToString) *
PIX_XC
SC2.Visible = True
Me.tb25.Text = CDbl(Me.tb25.Text) +
CDbl(Me.DS_Fill1.Tower_Fill(0).SC2.ToString)

SC2F.Left = SC1F.Left + SC1F.Width
SC2F.Width = CDbl(Me.DS_Fill1.Tower_Fill(0).SC2.ToString)
* Pix_FW
SC2F.Visible = True
tempF = SC2F.Left

FSC2.Visible = True
FSC2.Text = "SC2"
FSC2_Label.Visible = True
FSC2P.Visible = True
FSC2P.Text = Int(sCWInch / sFillWd) * sFillHtSC
FSC21_Label.Visible = True
FSC2_Size.Visible = True
FSC2_Size.Text = sFillWd
FSC22_Label.Visible = True
FSC2_Lght.Visible = True
FSC2_Lght.Text = Me.DS_Fill1.Tower_Fill(0).SC2.ToString
FSC23_Label.Visible = True
End If
SC2.Top = 28
SC2.BringToFront()

SC2F.Top = 28
SC2F.BringToFront()

'fill pack 3
If (CDbl(Me.DS_Fill1.Tower_Fill(0).SC3.ToString) <> "0") Then
SC3.Left = SC2.Left + SC2.Width
SC3.Width = CDbl(Me.DS_Fill1.Tower_Fill(0).SC3.ToString) *
PIX_XC
SC3.Visible = True
Me.tb25.Text = CDbl(Me.tb25.Text) +
CDbl(Me.DS_Fill1.Tower_Fill(0).SC3.ToString)

SC3F.Left = SC2F.Left + SC2F.Width
SC3F.Width = CDbl(Me.DS_Fill1.Tower_Fill(0).SC3.ToString)
* Pix_FW
'MsgBox(SC3F.Width)
SC3F.Visible = True
tempF = SC3F.Left

FSC3.Visible = True
FSC3.Text = "SC3"
FSC3_Label.Visible = True
FSC3P.Visible = True
FSC3P.Text = Int(sCWInch / sFillWd) * sFillHtSC
FSC31_Label.Visible = True
FSC3_Size.Visible = True
FSC3_Size.Text = sFillWd
FSC32_Label.Visible = True
FSC3_Lght.Visible = True
FSC3_Lght.Text = Me.DS_Fill1.Tower_Fill(0).SC3.ToString
FSC33_Label.Visible = True
End If
SC3.Top = 28
SC3.BringToFront()

SC3F.Top = 28
SC3F.BringToFront()

'fill pack 4
If (CDbl(Me.DS_Fill1.Tower_Fill(0).SC4.ToString) <> "0") Then
SC4.Left = SC3.Left + SC3.Width
SC4.Width = CDbl(Me.DS_Fill1.Tower_Fill(0).SC4.ToString) *
PIX_XC
SC4.Visible = True
Me.tb25.Text = CDbl(Me.tb25.Text) +
CDbl(Me.DS_Fill1.Tower_Fill(0).SC4.ToString)

SC4F.Left = SC3F.Left + SC3F.Width
SC4F.Width = CDbl(Me.DS_Fill1.Tower_Fill(0).SC4.ToString)
* Pix_FW
SC4F.Visible = True

tempF = SC4F.Left
FSC4.Visible = True
FSC4.Text = "SC4"
FSC4_Label.Visible = True
FSC4P.Visible = True
FSC4P.Text = Int(sCWInch / sFillWd) * sFillHtSC
FSC41_Label.Visible = True
FSC4_Size.Visible = True
FSC4_Size.Text = sFillWd
FSC42_Label.Visible = True
FSC4_Lght.Visible = True
FSC4_Lght.Text = Me.DS_Fill1.Tower_Fill(0).SC4.ToString
FSC43_Label.Visible = True
End If
SC4.Top = 28
SC4.BringToFront()

SC4F.Top = 28
SC4F.BringToFront()

'fill pack 5
If (CDbl(Me.DS_Fill1.Tower_Fill(0).SC5.ToString) <> "0") Then
SC5.Left = SC4.Left + SC4.Width
SC5.Width = CDbl(Me.DS_Fill1.Tower_Fill(0).SC5.ToString) *
PIX_XC
SC5.Visible = True
Me.tb25.Text = CDbl(Me.tb25.Text) +
CDbl(Me.DS_Fill1.Tower_Fill(0).SC5.ToString)

SC5F.Left = SC4F.Left + SC4F.Width
SC5F.Width = CDbl(Me.DS_Fill1.Tower_Fill(0).SC5.ToString)
* Pix_FW
SC5F.Visible = True
tempF = SC5F.Left

FSC5.Visible = True
FSC5.Text = "SC5"
FSC5_Label.Visible = True
FSC5P.Visible = True
FSC5P.Text = Int(sCWInch / sFillWd) * sFillHtSC
FSC51_Label.Visible = True
FSC5_Size.Visible = True
FSC5_Size.Text = sFillWd
FSC52_Label.Visible = True
FSC5_Lght.Visible = True
FSC5_Lght.Text = Me.DS_Fill1.Tower_Fill(0).SC5.ToString
FSC53_Label.Visible = True
End If
SC5.Top = 28
SC5.BringToFront()

SC5F.Top = 28
SC5F.BringToFront()

'fill pack 6
If (CDbl(Me.DS_Fill1.Tower_Fill(0).SC6.ToString) <> "0") Then
SC6.Left = SC5.Left + SC5.Width
SC6.Width = CDbl(Me.DS_Fill1.Tower_Fill(0).SC6.ToString) *
PIX_XC
SC6.Visible = True
Me.tb25.Text = CDbl(Me.tb25.Text) +
CDbl(Me.DS_Fill1.Tower_Fill(0).SC6.ToString)

SC6F.Left = SC5F.Left + SC5F.Width
SC6F.Width = CDbl(Me.DS_Fill1.Tower_Fill(0).SC6.ToString)
* PIX_XC
SC6F.Visible = True
tempF = SC6F.Left

FSC6.Visible = True
FSC6.Text = "SC6"
FSC6_Label.Visible = True
FSC6P.Visible = True
FSC6P.Text = Int(sCWInch / sFillWd) * sFillHtSC
FSC61_Label.Visible = True
FSC6_Size.Visible = True
FSC6_Size.Text = sFillWd
FSC62_Label.Visible = True
FSC6_Lght.Visible = True
FSC6_Lght.Text = Me.DS_Fill1.Tower_Fill(0).SC6.ToString
FSC63_Label.Visible = True
End If
SC6.Top = 28
SC6.BringToFront()

SC6F.Top = 28
SC6F.BringToFront()

If (sCWInch / sFillWd) <> "0" Then
If FSCBP.Text = "0" Then
FSCB.Visible = False
FSCB_Label.Visible = False
FSCBP.Visible = False
FSCB1_Label.Visible = False
FSCB_Size.Visible = False
FSCB2_Label.Visible = False
FSCB_Lght.Visible = False
End If
If FSCBP.Text <> "0" Then
FSCB.Text = "SCB"
FSCB_Label.Visible = False
FSCBP.Visible = False
FSCBP.Text = Int(sTower_Length / 72)
FSCB1_Label.Visible = False
FSCB_Size.Visible = True
FSCB_Size.Text = sCellWBC
FSCB2_Label.Visible = False
FSCB_Lght.Visible = False
FSCB_Lght.Text = "72"
FSCB.Visible = True
Else
FSCB.Text = "SCB"
FSCB_Label.Visible = True
FSCBP.Visible = True
FSCBP.Text = Int(sTower_Length / 72)
FSCB1_Label.Visible = True
FSCB_Size.Visible = True
FSCB_Size.Text = sCellWBC
FSCB2_Label.Visible = True
FSCB_Lght.Visible = True
FSCB_Lght.Text = "72"
FSCB3_Label.Visible = True
SCB_Label.Visible = True
Panel_scb.Visible = True
SC_FPPV_Panel.Visible = True
fppv_Label1.Visible = True
End If
End If
scell_loc = "END"
If (CDbl(Me.DS_Fill1.Tower_Fill(0).SC1.ToString) <> "0") And
(CDbl(Me.DS_Fill1.Tower_Fill(0).SCA.ToString) = "3") Then

ESCA.Visible = True
ESCA.Text = "SCA"
ESCA_Label.Visible = True
ESCAP.Visible = True
ESCAP.Text = sWUnits
ESCA1_Label.Visible = True
ESCA_Size.Visible = True
ESCA_Size.Text = "3"
ESCA2_Label.Visible = True
ESCA_Lght.Visible = True
ESCA_Lght.Text = "72"""
' ESCA3_Label.Visible = True
SCA1_Label.Visible = True
Panel_sca1.Visible = True
SC_FPPV_Panel.Visible = True
fppv_Label2.Visible = True

ESC1.Visible = True
ESC1.Text = "SC1"
ESC1_Label.Visible = True
ESC1P.Visible = True
ESC1P.Text = Int(sCWInch / sFillWd)
ESC11_Label.Visible = True
ESC1_Size.Visible = True
ESC1_Size.Text = sFillWd
ESC12_Label.Visible = True
ESC1_Lght.Visible = True
ESC1_Lght.Text = Me.DS_Fill1.Tower_Fill(0).SC1.ToString +
""""
'ESC13_Label.Visible = True
End If

If (CDbl(Me.DS_Fill1.Tower_Fill(0).SC1.ToString) <> "0") And
(CDbl(Me.DS_Fill1.Tower_Fill(0).SCA.ToString) = "0") Then
ESCA.Visible = False
ESCA_Label.Visible = False
ESCAP.Visible = False
ESCA1_Label.Visible = False
ESCA_Size.Visible = False
ESCA2_Label.Visible = False
ESCA_Lght.Visible = False
' ESCA3_Label.Visible = False
SCA1_Label.Visible = False
Panel_sca1.Visible = False
fppv_Label2.Visible = False

ESC1.Visible = True
ESC1.Text = "SC1"
ESC1_Label.Visible = True
ESC1P.Visible = True
ESC1P.Text = Int(sCWInch / sFillWd)
ESC11_Label.Visible = True
ESC1_Size.Visible = True
ESC1_Size.Text = sFillWd
ESC12_Label.Visible = True
ESC1_Lght.Visible = True
ESC1_Lght.Text = Me.DS_Fill1.Tower_Fill(0).SC1.ToString +
""""
'ESC13_Label.Visible = True
End If
'fill pack 2
If (CDbl(Me.DS_Fill1.Tower_Fill(0).SC2.ToString) <> "0") Then
ESC2.Visible = True
ESC2.Text = "SC2"
ESC2_Label.Visible = True
ESC2P.Visible = True
ESC2P.Text = Int(sCWInch / sFillWd)
ESC21_Label.Visible = True
ESC2_Size.Visible = True
ESC2_Size.Text = sFillWd
ESC22_Label.Visible = True
ESC2_Lght.Visible = True
ESC2_Lght.Text = Me.DS_Fill1.Tower_Fill(0).SC2.ToString +
""""
' ESC23_Label.Visible = True
End If

'fill pack 3
If (CDbl(Me.DS_Fill1.Tower_Fill(0).SC3.ToString) <> "0") Then
ESC3.Visible = True
ESC3.Text = "SC3"
ESC3_Label.Visible = True
ESC3P.Visible = True
ESC3P.Text = sCWInch / sFillWd
ESC31_Label.Visible = True
ESC3_Size.Visible = True
ESC3_Size.Text = sFillWd
ESC32_Label.Visible = True
ESC3_Lght.Visible = True
ESC3_Lght.Text = Me.DS_Fill1.Tower_Fill(0).SC3.ToString +
""""
' ESC33_Label.Visible = True
End If

'fill pack 4
If (CDbl(Me.DS_Fill1.Tower_Fill(0).SC4.ToString) <> "0") Then
ESC4.Visible = True
ESC4.Text = "SC4"
ESC4_Label.Visible = True
ESC4P.Visible = True
ESC4P.Text = Int(sCWInch / sFillWd)
ESC41_Label.Visible = True
ESC4_Size.Visible = True
ESC4_Size.Text = sFillWd
ESC42_Label.Visible = True
ESC4_Lght.Visible = True
ESC4_Lght.Text = Me.DS_Fill1.Tower_Fill(0).SC4.ToString +
""""
'ESC43_Label.Visible = True
End If

'fill pack 5
If (CDbl(Me.DS_Fill1.Tower_Fill(0).SC5.ToString) <> "0") Then
ESC5.Visible = True
ESC5.Text = "SC5"
ESC5_Label.Visible = True
ESC5P.Visible = True
ESC5P.Text = Int(sCWInch / sFillWd)
ESC51_Label.Visible = True
ESC5_Size.Visible = True
ESC5_Size.Text = sFillWd
ESC52_Label.Visible = True
ESC5_Lght.Visible = True
ESC5_Lght.Text = Me.DS_Fill1.Tower_Fill(0).SC5.ToString +
""""
'ESC53_Label.Visible = True
End If

'fill pack 6
If (CDbl(Me.DS_Fill1.Tower_Fill(0).SC6.ToString) <> "0") Then
ESC6.Visible = True
ESC6.Text = "SC6"
ESC6_Label.Visible = True
ESC6P.Visible = True
ESC6P.Text = Int(sCWInch / sFillWd)
ESC61_Label.Visible = True
ESC6_Size.Visible = True
ESC6_Size.Text = sFillWd
ESC62_Label.Visible = True
ESC6_Lght.Visible = True
ESC6_Lght.Text = Me.DS_Fill1.Tower_Fill(0).SC6.ToString +
""""
'ESC63_Label.Visible = True
End If

'set visibility of SCC
If (CDbl(Me.DS_Fill1.Tower_Fill(0).SCC.ToString) = "3") Then
ESCC.Visible = True
ESCC.Text = "SCC"
ESCC_Label.Visible = True
ESCCP.Visible = True
ESCCP.Text = sWUnits
ESCC1_Label.Visible = True
ESCC_Size.Visible = True
ESCC_Size.Text = "3"
ESCC2_Label.Visible = True
ESCC_Lght.Visible = True
ESCC_Lght.Text = "72"""
'ESCC3_Label.Visible = True
SCC1_Label.Visible = True
Panel_scc1.Visible = True
SC_FPPV_Panel.Visible = True
fppv_Label2.Visible = True
End If

If (sCWInch / sFillWd) <> "0" Then
ESCB.Visible = True
ESCB.Text = "SCB"
ESCB_Label.Visible = True
ESCBP.Visible = True
ESCBP.Text = sWUnits
ESCB1_Label.Visible = True
ESCB_Size.Visible = True
ESCB_Size.Text = sCellWBC
ESCB2_Label.Visible = True
ESCB_Lght.Visible = True
ESCB_Lght.Text = "72"""

SCB1_Label.Visible = True
Panel_scb1.Visible = True
SC_FPPV_Panel.Visible = True
fppv_Label2.Visible = True
End If
GetATable()
End Sub

Private Function GetATable() As DataTable
Dim dt As New DataTable("MyTable")
Dim nCols As Integer = CDbl(tAcross)
Dim nRows As Integer = CDbl(tDown)

' MsgBox(nRows)
' MsgBox(nCols) tempF

Dim i As Integer
For i = 0 To nCols - 1
dt.Columns.Add(New DataColumn(String.Format("Col{0}", i)))
Next i

For i = 0 To nRows - 1
Dim dr As DataRow = dt.NewRow()
'Dim j As Integer
'For j = 0 To nCols - 1
dr(tempF) = String.Format("tempF ", i)
'Next j
dt.Rows.Add(dr)
Next i
Return dt
End Function

Thanks Eaglestuo
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Collect Excel Data from Website 5
Circle - Rect Collision 0
Java 1
How do i get numberOfItemsHired to only accept 1-500 if it is outside those values error message should be displayed 10
When draggable=false & draggable=true dont work ? 1
How to retrive payment result value after secure paytabs payment done in PayTabs payment gateway in asp.net 0
Troubles with Fullpage / please help 0
Lexical Analysis on C++ 1

Members online

Total: 61 (members: 2, guests: 59)
Robots: 467

Forum statistics

Threads
473,995
Messages
2,570,228
Members
46,816
Latest member
nipsseyhussle

Latest Threads

Top