WINPROFIT-ERP-SYS-LEEHSIEHJUI/SHENKANG-MES-SYS/08、量產訂單管理系統/量產訂單輸入.vb

Option Strict Off
Public Class 量產訂單輸入
    Private ReadOnly ds, ds1, ds2, ds3, ds4 As New DataSet
    Dim DTP, DTP1 As String
    Dim 已超出 As Boolean
    Private Sub Set_清單2()
        表單1_dgv.DataSource = Nothing : ds2.Clear()
        表單1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        表單1_dgv.ColumnHeadersHeight = 25
        表單1_dgv.AllowUserToAddRows = False
        SQL_訂單明細表抬頭清單()
        da.Fill(ds2) : 表單1_dgv.DataSource = ds2.Tables(0) : conn.Close()

        表單1_dgv.Columns(0).FillWeight = 120 : 表單1_dgv.Columns(1).FillWeight = 150 : 表單1_dgv.Columns(2).Visible = False : 表單1_dgv.Columns(3).Visible = False
        表單1_dgv.Columns(4).Visible = False : 表單1_dgv.Columns(5).Visible = False : 表單1_dgv.Columns(6).Visible = False : 表單1_dgv.Columns(7).Visible = False
        表單1_dgv.Columns(8).Visible = False : 表單1_dgv.Columns(9).Visible = False : 表單1_dgv.Columns(10).Visible = False : 表單1_dgv.Columns(11).Visible = False
        表單1_dgv.Columns(12).Visible = False : 表單1_dgv.Columns(13).Visible = False : 表單1_dgv.Columns(14).Visible = False : 表單1_dgv.Columns(15).FillWeight = 90
        表單1_dgv.Columns(16).FillWeight = 90 : 表單1_dgv.Columns(17).Visible = False : 表單1_dgv.Columns(18).Visible = False : 表單1_dgv.Columns(19).Visible = False
        表單1_dgv.Columns(20).Visible = False : 表單1_dgv.Columns(21).Visible = False
    End Sub
    Private Sub Set_清單1()
        表單2_dgv.DataSource = Nothing : ds1.Clear()
        表單2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        表單2_dgv.ColumnHeadersHeight = 25
        表單2_dgv.AllowUserToAddRows = False
        SQL_訂單顏色清單()
        da.Fill(ds1) : 表單2_dgv.DataSource = ds1.Tables(0) : conn.Close()

        表單2_dgv.Columns(0).FillWeight = 110 : 表單2_dgv.Columns(1).FillWeight = 40
        For i As Integer = 0 To 表單2_dgv.Rows.Count - 1
            表單2_dgv.Rows(i).Cells("選擇").Value = False
        Next i
    End Sub
    Private Sub Set_清單3()
        表單3_dgv.DataSource = Nothing : ds3.Clear()
        表單3_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        表單3_dgv.ColumnHeadersHeight = 40
        表單3_dgv.AllowUserToAddRows = False
        SQL_訂單控制表清單()
        da.Fill(ds3) : 表單3_dgv.DataSource = ds3.Tables(0) : conn.Close()

        表單3_dgv.Columns(0).FillWeight = 85 : 表單3_dgv.Columns(1).FillWeight = 70 : 表單3_dgv.Columns(2).FillWeight = 130 : 表單3_dgv.Columns(3).FillWeight = 120
        表單3_dgv.Columns(4).FillWeight = 130 : 表單3_dgv.Columns(5).FillWeight = 80 : 表單3_dgv.Columns(6).FillWeight = 50 : 表單3_dgv.Columns(7).FillWeight = 80
        表單3_dgv.Columns(8).FillWeight = 90 : 表單3_dgv.Columns(9).FillWeight = 90 : 表單3_dgv.Columns(10).FillWeight = 90
        表單3_dgv.Columns(11).Visible = False : 表單3_dgv.Columns(12).Visible = False
        表單3_dgv.Columns(13).FillWeight = 130 : 表單3_dgv.Columns(14).FillWeight = 80 : 表單3_dgv.Columns(15).FillWeight = 120 : 表單3_dgv.Columns(16).FillWeight = 130
        表單3_dgv.Columns(17).Visible = False : 表單3_dgv.Columns(18).Visible = False : 表單3_dgv.Columns(19).Visible = False : 表單3_dgv.Columns(20).Visible = False
        表單3_dgv.Columns(21).Visible = False : 表單3_dgv.Columns(22).Visible = False : 表單3_dgv.Columns(23).Visible = False : 表單3_dgv.Columns(24).Visible = False
        表單3_dgv.Columns(25).Visible = False : 表單3_dgv.Columns(26).Visible = False : 表單3_dgv.Columns(27).Visible = False : 表單3_dgv.Columns(28).Visible = False
        表單3_dgv.Columns(29).Visible = False : 表單3_dgv.Columns(30).Visible = False : 表單3_dgv.Columns(31).Visible = False : 表單3_dgv.Columns(32).Visible = False
        表單3_dgv.Columns(33).Visible = False : 表單3_dgv.Columns(34).Visible = False : 表單3_dgv.Columns(35).Visible = False : 表單3_dgv.Columns(36).Visible = False
        表單3_dgv.Columns(37).Visible = False : 表單3_dgv.Columns(38).Visible = False : 表單3_dgv.Columns(39).Visible = False : 表單3_dgv.Columns(40).Visible = False
        表單3_dgv.Columns(41).Visible = False : 表單3_dgv.Columns(42).Visible = False : 表單3_dgv.Columns(43).Visible = False : 表單3_dgv.Columns(44).Visible = False
        表單3_dgv.Columns(45).Visible = False : 表單3_dgv.Columns(46).Visible = False : 表單3_dgv.Columns(47).Visible = False : 表單3_dgv.Columns(48).Visible = False
        表單3_dgv.Columns(49).Visible = False : 表單3_dgv.Columns(50).Visible = False : 表單3_dgv.Columns(51).Visible = False : 表單3_dgv.Columns(52).Visible = False
        表單3_dgv.Columns(53).Visible = False : 表單3_dgv.Columns(54).Visible = False : 表單3_dgv.Columns(55).Visible = False : 表單3_dgv.Columns(56).Visible = False
        表單3_dgv.Columns(57).Visible = False : 表單3_dgv.Columns(58).Visible = False : 表單3_dgv.Columns(59).Visible = False : 表單3_dgv.Columns(60).FillWeight = 80
        表單3_dgv.Columns(61).FillWeight = 80
        表單3_dgv.Columns(7).DefaultCellStyle.Format = "#,##0"
        表單3_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        表單3_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        表單3_dgv.EditMode = DataGridViewEditMode.EditOnEnter
    End Sub
    Private Sub Set_清單4()
        表單4_dgv.DataSource = Nothing : ds4.Clear()
        表單4_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        表單4_dgv.ColumnHeadersHeight = 25
        表單4_dgv.AllowUserToAddRows = False
        SQL_訂單明細表清單()
        da.Fill(ds4) : 表單4_dgv.DataSource = ds4.Tables(0) : conn.Close()

        表單4_dgv.Columns(0).FillWeight = 85 : 表單4_dgv.Columns(1).FillWeight = 150 : 表單4_dgv.Columns(2).FillWeight = 120 : 表單4_dgv.Columns(3).FillWeight = 150
        表單4_dgv.Columns(4).FillWeight = 80 : 表單4_dgv.Columns(5).FillWeight = 50 : 表單4_dgv.Columns(6).FillWeight = 38 : 表單4_dgv.Columns(7).FillWeight = 37
        表單4_dgv.Columns(8).FillWeight = 38 : 表單4_dgv.Columns(9).FillWeight = 37 : 表單4_dgv.Columns(10).FillWeight = 38 : 表單4_dgv.Columns(11).FillWeight = 37
        表單4_dgv.Columns(12).FillWeight = 38 : 表單4_dgv.Columns(13).FillWeight = 37 : 表單4_dgv.Columns(14).FillWeight = 38 : 表單4_dgv.Columns(15).FillWeight = 37
        表單4_dgv.Columns(16).FillWeight = 38 : 表單4_dgv.Columns(17).FillWeight = 37 : 表單4_dgv.Columns(18).FillWeight = 38 : 表單4_dgv.Columns(19).FillWeight = 37
        表單4_dgv.Columns(20).FillWeight = 38 : 表單4_dgv.Columns(21).FillWeight = 37 : 表單4_dgv.Columns(22).FillWeight = 38 : 表單4_dgv.Columns(23).FillWeight = 37
        表單4_dgv.Columns(24).FillWeight = 38 : 表單4_dgv.Columns(25).FillWeight = 37 : 表單4_dgv.Columns(26).Visible = False
        表單4_dgv.EditMode = DataGridViewEditMode.EditOnEnter
    End Sub
    Private Sub ComboBox1下拉表單資料載入()
        SQL_楦型()
        DM_cb.Items.Clear()
        While (dr.Read()) : DM_cb.Items.Add(dr("楦型")) : End While : conn.Close()
    End Sub
    Private Sub ComboBox2下拉表單資料載入()
        SQL_客戶簡稱()
        客戶_cb.Items.Clear() : While (dr.Read()) : 客戶_cb.Items.Add(dr("客戶簡稱")) : End While : conn.Close()
    End Sub
    Private Sub ComboBox3下拉表單資料載入()
        SQL_季節清單()
        季節_cb.Items.Clear() : While (dr.Read()) : 季節_cb.Items.Add(dr("SEASON")) : End While : conn.Close()
    End Sub
    Private Sub ComboBox4下拉表單資料載入()
        SQL_MODEOFDELIVERY()
        ModeOfDelivery_cb.Items.Clear()
        While (dr.Read()) : ModeOfDelivery_cb.Items.Add(dr("MODEOFDELIVERY")) : End While : conn.Close()
    End Sub
    Private Sub ComboBox5下拉表單資料載入()
        SQL_DELIVERYTERMS()
        DeliveryTerms_cb.Items.Clear()
        While (dr.Read()) : DeliveryTerms_cb.Items.Add(dr("DELIVERYTERMS")) : End While : conn.Close()
    End Sub
    Private Sub ComboBox6下拉表單資料載入()
        SQL_港口清單()
        FromPort_cb.Items.Clear()
        While (dr.Read()) : FromPort_cb.Items.Add(dr("FOB")) : End While : conn.Close()
    End Sub
    Private Sub ComboBox7下拉表單資料載入()
        SQL_TOPORT()
        ToPort_cb.Items.Clear()
        While (dr.Read()) : ToPort_cb.Items.Add(dr("TOPORT")) : End While : conn.Close()
    End Sub
    Private Sub ComboBox8下拉表單資料載入()
        SQL_REMARK()
        Remark_cb.Items.Clear()
        While (dr.Read()) : Remark_cb.Items.Add(dr("REMARK")) : End While : conn.Close()
    End Sub
    Private Sub ComboBox9下拉表單資料載入()
        SQL_工廠控制表1()
        工廠_cb.Items.Clear()
        While (dr.Read()) : 工廠_cb.Items.Add(dr("工廠")) : End While : conn.Close()
    End Sub
    Private Sub ComboBox11下拉表單資料載入()
        PA33 = 客戶_cb.Text : SQL_型體號碼()
        型體號碼_cb.Items.Clear() : While (dr.Read()) : 型體號碼_cb.Items.Add(dr("型體號碼")) : End While : conn.Close()
    End Sub
    Private Sub ComboBox12下拉表單資料載入()
        PA33 = 型體號碼_cb.Text : SQL_型體控制表2()
        型體名稱_cb.Items.Clear() : While (dr.Read()) : 型體名稱_cb.Items.Add(dr("型體名稱")) : End While : conn.Close()
    End Sub
    Private Sub ComboBox13下拉表單資料載入()
        SQL_模具開發控制表3()
        C_N_cb.Items.Clear() : While (dr.Read()) : C_N_cb.Items.Add(dr("CN")) : End While : conn.Close()
    End Sub
    Private Sub ComboBox14下拉表單資料載入()
        SQL_MTTOOCUST清單()
        客戶名稱_cb.Items.Clear() : While (dr.Read()) : 客戶名稱_cb.Items.Add(dr("CUST")) : End While : conn.Close()
    End Sub
    Private Sub 量產訂單輸入_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        WINPROFIT_ERP_SYS.WindowState = 2 : Me.MdiParent = WINPROFIT_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        訂單流水號_tb.Enabled = False : 訂單數量_tb.Enabled = False : 資料流水號_tb.Enabled = False : Panel1.SendToBack()
        生成量產訂單抬頭_bt.Enabled = False : 存檔_bt.Enabled = False : 生成訂單SIZERUN_bt.Enabled = False : 日期3_dtp.Visible = False
        PA33 = ""
        ComboBox4下拉表單資料載入() : ComboBox5下拉表單資料載入() : ComboBox6下拉表單資料載入() : ComboBox7下拉表單資料載入() : ComboBox8下拉表單資料載入() : ComboBox9下拉表單資料載入()
        ComboBox1下拉表單資料載入() : ComboBox2下拉表單資料載入() : ComboBox3下拉表單資料載入() : ComboBox13下拉表單資料載入() : ComboBox14下拉表單資料載入()
        Set_清單2() : Set_清單1()
    End Sub
    Private Sub DataGridView4_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 表單1_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            ComboBox4下拉表單資料載入() : ComboBox5下拉表單資料載入() : ComboBox6下拉表單資料載入() : ComboBox7下拉表單資料載入() : ComboBox8下拉表單資料載入() : ComboBox9下拉表單資料載入()
            ComboBox1下拉表單資料載入() : ComboBox2下拉表單資料載入() : ComboBox3下拉表單資料載入() : ComboBox13下拉表單資料載入() : ComboBox14下拉表單資料載入()
            選擇項_bt.Text = e.RowIndex
            ToPort_cb.Text = 表單1_dgv.Rows(e.RowIndex).Cells("ToPort").Value : ModeOfDelivery_cb.Text = 表單1_dgv.Rows(e.RowIndex).Cells("ModeOfDelivery").Value
            DeliveryTerms_cb.Text = 表單1_dgv.Rows(e.RowIndex).Cells("DeliveryTerms").Value : FromPort_cb.Text = 表單1_dgv.Rows(e.RowIndex).Cells("FromPort").Value
            客戶訂單號_tb.Text = 表單1_dgv.Rows(e.RowIndex).Cells("客戶訂單號").Value : 備註3_tb.Text = 表單1_dgv.Rows(e.RowIndex).Cells("DeliveryAddress").Value
            工廠_cb.Text = 表單1_dgv.Rows(e.RowIndex).Cells("工廠").Value : FromPort_cb.Text = 表單1_dgv.Rows(e.RowIndex).Cells("FromPort").Value
            C_N_cb.Text = 表單1_dgv.Rows(e.RowIndex).Cells("ConstructionName").Value : 訂單流水號_tb.Text = 表單1_dgv.Rows(e.RowIndex).Cells("訂單流水號").Value
            客戶_cb.Text = 表單1_dgv.Rows(e.RowIndex).Cells("Brand").Value
            客戶名稱_cb.Text = 表單1_dgv.Rows(e.RowIndex).Cells("CustomerName").Value.ToString()

            If 表單1_dgv.Rows(e.RowIndex).Cells("交期").Value.ToString = "" Then : Else : 交期_dtp.Value = 表單1_dgv.Rows(e.RowIndex).Cells("交期").Value : End If
            If 表單1_dgv.Rows(e.RowIndex).Cells("下單日").Value.ToString = "" Then : Else : 下單日_dtp.Value = 表單1_dgv.Rows(e.RowIndex).Cells("下單日").Value : End If
            SQL_DELIVERYADDRESS()
            If dr.Read() Then : Remark_cb.Text = dr("REMARK").ToString : End If : conn.Close()

            Set_清單3() : Set_清單4()
            訂單數量_tb.Text = "0.00"
            For i As Integer = 0 To 表單4_dgv.Rows.Count - 1
                表單3_dgv.Rows(i).Cells("訂單數量").Value = 表單4_dgv.Rows(i).Cells("4").Value + 表單4_dgv.Rows(i).Cells("4.5").Value + 表單4_dgv.Rows(i).Cells("5").Value +
                表單4_dgv.Rows(i).Cells("5.5").Value + 表單4_dgv.Rows(i).Cells("6").Value + 表單4_dgv.Rows(i).Cells("6.5").Value + 表單4_dgv.Rows(i).Cells("7").Value +
                表單4_dgv.Rows(i).Cells("7.5").Value + 表單4_dgv.Rows(i).Cells("8").Value + 表單4_dgv.Rows(i).Cells("8.5").Value + 表單4_dgv.Rows(i).Cells("9").Value +
                表單4_dgv.Rows(i).Cells("9.5").Value + 表單4_dgv.Rows(i).Cells("10").Value + 表單4_dgv.Rows(i).Cells("10.5").Value + 表單4_dgv.Rows(i).Cells("11").Value +
                表單4_dgv.Rows(i).Cells("11.5").Value + 表單4_dgv.Rows(i).Cells("12").Value + 表單4_dgv.Rows(i).Cells("12.5").Value + 表單4_dgv.Rows(i).Cells("13").Value +
                表單4_dgv.Rows(i).Cells("14").Value
            Next i
            For i As Integer = 0 To 表單3_dgv.Rows.Count - 1
                訂單數量_tb.Text = Val(訂單數量_tb.Text) + 表單3_dgv.Rows(i).Cells("訂單數量").Value
            Next i
            訂單數量_tb.Text = Format(Val(訂單數量_tb.Text), "#,##0.00")
            If 表單3_dgv.Rows.Count > 0 Then
                季節_cb.Text = 表單3_dgv.Rows(0).Cells("年份季度").Value : 訂單屬性_cb.Text = 表單3_dgv.Rows(0).Cells("訂單屬性").Value
            End If
        End If
    End Sub
    Private Sub 表單2_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 表單2_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            新顏色資料_tb.Text = 表單2_dgv.Rows(e.RowIndex).Cells("顏色").Value
            If 表單2_dgv.Rows(e.RowIndex).Cells("選擇").Value = False Then : 表單2_dgv.Rows(e.RowIndex).Cells("選擇").Value = True
            ElseIf 表單2_dgv.Rows(e.RowIndex).Cells("選擇").Value = True Then : 表單2_dgv.Rows(e.RowIndex).Cells("選擇").Value = False : End If
        End If
    End Sub
    Private Sub 表單3_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 表單3_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            資料流水號_tb.Text = 表單3_dgv.Rows(e.RowIndex).Cells("資料流水號").Value : 訂單屬性_cb.Text = 表單3_dgv.Rows(e.RowIndex).Cells("訂單屬性").Value
            型體號碼_cb.Text = 表單3_dgv.Rows(e.RowIndex).Cells("型體號碼").Value : 型體名稱_cb.Text = 表單3_dgv.Rows(e.RowIndex).Cells("型體名稱").Value
            DM_cb.Text = 表單3_dgv.Rows(e.RowIndex).Cells("楦型").Value : 舊顏色資料_tb.Text = 表單3_dgv.Rows(e.RowIndex).Cells("顏色").Value
        End If
    End Sub
    Private Sub 表單4_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 表單4_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            資料流水號_tb.Text = 表單4_dgv.Rows(e.RowIndex).Cells("資料流水號").Value : 型體號碼_cb.Text = 表單4_dgv.Rows(e.RowIndex).Cells("ItemNumber").Value
            型體名稱_cb.Text = 表單4_dgv.Rows(e.RowIndex).Cells("ProductName").Value : DM_cb.Text = 表單4_dgv.Rows(e.RowIndex).Cells("DM").Value
            舊顏色資料_tb.Text = 表單4_dgv.Rows(e.RowIndex).Cells("Color").Value
        End If
    End Sub
    Private Sub 表單3_dgv_CellEndEdit(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles 表單3_dgv.CellEndEdit
        Dim EU(2) As String
        EU(0) = 表單3_dgv("交期開始", e.RowIndex).Value.ToString
        If EU(0) = "" Then
        Else
            日期3_dtp.Text = EU(0)
            表單3_dgv.Rows(e.RowIndex).Cells("交期開始").Value = Format(日期3_dtp.Value, "yyyy/MM/dd")
        End If
        EU(1) = 表單3_dgv("交期結束", e.RowIndex).Value.ToString
        If EU(1) = "" Then
        Else
            日期3_dtp.Text = EU(1)
            表單3_dgv.Rows(e.RowIndex).Cells("交期結束").Value = Format(日期3_dtp.Value, "yyyy/MM/dd")
        End If
        EU(2) = 表單3_dgv("工廠交期", e.RowIndex).Value.ToString
        If EU(2) = "" Then
        Else
            日期3_dtp.Text = EU(2)
            表單3_dgv.Rows(e.RowIndex).Cells("工廠交期").Value = Format(日期3_dtp.Value, "yyyy/MM/dd")
        End If
    End Sub
    Private Sub DataGridView5_CellContentClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 表單4_dgv.CellEndEdit
        訂單數量_tb.Text = "0"
        For i As Integer = 0 To 表單4_dgv.Rows.Count - 1
            表單3_dgv.Rows(i).Cells("訂單數量").Value = 表單4_dgv.Rows(i).Cells("4").Value + 表單4_dgv.Rows(i).Cells("4.5").Value + 表單4_dgv.Rows(i).Cells("5").Value +
                表單4_dgv.Rows(i).Cells("5.5").Value + 表單4_dgv.Rows(i).Cells("6").Value + 表單4_dgv.Rows(i).Cells("6.5").Value + 表單4_dgv.Rows(i).Cells("7").Value +
                表單4_dgv.Rows(i).Cells("7.5").Value + 表單4_dgv.Rows(i).Cells("8").Value + 表單4_dgv.Rows(i).Cells("8.5").Value + 表單4_dgv.Rows(i).Cells("9").Value +
                表單4_dgv.Rows(i).Cells("9.5").Value + 表單4_dgv.Rows(i).Cells("10").Value + 表單4_dgv.Rows(i).Cells("10.5").Value + 表單4_dgv.Rows(i).Cells("11").Value +
                表單4_dgv.Rows(i).Cells("11.5").Value + 表單4_dgv.Rows(i).Cells("12").Value + 表單4_dgv.Rows(i).Cells("12.5").Value + 表單4_dgv.Rows(i).Cells("13").Value +
                表單4_dgv.Rows(i).Cells("14").Value
        Next i
        For i As Integer = 0 To 表單3_dgv.Rows.Count - 1
            訂單數量_tb.Text = Val(訂單數量_tb.Text) + 表單3_dgv.Rows(i).Cells("訂單數量").Value
        Next i
        訂單數量_tb.Text = Format(Val(訂單數量_tb.Text), "#,##0")
    End Sub
    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 客戶_cb.TextChanged
        ComboBox11下拉表單資料載入()
    End Sub
    Private Sub ComboBox11_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 型體號碼_cb.TextChanged
        ComboBox12下拉表單資料載入()
    End Sub
    Private Sub ComboBox8_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Remark_cb.TextChanged
        SQL_DELIVERYADDRESS1()
        If dr.Read() Then : 備註3_tb.Text = dr("DELIVERYADDRESS").ToString : End If : conn.Close()
    End Sub
    Private Sub ComboBox9_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 工廠_cb.TextChanged
        SQL_工廠控制表2()
        If dr.Read() Then : 備註1_tb.Text = dr("供應商資料").ToString : 備註2_tb.Text = dr("供應商地址").ToString : End If : conn.Close()
    End Sub
    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles 搜尋顏色_tb.TextChanged
        Set_清單1()
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles 搜尋_bt.Click
        PA = InputBox("請輸入要查詢的關鍵字") : Set_清單2() : PA = ""
    End Sub
    Private Sub Button16_Click(sender As Object, e As EventArgs) Handles 新增清單_bt.Click
        FACTORY_資料管理.ShowDialog() : ComboBox9下拉表單資料載入()
    End Sub
    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles AddRemark_bt.Click
        DELIVERY_ADDRESS__資料管理.ShowDialog() : ComboBox8下拉表單資料載入()
    End Sub
    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles 新增清單1_bt.Click
        清單修改.Close() : 交貨條件修改 = True : 清單修改.ShowDialog() : ComboBox5下拉表單資料載入() : 交貨條件修改 = False
    End Sub
    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles 新增清單2_bt.Click
        清單修改.Close() : 港口清單修改 = True : 清單修改.ShowDialog() : ComboBox6下拉表單資料載入() : 港口清單修改 = False
    End Sub
    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles 新增清單3_bt.Click
        清單修改.Close() : 到港清單修改 = True : 清單修改.ShowDialog() : ComboBox7下拉表單資料載入() : 到港清單修改 = False
    End Sub
    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles 新增清單4_bt.Click
        清單修改.Close() : 交貨管道修改 = True : 清單修改.ShowDialog() : ComboBox4下拉表單資料載入() : 交貨管道修改 = False
    End Sub
    Private Sub Button13_Click(sender As Object, e As EventArgs) Handles 全部取消_bt.Click
        For i As Integer = 0 To 表單2_dgv.Rows.Count - 1
            表單2_dgv.Rows(i).Cells("選擇").Value = False
        Next i
    End Sub
    Private Sub Button14_Click(sender As Object, e As EventArgs) Handles 資料全選_bt.Click
        For i As Integer = 0 To 表單2_dgv.Rows.Count - 1
            表單2_dgv.Rows(i).Cells("選擇").Value = True
        Next i
    End Sub
    Private Sub Button15_Click(sender As Object, e As EventArgs) Handles 刪除該流水號指定資料_bt.Click
        If 資料流水號_tb.Text = "" Then
            MsgBox("未選擇需要刪除的資料")
        Else
            SQL_刪除訂單控制表() : conn.Close()
            SQL_刪除訂單明細表() : conn.Close()
            Set_清單3() : Set_清單4()
        End If
    End Sub
    Private Sub Set_日期格式轉換()
        DTP = Format(Today(), "yyyy/MM/dd") : DTP1 = Format(Today(), "yyyyMMdd")
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 生成量產訂單號碼_bt.Click
        Dim aa1 As MsgBoxResult
        aa1 = MsgBox("確定要生成--新的--量產訂單號碼?", MsgBoxStyle.OkCancel)
        If aa1 = MsgBoxResult.Ok Then
            生成量產訂單號碼_bt.Enabled = False : 套用已有量產訂單號_bt.Enabled = False : 生成量產訂單抬頭_bt.Enabled = True : 存檔_bt.Enabled = False
        End If
    End Sub
    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles 套用已有量產訂單號_bt.Click
        If 訂單流水號_tb.Text = "" Then
            MsgBox("請先選擇量產訂單號")
        Else
            生成量產訂單號碼_bt.Enabled = False : 套用已有量產訂單號_bt.Enabled = False : 生成訂單SIZERUN_bt.Enabled = True : 存檔_bt.Enabled = True
        End If
    End Sub
    Private Sub 生成量產訂單抬頭_bt_Click(sender As Object, e As EventArgs) Handles 生成量產訂單抬頭_bt.Click
        If 客戶_cb.Text = "" Then : MsgBox("客戶  資料不可空白!!! " & vbCrLf & " 生成量產訂單抬頭之前，請注意訂單資料不可有誤!!!") : Else
            If 客戶訂單號_tb.Text = "" Then : MsgBox("客戶訂單號  資料不可空白!!! " & vbCrLf & " 生成量產訂單抬頭之前，請注意訂單資料不可有誤!!!") : Else
                If ModeOfDelivery_cb.Text = "" Then : MsgBox("Mode Of Delivery  資料不可空白!!! " & vbCrLf & " 生成量產訂單抬頭之前，請注意訂單資料不可有誤!!!") : Else
                    If DeliveryTerms_cb.Text = "" Then : MsgBox("Delivery Terms  資料不可空白!!! " & vbCrLf & " 生成量產訂單抬頭之前，請注意訂單資料不可有誤!!!") : Else
                        If FromPort_cb.Text = "" Then : MsgBox("From Port  資料不可空白!!! " & vbCrLf & " 生成量產訂單抬頭之前，請注意訂單資料不可有誤!!!") : Else
                            If ToPort_cb.Text = "" Then : MsgBox("To Port  資料不可空白!!! " & vbCrLf & " 生成量產訂單抬頭之前，請注意訂單資料不可有誤!!!") : Else
                                If Remark_cb.Text = "" Then : MsgBox("Remark  資料不可空白!!! " & vbCrLf & " 生成量產訂單抬頭之前，請注意訂單資料不可有誤!!!") : Else
                                    If 工廠_cb.Text = "" Then : MsgBox("工廠  資料不可空白!!! " & vbCrLf & " 生成量產訂單抬頭之前，請注意訂單資料不可有誤!!!") : Else
                                        If 客戶名稱_cb.Text = "" Then : MsgBox("客戶名稱  資料不可空白!!! " & vbCrLf & " 生成量產訂單抬頭之前，請注意訂單資料不可有誤!!!") : Else
                                            If 季節_cb.Text = "" Then : MsgBox("季節  資料不可空白!!! " & vbCrLf & " 生成量產訂單抬頭之前，請注意訂單資料不可有誤!!!") : Else
                                                SQL_訂單重複查詢()
                                                If dr.Read Then : MsgBox("客戶訂單號重複，請重新確認訂單資料是否已經有建檔過!!")
                                                    生成量產訂單號碼_bt.Enabled = True : 套用已有量產訂單號_bt.Enabled = True : 生成量產訂單抬頭_bt.Enabled = False
                                                    生成訂單SIZERUN_bt.Enabled = False : 存檔_bt.Enabled = False : Exit Sub
                                                End If
                                                Dim NUM0 As Integer
                                                Set_日期格式轉換()
                                                For i As Integer = 1 To 999
                                                    NUM0 = 0 + i
                                                    If NUM0 < 10 Then : 訂單流水號_tb.Text = "WP-" & DTP1 & "-00" & NUM0
                                                    ElseIf NUM0 > 9 And NUM0 < 100 Then : 訂單流水號_tb.Text = "WP-" & DTP1 & "-0" & NUM0
                                                    ElseIf NUM0 > 99 Then : 訂單流水號_tb.Text = "WP-" & DTP1 & "-" & NUM0
                                                    End If
                                                    SQL_第一筆訂單流水號()
                                                    If dr.Read() Then : Else : i = 999 : conn.Close() : End If : conn.Close()
                                                Next
                                                SQL_新增訂單明細表抬頭() : conn.Close()
                                                生成量產訂單號碼_bt.Enabled = False : 套用已有量產訂單號_bt.Enabled = False
                                                生成量產訂單抬頭_bt.Enabled = False : 生成訂單SIZERUN_bt.Enabled = True
                                            End If : End If : End If : End If : End If : End If : End If : End If : End If : End If
    End Sub
    Private Sub 生成訂單SIZERUN_bt_Click(sender As Object, e As EventArgs) Handles 生成訂單SIZERUN_bt.Click
        If DM_cb.Text = "" Then
            MsgBox("沒有選擇楦型。")
        Else
            For i As Integer = 0 To 表單2_dgv.Rows.Count - 1
                資料數 = 表單2_dgv.Rows.Count : MyModule1.進度條()
                If 表單2_dgv.Rows(i).Cells("選擇").Value = True Then
                    SQL_資料流水號()
                    If dr.Read() Then : 資料流水號_tb.Text = dr("資料流水號").ToString : Else : 資料流水號_tb.Text = "PO00000000" : End If
                    conn.Close()
                    Dim NUM1 As Integer
                    NUM1 = Double.Parse(Strings.Right(資料流水號_tb.Text, 8)) + 1
                    If NUM1 < 10 Then : 資料流水號_tb.Text = "PO" & "0000000" & NUM1
                    ElseIf NUM1 > 9 And NUM1 < 100 Then : 資料流水號_tb.Text = "PO" & "000000" & NUM1
                    ElseIf NUM1 > 99 And NUM1 < 1000 Then : 資料流水號_tb.Text = "PO" & "00000" & NUM1
                    ElseIf NUM1 > 999 And NUM1 < 10000 Then : 資料流水號_tb.Text = "PO" & "0000" & NUM1
                    ElseIf NUM1 > 9999 And NUM1 < 100000 Then : 資料流水號_tb.Text = "PO" & "000" & NUM1
                    ElseIf NUM1 > 99999 And NUM1 < 100000 Then : 資料流水號_tb.Text = "PO" & "00" & NUM1
                    ElseIf NUM1 > 999999 And NUM1 < 1000000 Then : 資料流水號_tb.Text = "PO" & "0" & NUM1
                    ElseIf NUM1 > 9999999 Then : 資料流水號_tb.Text = "PO" & NUM1 + 1
                    End If
                    PA3 = 表單2_dgv.Rows(i).Cells("顏色").Value
                    SQL_新增訂單控制表() : conn.Close()
                    SQL_新增訂單明細表() : conn.Close()
                End If
            Next i : WINPROFIT_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
            Set_清單3() : Set_清單4() : ComboBox1下拉表單資料載入()
            存檔_bt.Enabled = True
        End If
    End Sub
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
        SQL_更改訂單明細表抬頭() : conn.Close()
        For i As Integer = 0 To 表單3_dgv.Rows.Count - 1
            資料數 = 表單3_dgv.Rows.Count : MyModule1.進度條()
            PA4 = 表單3_dgv.Rows(i).Cells("訂單數量").Value.ToString : PA5 = 表單3_dgv.Rows(i).Cells("交期開始").Value.ToString
            PA6 = 表單3_dgv.Rows(i).Cells("交期結束").Value.ToString : PA7 = 表單3_dgv.Rows(i).Cells("備註").Value.ToString
            PA8 = 表單3_dgv.Rows(i).Cells("工廠交期").Value.ToString : PA9 = 表單3_dgv.Rows(i).Cells("BUYER").Value.ToString
            PA10 = 表單3_dgv.Rows(i).Cells("顏色").Value.ToString : PA11 = 表單3_dgv.Rows(i).Cells("資料流水號").Value.ToString
            PA13 = 表單3_dgv.Rows(i).Cells("HTS").Value.ToString : PA14 = 表單3_dgv.Rows(i).Cells("DUTY").Value.ToString
            SQL_更改訂單控制表() : conn.Close()
        Next i : WINPROFIT_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
        For i As Integer = 0 To 表單4_dgv.Rows.Count - 1
            資料數 = 表單4_dgv.Rows.Count : MyModule1.進度條()
            PA12 = 表單4_dgv.Rows(i).Cells("4").Value : PA13 = 表單4_dgv.Rows(i).Cells("4.5").Value
            PA14 = 表單4_dgv.Rows(i).Cells("5").Value : PA15 = 表單4_dgv.Rows(i).Cells("5.5").Value
            PA16 = 表單4_dgv.Rows(i).Cells("6").Value : PA17 = 表單4_dgv.Rows(i).Cells("6.5").Value
            PA18 = 表單4_dgv.Rows(i).Cells("7").Value : PA19 = 表單4_dgv.Rows(i).Cells("7.5").Value
            PA20 = 表單4_dgv.Rows(i).Cells("8").Value : PA21 = 表單4_dgv.Rows(i).Cells("8.5").Value
            PA22 = 表單4_dgv.Rows(i).Cells("9").Value : PA23 = 表單4_dgv.Rows(i).Cells("9.5").Value
            PA24 = 表單4_dgv.Rows(i).Cells("10").Value : PA25 = 表單4_dgv.Rows(i).Cells("10.5").Value
            PA26 = 表單4_dgv.Rows(i).Cells("11").Value : PA27 = 表單4_dgv.Rows(i).Cells("11.5").Value
            PA28 = 表單4_dgv.Rows(i).Cells("12").Value : PA29 = 表單4_dgv.Rows(i).Cells("12.5").Value
            PA30 = 表單4_dgv.Rows(i).Cells("13").Value : PA31 = 表單4_dgv.Rows(i).Cells("14").Value
            PA32 = 表單4_dgv.Rows(i).Cells("Color").Value : PA33 = 表單4_dgv.Rows(i).Cells("資料流水號").Value
            SQL_更改訂單明細表() : conn.Close()
        Next i : WINPROFIT_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
        MsgBox("存檔完成。") : Set_清單2()
        生成量產訂單號碼_bt.Enabled = True : 套用已有量產訂單號_bt.Enabled = True : 生成量產訂單抬頭_bt.Enabled = False : 生成訂單SIZERUN_bt.Enabled = False
        存檔_bt.Enabled = False
    End Sub
    Private Sub 顏色資料修改_bt_Click(sender As Object, e As EventArgs) Handles 顏色資料修改_bt.Click
        SQL_更改訂單明細表抬頭() : conn.Close()
        For i As Integer = 0 To 表單3_dgv.Rows.Count - 1
            資料數 = 表單3_dgv.Rows.Count : MyModule1.進度條() : PA1 = 表單3_dgv.Rows(i).Cells("客戶訂單號").Value.ToString
            PA2 = 表單3_dgv.Rows(i).Cells("型體名稱").Value.ToString : PA3 = 表單3_dgv.Rows(i).Cells("型體號碼").Value.ToString
            PA4 = 表單3_dgv.Rows(i).Cells("訂單數量").Value.ToString : PA5 = 表單3_dgv.Rows(i).Cells("交期開始").Value.ToString
            PA6 = 表單3_dgv.Rows(i).Cells("交期結束").Value.ToString : PA7 = 表單3_dgv.Rows(i).Cells("備註").Value.ToString
            PA8 = 表單3_dgv.Rows(i).Cells("工廠交期").Value.ToString : PA9 = 表單3_dgv.Rows(i).Cells("BUYER").Value.ToString
            PA10 = 表單3_dgv.Rows(i).Cells("顏色").Value.ToString : PA11 = 表單3_dgv.Rows(i).Cells("資料流水號").Value.ToString
            PA12 = 表單3_dgv.Rows(i).Cells("BUYER").Value.ToString : PA13 = 表單3_dgv.Rows(i).Cells("HTS").Value.ToString
            PA14 = 表單3_dgv.Rows(i).Cells("DUTY").Value.ToString
            SQL_修改訂單控制表() : SQL_更改訂單控制表() : conn.Close()
        Next i : WINPROFIT_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
        For i As Integer = 0 To 表單4_dgv.Rows.Count - 1
            資料數 = 表單4_dgv.Rows.Count : MyModule1.進度條() : PA9 = 表單4_dgv.Rows(i).Cells("客戶訂單號").Value
            PA11 = 表單4_dgv.Rows(i).Cells("ItemNumber").Value : PA10 = 表單4_dgv.Rows(i).Cells("ProductName").Value
            PA12 = 表單4_dgv.Rows(i).Cells("4").Value : PA13 = 表單4_dgv.Rows(i).Cells("4.5").Value
            PA14 = 表單4_dgv.Rows(i).Cells("5").Value : PA15 = 表單4_dgv.Rows(i).Cells("5.5").Value
            PA16 = 表單4_dgv.Rows(i).Cells("6").Value : PA17 = 表單4_dgv.Rows(i).Cells("6.5").Value
            PA18 = 表單4_dgv.Rows(i).Cells("7").Value : PA19 = 表單4_dgv.Rows(i).Cells("7.5").Value
            PA20 = 表單4_dgv.Rows(i).Cells("8").Value : PA21 = 表單4_dgv.Rows(i).Cells("8.5").Value
            PA22 = 表單4_dgv.Rows(i).Cells("9").Value : PA23 = 表單4_dgv.Rows(i).Cells("9.5").Value
            PA24 = 表單4_dgv.Rows(i).Cells("10").Value : PA25 = 表單4_dgv.Rows(i).Cells("10.5").Value
            PA26 = 表單4_dgv.Rows(i).Cells("11").Value : PA27 = 表單4_dgv.Rows(i).Cells("11.5").Value
            PA28 = 表單4_dgv.Rows(i).Cells("12").Value : PA29 = 表單4_dgv.Rows(i).Cells("12.5").Value
            PA30 = 表單4_dgv.Rows(i).Cells("13").Value : PA31 = 表單4_dgv.Rows(i).Cells("14").Value
            PA32 = 表單4_dgv.Rows(i).Cells("Color").Value : PA33 = 表單4_dgv.Rows(i).Cells("資料流水號").Value

            SQL_修改訂單明細表() : SQL_更改訂單明細表() : conn.Close()
        Next i : WINPROFIT_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
        MsgBox("存檔完成。") : Set_清單2()
        表單1_dgv.FirstDisplayedScrollingRowIndex = CInt(選擇項_bt.Text)
        表單1_dgv.Rows(CInt(選擇項_bt.Text)).Selected = True
    End Sub

    Private Sub 型體號碼_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 型體號碼_cb.SelectedIndexChanged
        For i As Integer = 0 To 表單3_dgv.Rows.Count - 1
            If 表單3_dgv.Rows(i).Cells("型體號碼").Value.ToString = "" Then
                表單3_dgv.Rows(i).Cells("型體號碼").Value = 型體號碼_cb.Text
            End If
        Next
        For i As Integer = 0 To 表單4_dgv.Rows.Count - 1
            If 表單4_dgv.Rows(i).Cells("ItemNumber").Value.ToString = "" Then
                表單4_dgv.Rows(i).Cells("ItemNumber").Value = 型體號碼_cb.Text
            End If
        Next
    End Sub

    Private Sub 型體名稱_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 型體名稱_cb.SelectedIndexChanged
        For i As Integer = 0 To 表單3_dgv.Rows.Count - 1
            If 表單3_dgv.Rows(i).Cells("型體名稱").Value.ToString = "" Then
                表單3_dgv.Rows(i).Cells("型體名稱").Value = 型體名稱_cb.Text
            End If
        Next
        For i As Integer = 0 To 表單4_dgv.Rows.Count - 1
            If 表單4_dgv.Rows(i).Cells("ProductName").Value.ToString = "" Then
                表單4_dgv.Rows(i).Cells("ProductName").Value = 型體名稱_cb.Text
            End If
        Next
    End Sub
    Private Sub 季節_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 季節_cb.SelectedIndexChanged
        For i As Integer = 0 To 表單3_dgv.Rows.Count - 1
            If 表單3_dgv.Rows(i).Cells("年份季度").Value.ToString = "" Then
                表單3_dgv.Rows(i).Cells("年份季度").Value = 季節_cb.Text
            End If
        Next
    End Sub
    Private Sub 客戶訂單號_tb_TextChanged(sender As Object, e As EventArgs) Handles 客戶訂單號_tb.TextChanged
        For i As Integer = 0 To 表單3_dgv.Rows.Count - 1
            表單3_dgv.Rows(i).Cells("客戶訂單號").Value = 客戶訂單號_tb.Text
        Next
        For i As Integer = 0 To 表單4_dgv.Rows.Count - 1
            表單4_dgv.Rows(i).Cells("客戶訂單號").Value = 客戶訂單號_tb.Text
        Next
    End Sub
    Private Sub 新增顏色_bt_Click(sender As Object, e As EventArgs) Handles 新增顏色_bt.Click
        清單修改.Close() : 訂單顏色修改 = True : 清單修改.ShowDialog() : Set_清單1() : 訂單顏色修改 = False
    End Sub
    Private Sub 客戶_cb_SelectedIndexChanged_1(sender As Object, e As EventArgs) Handles 客戶_cb.SelectedIndexChanged
        For i As Integer = 0 To 表單3_dgv.Rows.Count - 1
            表單3_dgv.Rows(i).Cells("BUYER").Value = 客戶_cb.Text
        Next
    End Sub
    Private Sub 表單3_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 表單3_dgv.MouseUp
        If 表單3_dgv.SelectedCells.Count = 1 Then
            已超出 = False
        End If
        If 表單3_dgv.SelectedCells.Count > 0 Then
            '設定滑鼠點擊DGV時候的範圍，超出範圍時有可能不是數字所以不計算
            If 表單3_dgv.SelectedCells(0).ColumnIndex = 7 Then
                If 已超出 = False Then
                    Dim x As Double = 0
                    For i As Integer = 0 To 表單3_dgv.SelectedCells.Count - 1
                        '流水帳_dgv.SelectedCells.Item(i).ColumnIndex + 8 是因為該DGV顯示項與計算像剛好差8格，使用時要注意可直接計算的不需要加數字。
                        x += Val(表單3_dgv.Rows(表單3_dgv.SelectedCells.Item(i).RowIndex).Cells(表單3_dgv.SelectedCells.Item(i).ColumnIndex).Value)
                    Next i
                    '將計算好的資料放置到指定的控件中

                    WINPROFIT_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")
                Else

                    WINPROFIT_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
                End If
            Else
                已超出 = True
                WINPROFIT_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
            End If
        End If
    End Sub
    Private Sub 表單4_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 表單4_dgv.MouseUp
        If 表單4_dgv.SelectedCells.Count = 1 Then
            已超出 = False
        End If
        If 表單4_dgv.SelectedCells.Count > 0 Then
            '設定滑鼠點擊DGV時候的範圍，超出範圍時有可能不是數字所以不計算
            If 表單4_dgv.SelectedCells(0).ColumnIndex >= 7 And 表單4_dgv.SelectedCells(0).ColumnIndex <= 25 Then
                If 已超出 = False Then
                    Dim x As Double = 0
                    For i As Integer = 0 To 表單4_dgv.SelectedCells.Count - 1
                        '流水帳_dgv.SelectedCells.Item(i).ColumnIndex + 8 是因為該DGV顯示項與計算像剛好差8格，使用時要注意可直接計算的不需要加數字。
                        x += Val(表單4_dgv.Rows(表單4_dgv.SelectedCells.Item(i).RowIndex).Cells(表單4_dgv.SelectedCells.Item(i).ColumnIndex).Value)
                    Next i
                    '將計算好的資料放置到指定的控件中

                    WINPROFIT_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")
                Else

                    WINPROFIT_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
                End If
            Else
                已超出 = True
                WINPROFIT_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
            End If
        End If
    End Sub
End Class