TENDEN-MES-SYS-LEEHSIEHJUI/TENDEN-MES-SYS/量產訂單管理/訂單資料比對與修改...

Option Strict Off
Public Class 訂單資料比對與修改_力威
    Dim xlApp As Microsoft.Office.Interop.Excel.Application
    ReadOnly xlBook As Microsoft.Office.Interop.Excel.Workbook
    Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
    Dim file_name As String = "" : Dim 形體名稱 As String : Dim 型體描述 As String : Dim 項目 As String : Dim 型體資料 As String : Dim STR1 As String
    Public 平均數 As Integer : Public 最終數 As Integer = 0 : Public 資料數 As Integer = 0
    Public 平均數1 As Integer : Public 最終數1 As Integer = 0 : Public 資料數1 As Integer = 0
    Public 平均數2 As Integer : Public 最終數2 As Integer = 0 : Public 資料數2 As Integer = 0
    Public 平均數3 As Integer : Public 最終數3 As Integer = 0 : Public 資料數3 As Integer = 0
    ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet : ReadOnly ds3 As New DataSet : ReadOnly ds4 As New DataSet
    Private Sub Set_訂單清單()
        抬頭清單_dgv.DataSource = Nothing : ds.Clear()
        抬頭清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        抬頭清單_dgv.ColumnHeadersHeight = 25
        抬頭清單_dgv.AllowUserToAddRows = False
        ConnOpen()
        SQL1 = "SELECT      客戶訂單號, 天盾流水號, ModeOfDelivery, DeliveryTerms, OrgShipDate, FromPort, ToPort, ShippingCarrier, 
                            VendorReference, ModifiedDate, CustomerName, ShipDate, SalesOrder, DeliveryAddress, 下單日, 交期, ETADate, 
                            CreatedDate, Brand, CustomerRequisition, 工廠編號, 工廠地址, 代理編號, 訂貨代理, 總雙數, 總案件數, 公司, 
                            工廠簡稱, 最終運送, 入單型態
                FROM        " & 訂單資料表(0) & "
                WHERE       客戶訂單號 LIKE '%" & PA & "%' OR 天盾流水號 LIKE '%" & PA & "%' OR CustomerRequisition LIKE '%" & PA & "%' AND 入單型態 LIKE '2'
                ORDER BY    天盾流水號 DESC"
        CmdSet_For_DGV() : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds) : 抬頭清單_dgv.DataSource = ds.Tables(0) : conn.Close()

        抬頭清單_dgv.Columns(0).FillWeight = 80 : 抬頭清單_dgv.Columns(1).FillWeight = 80 : 抬頭清單_dgv.Columns(2).Visible = False : 抬頭清單_dgv.Columns(3).Visible = False
        抬頭清單_dgv.Columns(4).Visible = False : 抬頭清單_dgv.Columns(5).Visible = False : 抬頭清單_dgv.Columns(6).Visible = False : 抬頭清單_dgv.Columns(7).Visible = False
        抬頭清單_dgv.Columns(8).Visible = False : 抬頭清單_dgv.Columns(9).Visible = False : 抬頭清單_dgv.Columns(10).Visible = False : 抬頭清單_dgv.Columns(11).Visible = False
        抬頭清單_dgv.Columns(12).Visible = False : 抬頭清單_dgv.Columns(13).Visible = False : 抬頭清單_dgv.Columns(14).Visible = False : 抬頭清單_dgv.Columns(15).Visible = False
        抬頭清單_dgv.Columns(16).Visible = False : 抬頭清單_dgv.Columns(17).Visible = False : 抬頭清單_dgv.Columns(18).Visible = False : 抬頭清單_dgv.Columns(19).Visible = False
        抬頭清單_dgv.Columns(20).Visible = False : 抬頭清單_dgv.Columns(21).Visible = False : 抬頭清單_dgv.Columns(22).Visible = False : 抬頭清單_dgv.Columns(23).Visible = False
        抬頭清單_dgv.Columns(24).Visible = False : 抬頭清單_dgv.Columns(25).Visible = False : 抬頭清單_dgv.Columns(26).Visible = False : 抬頭清單_dgv.Columns(27).Visible = False
        抬頭清單_dgv.Columns(28).Visible = False : 抬頭清單_dgv.Columns(29).Visible = False
    End Sub
    Private Sub Set_訂單控制表()
        控制表1_dgv.DataSource = Nothing : ds1.Clear()
        控制表1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        控制表1_dgv.ColumnHeadersHeight = 25
        控制表1_dgv.AllowUserToAddRows = False

        控制表2_dgv.DataSource = Nothing : ds1.Clear()
        控制表2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        控制表2_dgv.ColumnHeadersHeight = 25
        控制表2_dgv.AllowUserToAddRows = False
        ConnOpen()
        SQL1 = "SELECT      訂單流水號, 年份季度, 客戶訂單號, 形體號, 顏色, 楦型, 訂單數量, 客戶交期, 
                            備註, 生產工廠, 訂單種類, 實際離廠日, 出貨數量, CXL, CXLTime, 工廠回復交期, 力威訂單號, ProductID, UoM, 資料流水號
                FROM        " & 訂單資料表(1) & "
                WHERE       訂單流水號 LIKE '" & Number1_tb.Text & "'
                ORDER BY 資料流水號"
        CmdSet_For_DGV() : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds1) : 控制表1_dgv.DataSource = ds1.Tables(0) : 控制表2_dgv.DataSource = ds1.Tables(0) : conn.Close()

        控制表1_dgv.Columns(0).FillWeight = 80 : 控制表1_dgv.Columns(1).FillWeight = 70 : 控制表1_dgv.Columns(2).FillWeight = 80 : 控制表1_dgv.Columns(3).FillWeight = 80
        控制表1_dgv.Columns(4).FillWeight = 80 : 控制表1_dgv.Columns(5).FillWeight = 60 : 控制表1_dgv.Columns(6).FillWeight = 80 : 控制表1_dgv.Columns(7).FillWeight = 80
        控制表1_dgv.Columns(8).FillWeight = 60 : 控制表1_dgv.Columns(9).FillWeight = 70 : 控制表1_dgv.Columns(10).FillWeight = 80 : 控制表1_dgv.Columns(11).FillWeight = 80
        控制表1_dgv.Columns(12).FillWeight = 80 : 控制表1_dgv.Columns(13).FillWeight = 50 : 控制表1_dgv.Columns(14).FillWeight = 80 : 控制表1_dgv.Columns(15).FillWeight = 70
        控制表1_dgv.Columns(16).FillWeight = 80 : 控制表1_dgv.Columns(17).FillWeight = 110 : 控制表1_dgv.Columns(18).FillWeight = 60 : 控制表1_dgv.Columns(19).FillWeight = 90

        控制表1_dgv.Columns("訂單數量").DefaultCellStyle.Format = "#,##0" : 控制表1_dgv.Columns("出貨數量").DefaultCellStyle.Format = "#,##0"
        控制表1_dgv.Columns("訂單數量").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        控制表1_dgv.Columns("訂單數量").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        控制表1_dgv.Columns("出貨數量").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        控制表1_dgv.Columns("出貨數量").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight

        控制表2_dgv.Columns(0).FillWeight = 80 : 控制表2_dgv.Columns(1).FillWeight = 70 : 控制表2_dgv.Columns(2).FillWeight = 80 : 控制表2_dgv.Columns(3).FillWeight = 80
        控制表2_dgv.Columns(4).FillWeight = 150 : 控制表2_dgv.Columns(5).FillWeight = 60 : 控制表2_dgv.Columns(6).FillWeight = 80 : 控制表2_dgv.Columns(7).FillWeight = 80
        控制表2_dgv.Columns(8).Visible = False : 控制表2_dgv.Columns(9).FillWeight = 70 : 控制表2_dgv.Columns(10).FillWeight = 80 : 控制表2_dgv.Columns(11).Visible = False
        控制表2_dgv.Columns(12).Visible = False : 控制表2_dgv.Columns(13).Visible = False : 控制表2_dgv.Columns(14).Visible = False : 控制表2_dgv.Columns(15).FillWeight = 70
        控制表2_dgv.Columns(16).Visible = False : 控制表2_dgv.Columns(17).FillWeight = 80 : 控制表2_dgv.Columns(18).FillWeight = 80 : 控制表2_dgv.Columns(19).FillWeight = 100

        控制表2_dgv.Columns("訂單數量").DefaultCellStyle.Format = "#,##0" : 控制表2_dgv.Columns(15).DefaultCellStyle.Format = "#,##0"
        控制表2_dgv.Columns("訂單數量").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        控制表2_dgv.Columns("訂單數量").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        控制表2_dgv.Columns("出貨數量").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        控制表2_dgv.Columns("出貨數量").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
    End Sub
    Private Sub Set_訂單明細()
        明細表1_dgv.DataSource = Nothing : ds2.Clear()
        明細表1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        明細表1_dgv.ColumnHeadersHeight = 25
        明細表1_dgv.AllowUserToAddRows = False

        明細表2_dgv.DataSource = Nothing : ds2.Clear()
        明細表2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        明細表2_dgv.ColumnHeadersHeight = 25
        明細表2_dgv.AllowUserToAddRows = False
        ConnOpen()
        SQL1 = "SELECT      " & 訂單資料表(5) & ".天盾流水號, " & 訂單資料表(5) & ".客戶訂單號, " & 訂單資料表(5) & ".ItemNumber, " & 訂單資料表(5) & ".ProductName, 
                            " & 訂單資料表(5) & ".ProductDescription, " & 訂單資料表(5) & ".Color, " & 訂單資料表(5) & ".DM, " & 訂單資料表(5) & ".[5], " & 訂單資料表(5) & ".[5.5], 
                            " & 訂單資料表(5) & ".[6], " & 訂單資料表(5) & ".[6.5], " & 訂單資料表(5) & ".[7], " & 訂單資料表(5) & ".[7.5], " & 訂單資料表(5) & ".[8], " & 訂單資料表(5) & ".[8.5], 
                            " & 訂單資料表(5) & ".[9], " & 訂單資料表(5) & ".[9.5], " & 訂單資料表(5) & ".[10], " & 訂單資料表(5) & ".[10.5], " & 訂單資料表(5) & ".[11], " & 訂單資料表(5) & ".[11.5], 
                            " & 訂單資料表(5) & ".[12], " & 訂單資料表(5) & ".[12.5], " & 訂單資料表(5) & ".[13], " & 訂單資料表(5) & ".[14], " & 訂單資料表(5) & ".[5] + " & 訂單資料表(5) & ".[5.5] + 
                            " & 訂單資料表(5) & ".[6] + " & 訂單資料表(5) & ".[6.5] + " & 訂單資料表(5) & ".[7] + " & 訂單資料表(5) & ".[7.5] + " & 訂單資料表(5) & ".[8] + " & 訂單資料表(5) & ".[8.5] + 
                            " & 訂單資料表(5) & ".[9] + " & 訂單資料表(5) & ".[9.5] + " & 訂單資料表(5) & ".[10] + " & 訂單資料表(5) & ".[10.5] + " & 訂單資料表(5) & ".[11] + " & 訂單資料表(5) & ".[11.5]
                            + " & 訂單資料表(5) & ".[12] + " & 訂單資料表(5) & ".[12.5] + " & 訂單資料表(5) & ".[13] + " & 訂單資料表(5) & ".[14] AS TOTAL
                FROM        " & 訂單資料表(5) & " INNER JOIN
                            (SELECT   訂單流水號, 客戶訂單號, 形體號, 顏色, 楦型, 訂單數量, CXL
                             FROM     " & 訂單資料表(1) & "
                             WHERE   (客戶訂單號 LIKE '" & 客戶訂單號1_tb.Text & "') AND (CXL = 0 OR CXL IS NULL) AND (訂單流水號 LIKE '" & Number1_tb.Text & "')) AS WWEE ON 
                             " & 訂單資料表(5) & ".天盾流水號 = WWEE.訂單流水號 AND " & 訂單資料表(5) & ".客戶訂單號 = WWEE.客戶訂單號 AND " & 訂單資料表(5) & ".ProductName = WWEE.形體號 AND 
                             " & 訂單資料表(5) & ".Color = WWEE.顏色 AND  " & 訂單資料表(5) & ".DM = WWEE.楦型 AND " & 訂單資料表(5) & ".[5] + " & 訂單資料表(5) & ".[5.5] + " & 訂單資料表(5) & ".[6] + 
                             " & 訂單資料表(5) & ".[6.5] + " & 訂單資料表(5) & ".[7] + " & 訂單資料表(5) & ".[7.5] + " & 訂單資料表(5) & ".[8] + " & 訂單資料表(5) & ".[8.5] + " & 訂單資料表(5) & ".[9] + 
                             " & 訂單資料表(5) & ".[9.5] + " & 訂單資料表(5) & ".[10] + " & 訂單資料表(5) & ".[10.5] + " & 訂單資料表(5) & ".[11] + " & 訂單資料表(5) & ".[11.5] + 
                             " & 訂單資料表(5) & ".[12] + " & 訂單資料表(5) & ".[12.5] + " & 訂單資料表(5) & ".[13] + " & 訂單資料表(5) & ".[14] = WWEE.訂單數量
                WHERE      (" & 訂單資料表(5) & ".客戶訂單號 LIKE '" & 客戶訂單號1_tb.Text & "') AND (" & 訂單資料表(5) & ".天盾流水號 LIKE '" & Number1_tb.Text & "') AND (WWEE.CXL = 0 OR WWEE.CXL IS NULL)
                ORDER BY   " & 訂單資料表(5) & ".ProductName, " & 訂單資料表(5) & ".Color"
        CmdSet_For_DGV() : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds2) : 明細表1_dgv.DataSource = ds2.Tables(0) : 明細表2_dgv.DataSource = ds2.Tables(0) : conn.Close()

        明細表1_dgv.Columns(0).Visible = False : 明細表1_dgv.Columns(1).Visible = False
        明細表1_dgv.Columns(2).FillWeight = 90 : 明細表1_dgv.Columns(3).FillWeight = 90 : 明細表1_dgv.Columns(4).FillWeight = 190 : 明細表1_dgv.Columns(5).FillWeight = 80
        明細表1_dgv.Columns(6).FillWeight = 70 : 明細表1_dgv.Columns(7).FillWeight = 40 : 明細表1_dgv.Columns(8).FillWeight = 40 : 明細表1_dgv.Columns(9).FillWeight = 40
        明細表1_dgv.Columns(10).FillWeight = 40 : 明細表1_dgv.Columns(11).FillWeight = 40 : 明細表1_dgv.Columns(12).FillWeight = 40 : 明細表1_dgv.Columns(13).FillWeight = 40
        明細表1_dgv.Columns(14).FillWeight = 40 : 明細表1_dgv.Columns(15).FillWeight = 40 : 明細表1_dgv.Columns(16).FillWeight = 40 : 明細表1_dgv.Columns(17).FillWeight = 40
        明細表1_dgv.Columns(18).FillWeight = 40 : 明細表1_dgv.Columns(19).FillWeight = 40 : 明細表1_dgv.Columns(20).FillWeight = 40 : 明細表1_dgv.Columns(21).FillWeight = 40
        明細表1_dgv.Columns(22).FillWeight = 40 : 明細表1_dgv.Columns(23).FillWeight = 40 : 明細表1_dgv.Columns(24).FillWeight = 40 : 明細表1_dgv.Columns(25).FillWeight = 60
        明細表1_dgv.Columns(7).DefaultCellStyle.Format = "#,##0" : 明細表1_dgv.Columns(8).DefaultCellStyle.Format = "#,##0" : 明細表1_dgv.Columns(9).DefaultCellStyle.Format = "#,##0"
        明細表1_dgv.Columns(10).DefaultCellStyle.Format = "#,##0" : 明細表1_dgv.Columns(11).DefaultCellStyle.Format = "#,##0" : 明細表1_dgv.Columns(12).DefaultCellStyle.Format = "#,##0"
        明細表1_dgv.Columns(13).DefaultCellStyle.Format = "#,##0" : 明細表1_dgv.Columns(14).DefaultCellStyle.Format = "#,##0" : 明細表1_dgv.Columns(15).DefaultCellStyle.Format = "#,##0"
        明細表1_dgv.Columns(16).DefaultCellStyle.Format = "#,##0" : 明細表1_dgv.Columns(17).DefaultCellStyle.Format = "#,##0" : 明細表1_dgv.Columns(18).DefaultCellStyle.Format = "#,##0"
        明細表1_dgv.Columns(19).DefaultCellStyle.Format = "#,##0" : 明細表1_dgv.Columns(20).DefaultCellStyle.Format = "#,##0" : 明細表1_dgv.Columns(21).DefaultCellStyle.Format = "#,##0"
        明細表1_dgv.Columns(22).DefaultCellStyle.Format = "#,##0" : 明細表1_dgv.Columns(23).DefaultCellStyle.Format = "#,##0" : 明細表1_dgv.Columns(24).DefaultCellStyle.Format = "#,##0"
        明細表1_dgv.Columns(25).DefaultCellStyle.Format = "#,##0"

        明細表2_dgv.Columns(0).FillWeight = 100 : 明細表2_dgv.Columns(1).FillWeight = 100
        明細表2_dgv.Columns(2).FillWeight = 90 : 明細表2_dgv.Columns(3).FillWeight = 90 : 明細表2_dgv.Columns(4).FillWeight = 190 : 明細表2_dgv.Columns(5).FillWeight = 80
        明細表2_dgv.Columns(6).FillWeight = 70 : 明細表2_dgv.Columns(7).FillWeight = 40 : 明細表2_dgv.Columns(8).FillWeight = 40 : 明細表2_dgv.Columns(9).FillWeight = 40
        明細表2_dgv.Columns(10).FillWeight = 40 : 明細表2_dgv.Columns(11).FillWeight = 40 : 明細表2_dgv.Columns(12).FillWeight = 40 : 明細表2_dgv.Columns(13).FillWeight = 40
        明細表2_dgv.Columns(14).FillWeight = 40 : 明細表2_dgv.Columns(15).FillWeight = 40 : 明細表2_dgv.Columns(16).FillWeight = 40 : 明細表2_dgv.Columns(17).FillWeight = 40
        明細表2_dgv.Columns(18).FillWeight = 40 : 明細表2_dgv.Columns(19).FillWeight = 40 : 明細表2_dgv.Columns(20).FillWeight = 40 : 明細表2_dgv.Columns(21).FillWeight = 40
        明細表2_dgv.Columns(22).FillWeight = 40 : 明細表2_dgv.Columns(23).FillWeight = 40 : 明細表2_dgv.Columns(24).FillWeight = 40 : 明細表2_dgv.Columns(25).FillWeight = 60
        明細表2_dgv.Columns(7).DefaultCellStyle.Format = "#,##0" : 明細表2_dgv.Columns(8).DefaultCellStyle.Format = "#,##0" : 明細表2_dgv.Columns(9).DefaultCellStyle.Format = "#,##0"
        明細表2_dgv.Columns(10).DefaultCellStyle.Format = "#,##0" : 明細表2_dgv.Columns(11).DefaultCellStyle.Format = "#,##0" : 明細表2_dgv.Columns(12).DefaultCellStyle.Format = "#,##0"
        明細表2_dgv.Columns(13).DefaultCellStyle.Format = "#,##0" : 明細表2_dgv.Columns(14).DefaultCellStyle.Format = "#,##0" : 明細表2_dgv.Columns(15).DefaultCellStyle.Format = "#,##0"
        明細表2_dgv.Columns(16).DefaultCellStyle.Format = "#,##0" : 明細表2_dgv.Columns(17).DefaultCellStyle.Format = "#,##0" : 明細表2_dgv.Columns(18).DefaultCellStyle.Format = "#,##0"
        明細表2_dgv.Columns(19).DefaultCellStyle.Format = "#,##0" : 明細表2_dgv.Columns(20).DefaultCellStyle.Format = "#,##0" : 明細表2_dgv.Columns(21).DefaultCellStyle.Format = "#,##0"
        明細表2_dgv.Columns(22).DefaultCellStyle.Format = "#,##0" : 明細表2_dgv.Columns(23).DefaultCellStyle.Format = "#,##0" : 明細表2_dgv.Columns(24).DefaultCellStyle.Format = "#,##0"
        明細表2_dgv.Columns(25).DefaultCellStyle.Format = "#,##0"
    End Sub
    Private Sub Set_裝箱控制表()
        裝箱控制1_dgv.DataSource = Nothing : ds3.Clear()
        裝箱控制1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        裝箱控制1_dgv.ColumnHeadersHeight = 25
        裝箱控制1_dgv.AllowUserToAddRows = False

        裝箱控制2_dgv.DataSource = Nothing : ds3.Clear()
        裝箱控制2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        裝箱控制2_dgv.ColumnHeadersHeight = 25
        裝箱控制2_dgv.AllowUserToAddRows = False
        ConnOpen()
        SQL1 = "SELECT      天盾流水號, 客戶訂單號, 力威訂單號, Item, Material, MaterialDescription, Qty, UoM, ProductDescription, IncoTerms, CustomerData, Size, HS, Units1, DtyRate, 
                            AddOnDty, UnitsCtn, NoCtn, CtnNo, Units2, PLMSeason, ProductID, Stock, StkName, CustStk, CustStkName, CasePack, Colorway, OrderColor, Logo, POItemText, 
                            FinalCustomerShipTo
                FROM        " & 訂單資料表(2) & "
                WHERE       天盾流水號 LIKE '" & Number1_tb.Text & "' ORDER BY Item DESC"
        CmdSet_For_DGV() : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds3) : 裝箱控制1_dgv.DataSource = ds3.Tables(0) : 裝箱控制2_dgv.DataSource = ds3.Tables(0) : conn.Close()

        裝箱控制1_dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
        裝箱控制1_dgv.Columns(6).DefaultCellStyle.Format = "#,##0"

        裝箱控制2_dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
        裝箱控制2_dgv.Columns(6).DefaultCellStyle.Format = "#,##0"
    End Sub
    Private Sub Set_裝箱明細()
        裝箱明細1_dgv.DataSource = Nothing : ds4.Clear()
        裝箱明細1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        裝箱明細1_dgv.ColumnHeadersHeight = 25
        裝箱明細1_dgv.AllowUserToAddRows = False

        裝箱明細2_dgv.DataSource = Nothing : ds4.Clear()
        裝箱明細2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        裝箱明細2_dgv.ColumnHeadersHeight = 25
        裝箱明細2_dgv.AllowUserToAddRows = False
        ConnOpen()
        SQL1 = "SELECT    天盾流水號, 客戶訂單號, 力威訂單號, Item, Material, DM, [5], [5.5], [6], [6.5], [7], [7.5], [8], [8.5], [9], [9.5], [10], [10.5], [11], [11.5], [12], [12.5], [13], [14]
                FROM      " & 訂單資料表(3) & "
                WHERE     天盾流水號 LIKE '" & Number1_tb.Text & "' ORDER BY Item DESC"
        CmdSet_For_DGV() : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds4) : 裝箱明細1_dgv.DataSource = ds4.Tables(0) : 裝箱明細2_dgv.DataSource = ds4.Tables(0) : conn.Close()

        裝箱明細1_dgv.Columns(0).FillWeight = 110 : 裝箱明細1_dgv.Columns(1).FillWeight = 110 : 裝箱明細1_dgv.Columns(2).FillWeight = 110
        裝箱明細1_dgv.Columns(3).FillWeight = 90 : 裝箱明細1_dgv.Columns(4).FillWeight = 190 : 裝箱明細1_dgv.Columns(5).FillWeight = 80
        裝箱明細1_dgv.Columns(6).FillWeight = 40 : 裝箱明細1_dgv.Columns(7).FillWeight = 40 : 裝箱明細1_dgv.Columns(8).FillWeight = 40 : 裝箱明細1_dgv.Columns(9).FillWeight = 40
        裝箱明細1_dgv.Columns(10).FillWeight = 40 : 裝箱明細1_dgv.Columns(11).FillWeight = 40 : 裝箱明細1_dgv.Columns(12).FillWeight = 40 : 裝箱明細1_dgv.Columns(13).FillWeight = 40
        裝箱明細1_dgv.Columns(14).FillWeight = 40 : 裝箱明細1_dgv.Columns(15).FillWeight = 40 : 裝箱明細1_dgv.Columns(16).FillWeight = 40 : 裝箱明細1_dgv.Columns(17).FillWeight = 40
        裝箱明細1_dgv.Columns(18).FillWeight = 40 : 裝箱明細1_dgv.Columns(19).FillWeight = 40 : 裝箱明細1_dgv.Columns(20).FillWeight = 40 : 裝箱明細1_dgv.Columns(21).FillWeight = 40
        裝箱明細1_dgv.Columns(22).FillWeight = 40 : 裝箱明細1_dgv.Columns(23).FillWeight = 40
        裝箱明細1_dgv.Columns(7).DefaultCellStyle.Format = "#,##0" : 裝箱明細1_dgv.Columns(8).DefaultCellStyle.Format = "#,##0" : 裝箱明細1_dgv.Columns(9).DefaultCellStyle.Format = "#,##0"
        裝箱明細1_dgv.Columns(10).DefaultCellStyle.Format = "#,##0" : 裝箱明細1_dgv.Columns(11).DefaultCellStyle.Format = "#,##0" : 裝箱明細1_dgv.Columns(12).DefaultCellStyle.Format = "#,##0"
        裝箱明細1_dgv.Columns(13).DefaultCellStyle.Format = "#,##0" : 裝箱明細1_dgv.Columns(14).DefaultCellStyle.Format = "#,##0" : 裝箱明細1_dgv.Columns(15).DefaultCellStyle.Format = "#,##0"
        裝箱明細1_dgv.Columns(16).DefaultCellStyle.Format = "#,##0" : 裝箱明細1_dgv.Columns(17).DefaultCellStyle.Format = "#,##0" : 裝箱明細1_dgv.Columns(18).DefaultCellStyle.Format = "#,##0"
        裝箱明細1_dgv.Columns(19).DefaultCellStyle.Format = "#,##0" : 裝箱明細1_dgv.Columns(20).DefaultCellStyle.Format = "#,##0" : 裝箱明細1_dgv.Columns(21).DefaultCellStyle.Format = "#,##0"
        裝箱明細1_dgv.Columns(22).DefaultCellStyle.Format = "#,##0" : 裝箱明細1_dgv.Columns(23).DefaultCellStyle.Format = "#,##0"

        裝箱明細2_dgv.Columns(0).FillWeight = 110 : 裝箱明細2_dgv.Columns(1).FillWeight = 110 : 裝箱明細2_dgv.Columns(2).FillWeight = 110
        裝箱明細2_dgv.Columns(3).FillWeight = 90 : 裝箱明細2_dgv.Columns(4).FillWeight = 190 : 裝箱明細2_dgv.Columns(5).FillWeight = 80
        裝箱明細2_dgv.Columns(6).FillWeight = 40 : 裝箱明細2_dgv.Columns(7).FillWeight = 40 : 裝箱明細2_dgv.Columns(8).FillWeight = 40 : 裝箱明細2_dgv.Columns(9).FillWeight = 40
        裝箱明細2_dgv.Columns(10).FillWeight = 40 : 裝箱明細2_dgv.Columns(11).FillWeight = 40 : 裝箱明細2_dgv.Columns(12).FillWeight = 40 : 裝箱明細2_dgv.Columns(13).FillWeight = 40
        裝箱明細2_dgv.Columns(14).FillWeight = 40 : 裝箱明細2_dgv.Columns(15).FillWeight = 40 : 裝箱明細2_dgv.Columns(16).FillWeight = 40 : 裝箱明細2_dgv.Columns(17).FillWeight = 40
        裝箱明細2_dgv.Columns(18).FillWeight = 40 : 裝箱明細2_dgv.Columns(19).FillWeight = 40 : 裝箱明細2_dgv.Columns(20).FillWeight = 40 : 裝箱明細2_dgv.Columns(21).FillWeight = 40
        裝箱明細2_dgv.Columns(22).FillWeight = 40 : 裝箱明細2_dgv.Columns(23).FillWeight = 40
        裝箱明細2_dgv.Columns(7).DefaultCellStyle.Format = "#,##0" : 裝箱明細2_dgv.Columns(8).DefaultCellStyle.Format = "#,##0" : 裝箱明細2_dgv.Columns(9).DefaultCellStyle.Format = "#,##0"
        裝箱明細2_dgv.Columns(10).DefaultCellStyle.Format = "#,##0" : 裝箱明細2_dgv.Columns(11).DefaultCellStyle.Format = "#,##0" : 裝箱明細2_dgv.Columns(12).DefaultCellStyle.Format = "#,##0"
        裝箱明細2_dgv.Columns(13).DefaultCellStyle.Format = "#,##0" : 裝箱明細2_dgv.Columns(14).DefaultCellStyle.Format = "#,##0" : 裝箱明細2_dgv.Columns(15).DefaultCellStyle.Format = "#,##0"
        裝箱明細2_dgv.Columns(16).DefaultCellStyle.Format = "#,##0" : 裝箱明細2_dgv.Columns(17).DefaultCellStyle.Format = "#,##0" : 裝箱明細2_dgv.Columns(18).DefaultCellStyle.Format = "#,##0"
        裝箱明細2_dgv.Columns(19).DefaultCellStyle.Format = "#,##0" : 裝箱明細2_dgv.Columns(20).DefaultCellStyle.Format = "#,##0" : 裝箱明細2_dgv.Columns(21).DefaultCellStyle.Format = "#,##0"
        裝箱明細2_dgv.Columns(22).DefaultCellStyle.Format = "#,##0" : 裝箱明細2_dgv.Columns(23).DefaultCellStyle.Format = "#,##0"
    End Sub
    Private Sub Brand_cb_下拉表單資料載入()
        conn.Close() : ConnOpen()
        SQL1 = "SELECT 客戶名稱 FROM 客戶資料"
        CmdSet_For_dr() : Brand_cb.Items.Clear() : Brand1_cb.Items.Clear() : Brand2_cb.Items.Clear()
        While (dr.Read()) : Brand_cb.Items.Add(dr("客戶名稱")) : Brand1_cb.Items.Add(dr("客戶名稱")) : Brand2_cb.Items.Add(dr("客戶名稱")) : End While : conn.Close()
    End Sub
    Private Sub SEASON_cb_下拉表單資料載入()
        conn.Close() : ConnOpen()
        SQL1 = "SELECT 年份季度 FROM 訂單控制表年份季度清單 ORDER BY 年份季度 DESC"
        CmdSet_For_dr() : SEASON_cb.Items.Clear() : SEASON1_cb.Items.Clear() : SEASON2_cb.Items.Clear()
        While (dr.Read()) : SEASON_cb.Items.Add(dr("年份季度")) : SEASON1_cb.Items.Add(dr("年份季度")) : SEASON2_cb.Items.Add(dr("年份季度")) : End While : conn.Close()
    End Sub
    Private Sub DIV_cb_下拉表單資料載入()
        conn.Close() : ConnOpen()
        SQL1 = "SELECT 訂單種類 FROM  訂單控制表訂單種類清單 GROUP BY 訂單種類 ORDER BY 訂單種類"
        CmdSet_For_dr() : DIV_cb.Items.Clear() : DIV1_cb.Items.Clear() : DIV2_cb.Items.Clear()
        While (dr.Read()) : DIV_cb.Items.Add(dr("訂單種類")) : DIV1_cb.Items.Add(dr("訂單種類")) : DIV2_cb.Items.Add(dr("訂單種類")) : End While : conn.Close()
    End Sub
    Private Sub Remark_cb_下拉表單資料載入()
        conn.Close() : ConnOpen()
        SQL1 = "SELECT REMARK FROM DELIVERYADDRESS  ORDER BY REMARK"
        CmdSet_For_dr() : Remark_cb.Items.Clear() : Remark1_cb.Items.Clear() : Remark2_cb.Items.Clear()
        While (dr.Read()) : Remark_cb.Items.Add(dr("REMARK")) : Remark1_cb.Items.Add(dr("REMARK")) : Remark2_cb.Items.Add(dr("REMARK")) : End While : conn.Close()
    End Sub
    Private Sub FTY_cb_下拉表單資料載入()
        conn.Close() : ConnOpen()
        SQL1 = "SELECT 生產工廠 FROM 訂單控制表生產工廠清單 GROUP BY 生產工廠 ORDER BY 生產工廠"
        CmdSet_For_dr() : FTY_cb.Items.Clear() : FTY1_cb.Items.Clear() : FTY2_cb.Items.Clear()
        While (dr.Read()) : FTY_cb.Items.Add(dr("生產工廠")) : FTY1_cb.Items.Add(dr("生產工廠")) : FTY2_cb.Items.Add(dr("生產工廠")) : End While : conn.Close()
    End Sub
    Private Sub 填入0值1()
        明細表_dgv.Rows(0).Cells("5").Value = 0 : 明細表_dgv.Rows(0).Cells("5.5").Value = 0 : 明細表_dgv.Rows(0).Cells("6").Value = 0 : 明細表_dgv.Rows(0).Cells("6.5").Value = 0
        明細表_dgv.Rows(0).Cells("7").Value = 0 : 明細表_dgv.Rows(0).Cells("7.5").Value = 0 : 明細表_dgv.Rows(0).Cells("8").Value = 0 : 明細表_dgv.Rows(0).Cells("8.5").Value = 0
        明細表_dgv.Rows(0).Cells("9").Value = 0 : 明細表_dgv.Rows(0).Cells("9.5").Value = 0 : 明細表_dgv.Rows(0).Cells("10").Value = 0 : 明細表_dgv.Rows(0).Cells("10.5").Value = 0
        明細表_dgv.Rows(0).Cells("11").Value = 0 : 明細表_dgv.Rows(0).Cells("11.5").Value = 0 : 明細表_dgv.Rows(0).Cells("12").Value = 0 : 明細表_dgv.Rows(0).Cells("12.5").Value = 0
        明細表_dgv.Rows(0).Cells("13").Value = 0 : 明細表_dgv.Rows(0).Cells("14").Value = 0 : 明細表_dgv.Rows(0).Cells("天盾流水號").Value = ""
        明細表_dgv.Rows(0).Cells("客戶訂單號").Value = "" : 明細表_dgv.Rows(0).Cells("ItemNumber").Value = "" : 明細表_dgv.Rows(0).Cells("ProductName").Value = ""
        明細表_dgv.Rows(0).Cells("ProductDescription").Value = "" : 明細表_dgv.Rows(0).Cells("Color").Value = "" : 明細表_dgv.Rows(0).Cells("DM").Value = ""
    End Sub
    Private Sub 填入0值1_1()
        明細表3_dgv.Rows(0).Cells("5").Value = 0 : 明細表3_dgv.Rows(0).Cells("5.5").Value = 0 : 明細表3_dgv.Rows(0).Cells("6").Value = 0 : 明細表3_dgv.Rows(0).Cells("6.5").Value = 0
        明細表3_dgv.Rows(0).Cells("7").Value = 0 : 明細表3_dgv.Rows(0).Cells("7.5").Value = 0 : 明細表3_dgv.Rows(0).Cells("8").Value = 0 : 明細表3_dgv.Rows(0).Cells("8.5").Value = 0
        明細表3_dgv.Rows(0).Cells("9").Value = 0 : 明細表3_dgv.Rows(0).Cells("9.5").Value = 0 : 明細表3_dgv.Rows(0).Cells("10").Value = 0 : 明細表3_dgv.Rows(0).Cells("10.5").Value = 0
        明細表3_dgv.Rows(0).Cells("11").Value = 0 : 明細表3_dgv.Rows(0).Cells("11.5").Value = 0 : 明細表3_dgv.Rows(0).Cells("12").Value = 0 : 明細表3_dgv.Rows(0).Cells("12.5").Value = 0
        明細表3_dgv.Rows(0).Cells("13").Value = 0 : 明細表3_dgv.Rows(0).Cells("14").Value = 0 : 明細表3_dgv.Rows(0).Cells("天盾流水號").Value = ""
        明細表3_dgv.Rows(0).Cells("客戶訂單號").Value = "" : 明細表3_dgv.Rows(0).Cells("ItemNumber").Value = "" : 明細表3_dgv.Rows(0).Cells("ProductName").Value = ""
        明細表3_dgv.Rows(0).Cells("ProductDescription").Value = "" : 明細表3_dgv.Rows(0).Cells("Color").Value = "" : 明細表3_dgv.Rows(0).Cells("DM").Value = ""
    End Sub
    Private Sub 填入0值2()
        裝箱明細_dgv.Rows(0).Cells("5").Value = 0 : 裝箱明細_dgv.Rows(0).Cells("5.5").Value = 0 : 裝箱明細_dgv.Rows(0).Cells("6").Value = 0 : 裝箱明細_dgv.Rows(0).Cells("6.5").Value = 0
        裝箱明細_dgv.Rows(0).Cells("7").Value = 0 : 裝箱明細_dgv.Rows(0).Cells("7.5").Value = 0 : 裝箱明細_dgv.Rows(0).Cells("8").Value = 0 : 裝箱明細_dgv.Rows(0).Cells("8.5").Value = 0
        裝箱明細_dgv.Rows(0).Cells("9").Value = 0 : 裝箱明細_dgv.Rows(0).Cells("9.5").Value = 0 : 裝箱明細_dgv.Rows(0).Cells("10").Value = 0 : 裝箱明細_dgv.Rows(0).Cells("10.5").Value = 0
        裝箱明細_dgv.Rows(0).Cells("11").Value = 0 : 裝箱明細_dgv.Rows(0).Cells("11.5").Value = 0 : 裝箱明細_dgv.Rows(0).Cells("12").Value = 0 : 裝箱明細_dgv.Rows(0).Cells("12.5").Value = 0
        裝箱明細_dgv.Rows(0).Cells("13").Value = 0 : 裝箱明細_dgv.Rows(0).Cells("14").Value = 0 : 裝箱明細_dgv.Rows(0).Cells("天盾流水號").Value = ""
        裝箱明細_dgv.Rows(0).Cells("客戶訂單號").Value = "" : 裝箱明細_dgv.Rows(0).Cells("力威訂單號").Value = "" : 裝箱明細_dgv.Rows(0).Cells("Item").Value = ""
        裝箱明細_dgv.Rows(0).Cells("Material").Value = "" : 裝箱明細_dgv.Rows(0).Cells("DM").Value = ""
    End Sub
    Private Sub 填入0值2_1()
        裝箱明細3_dgv.Rows(0).Cells("5").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("5.5").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("6").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("6.5").Value = 0
        裝箱明細3_dgv.Rows(0).Cells("7").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("7.5").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("8").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("8.5").Value = 0
        裝箱明細3_dgv.Rows(0).Cells("9").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("9.5").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("10").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("10.5").Value = 0
        裝箱明細3_dgv.Rows(0).Cells("11").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("11.5").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("12").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("12.5").Value = 0
        裝箱明細3_dgv.Rows(0).Cells("13").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("14").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("天盾流水號").Value = ""
        裝箱明細3_dgv.Rows(0).Cells("客戶訂單號").Value = "" : 裝箱明細3_dgv.Rows(0).Cells("力威訂單號").Value = "" : 裝箱明細3_dgv.Rows(0).Cells("Item").Value = ""
        裝箱明細3_dgv.Rows(0).Cells("Material").Value = "" : 裝箱明細3_dgv.Rows(0).Cells("DM").Value = ""
    End Sub
    Private Sub 填入0值3()
        控制表_dgv.Rows(0).Cells("訂單流水號").Value = "" : 控制表_dgv.Rows(0).Cells("年份季度").Value = "" : 控制表_dgv.Rows(0).Cells("客戶訂單號").Value = ""
        控制表_dgv.Rows(0).Cells("形體號").Value = "" : 控制表_dgv.Rows(0).Cells("顏色").Value = "" : 控制表_dgv.Rows(0).Cells("楦型").Value = ""
        控制表_dgv.Rows(0).Cells("訂單數量").Value = "" : 控制表_dgv.Rows(0).Cells("客戶交期").Value = "" : 控制表_dgv.Rows(0).Cells("生產工廠").Value = ""
        控制表_dgv.Rows(0).Cells("訂單種類").Value = "" : 控制表_dgv.Rows(0).Cells("工廠回復交期").Value = "" : 控制表_dgv.Rows(0).Cells("ProductID").Value = ""
        控制表_dgv.Rows(0).Cells("UoM").Value = ""
    End Sub
    Private Sub 填入0值3_1()
        控制表3_dgv.Rows(0).Cells("訂單流水號").Value = "" : 控制表3_dgv.Rows(0).Cells("年份季度").Value = "" : 控制表3_dgv.Rows(0).Cells("客戶訂單號").Value = ""
        控制表3_dgv.Rows(0).Cells("形體號").Value = "" : 控制表3_dgv.Rows(0).Cells("顏色").Value = "" : 控制表3_dgv.Rows(0).Cells("楦型").Value = ""
        控制表3_dgv.Rows(0).Cells("訂單數量").Value = "" : 控制表3_dgv.Rows(0).Cells("客戶交期").Value = "" : 控制表3_dgv.Rows(0).Cells("生產工廠").Value = ""
        控制表3_dgv.Rows(0).Cells("訂單種類").Value = "" : 控制表3_dgv.Rows(0).Cells("工廠回復交期").Value = "" : 控制表3_dgv.Rows(0).Cells("ProductID").Value = ""
        控制表3_dgv.Rows(0).Cells("UoM").Value = ""
    End Sub
    Private Sub 填入0值4()
        裝箱控制_dgv.Rows(0).Cells("天盾流水號").Value = "" : 裝箱控制_dgv.Rows(0).Cells("客戶訂單號").Value = "" : 裝箱控制_dgv.Rows(0).Cells("力威訂單號").Value = ""
        裝箱控制_dgv.Rows(0).Cells("Item").Value = "" : 裝箱控制_dgv.Rows(0).Cells("Material").Value = "" : 裝箱控制_dgv.Rows(0).Cells("MaterialDescription").Value = ""
        裝箱控制_dgv.Rows(0).Cells("Qty").Value = "" : 裝箱控制_dgv.Rows(0).Cells("UoM").Value = "" : 裝箱控制_dgv.Rows(0).Cells("ProductDescription").Value = ""
        裝箱控制_dgv.Rows(0).Cells("IncoTerms").Value = "" : 裝箱控制_dgv.Rows(0).Cells("CustomerData").Value = "" : 裝箱控制_dgv.Rows(0).Cells("Size").Value = ""
        裝箱控制_dgv.Rows(0).Cells("HS").Value = "" : 裝箱控制_dgv.Rows(0).Cells("Units1").Value = "" : 裝箱控制_dgv.Rows(0).Cells("DtyRate").Value = ""
        裝箱控制_dgv.Rows(0).Cells("AddOnDty").Value = "" : 裝箱控制_dgv.Rows(0).Cells("UnitsCtn").Value = "" : 裝箱控制_dgv.Rows(0).Cells("NoCtn").Value = ""
        裝箱控制_dgv.Rows(0).Cells("CtnNo").Value = "" : 裝箱控制_dgv.Rows(0).Cells("Units2").Value = "" : 裝箱控制_dgv.Rows(0).Cells("PLMSeason").Value = ""
        裝箱控制_dgv.Rows(0).Cells("ProductID").Value = "" : 裝箱控制_dgv.Rows(0).Cells("Stock").Value = "" : 裝箱控制_dgv.Rows(0).Cells("StkName").Value = ""
        裝箱控制_dgv.Rows(0).Cells("CustStk").Value = "" : 裝箱控制_dgv.Rows(0).Cells("CustStkName").Value = "" : 裝箱控制_dgv.Rows(0).Cells("CasePack").Value = ""
        裝箱控制_dgv.Rows(0).Cells("Colorway").Value = "" : 裝箱控制_dgv.Rows(0).Cells("OrderColor").Value = "" : 裝箱控制_dgv.Rows(0).Cells("Logo").Value = ""
        裝箱控制_dgv.Rows(0).Cells("POItemText").Value = ""
    End Sub
    Private Sub 填入0值4_1()
        裝箱控制3_dgv.Rows(0).Cells("天盾流水號").Value = "" : 裝箱控制3_dgv.Rows(0).Cells("客戶訂單號").Value = "" : 裝箱控制3_dgv.Rows(0).Cells("力威訂單號").Value = ""
        裝箱控制3_dgv.Rows(0).Cells("Item").Value = "" : 裝箱控制3_dgv.Rows(0).Cells("Material").Value = "" : 裝箱控制3_dgv.Rows(0).Cells("MaterialDescription").Value = ""
        裝箱控制3_dgv.Rows(0).Cells("Qty").Value = "" : 裝箱控制3_dgv.Rows(0).Cells("UoM").Value = "" : 裝箱控制3_dgv.Rows(0).Cells("ProductDescription").Value = ""
        裝箱控制3_dgv.Rows(0).Cells("IncoTerms").Value = "" : 裝箱控制3_dgv.Rows(0).Cells("CustomerData").Value = "" : 裝箱控制3_dgv.Rows(0).Cells("Size").Value = ""
        裝箱控制3_dgv.Rows(0).Cells("HS").Value = "" : 裝箱控制3_dgv.Rows(0).Cells("Units1").Value = "" : 裝箱控制3_dgv.Rows(0).Cells("DtyRate").Value = ""
        裝箱控制3_dgv.Rows(0).Cells("AddOnDty").Value = "" : 裝箱控制3_dgv.Rows(0).Cells("UnitsCtn").Value = "" : 裝箱控制3_dgv.Rows(0).Cells("NoCtn").Value = ""
        裝箱控制3_dgv.Rows(0).Cells("CtnNo").Value = "" : 裝箱控制3_dgv.Rows(0).Cells("Units2").Value = "" : 裝箱控制3_dgv.Rows(0).Cells("PLMSeason").Value = ""
        裝箱控制3_dgv.Rows(0).Cells("ProductID").Value = "" : 裝箱控制3_dgv.Rows(0).Cells("Stock").Value = "" : 裝箱控制3_dgv.Rows(0).Cells("StkName").Value = ""
        裝箱控制3_dgv.Rows(0).Cells("CustStk").Value = "" : 裝箱控制3_dgv.Rows(0).Cells("CustStkName").Value = "" : 裝箱控制3_dgv.Rows(0).Cells("CasePack").Value = ""
        裝箱控制3_dgv.Rows(0).Cells("Colorway").Value = "" : 裝箱控制3_dgv.Rows(0).Cells("OrderColor").Value = "" : 裝箱控制3_dgv.Rows(0).Cells("Logo").Value = ""
        裝箱控制3_dgv.Rows(0).Cells("POItemText").Value = ""
    End Sub
    Private Sub 進度條()
        平均數 = 10000 / 資料數 : 最終數 += 平均數 : If 最終數 > 10000 Then : 最終數 = 10000 : End If : ProgressBar1.Value = 最終數
    End Sub
    Private Sub 進度條1()
        平均數1 = 10000 / 資料數1 : 最終數1 += 平均數1 : If 最終數1 > 10000 Then : 最終數1 = 10000 : End If : ProgressBar2.Value = 最終數1
    End Sub
    Private Sub 進度條2()
        平均數2 = 10000 / 資料數2 : 最終數2 += 平均數2 : If 最終數2 > 10000 Then : 最終數2 = 10000 : End If : ProgressBar3.Value = 最終數2
    End Sub
    Private Sub 進度條3()
        平均數3 = 10000 / 資料數3 : 最終數3 += 平均數3 : If 最終數3 > 10000 Then : 最終數3 = 10000 : End If : ProgressBar4.Value = 最終數3
    End Sub
    Private Sub 訂單資料比對與修改_力威_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = TENDEN_MES_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        訂單資料庫選擇.ShowDialog()
        PA = ""
        Brand_cb_下拉表單資料載入() : SEASON_cb_下拉表單資料載入() : DIV_cb_下拉表單資料載入() : Remark_cb_下拉表單資料載入() : FTY_cb_下拉表單資料載入()
        Set_訂單清單()

        Dim DB01 As New DataGridViewTextBoxColumn : Dim DB02 As New DataGridViewTextBoxColumn : Dim DB03 As New DataGridViewTextBoxColumn : Dim DB04 As New DataGridViewTextBoxColumn
        Dim DB05 As New DataGridViewTextBoxColumn : Dim DB06 As New DataGridViewTextBoxColumn : Dim DB07 As New DataGridViewTextBoxColumn : Dim DB08 As New DataGridViewTextBoxColumn
        Dim DB09 As New DataGridViewTextBoxColumn : Dim DB10 As New DataGridViewTextBoxColumn : Dim DB11 As New DataGridViewTextBoxColumn : Dim DB12 As New DataGridViewTextBoxColumn
        Dim DB13 As New DataGridViewTextBoxColumn
        DB01.HeaderText = "訂單流水號" : DB01.Name = "訂單流水號" : 控制表_dgv.Columns.Insert(0, DB01)
        DB02.HeaderText = "年份季度" : DB02.Name = "年份季度" : 控制表_dgv.Columns.Insert(1, DB02)
        DB03.HeaderText = "客戶訂單號" : DB03.Name = "客戶訂單號" : 控制表_dgv.Columns.Insert(2, DB03)
        DB04.HeaderText = "形體號" : DB04.Name = "形體號" : 控制表_dgv.Columns.Insert(3, DB04)
        DB05.HeaderText = "顏色" : DB05.Name = "顏色" : 控制表_dgv.Columns.Insert(4, DB05)
        DB06.HeaderText = "楦型" : DB06.Name = "楦型" : 控制表_dgv.Columns.Insert(5, DB06)
        DB07.HeaderText = "訂單數量" : DB07.Name = "訂單數量" : 控制表_dgv.Columns.Insert(6, DB07)
        DB08.HeaderText = "客戶交期" : DB08.Name = "客戶交期" : 控制表_dgv.Columns.Insert(7, DB08)
        DB09.HeaderText = "生產工廠" : DB09.Name = "生產工廠" : 控制表_dgv.Columns.Insert(8, DB09)
        DB10.HeaderText = "訂單種類" : DB10.Name = "訂單種類" : 控制表_dgv.Columns.Insert(9, DB10)
        DB11.HeaderText = "工廠回復交期" : DB11.Name = "工廠回復交期" : 控制表_dgv.Columns.Insert(10, DB11)
        DB12.HeaderText = "ProductID" : DB12.Name = "ProductID" : 控制表_dgv.Columns.Insert(11, DB12)
        DB13.HeaderText = "UoM" : DB13.Name = "UoM" : 控制表_dgv.Columns.Insert(12, DB13)
        控制表_dgv.Columns(0).FillWeight = 80 : 控制表_dgv.Columns(1).FillWeight = 70 : 控制表_dgv.Columns(2).FillWeight = 100 : 控制表_dgv.Columns(3).FillWeight = 100
        控制表_dgv.Columns(4).FillWeight = 60 : 控制表_dgv.Columns(5).FillWeight = 50 : 控制表_dgv.Columns(6).FillWeight = 70 : 控制表_dgv.Columns(7).FillWeight = 100
        控制表_dgv.Columns(8).FillWeight = 50 : 控制表_dgv.Columns(9).FillWeight = 100 : 控制表_dgv.Columns(10).FillWeight = 100 : 控制表_dgv.Columns(11).FillWeight = 100
        控制表_dgv.Columns(12).FillWeight = 50

        Dim DF01 As New DataGridViewTextBoxColumn : Dim DF02 As New DataGridViewTextBoxColumn : Dim DF03 As New DataGridViewTextBoxColumn : Dim DF04 As New DataGridViewTextBoxColumn
        Dim DF05 As New DataGridViewTextBoxColumn : Dim DF06 As New DataGridViewTextBoxColumn : Dim DF07 As New DataGridViewTextBoxColumn : Dim DF08 As New DataGridViewTextBoxColumn
        Dim DF09 As New DataGridViewTextBoxColumn : Dim DF10 As New DataGridViewTextBoxColumn : Dim DF11 As New DataGridViewTextBoxColumn : Dim DF12 As New DataGridViewTextBoxColumn
        Dim DF13 As New DataGridViewTextBoxColumn : Dim DF14 As New DataGridViewTextBoxColumn
        DF01.HeaderText = "訂單流水號" : DF01.Name = "訂單流水號" : 控制表3_dgv.Columns.Insert(0, DF01)
        DF02.HeaderText = "年份季度" : DF02.Name = "年份季度" : 控制表3_dgv.Columns.Insert(1, DF02)
        DF03.HeaderText = "客戶訂單號" : DF03.Name = "客戶訂單號" : 控制表3_dgv.Columns.Insert(2, DF03)
        DF04.HeaderText = "形體號" : DF04.Name = "形體號" : 控制表3_dgv.Columns.Insert(3, DF04)
        DF05.HeaderText = "顏色" : DF05.Name = "顏色" : 控制表3_dgv.Columns.Insert(4, DF05)
        DF06.HeaderText = "楦型" : DF06.Name = "楦型" : 控制表3_dgv.Columns.Insert(5, DF06)
        DF07.HeaderText = "訂單數量" : DF07.Name = "訂單數量" : 控制表3_dgv.Columns.Insert(6, DF07)
        DF08.HeaderText = "客戶交期" : DF08.Name = "客戶交期" : 控制表3_dgv.Columns.Insert(7, DF08)
        DF09.HeaderText = "生產工廠" : DF09.Name = "生產工廠" : 控制表3_dgv.Columns.Insert(8, DF09)
        DF10.HeaderText = "訂單種類" : DF10.Name = "訂單種類" : 控制表3_dgv.Columns.Insert(9, DF10)
        DF11.HeaderText = "工廠回復交期" : DF11.Name = "工廠回復交期" : 控制表3_dgv.Columns.Insert(10, DF11)
        DF12.HeaderText = "ProductID" : DF12.Name = "ProductID" : 控制表3_dgv.Columns.Insert(11, DF12)
        DF13.HeaderText = "UoM" : DF13.Name = "UoM" : 控制表3_dgv.Columns.Insert(12, DF13)
        DF14.HeaderText = "資料流水號" : DF14.Name = "資料流水號" : 控制表3_dgv.Columns.Insert(13, DF14)
        控制表3_dgv.Columns(0).FillWeight = 80 : 控制表3_dgv.Columns(1).FillWeight = 70 : 控制表3_dgv.Columns(2).FillWeight = 80 : 控制表3_dgv.Columns(3).FillWeight = 80
        控制表3_dgv.Columns(4).FillWeight = 150 : 控制表3_dgv.Columns(5).FillWeight = 60 : 控制表3_dgv.Columns(6).FillWeight = 80 : 控制表3_dgv.Columns(7).FillWeight = 80
        控制表3_dgv.Columns(8).FillWeight = 70 : 控制表3_dgv.Columns(9).FillWeight = 80 : 控制表3_dgv.Columns(10).FillWeight = 70 : 控制表3_dgv.Columns(11).FillWeight = 80
        控制表3_dgv.Columns(12).FillWeight = 80 : 控制表3_dgv.Columns(13).FillWeight = 100

        Dim DD01 As New DataGridViewTextBoxColumn : Dim DD02 As New DataGridViewTextBoxColumn : Dim DD03 As New DataGridViewTextBoxColumn : Dim DD04 As New DataGridViewTextBoxColumn
        Dim DD05 As New DataGridViewTextBoxColumn : Dim DD06 As New DataGridViewTextBoxColumn : Dim DD07 As New DataGridViewTextBoxColumn : Dim DD08 As New DataGridViewTextBoxColumn
        Dim DD09 As New DataGridViewTextBoxColumn : Dim DD10 As New DataGridViewTextBoxColumn : Dim DD11 As New DataGridViewTextBoxColumn : Dim DD12 As New DataGridViewTextBoxColumn
        Dim DD13 As New DataGridViewTextBoxColumn : Dim DD14 As New DataGridViewTextBoxColumn : Dim DD15 As New DataGridViewTextBoxColumn : Dim DD16 As New DataGridViewTextBoxColumn
        Dim DD17 As New DataGridViewTextBoxColumn : Dim DD18 As New DataGridViewTextBoxColumn : Dim DD19 As New DataGridViewTextBoxColumn : Dim DD20 As New DataGridViewTextBoxColumn
        Dim DD21 As New DataGridViewTextBoxColumn : Dim DD22 As New DataGridViewTextBoxColumn : Dim DD23 As New DataGridViewTextBoxColumn : Dim DD24 As New DataGridViewTextBoxColumn
        Dim DD25 As New DataGridViewTextBoxColumn : Dim DD26 As New DataGridViewTextBoxColumn
        DD01.HeaderText = "天盾流水號" : DD01.Name = "天盾流水號" : 明細表_dgv.Columns.Insert(0, DD01)
        DD02.HeaderText = "客戶訂單號" : DD02.Name = "客戶訂單號" : 明細表_dgv.Columns.Insert(1, DD02)
        DD03.HeaderText = "ItemNumber" : DD03.Name = "ItemNumber" : 明細表_dgv.Columns.Insert(2, DD03)
        DD04.HeaderText = "ProductName" : DD04.Name = "ProductName" : 明細表_dgv.Columns.Insert(3, DD04)
        DD05.HeaderText = "ProductDescription" : DD05.Name = "ProductDescription" : 明細表_dgv.Columns.Insert(4, DD05)
        DD06.HeaderText = "Color" : DD06.Name = "Color" : 明細表_dgv.Columns.Insert(5, DD06)
        DD07.HeaderText = "DM" : DD07.Name = "DM" : 明細表_dgv.Columns.Insert(6, DD07)
        DD08.HeaderText = "5" : DD08.Name = "5" : 明細表_dgv.Columns.Insert(7, DD08) : DD09.HeaderText = "5.5" : DD09.Name = "5.5" : 明細表_dgv.Columns.Insert(8, DD09)
        DD10.HeaderText = "6" : DD10.Name = "6" : 明細表_dgv.Columns.Insert(9, DD10) : DD11.HeaderText = "6.5" : DD11.Name = "6.5" : 明細表_dgv.Columns.Insert(10, DD11)
        DD12.HeaderText = "7" : DD12.Name = "7" : 明細表_dgv.Columns.Insert(11, DD12) : DD13.HeaderText = "7.5" : DD13.Name = "7.5" : 明細表_dgv.Columns.Insert(12, DD13)
        DD14.HeaderText = "8" : DD14.Name = "8" : 明細表_dgv.Columns.Insert(13, DD14) : DD15.HeaderText = "8.5" : DD15.Name = "8.5" : 明細表_dgv.Columns.Insert(14, DD15)
        DD16.HeaderText = "9" : DD16.Name = "9" : 明細表_dgv.Columns.Insert(15, DD16) : DD17.HeaderText = "9.5" : DD17.Name = "9.5" : 明細表_dgv.Columns.Insert(16, DD17)
        DD18.HeaderText = "10" : DD18.Name = "10" : 明細表_dgv.Columns.Insert(17, DD18) : DD19.HeaderText = "10.5" : DD19.Name = "10.5" : 明細表_dgv.Columns.Insert(18, DD19)
        DD20.HeaderText = "11" : DD20.Name = "11" : 明細表_dgv.Columns.Insert(19, DD20) : DD21.HeaderText = "11.5" : DD21.Name = "11.5" : 明細表_dgv.Columns.Insert(20, DD21)
        DD22.HeaderText = "12" : DD22.Name = "12" : 明細表_dgv.Columns.Insert(21, DD22) : DD23.HeaderText = "12.5" : DD23.Name = "12.5" : 明細表_dgv.Columns.Insert(22, DD23)
        DD24.HeaderText = "13" : DD24.Name = "13" : 明細表_dgv.Columns.Insert(23, DD24) : DD25.HeaderText = "14" : DD25.Name = "14" : 明細表_dgv.Columns.Insert(24, DD25)
        DD26.HeaderText = "TOTAL" : DD26.Name = "TOTAL" : 明細表_dgv.Columns.Insert(25, DD26)
        明細表_dgv.Columns(0).FillWeight = 100 : 明細表_dgv.Columns(1).FillWeight = 100 : 明細表_dgv.Columns(2).FillWeight = 100 : 明細表_dgv.Columns(3).FillWeight = 100
        明細表_dgv.Columns(4).FillWeight = 200 : 明細表_dgv.Columns(5).FillWeight = 80 : 明細表_dgv.Columns(6).FillWeight = 60 : 明細表_dgv.Columns(7).FillWeight = 50
        明細表_dgv.Columns(8).FillWeight = 50 : 明細表_dgv.Columns(9).FillWeight = 50 : 明細表_dgv.Columns(10).FillWeight = 50 : 明細表_dgv.Columns(11).FillWeight = 50
        明細表_dgv.Columns(12).FillWeight = 50 : 明細表_dgv.Columns(13).FillWeight = 50 : 明細表_dgv.Columns(14).FillWeight = 50 : 明細表_dgv.Columns(15).FillWeight = 50
        明細表_dgv.Columns(16).FillWeight = 50 : 明細表_dgv.Columns(17).FillWeight = 50 : 明細表_dgv.Columns(18).FillWeight = 50 : 明細表_dgv.Columns(19).FillWeight = 50
        明細表_dgv.Columns(20).FillWeight = 50 : 明細表_dgv.Columns(21).FillWeight = 50 : 明細表_dgv.Columns(22).FillWeight = 50 : 明細表_dgv.Columns(23).FillWeight = 50
        明細表_dgv.Columns(24).FillWeight = 50 : 明細表_dgv.Columns(25).FillWeight = 70
        填入0值1()

        Dim DG01 As New DataGridViewTextBoxColumn : Dim DG02 As New DataGridViewTextBoxColumn : Dim DG03 As New DataGridViewTextBoxColumn : Dim DG04 As New DataGridViewTextBoxColumn
        Dim DG05 As New DataGridViewTextBoxColumn : Dim DG06 As New DataGridViewTextBoxColumn : Dim DG07 As New DataGridViewTextBoxColumn : Dim DG08 As New DataGridViewTextBoxColumn
        Dim DG09 As New DataGridViewTextBoxColumn : Dim DG10 As New DataGridViewTextBoxColumn : Dim DG11 As New DataGridViewTextBoxColumn : Dim DG12 As New DataGridViewTextBoxColumn
        Dim DG13 As New DataGridViewTextBoxColumn : Dim DG14 As New DataGridViewTextBoxColumn : Dim DG15 As New DataGridViewTextBoxColumn : Dim DG16 As New DataGridViewTextBoxColumn
        Dim DG17 As New DataGridViewTextBoxColumn : Dim DG18 As New DataGridViewTextBoxColumn : Dim DG19 As New DataGridViewTextBoxColumn : Dim DG20 As New DataGridViewTextBoxColumn
        Dim DG21 As New DataGridViewTextBoxColumn : Dim DG22 As New DataGridViewTextBoxColumn : Dim DG23 As New DataGridViewTextBoxColumn : Dim DG24 As New DataGridViewTextBoxColumn
        Dim DG25 As New DataGridViewTextBoxColumn : Dim DG26 As New DataGridViewTextBoxColumn
        DG01.HeaderText = "天盾流水號" : DG01.Name = "天盾流水號" : 明細表3_dgv.Columns.Insert(0, DG01)
        DG02.HeaderText = "客戶訂單號" : DG02.Name = "客戶訂單號" : 明細表3_dgv.Columns.Insert(1, DG02)
        DG03.HeaderText = "ItemNumber" : DG03.Name = "ItemNumber" : 明細表3_dgv.Columns.Insert(2, DG03)
        DG04.HeaderText = "ProductName" : DG04.Name = "ProductName" : 明細表3_dgv.Columns.Insert(3, DG04)
        DG05.HeaderText = "ProductDescription" : DG05.Name = "ProductDescription" : 明細表3_dgv.Columns.Insert(4, DG05)
        DG06.HeaderText = "Color" : DG06.Name = "Color" : 明細表3_dgv.Columns.Insert(5, DG06)
        DG07.HeaderText = "DM" : DG07.Name = "DM" : 明細表3_dgv.Columns.Insert(6, DG07)
        DG08.HeaderText = "5" : DG08.Name = "5" : 明細表3_dgv.Columns.Insert(7, DG08) : DG09.HeaderText = "5.5" : DG09.Name = "5.5" : 明細表3_dgv.Columns.Insert(8, DG09)
        DG10.HeaderText = "6" : DG10.Name = "6" : 明細表3_dgv.Columns.Insert(9, DG10) : DG11.HeaderText = "6.5" : DG11.Name = "6.5" : 明細表3_dgv.Columns.Insert(10, DG11)
        DG12.HeaderText = "7" : DG12.Name = "7" : 明細表3_dgv.Columns.Insert(11, DG12) : DG13.HeaderText = "7.5" : DG13.Name = "7.5" : 明細表3_dgv.Columns.Insert(12, DG13)
        DG14.HeaderText = "8" : DG14.Name = "8" : 明細表3_dgv.Columns.Insert(13, DG14) : DG15.HeaderText = "8.5" : DG15.Name = "8.5" : 明細表3_dgv.Columns.Insert(14, DG15)
        DG16.HeaderText = "9" : DG16.Name = "9" : 明細表3_dgv.Columns.Insert(15, DG16) : DG17.HeaderText = "9.5" : DG17.Name = "9.5" : 明細表3_dgv.Columns.Insert(16, DG17)
        DG18.HeaderText = "10" : DG18.Name = "10" : 明細表3_dgv.Columns.Insert(17, DG18) : DG19.HeaderText = "10.5" : DG19.Name = "10.5" : 明細表3_dgv.Columns.Insert(18, DG19)
        DG20.HeaderText = "11" : DG20.Name = "11" : 明細表3_dgv.Columns.Insert(19, DG20) : DG21.HeaderText = "11.5" : DG21.Name = "11.5" : 明細表3_dgv.Columns.Insert(20, DG21)
        DG22.HeaderText = "12" : DG22.Name = "12" : 明細表3_dgv.Columns.Insert(21, DG22) : DG23.HeaderText = "12.5" : DG23.Name = "12.5" : 明細表3_dgv.Columns.Insert(22, DG23)
        DG24.HeaderText = "13" : DG24.Name = "13" : 明細表3_dgv.Columns.Insert(23, DG24) : DG25.HeaderText = "14" : DG25.Name = "14" : 明細表3_dgv.Columns.Insert(24, DG25)
        DG26.HeaderText = "TOTAL" : DG26.Name = "TOTAL" : 明細表3_dgv.Columns.Insert(25, DG26)
        明細表3_dgv.Columns(0).FillWeight = 100 : 明細表3_dgv.Columns(1).FillWeight = 100
        明細表3_dgv.Columns(2).FillWeight = 90 : 明細表3_dgv.Columns(3).FillWeight = 90 : 明細表3_dgv.Columns(4).FillWeight = 190 : 明細表3_dgv.Columns(5).FillWeight = 80
        明細表3_dgv.Columns(6).FillWeight = 70 : 明細表3_dgv.Columns(7).FillWeight = 40 : 明細表3_dgv.Columns(8).FillWeight = 40 : 明細表3_dgv.Columns(9).FillWeight = 40
        明細表3_dgv.Columns(10).FillWeight = 40 : 明細表3_dgv.Columns(11).FillWeight = 40 : 明細表3_dgv.Columns(12).FillWeight = 40 : 明細表3_dgv.Columns(13).FillWeight = 40
        明細表3_dgv.Columns(14).FillWeight = 40 : 明細表3_dgv.Columns(15).FillWeight = 40 : 明細表3_dgv.Columns(16).FillWeight = 40 : 明細表3_dgv.Columns(17).FillWeight = 40
        明細表3_dgv.Columns(18).FillWeight = 40 : 明細表3_dgv.Columns(19).FillWeight = 40 : 明細表3_dgv.Columns(20).FillWeight = 40 : 明細表3_dgv.Columns(21).FillWeight = 40
        明細表3_dgv.Columns(22).FillWeight = 40 : 明細表3_dgv.Columns(23).FillWeight = 40 : 明細表3_dgv.Columns(24).FillWeight = 40 : 明細表3_dgv.Columns(25).FillWeight = 60
        填入0值1_1()

        Dim DC01 As New DataGridViewTextBoxColumn : Dim DC02 As New DataGridViewTextBoxColumn : Dim DC03 As New DataGridViewTextBoxColumn : Dim DC04 As New DataGridViewTextBoxColumn
        Dim DC05 As New DataGridViewTextBoxColumn : Dim DC06 As New DataGridViewTextBoxColumn : Dim DC07 As New DataGridViewTextBoxColumn : Dim DC08 As New DataGridViewTextBoxColumn
        Dim DC09 As New DataGridViewTextBoxColumn : Dim DC10 As New DataGridViewTextBoxColumn : Dim DC11 As New DataGridViewTextBoxColumn : Dim DC12 As New DataGridViewTextBoxColumn
        Dim DC13 As New DataGridViewTextBoxColumn : Dim DC14 As New DataGridViewTextBoxColumn : Dim DC15 As New DataGridViewTextBoxColumn : Dim DC16 As New DataGridViewTextBoxColumn
        Dim DC17 As New DataGridViewTextBoxColumn : Dim DC18 As New DataGridViewTextBoxColumn : Dim DC19 As New DataGridViewTextBoxColumn : Dim DC20 As New DataGridViewTextBoxColumn
        Dim DC21 As New DataGridViewTextBoxColumn : Dim DC22 As New DataGridViewTextBoxColumn : Dim DC23 As New DataGridViewTextBoxColumn : Dim DC24 As New DataGridViewTextBoxColumn
        Dim DC25 As New DataGridViewTextBoxColumn : Dim DC26 As New DataGridViewTextBoxColumn : Dim DC27 As New DataGridViewTextBoxColumn : Dim DC28 As New DataGridViewTextBoxColumn
        Dim DC29 As New DataGridViewTextBoxColumn : Dim DC30 As New DataGridViewTextBoxColumn : Dim DC31 As New DataGridViewTextBoxColumn : Dim DC32 As New DataGridViewTextBoxColumn
        DC01.HeaderText = "天盾流水號" : DC01.Name = "天盾流水號" : 裝箱控制_dgv.Columns.Insert(0, DC01)
        DC02.HeaderText = "客戶訂單號" : DC02.Name = "客戶訂單號" : 裝箱控制_dgv.Columns.Insert(1, DC02)
        DC03.HeaderText = "力威訂單號" : DC03.Name = "力威訂單號" : 裝箱控制_dgv.Columns.Insert(2, DC03)
        DC04.HeaderText = "Item" : DC04.Name = "Item" : 裝箱控制_dgv.Columns.Insert(3, DC04)
        DC05.HeaderText = "Material" : DC05.Name = "Material" : 裝箱控制_dgv.Columns.Insert(4, DC05)
        DC06.HeaderText = "MaterialDescription" : DC06.Name = "MaterialDescription" : 裝箱控制_dgv.Columns.Insert(5, DC06)
        DC07.HeaderText = "Qty" : DC07.Name = "Qty" : 裝箱控制_dgv.Columns.Insert(6, DC07)
        DC08.HeaderText = "UoM" : DC08.Name = "UoM" : 裝箱控制_dgv.Columns.Insert(7, DC08)
        DC09.HeaderText = "ProductDescription" : DC09.Name = "ProductDescription" : 裝箱控制_dgv.Columns.Insert(8, DC09)
        DC10.HeaderText = "IncoTerms" : DC10.Name = "IncoTerms" : 裝箱控制_dgv.Columns.Insert(9, DC10)
        DC11.HeaderText = "CustomerData" : DC11.Name = "CustomerData" : 裝箱控制_dgv.Columns.Insert(10, DC11)
        DC12.HeaderText = "Size" : DC12.Name = "Size" : 裝箱控制_dgv.Columns.Insert(11, DC12)
        DC13.HeaderText = "HS" : DC13.Name = "HS" : 裝箱控制_dgv.Columns.Insert(12, DC13)
        DC14.HeaderText = "Units1" : DC14.Name = "Units1" : 裝箱控制_dgv.Columns.Insert(13, DC14)
        DC15.HeaderText = "DtyRate" : DC15.Name = "DtyRate" : 裝箱控制_dgv.Columns.Insert(14, DC15)
        DC16.HeaderText = "AddOnDty" : DC16.Name = "AddOnDty" : 裝箱控制_dgv.Columns.Insert(15, DC16)
        DC17.HeaderText = "UnitsCtn" : DC17.Name = "UnitsCtn" : 裝箱控制_dgv.Columns.Insert(16, DC17)
        DC18.HeaderText = "NoCtn" : DC18.Name = "NoCtn" : 裝箱控制_dgv.Columns.Insert(17, DC18)
        DC19.HeaderText = "CtnNo" : DC19.Name = "CtnNo" : 裝箱控制_dgv.Columns.Insert(18, DC19)
        DC20.HeaderText = "Units2" : DC20.Name = "Units2" : 裝箱控制_dgv.Columns.Insert(19, DC20)
        DC21.HeaderText = "PLMSeason" : DC21.Name = "PLMSeason" : 裝箱控制_dgv.Columns.Insert(20, DC21)
        DC22.HeaderText = "ProductID" : DC22.Name = "ProductID" : 裝箱控制_dgv.Columns.Insert(21, DC22)
        DC23.HeaderText = "Stock" : DC23.Name = "Stock" : 裝箱控制_dgv.Columns.Insert(22, DC23)
        DC24.HeaderText = "StkName" : DC24.Name = "StkName" : 裝箱控制_dgv.Columns.Insert(23, DC24)
        DC25.HeaderText = "CustStk" : DC25.Name = "CustStk" : 裝箱控制_dgv.Columns.Insert(24, DC25)
        DC26.HeaderText = "CustStkName" : DC26.Name = "CustStkName" : 裝箱控制_dgv.Columns.Insert(25, DC26)
        DC27.HeaderText = "CasePack" : DC27.Name = "CasePack" : 裝箱控制_dgv.Columns.Insert(26, DC27)
        DC28.HeaderText = "Colorway" : DC28.Name = "Colorway" : 裝箱控制_dgv.Columns.Insert(27, DC28)
        DC29.HeaderText = "OrderColor" : DC29.Name = "OrderColor" : 裝箱控制_dgv.Columns.Insert(28, DC29)
        DC30.HeaderText = "Logo" : DC30.Name = "Logo" : 裝箱控制_dgv.Columns.Insert(29, DC30)
        DC31.HeaderText = "POItemText" : DC31.Name = "POItemText" : 裝箱控制_dgv.Columns.Insert(30, DC31)
        DC32.HeaderText = "FinalCustomerShipTo" : DC32.Name = "FinalCustomerShipTo" : 裝箱控制_dgv.Columns.Insert(31, DC32)
        裝箱控制_dgv.Columns(0).FillWeight = 100 : 裝箱控制_dgv.Columns(1).FillWeight = 100 : 裝箱控制_dgv.Columns(2).FillWeight = 100 : 裝箱控制_dgv.Columns(3).FillWeight = 100
        裝箱控制_dgv.Columns(4).FillWeight = 100 : 裝箱控制_dgv.Columns(5).FillWeight = 100 : 裝箱控制_dgv.Columns(6).FillWeight = 100 : 裝箱控制_dgv.Columns(7).FillWeight = 100
        裝箱控制_dgv.Columns(8).FillWeight = 100 : 裝箱控制_dgv.Columns(9).FillWeight = 100 : 裝箱控制_dgv.Columns(10).FillWeight = 100 : 裝箱控制_dgv.Columns(11).FillWeight = 100
        裝箱控制_dgv.Columns(12).FillWeight = 100 : 裝箱控制_dgv.Columns(13).FillWeight = 100 : 裝箱控制_dgv.Columns(14).FillWeight = 100 : 裝箱控制_dgv.Columns(15).FillWeight = 100
        裝箱控制_dgv.Columns(16).FillWeight = 100 : 裝箱控制_dgv.Columns(17).FillWeight = 100 : 裝箱控制_dgv.Columns(18).FillWeight = 100 : 裝箱控制_dgv.Columns(19).FillWeight = 100
        裝箱控制_dgv.Columns(20).FillWeight = 100 : 裝箱控制_dgv.Columns(21).FillWeight = 100 : 裝箱控制_dgv.Columns(22).FillWeight = 100 : 裝箱控制_dgv.Columns(23).FillWeight = 100
        裝箱控制_dgv.Columns(24).FillWeight = 100 : 裝箱控制_dgv.Columns(25).FillWeight = 100 : 裝箱控制_dgv.Columns(26).FillWeight = 100 : 裝箱控制_dgv.Columns(27).FillWeight = 100
        裝箱控制_dgv.Columns(28).FillWeight = 100 : 裝箱控制_dgv.Columns(29).FillWeight = 100 : 裝箱控制_dgv.Columns(30).FillWeight = 100 : 裝箱控制_dgv.Columns(31).FillWeight = 100

        Dim DH01 As New DataGridViewTextBoxColumn : Dim DH02 As New DataGridViewTextBoxColumn : Dim DH03 As New DataGridViewTextBoxColumn : Dim DH04 As New DataGridViewTextBoxColumn
        Dim DH05 As New DataGridViewTextBoxColumn : Dim DH06 As New DataGridViewTextBoxColumn : Dim DH07 As New DataGridViewTextBoxColumn : Dim DH08 As New DataGridViewTextBoxColumn
        Dim DH09 As New DataGridViewTextBoxColumn : Dim DH10 As New DataGridViewTextBoxColumn : Dim DH11 As New DataGridViewTextBoxColumn : Dim DH12 As New DataGridViewTextBoxColumn
        Dim DH13 As New DataGridViewTextBoxColumn : Dim DH14 As New DataGridViewTextBoxColumn : Dim DH15 As New DataGridViewTextBoxColumn : Dim DH16 As New DataGridViewTextBoxColumn
        Dim DH17 As New DataGridViewTextBoxColumn : Dim DH18 As New DataGridViewTextBoxColumn : Dim DH19 As New DataGridViewTextBoxColumn : Dim DH20 As New DataGridViewTextBoxColumn
        Dim DH21 As New DataGridViewTextBoxColumn : Dim DH22 As New DataGridViewTextBoxColumn : Dim DH23 As New DataGridViewTextBoxColumn : Dim DH24 As New DataGridViewTextBoxColumn
        Dim DH25 As New DataGridViewTextBoxColumn : Dim DH26 As New DataGridViewTextBoxColumn : Dim DH27 As New DataGridViewTextBoxColumn : Dim DH28 As New DataGridViewTextBoxColumn
        Dim DH29 As New DataGridViewTextBoxColumn : Dim DH30 As New DataGridViewTextBoxColumn : Dim DH31 As New DataGridViewTextBoxColumn : Dim DH32 As New DataGridViewTextBoxColumn
        DH01.HeaderText = "天盾流水號" : DH01.Name = "天盾流水號" : 裝箱控制3_dgv.Columns.Insert(0, DH01)
        DH02.HeaderText = "客戶訂單號" : DH02.Name = "客戶訂單號" : 裝箱控制3_dgv.Columns.Insert(1, DH02)
        DH03.HeaderText = "力威訂單號" : DH03.Name = "力威訂單號" : 裝箱控制3_dgv.Columns.Insert(2, DH03)
        DH04.HeaderText = "Item" : DH04.Name = "Item" : 裝箱控制3_dgv.Columns.Insert(3, DH04)
        DH05.HeaderText = "Material" : DH05.Name = "Material" : 裝箱控制3_dgv.Columns.Insert(4, DH05)
        DH06.HeaderText = "MaterialDescription" : DH06.Name = "MaterialDescription" : 裝箱控制3_dgv.Columns.Insert(5, DH06)
        DH07.HeaderText = "Qty" : DH07.Name = "Qty" : 裝箱控制3_dgv.Columns.Insert(6, DH07)
        DH08.HeaderText = "UoM" : DH08.Name = "UoM" : 裝箱控制3_dgv.Columns.Insert(7, DH08)
        DH09.HeaderText = "ProductDescription" : DH09.Name = "ProductDescription" : 裝箱控制3_dgv.Columns.Insert(8, DH09)
        DH10.HeaderText = "IncoTerms" : DH10.Name = "IncoTerms" : 裝箱控制3_dgv.Columns.Insert(9, DH10)
        DH11.HeaderText = "CustomerData" : DH11.Name = "CustomerData" : 裝箱控制3_dgv.Columns.Insert(10, DH11)
        DH12.HeaderText = "Size" : DH12.Name = "Size" : 裝箱控制3_dgv.Columns.Insert(11, DH12)
        DH13.HeaderText = "HS" : DH13.Name = "HS" : 裝箱控制3_dgv.Columns.Insert(12, DH13)
        DH14.HeaderText = "Units1" : DH14.Name = "Units1" : 裝箱控制3_dgv.Columns.Insert(13, DH14)
        DH15.HeaderText = "DtyRate" : DH15.Name = "DtyRate" : 裝箱控制3_dgv.Columns.Insert(14, DH15)
        DH16.HeaderText = "AddOnDty" : DH16.Name = "AddOnDty" : 裝箱控制3_dgv.Columns.Insert(15, DH16)
        DH17.HeaderText = "UnitsCtn" : DH17.Name = "UnitsCtn" : 裝箱控制3_dgv.Columns.Insert(16, DH17)
        DH18.HeaderText = "NoCtn" : DH18.Name = "NoCtn" : 裝箱控制3_dgv.Columns.Insert(17, DH18)
        DH19.HeaderText = "CtnNo" : DH19.Name = "CtnNo" : 裝箱控制3_dgv.Columns.Insert(18, DH19)
        DH20.HeaderText = "Units2" : DH20.Name = "Units2" : 裝箱控制3_dgv.Columns.Insert(19, DH20)
        DH21.HeaderText = "PLMSeason" : DH21.Name = "PLMSeason" : 裝箱控制3_dgv.Columns.Insert(20, DH21)
        DH22.HeaderText = "ProductID" : DH22.Name = "ProductID" : 裝箱控制3_dgv.Columns.Insert(21, DH22)
        DH23.HeaderText = "Stock" : DH23.Name = "Stock" : 裝箱控制3_dgv.Columns.Insert(22, DH23)
        DH24.HeaderText = "StkName" : DH24.Name = "StkName" : 裝箱控制3_dgv.Columns.Insert(23, DH24)
        DH25.HeaderText = "CustStk" : DH25.Name = "CustStk" : 裝箱控制3_dgv.Columns.Insert(24, DH25)
        DH26.HeaderText = "CustStkName" : DH26.Name = "CustStkName" : 裝箱控制3_dgv.Columns.Insert(25, DH26)
        DH27.HeaderText = "CasePack" : DH27.Name = "CasePack" : 裝箱控制3_dgv.Columns.Insert(26, DH27)
        DH28.HeaderText = "Colorway" : DH28.Name = "Colorway" : 裝箱控制3_dgv.Columns.Insert(27, DH28)
        DH29.HeaderText = "OrderColor" : DH29.Name = "OrderColor" : 裝箱控制3_dgv.Columns.Insert(28, DH29)
        DH30.HeaderText = "Logo" : DH30.Name = "Logo" : 裝箱控制3_dgv.Columns.Insert(29, DH30)
        DH31.HeaderText = "POItemText" : DH31.Name = "POItemText" : 裝箱控制3_dgv.Columns.Insert(30, DH31)
        DH32.HeaderText = "FinalCustomerShipTo" : DH32.Name = "FinalCustomerShipTo" : 裝箱控制3_dgv.Columns.Insert(31, DH32)
        裝箱控制3_dgv.Columns(0).FillWeight = 100 : 裝箱控制3_dgv.Columns(1).FillWeight = 100 : 裝箱控制3_dgv.Columns(2).FillWeight = 100 : 裝箱控制3_dgv.Columns(3).FillWeight = 100
        裝箱控制3_dgv.Columns(4).FillWeight = 100 : 裝箱控制3_dgv.Columns(5).FillWeight = 100 : 裝箱控制3_dgv.Columns(6).FillWeight = 100 : 裝箱控制3_dgv.Columns(7).FillWeight = 100
        裝箱控制3_dgv.Columns(8).FillWeight = 100 : 裝箱控制3_dgv.Columns(9).FillWeight = 100 : 裝箱控制3_dgv.Columns(10).FillWeight = 100 : 裝箱控制3_dgv.Columns(11).FillWeight = 100
        裝箱控制3_dgv.Columns(12).FillWeight = 100 : 裝箱控制3_dgv.Columns(13).FillWeight = 100 : 裝箱控制3_dgv.Columns(14).FillWeight = 100 : 裝箱控制3_dgv.Columns(15).FillWeight = 100
        裝箱控制3_dgv.Columns(16).FillWeight = 100 : 裝箱控制3_dgv.Columns(17).FillWeight = 100 : 裝箱控制3_dgv.Columns(18).FillWeight = 100 : 裝箱控制3_dgv.Columns(19).FillWeight = 100
        裝箱控制3_dgv.Columns(20).FillWeight = 100 : 裝箱控制3_dgv.Columns(21).FillWeight = 100 : 裝箱控制3_dgv.Columns(22).FillWeight = 100 : 裝箱控制3_dgv.Columns(23).FillWeight = 100
        裝箱控制3_dgv.Columns(24).FillWeight = 100 : 裝箱控制3_dgv.Columns(25).FillWeight = 100 : 裝箱控制3_dgv.Columns(26).FillWeight = 100 : 裝箱控制3_dgv.Columns(27).FillWeight = 100
        裝箱控制3_dgv.Columns(28).FillWeight = 100 : 裝箱控制3_dgv.Columns(29).FillWeight = 100 : 裝箱控制3_dgv.Columns(30).FillWeight = 100 : 裝箱控制3_dgv.Columns(31).FillWeight = 100

        Dim DR01 As New DataGridViewTextBoxColumn : Dim DR02 As New DataGridViewTextBoxColumn : Dim DR03 As New DataGridViewTextBoxColumn : Dim DR04 As New DataGridViewTextBoxColumn
        Dim DR05 As New DataGridViewTextBoxColumn : Dim DR06 As New DataGridViewTextBoxColumn : Dim DR07 As New DataGridViewTextBoxColumn : Dim DR08 As New DataGridViewTextBoxColumn
        Dim DR09 As New DataGridViewTextBoxColumn : Dim DR10 As New DataGridViewTextBoxColumn : Dim DR11 As New DataGridViewTextBoxColumn : Dim DR12 As New DataGridViewTextBoxColumn
        Dim DR13 As New DataGridViewTextBoxColumn : Dim DR14 As New DataGridViewTextBoxColumn : Dim DR15 As New DataGridViewTextBoxColumn : Dim DR16 As New DataGridViewTextBoxColumn
        Dim DR17 As New DataGridViewTextBoxColumn : Dim DR18 As New DataGridViewTextBoxColumn : Dim DR19 As New DataGridViewTextBoxColumn : Dim DR20 As New DataGridViewTextBoxColumn
        Dim DR21 As New DataGridViewTextBoxColumn : Dim DR22 As New DataGridViewTextBoxColumn : Dim DR23 As New DataGridViewTextBoxColumn : Dim DR24 As New DataGridViewTextBoxColumn
        DR01.HeaderText = "天盾流水號" : DR01.Name = "天盾流水號" : 裝箱明細_dgv.Columns.Insert(0, DR01)
        DR02.HeaderText = "客戶訂單號" : DR02.Name = "客戶訂單號" : 裝箱明細_dgv.Columns.Insert(1, DR02)
        DR03.HeaderText = "力威訂單號" : DR03.Name = "力威訂單號" : 裝箱明細_dgv.Columns.Insert(2, DR03)
        DR04.HeaderText = "Item" : DR04.Name = "Item" : 裝箱明細_dgv.Columns.Insert(3, DR04)
        DR05.HeaderText = "Material" : DR05.Name = "Material" : 裝箱明細_dgv.Columns.Insert(4, DR05)
        DR06.HeaderText = "DM" : DR06.Name = "DM" : 裝箱明細_dgv.Columns.Insert(5, DR06)
        DR07.HeaderText = "5" : DR07.Name = "5" : 裝箱明細_dgv.Columns.Insert(6, DR07) : DR08.HeaderText = "5.5" : DR08.Name = "5.5" : 裝箱明細_dgv.Columns.Insert(7, DR08)
        DR09.HeaderText = "6" : DR09.Name = "6" : 裝箱明細_dgv.Columns.Insert(8, DR09) : DR10.HeaderText = "6.5" : DR10.Name = "6.5" : 裝箱明細_dgv.Columns.Insert(9, DR10)
        DR11.HeaderText = "7" : DR11.Name = "7" : 裝箱明細_dgv.Columns.Insert(10, DR11) : DR12.HeaderText = "7.5" : DR12.Name = "7.5" : 裝箱明細_dgv.Columns.Insert(11, DR12)
        DR13.HeaderText = "8" : DR13.Name = "8" : 裝箱明細_dgv.Columns.Insert(12, DR13) : DR14.HeaderText = "8.5" : DR14.Name = "8.5" : 裝箱明細_dgv.Columns.Insert(13, DR14)
        DR15.HeaderText = "9" : DR15.Name = "9" : 裝箱明細_dgv.Columns.Insert(14, DR15) : DR16.HeaderText = "9.5" : DR16.Name = "9.5" : 裝箱明細_dgv.Columns.Insert(15, DR16)
        DR17.HeaderText = "10" : DR17.Name = "10" : 裝箱明細_dgv.Columns.Insert(16, DR17) : DR18.HeaderText = "10.5" : DR18.Name = "10.5" : 裝箱明細_dgv.Columns.Insert(17, DR18)
        DR19.HeaderText = "11" : DR19.Name = "11" : 裝箱明細_dgv.Columns.Insert(18, DR19) : DR20.HeaderText = "11.5" : DR20.Name = "11.5" : 裝箱明細_dgv.Columns.Insert(19, DR20)
        DR21.HeaderText = "12" : DR21.Name = "12" : 裝箱明細_dgv.Columns.Insert(20, DR21) : DR22.HeaderText = "12.5" : DR22.Name = "12.5" : 裝箱明細_dgv.Columns.Insert(21, DR22)
        DR23.HeaderText = "13" : DR23.Name = "13" : 裝箱明細_dgv.Columns.Insert(22, DR23) : DR24.HeaderText = "14" : DR24.Name = "14" : 裝箱明細_dgv.Columns.Insert(23, DR24)
        裝箱明細_dgv.Columns(0).FillWeight = 100 : 裝箱明細_dgv.Columns(1).FillWeight = 100 : 裝箱明細_dgv.Columns(2).FillWeight = 100 : 裝箱明細_dgv.Columns(3).FillWeight = 100
        裝箱明細_dgv.Columns(4).FillWeight = 80 : 裝箱明細_dgv.Columns(5).FillWeight = 60 : 裝箱明細_dgv.Columns(6).FillWeight = 50 : 裝箱明細_dgv.Columns(7).FillWeight = 50
        裝箱明細_dgv.Columns(8).FillWeight = 50 : 裝箱明細_dgv.Columns(9).FillWeight = 50 : 裝箱明細_dgv.Columns(10).FillWeight = 50 : 裝箱明細_dgv.Columns(11).FillWeight = 50
        裝箱明細_dgv.Columns(12).FillWeight = 50 : 裝箱明細_dgv.Columns(13).FillWeight = 50 : 裝箱明細_dgv.Columns(14).FillWeight = 50 : 裝箱明細_dgv.Columns(15).FillWeight = 50
        裝箱明細_dgv.Columns(16).FillWeight = 50 : 裝箱明細_dgv.Columns(17).FillWeight = 50 : 裝箱明細_dgv.Columns(18).FillWeight = 50 : 裝箱明細_dgv.Columns(19).FillWeight = 50
        裝箱明細_dgv.Columns(20).FillWeight = 50 : 裝箱明細_dgv.Columns(21).FillWeight = 50 : 裝箱明細_dgv.Columns(22).FillWeight = 50 : 裝箱明細_dgv.Columns(23).FillWeight = 50
        填入0值2()

        Dim DK01 As New DataGridViewTextBoxColumn : Dim DK02 As New DataGridViewTextBoxColumn : Dim DK03 As New DataGridViewTextBoxColumn : Dim DK04 As New DataGridViewTextBoxColumn
        Dim DK05 As New DataGridViewTextBoxColumn : Dim DK06 As New DataGridViewTextBoxColumn : Dim DK07 As New DataGridViewTextBoxColumn : Dim DK08 As New DataGridViewTextBoxColumn
        Dim DK09 As New DataGridViewTextBoxColumn : Dim DK10 As New DataGridViewTextBoxColumn : Dim DK11 As New DataGridViewTextBoxColumn : Dim DK12 As New DataGridViewTextBoxColumn
        Dim DK13 As New DataGridViewTextBoxColumn : Dim DK14 As New DataGridViewTextBoxColumn : Dim DK15 As New DataGridViewTextBoxColumn : Dim DK16 As New DataGridViewTextBoxColumn
        Dim DK17 As New DataGridViewTextBoxColumn : Dim DK18 As New DataGridViewTextBoxColumn : Dim DK19 As New DataGridViewTextBoxColumn : Dim DK20 As New DataGridViewTextBoxColumn
        Dim DK21 As New DataGridViewTextBoxColumn : Dim DK22 As New DataGridViewTextBoxColumn : Dim DK23 As New DataGridViewTextBoxColumn : Dim DK24 As New DataGridViewTextBoxColumn
        DK01.HeaderText = "天盾流水號" : DK01.Name = "天盾流水號" : 裝箱明細3_dgv.Columns.Insert(0, DK01)
        DK02.HeaderText = "客戶訂單號" : DK02.Name = "客戶訂單號" : 裝箱明細3_dgv.Columns.Insert(1, DK02)
        DK03.HeaderText = "力威訂單號" : DK03.Name = "力威訂單號" : 裝箱明細3_dgv.Columns.Insert(2, DK03)
        DK04.HeaderText = "Item" : DK04.Name = "Item" : 裝箱明細3_dgv.Columns.Insert(3, DK04)
        DK05.HeaderText = "Material" : DK05.Name = "Material" : 裝箱明細3_dgv.Columns.Insert(4, DK05)
        DK06.HeaderText = "DM" : DK06.Name = "DM" : 裝箱明細3_dgv.Columns.Insert(5, DK06)
        DK07.HeaderText = "5" : DK07.Name = "5" : 裝箱明細3_dgv.Columns.Insert(6, DK07) : DK08.HeaderText = "5.5" : DK08.Name = "5.5" : 裝箱明細3_dgv.Columns.Insert(7, DK08)
        DK09.HeaderText = "6" : DK09.Name = "6" : 裝箱明細3_dgv.Columns.Insert(8, DK09) : DK10.HeaderText = "6.5" : DK10.Name = "6.5" : 裝箱明細3_dgv.Columns.Insert(9, DK10)
        DK11.HeaderText = "7" : DK11.Name = "7" : 裝箱明細3_dgv.Columns.Insert(10, DK11) : DK12.HeaderText = "7.5" : DK12.Name = "7.5" : 裝箱明細3_dgv.Columns.Insert(11, DK12)
        DK13.HeaderText = "8" : DK13.Name = "8" : 裝箱明細3_dgv.Columns.Insert(12, DK13) : DK14.HeaderText = "8.5" : DK14.Name = "8.5" : 裝箱明細3_dgv.Columns.Insert(13, DK14)
        DK15.HeaderText = "9" : DK15.Name = "9" : 裝箱明細3_dgv.Columns.Insert(14, DK15) : DK16.HeaderText = "9.5" : DK16.Name = "9.5" : 裝箱明細3_dgv.Columns.Insert(15, DK16)
        DK17.HeaderText = "10" : DK17.Name = "10" : 裝箱明細3_dgv.Columns.Insert(16, DK17) : DK18.HeaderText = "10.5" : DK18.Name = "10.5" : 裝箱明細3_dgv.Columns.Insert(17, DK18)
        DK19.HeaderText = "11" : DK19.Name = "11" : 裝箱明細3_dgv.Columns.Insert(18, DK19) : DK20.HeaderText = "11.5" : DK20.Name = "11.5" : 裝箱明細3_dgv.Columns.Insert(19, DK20)
        DK21.HeaderText = "12" : DK21.Name = "12" : 裝箱明細3_dgv.Columns.Insert(20, DK21) : DK22.HeaderText = "12.5" : DK22.Name = "12.5" : 裝箱明細3_dgv.Columns.Insert(21, DK22)
        DK23.HeaderText = "13" : DK23.Name = "13" : 裝箱明細3_dgv.Columns.Insert(22, DK23) : DK24.HeaderText = "14" : DK24.Name = "14" : 裝箱明細3_dgv.Columns.Insert(23, DK24)
        裝箱明細3_dgv.Columns(0).FillWeight = 110 : 裝箱明細3_dgv.Columns(1).FillWeight = 110 : 裝箱明細3_dgv.Columns(2).FillWeight = 110
        裝箱明細3_dgv.Columns(3).FillWeight = 90 : 裝箱明細3_dgv.Columns(4).FillWeight = 190 : 裝箱明細3_dgv.Columns(5).FillWeight = 80
        裝箱明細3_dgv.Columns(6).FillWeight = 40 : 裝箱明細3_dgv.Columns(7).FillWeight = 40 : 裝箱明細3_dgv.Columns(8).FillWeight = 40 : 裝箱明細3_dgv.Columns(9).FillWeight = 40
        裝箱明細3_dgv.Columns(10).FillWeight = 40 : 裝箱明細3_dgv.Columns(11).FillWeight = 40 : 裝箱明細3_dgv.Columns(12).FillWeight = 40 : 裝箱明細3_dgv.Columns(13).FillWeight = 40
        裝箱明細3_dgv.Columns(14).FillWeight = 40 : 裝箱明細3_dgv.Columns(15).FillWeight = 40 : 裝箱明細3_dgv.Columns(16).FillWeight = 40 : 裝箱明細3_dgv.Columns(17).FillWeight = 40
        裝箱明細3_dgv.Columns(18).FillWeight = 40 : 裝箱明細3_dgv.Columns(19).FillWeight = 40 : 裝箱明細3_dgv.Columns(20).FillWeight = 40 : 裝箱明細3_dgv.Columns(21).FillWeight = 40
        裝箱明細3_dgv.Columns(22).FillWeight = 40 : 裝箱明細3_dgv.Columns(23).FillWeight = 40
        填入0值2_1()
    End Sub
    Private Sub 抬頭清單_dgv_CellClick(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles 抬頭清單_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            Number1_tb.Text = 抬頭清單_dgv("天盾流水號", e.RowIndex).Value : Number_tb.Text = 抬頭清單_dgv("天盾流水號", e.RowIndex).Value
            Number2_tb.Text = 抬頭清單_dgv("天盾流水號", e.RowIndex).Value
            Brand1_cb.Text = 抬頭清單_dgv("Brand", e.RowIndex).Value : 訂單類別1_tb.Text = 抬頭清單_dgv("ModeOfDelivery", e.RowIndex).Value
            英科條款1_tb.Text = 抬頭清單_dgv("DeliveryTerms", e.RowIndex).Value : 公司編號1_tb.Text = 抬頭清單_dgv("CustomerName", e.RowIndex).Value
            服務1_tb.Text = 抬頭清單_dgv("公司", e.RowIndex).Value : 版本1_tb.Text = 抬頭清單_dgv("ModifiedDate", e.RowIndex).Value
            供應商編號1_tb.Text = 抬頭清單_dgv("VendorReference", e.RowIndex).Value : 客戶訂單號1_tb.Text = 抬頭清單_dgv("客戶訂單號", e.RowIndex).Value
            郵寄方式1_tb.Text = 抬頭清單_dgv("SalesOrder", e.RowIndex).Value : 客戶交期1_dtp.Value = 抬頭清單_dgv("交期", e.RowIndex).Value
            力威訂單號1_tb.Text = 抬頭清單_dgv("CustomerRequisition", e.RowIndex).Value : 總雙數1_tb.Text = 抬頭清單_dgv("總雙數", e.RowIndex).Value
            總案件1_tb.Text = 抬頭清單_dgv("總案件數", e.RowIndex).Value : 下單日1_dtp.Value = 抬頭清單_dgv("CreatedDate", e.RowIndex).Value
            工廠編號1_tb.Text = 抬頭清單_dgv("工廠編號", e.RowIndex).Value : 地址11_tb.Text = 抬頭清單_dgv("工廠地址", e.RowIndex).Value
            地址二1_tb.Text = 抬頭清單_dgv("DeliveryAddress", e.RowIndex).Value : 最終運送1_tb.Text = 抬頭清單_dgv("最終運送", e.RowIndex).Value
            代理編號1_cb.Text = 抬頭清單_dgv("代理編號", e.RowIndex).Value : 訂貨代理1_tb.Text = 抬頭清單_dgv("訂貨代理", e.RowIndex).Value

            FTY1_cb.Text = 抬頭清單_dgv("工廠簡稱", e.RowIndex).Value : FTY_cb.Text = 抬頭清單_dgv("工廠簡稱", e.RowIndex).Value : FTY2_cb.Text = 抬頭清單_dgv("工廠簡稱", e.RowIndex).Value

            總雙數1_tb.Text = Format(Val(總雙數1_tb.Text), "###0") : 總案件1_tb.Text = Format(Val(總案件1_tb.Text), "###0")

            Set_訂單控制表() : Set_訂單明細() : Set_裝箱控制表() : Set_裝箱明細()
            SEASON1_cb.Text = 控制表1_dgv("年份季度", 0).Value : DIV1_cb.Text = 控制表1_dgv("訂單種類", 0).Value
            SEASON_cb.Text = 控制表1_dgv("年份季度", 0).Value : DIV_cb.Text = 控制表1_dgv("訂單種類", 0).Value
            SEASON2_cb.Text = 控制表1_dgv("年份季度", 0).Value : DIV2_cb.Text = 控制表1_dgv("訂單種類", 0).Value
        End If
    End Sub
    Private Sub 關鍵字查詢_bt_Click(sender As Object, e As EventArgs) Handles 關鍵字查詢_bt.Click
        PA = InputBox("請輸入要查詢的資料") : Set_訂單清單() : PA = ""
    End Sub
    Private Sub FTY1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles FTY1_cb.TextChanged
        ConnOpen()
        SQL1 = "SELECT 生產工廠, 供應商資料, 供應商地址 FROM 訂單控制表生產工廠清單 WHERE 生產工廠 LIKE '" & FTY1_cb.Text & "'"
        CmdSet_For_dr()
        If dr.Read() Then : VendorName1_tb.Text = dr("供應商資料").ToString : End If : conn.Close()
    End Sub
    Private Sub FTY_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles FTY_cb.TextChanged
        ConnOpen()
        SQL1 = "SELECT 生產工廠, 供應商資料, 供應商地址 FROM 訂單控制表生產工廠清單 WHERE 生產工廠 LIKE '" & FTY_cb.Text & "'"
        CmdSet_For_dr()
        If dr.Read() Then : VendorName_tb.Text = dr("供應商資料").ToString : End If : conn.Close()
    End Sub
    Private Sub 訂單讀取_bt_Click(sender As Object, e As EventArgs) Handles 訂單讀取_bt.Click
        If Number_tb.Text = "" Or FTY_cb.Text = "" Or SEASON_cb.Text = "" Or DIV_cb.Text = "" Then
            MsgBox("打藍色星號處的資料不可以空白，請檢察後再按導入。")
        Else
            If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
                file_name = OpenFileDialog1.FileName
                xlApp = CreateObject("Excel.Application")
                xlApp.DisplayAlerts = False
                xlApp.Visible = True
                xlApp.Workbooks.Open(file_name)
                xlSheet = xlApp.Worksheets(1)
                xlSheet.Activate()
                xlApp.Visible = False
                '-------表頭-----------------------------------------------------------------------------------------------------------------------------------------------------------------------
                For YY As Integer = 1 To 35
                    資料數 = 35 : 進度條()
                    For XX As Integer = 1 To 60
                        資料數1 = 60 : 進度條1()
                        If Strings.Left(xlSheet.Cells(YY, XX).value, 16) = "Purchasing Group" Then : Brand_cb.Text = Strings.Mid(xlSheet.Cells(YY, XX).value, 22, 50) : End If
                        If Strings.Left(xlSheet.Cells(YY, XX).value, 7) = "PO Type" Then : 訂單類別_tb.Text = Strings.Mid(xlSheet.Cells(YY, XX).value, 12, 50) : End If
                        'If Strings.Left(xlSheet.Cells(YY, XX).value, 6) = "Vendor" Then : 供應商編號_tb.Text = Strings.Mid(xlSheet.Cells(YY, XX).value, 12, 50) : End If
                        If Strings.Left(xlSheet.Cells(YY, XX).value, 18) = "Unsized Commitment" Then : 客戶訂單號_tb.Text = Strings.Mid(xlSheet.Cells(YY, XX).value, 28, 50) : End If
                        If Strings.Left(xlSheet.Cells(YY, XX).value, 12) = "Company Code" Then
                            公司編號_tb.Text = Strings.Mid(xlSheet.Cells(YY, XX).value, 18, 4) : 服務_tb.Text = Strings.Mid(xlSheet.Cells(YY, XX).value, 35, 500) : End If

                        If Strings.Left(xlSheet.Cells(YY, XX).value, 11) = "Total Units" Then
                            For I As Integer = 1 To 50 : 資料數2 = 50 : 進度條2()
                                If xlSheet.Cells(YY, XX + I).value > 0 Then
                                    總雙數_tb.Text = xlSheet.Cells(YY, XX + I).value : Exit For : ProgressBar3.Value = 0 : 最終數2 = 0
                                End If
                            Next : ProgressBar3.Value = 0 : 最終數2 = 0
                        End If
                        If Strings.Left(xlSheet.Cells(YY, XX).value, 11) = "Total Cases" Then
                            For I As Integer = 1 To 50 : 資料數2 = 50 : 進度條2()
                                If xlSheet.Cells(YY, XX + I).value > 0 Then
                                    總案件_tb.Text = xlSheet.Cells(YY, XX + I).value : Exit For : ProgressBar3.Value = 0 : 最終數2 = 0
                                End If
                            Next : ProgressBar3.Value = 0 : 最終數2 = 0
                        End If
                        If Strings.Left(xlSheet.Cells(YY, XX).value, 7) = "Version" Then
                            For I As Integer = 1 To 50 : 資料數2 = 50 : 進度條2()
                                If xlSheet.Cells(YY, XX + I).value > 0 Then
                                    版本_tb.Text = xlSheet.Cells(YY, XX + I).value : Exit For : ProgressBar3.Value = 0 : 最終數2 = 0
                                End If
                            Next : ProgressBar3.Value = 0 : 最終數2 = 0
                        End If
                        If Strings.Left(xlSheet.Cells(YY, XX).value, 3) = "PO#" Then
                            For I As Integer = 1 To 50 : 資料數2 = 50 : 進度條2()
                                If xlSheet.Cells(YY, XX + I).value > 0 Then
                                    力威訂單號_tb.Text = xlSheet.Cells(YY, XX + I).value : Exit For : ProgressBar3.Value = 0 : 最終數2 = 0
                                End If
                            Next : ProgressBar3.Value = 0 : 最終數2 = 0
                        End If

                        If Strings.Left(xlSheet.Cells(YY, XX).value, 7) = "Factory" Then
                            工廠編號_tb.Text = Strings.Mid(xlSheet.Cells(YY, XX).value, 17, 20)
                            For I As Integer = 1 To 3 : If xlSheet.Cells(YY + I, XX).value <> "" Then : 地址1_tb.Text = xlSheet.Cells(YY + I, XX).value : Exit For : End If : Next
                        End If
                        If Strings.Left(xlSheet.Cells(YY, XX).value, 16) = "Forwarding Agent" Then
                            代理編號_cb.Text = Strings.Mid(xlSheet.Cells(YY, XX).value, 20, 20)
                            For I As Integer = 1 To 3 : If xlSheet.Cells(YY + I, XX).value <> "" Then : 訂貨代理_tb.Text = xlSheet.Cells(YY + I, XX).value : Exit For : End If : Next
                        End If

                        If Strings.Left(xlSheet.Cells(YY, XX).value, 22) = "Final Customer Ship To" Then
                            For I As Integer = 1 To 3 : If xlSheet.Cells(YY + I, XX).value <> "" Then : 最終運送_tb.Text = xlSheet.Cells(YY + I, XX).value : Exit For : End If : Next
                        End If
                        If Strings.Left(xlSheet.Cells(YY, XX).value, 10) = "Inco Terms" Then
                            For I As Integer = 1 To 3 : If xlSheet.Cells(YY + I, XX).value <> "" Then : 英科條款_tb.Text = xlSheet.Cells(YY + I, XX).value : Exit For : End If : Next
                        End If
                        If Strings.Left(xlSheet.Cells(YY, XX).value, 15) = "Shipping Method" Then
                            For I As Integer = 1 To 3 : If xlSheet.Cells(YY + I, XX).value <> "" Then : 郵寄方式_tb.Text = xlSheet.Cells(YY + I, XX).value : Exit For : End If : Next
                        End If
                        If Strings.Left(xlSheet.Cells(YY, XX).value, 7) = "Ship To" Then
                            For I As Integer = 1 To 3 : If xlSheet.Cells(YY + I, XX).value <> "" Then : 地址二_tb.Text = xlSheet.Cells(YY + I, XX).value : Exit For : End If : Next
                        End If
                        If Strings.Left(xlSheet.Cells(YY, XX).value, 23) = "NLT - Ex - Factory Date" Then
                            For I As Integer = 1 To 3
                                日期_tb.Text = xlSheet.Cells(YY + I, XX).value
                                If 日期_tb.Text = "Per Item" Then
                                    客戶交期_dtp.Text = Today()
                                    If 日期_tb.Text <> "" Then
                                        Exit For
                                    End If
                                Else
                                    客戶交期_dtp.Text = 客戶交期1_dtp.Text
                                    If 日期_tb.Text <> "" Then
                                        Exit For
                                    End If
                                End If
                            Next
                        End If
                        If Number_tb.Text <> "" And 英科條款_tb.Text <> "" And 供應商編號_tb.Text <> "" And 郵寄方式_tb.Text <> "" And 總案件_tb.Text <> "" And 訂貨代理_tb.Text <> "" And
                            Brand_cb.Text <> "" And 公司編號_tb.Text <> "" And 版本_tb.Text <> "" And 力威訂單號_tb.Text <> "" And 地址1_tb.Text <> "" And 代理編號_cb.Text <> "" And
                            訂單類別_tb.Text <> "" And 服務_tb.Text <> "" And 客戶訂單號_tb.Text <> "" And 總雙數_tb.Text <> "" And 地址二_tb.Text <> "" Then
                            ProgressBar2.Value = 0 : 最終數1 = 0 : Exit For
                        End If
                    Next : ProgressBar2.Value = 0 : 最終數1 = 0
                    If Number_tb.Text <> "" And 英科條款_tb.Text <> "" And 供應商編號_tb.Text <> "" And 郵寄方式_tb.Text <> "" And 總案件_tb.Text <> "" And 訂貨代理_tb.Text <> "" And
                        Brand_cb.Text <> "" And 公司編號_tb.Text <> "" And 版本_tb.Text <> "" And 力威訂單號_tb.Text <> "" And 地址1_tb.Text <> "" And 代理編號_cb.Text <> "" And
                        訂單類別_tb.Text <> "" And 服務_tb.Text <> "" And 客戶訂單號_tb.Text <> "" And 總雙數_tb.Text <> "" And 地址二_tb.Text <> "" Then
                        ProgressBar1.Value = 0 : 最終數 = 0 : Exit For
                    End If
                Next : ProgressBar1.Value = 0 : 最終數 = 0
                If 客戶訂單號_tb.Text = "" Then
                    客戶訂單號_tb.Text = 力威訂單號_tb.Text
                End If
                '-------控制表與明細表------------------------------------------------------------------------------------------------------------------------------------------------------------
                Dim W As Integer = 0 : Dim XX1 As Integer = 1
                For YY As Integer = 25 To 100
                    資料數 = 100 : 進度條()
                    形體名稱 = "" : 型體描述 = ""
                    If Strings.Left(xlSheet.Cells(YY, XX1).value, 12) = "Material No." Then
                        For TT As Integer = 4 To 6 : 資料數1 = 6 : 進度條1()
                            If Strings.Left(xlSheet.Cells(YY + TT, XX1).value, 12) <> "Material No." Then
                                If Strings.Left(xlSheet.Cells(YY + TT, XX1).value, 1) = "M" Or Strings.Left(xlSheet.Cells(YY + TT, XX1).value, 1) = "W" Or
                                Strings.Left(xlSheet.Cells(YY + TT, XX1).value, 1) = "N" Then
                                    If W = 0 Then : Else
                                        控制表_dgv.Rows.Insert(0) : 控制表3_dgv.Rows.Insert(0) : 明細表_dgv.Rows.Insert(0) : 明細表3_dgv.Rows.Insert(0)
                                        填入0值1() : 填入0值1_1()
                                    End If
                                    If Strings.Left(xlSheet.Cells(YY + TT, XX1).value, 1) = "M" Then
                                        明細表_dgv.Rows(0).Cells("DM").Value = "MED" : 明細表3_dgv.Rows(0).Cells("DM").Value = "MED"
                                        控制表_dgv.Rows(0).Cells("楦型").Value = "MED" : 控制表3_dgv.Rows(0).Cells("楦型").Value = "MED"
                                    ElseIf Strings.Left(xlSheet.Cells(YY + TT, XX1).value, 1) = "W" Then
                                        明細表_dgv.Rows(0).Cells("DM").Value = "WIDE" : 明細表3_dgv.Rows(0).Cells("DM").Value = "WIDE"
                                        控制表_dgv.Rows(0).Cells("楦型").Value = "WIDE" : 控制表3_dgv.Rows(0).Cells("楦型").Value = "WIDE"
                                    ElseIf Strings.Left(xlSheet.Cells(YY + TT, XX1).value, 1) = "N" Then
                                        明細表_dgv.Rows(0).Cells("DM").Value = "NARRO" : 明細表3_dgv.Rows(0).Cells("DM").Value = "NARRO"
                                        控制表_dgv.Rows(0).Cells("楦型").Value = "NARRO" : 控制表3_dgv.Rows(0).Cells("楦型").Value = "NARRO"
                                    End If

                                    For UU As Integer = 2 To 70 : 資料數2 = 70 : 進度條2()
                                        If Strings.Left(xlSheet.Cells(YY + 3, XX1 + UU).value, 5) = "Total" Then
                                            控制表_dgv.Rows(0).Cells("訂單數量").Value = xlSheet.Cells(YY + TT, XX1 + UU).value
                                            控制表3_dgv.Rows(0).Cells("訂單數量").Value = xlSheet.Cells(YY + TT, XX1 + UU).value

                                            明細表_dgv.Rows(0).Cells("TOTAL").Value = xlSheet.Cells(YY + TT, XX1 + UU).value
                                            明細表3_dgv.Rows(0).Cells("TOTAL").Value = xlSheet.Cells(YY + TT, XX1 + UU).value
                                            Exit For : ProgressBar3.Value = 0 : 最終數2 = 0
                                        End If
                                        If xlSheet.Cells(YY + 3, XX1 + UU).value = 5 Then
                                            明細表_dgv.Rows(0).Cells("5").Value = xlSheet.Cells(YY + TT, XX1 + UU).value : 明細表3_dgv.Rows(0).Cells("5").Value = xlSheet.Cells(YY + TT, XX1 + UU).value
                                            If IsNumeric(xlSheet.Cells(YY + TT, XX1 + UU).value) Then : Else
                                                明細表_dgv.Rows(0).Cells("5").Value = 0 : 明細表3_dgv.Rows(0).Cells("5").Value = 0 : End If : End If
                                        If xlSheet.Cells(YY + 3, XX1 + UU).value = 5.5 Then
                                            明細表_dgv.Rows(0).Cells("5.5").Value = xlSheet.Cells(YY + TT, XX1 + UU).value : 明細表3_dgv.Rows(0).Cells("5.5").Value = xlSheet.Cells(YY + TT, XX1 + UU).value
                                            If IsNumeric(xlSheet.Cells(YY + TT, XX1 + UU).value) Then : Else
                                                明細表_dgv.Rows(0).Cells("5.5").Value = 0 : 明細表3_dgv.Rows(0).Cells("5.5").Value = 0 : End If : End If
                                        If xlSheet.Cells(YY + 3, XX1 + UU).value = 6 Then
                                            明細表_dgv.Rows(0).Cells("6").Value = xlSheet.Cells(YY + TT, XX1 + UU).value : 明細表3_dgv.Rows(0).Cells("6").Value = xlSheet.Cells(YY + TT, XX1 + UU).value
                                            If IsNumeric(xlSheet.Cells(YY + TT, XX1 + UU).value) Then : Else
                                                明細表_dgv.Rows(0).Cells("6").Value = 0 : 明細表3_dgv.Rows(0).Cells("6").Value = 0 : End If : End If
                                        If xlSheet.Cells(YY + 3, XX1 + UU).value = 6.5 Then
                                            明細表_dgv.Rows(0).Cells("6.5").Value = xlSheet.Cells(YY + TT, XX1 + UU).value : 明細表3_dgv.Rows(0).Cells("6.5").Value = xlSheet.Cells(YY + TT, XX1 + UU).value
                                            If IsNumeric(xlSheet.Cells(YY + TT, XX1 + UU).value) Then : Else
                                                明細表_dgv.Rows(0).Cells("6.5").Value = 0 : 明細表3_dgv.Rows(0).Cells("6.5").Value = 0 : End If : End If
                                        If xlSheet.Cells(YY + 3, XX1 + UU).value = 7 Then
                                            明細表_dgv.Rows(0).Cells("7").Value = xlSheet.Cells(YY + TT, XX1 + UU).value : 明細表3_dgv.Rows(0).Cells("7").Value = xlSheet.Cells(YY + TT, XX1 + UU).value
                                            If IsNumeric(xlSheet.Cells(YY + TT, XX1 + UU).value) Then : Else
                                                明細表_dgv.Rows(0).Cells("7").Value = 0 : 明細表3_dgv.Rows(0).Cells("7").Value = 0 : End If : End If
                                        If xlSheet.Cells(YY + 3, XX1 + UU).value = 7.5 Then
                                            明細表_dgv.Rows(0).Cells("7.5").Value = xlSheet.Cells(YY + TT, XX1 + UU).value : 明細表3_dgv.Rows(0).Cells("7.5").Value = xlSheet.Cells(YY + TT, XX1 + UU).value
                                            If IsNumeric(xlSheet.Cells(YY + TT, XX1 + UU).value) Then : Else
                                                明細表_dgv.Rows(0).Cells("7.5").Value = 0 : 明細表3_dgv.Rows(0).Cells("7.5").Value = 0 : End If : End If
                                        If xlSheet.Cells(YY + 3, XX1 + UU).value = 8 Then
                                            明細表_dgv.Rows(0).Cells("8").Value = xlSheet.Cells(YY + TT, XX1 + UU).value : 明細表3_dgv.Rows(0).Cells("8").Value = xlSheet.Cells(YY + TT, XX1 + UU).value
                                            If IsNumeric(xlSheet.Cells(YY + TT, XX1 + UU).value) Then : Else
                                                明細表_dgv.Rows(0).Cells("8").Value = 0 : 明細表3_dgv.Rows(0).Cells("8").Value = 0 : End If : End If
                                        If xlSheet.Cells(YY + 3, XX1 + UU).value = 8.5 Then
                                            明細表_dgv.Rows(0).Cells("8.5").Value = xlSheet.Cells(YY + TT, XX1 + UU).value : 明細表3_dgv.Rows(0).Cells("8.5").Value = xlSheet.Cells(YY + TT, XX1 + UU).value
                                            If IsNumeric(xlSheet.Cells(YY + TT, XX1 + UU).value) Then : Else
                                                明細表_dgv.Rows(0).Cells("8.5").Value = 0 : 明細表3_dgv.Rows(0).Cells("8.5").Value = 0 : End If : End If
                                        If xlSheet.Cells(YY + 3, XX1 + UU).value = 9 Then
                                            明細表_dgv.Rows(0).Cells("9").Value = xlSheet.Cells(YY + TT, XX1 + UU).value : 明細表3_dgv.Rows(0).Cells("9").Value = xlSheet.Cells(YY + TT, XX1 + UU).value
                                            If IsNumeric(xlSheet.Cells(YY + TT, XX1 + UU).value) Then : Else
                                                明細表_dgv.Rows(0).Cells("9").Value = 0 : 明細表3_dgv.Rows(0).Cells("9").Value = 0 : End If : End If
                                        If xlSheet.Cells(YY + 3, XX1 + UU).value = 9.5 Then
                                            明細表_dgv.Rows(0).Cells("9.5").Value = xlSheet.Cells(YY + TT, XX1 + UU).value : 明細表3_dgv.Rows(0).Cells("9.5").Value = xlSheet.Cells(YY + TT, XX1 + UU).value
                                            If IsNumeric(xlSheet.Cells(YY + TT, XX1 + UU).value) Then : Else
                                                明細表_dgv.Rows(0).Cells("9.5").Value = 0 : 明細表3_dgv.Rows(0).Cells("9.5").Value = 0 : End If : End If
                                        If xlSheet.Cells(YY + 3, XX1 + UU).value = 10 Then
                                            明細表_dgv.Rows(0).Cells("10").Value = xlSheet.Cells(YY + TT, XX1 + UU).value : 明細表3_dgv.Rows(0).Cells("10").Value = xlSheet.Cells(YY + TT, XX1 + UU).value
                                            If IsNumeric(xlSheet.Cells(YY + TT, XX1 + UU).value) Then : Else
                                                明細表_dgv.Rows(0).Cells("10").Value = 0 : 明細表3_dgv.Rows(0).Cells("10").Value = 0 : End If : End If
                                        If xlSheet.Cells(YY + 3, XX1 + UU).value = 10.5 Then
                                            明細表_dgv.Rows(0).Cells("10.5").Value = xlSheet.Cells(YY + TT, XX1 + UU).value : 明細表3_dgv.Rows(0).Cells("10.5").Value = xlSheet.Cells(YY + TT, XX1 + UU).value
                                            If IsNumeric(xlSheet.Cells(YY + TT, XX1 + UU).value) Then : Else
                                                明細表_dgv.Rows(0).Cells("10.5").Value = 0 : 明細表3_dgv.Rows(0).Cells("10.5").Value = 0 : End If : End If
                                        If xlSheet.Cells(YY + 3, XX1 + UU).value = 11 Then
                                            明細表_dgv.Rows(0).Cells("11").Value = xlSheet.Cells(YY + TT, XX1 + UU).value : 明細表3_dgv.Rows(0).Cells("11").Value = xlSheet.Cells(YY + TT, XX1 + UU).value
                                            If IsNumeric(xlSheet.Cells(YY + TT, XX1 + UU).value) Then : Else
                                                明細表_dgv.Rows(0).Cells("11").Value = 0 : 明細表3_dgv.Rows(0).Cells("11").Value = 0 : End If : End If
                                        If xlSheet.Cells(YY + 3, XX1 + UU).value = 11.5 Then
                                            明細表_dgv.Rows(0).Cells("11.5").Value = xlSheet.Cells(YY + TT, XX1 + UU).value : 明細表3_dgv.Rows(0).Cells("11.5").Value = xlSheet.Cells(YY + TT, XX1 + UU).value
                                            If IsNumeric(xlSheet.Cells(YY + TT, XX1 + UU).value) Then : Else
                                                明細表_dgv.Rows(0).Cells("11.5").Value = 0 : 明細表3_dgv.Rows(0).Cells("11.5").Value = 0 : End If : End If
                                        If xlSheet.Cells(YY + 3, XX1 + UU).value = 12 Then
                                            明細表_dgv.Rows(0).Cells("12").Value = xlSheet.Cells(YY + TT, XX1 + UU).value : 明細表3_dgv.Rows(0).Cells("12").Value = xlSheet.Cells(YY + TT, XX1 + UU).value
                                            If IsNumeric(xlSheet.Cells(YY + TT, XX1 + UU).value) Then : Else
                                                明細表_dgv.Rows(0).Cells("12").Value = 0 : 明細表3_dgv.Rows(0).Cells("12").Value = 0 : End If : End If
                                        If xlSheet.Cells(YY + 3, XX1 + UU).value = 12.5 Then
                                            明細表_dgv.Rows(0).Cells("12.5").Value = xlSheet.Cells(YY + TT, XX1 + UU).value : 明細表3_dgv.Rows(0).Cells("12.5").Value = xlSheet.Cells(YY + TT, XX1 + UU).value
                                            If IsNumeric(xlSheet.Cells(YY + TT, XX1 + UU).value) Then : Else
                                                明細表_dgv.Rows(0).Cells("12.5").Value = 0 : 明細表3_dgv.Rows(0).Cells("12.5").Value = 0 : End If : End If
                                        If xlSheet.Cells(YY + 3, XX1 + UU).value = 13 Then
                                            明細表_dgv.Rows(0).Cells("13").Value = xlSheet.Cells(YY + TT, XX1 + UU).value : 明細表3_dgv.Rows(0).Cells("13").Value = xlSheet.Cells(YY + TT, XX1 + UU).value
                                            If IsNumeric(xlSheet.Cells(YY + TT, XX1 + UU).value) Then : Else
                                                明細表_dgv.Rows(0).Cells("13").Value = 0 : 明細表3_dgv.Rows(0).Cells("13").Value = 0 : End If : End If
                                        If xlSheet.Cells(YY + 3, XX1 + UU).value = 14 Then
                                            明細表_dgv.Rows(0).Cells("14").Value = xlSheet.Cells(YY + TT, XX1 + UU).value : 明細表3_dgv.Rows(0).Cells("14").Value = xlSheet.Cells(YY + TT, XX1 + UU).value
                                            If IsNumeric(xlSheet.Cells(YY + TT, XX1 + UU).value) Then : Else
                                                明細表_dgv.Rows(0).Cells("14").Value = 0 : 明細表3_dgv.Rows(0).Cells("14").Value = 0 : End If : End If
                                    Next : ProgressBar3.Value = 0 : 最終數2 = 0

                                    明細表_dgv.Rows(0).Cells("ItemNumber").Value = xlSheet.Cells(YY + 1, XX1).value
                                    明細表_dgv.Rows(0).Cells("天盾流水號").Value = Number_tb.Text
                                    明細表_dgv.Rows(0).Cells("客戶訂單號").Value = 客戶訂單號_tb.Text

                                    明細表3_dgv.Rows(0).Cells("ItemNumber").Value = xlSheet.Cells(YY + 1, XX1).value
                                    明細表3_dgv.Rows(0).Cells("天盾流水號").Value = Number_tb.Text
                                    明細表3_dgv.Rows(0).Cells("客戶訂單號").Value = 客戶訂單號_tb.Text

                                    控制表_dgv.Rows(0).Cells("訂單流水號").Value = Number_tb.Text
                                    控制表_dgv.Rows(0).Cells("年份季度").Value = SEASON_cb.Text
                                    控制表_dgv.Rows(0).Cells("客戶訂單號").Value = 客戶訂單號_tb.Text
                                    控制表_dgv.Rows(0).Cells("客戶交期").Value = Strings.Format(客戶交期_dtp.Value, "yyyy/MM/dd")
                                    控制表_dgv.Rows(0).Cells("工廠回復交期").Value = Strings.Format(客戶交期_dtp.Value, "yyyy/MM/dd")
                                    控制表_dgv.Rows(0).Cells("生產工廠").Value = FTY_cb.Text
                                    控制表_dgv.Rows(0).Cells("訂單種類").Value = DIV_cb.Text

                                    控制表3_dgv.Rows(0).Cells("訂單流水號").Value = Number_tb.Text
                                    控制表3_dgv.Rows(0).Cells("年份季度").Value = SEASON_cb.Text
                                    控制表3_dgv.Rows(0).Cells("客戶訂單號").Value = 客戶訂單號_tb.Text
                                    控制表3_dgv.Rows(0).Cells("客戶交期").Value = Strings.Format(客戶交期_dtp.Value, "yyyy/MM/dd")
                                    控制表3_dgv.Rows(0).Cells("工廠回復交期").Value = Strings.Format(客戶交期_dtp.Value, "yyyy/MM/dd")
                                    控制表3_dgv.Rows(0).Cells("生產工廠").Value = FTY_cb.Text
                                    控制表3_dgv.Rows(0).Cells("訂單種類").Value = DIV_cb.Text
                                    For I As Integer = 0 To 60 : 資料數2 = 60 : 進度條2()
                                        If Strings.Left(xlSheet.Cells(YY, XX1 + I).value, 20) = "Material Description" Then
                                            For WW As Integer = 1 To 100 : 資料數3 = 100 : 進度條3()
                                                If WW = 1 Then
                                                    形體名稱 = Strings.Left(xlSheet.Cells(YY + 1, XX1 + I).value, 1)
                                                End If
                                                If WW > 1 Then
                                                    If Strings.Mid(xlSheet.Cells(YY + 1, XX1 + I).value, WW, 1) = "," Then
                                                        Dim Z As Integer = WW + 1
                                                        For ZZ As Integer = Z To 200
                                                            If Strings.Mid(xlSheet.Cells(YY + 1, XX1 + I).value, ZZ, 1) = "," Then
                                                                Exit For
                                                            Else
                                                                型體描述 &= Strings.Mid(xlSheet.Cells(YY + 1, XX1 + I).value, ZZ, 1)
                                                            End If
                                                        Next
                                                        Exit For : ProgressBar4.Value = 0 : 最終數3 = 0
                                                    Else
                                                        形體名稱 &= Strings.Mid(xlSheet.Cells(YY + 1, XX1 + I).value, WW, 1)
                                                    End If
                                                End If
                                            Next : ProgressBar4.Value = 0 : 最終數3 = 0
                                            控制表_dgv.Rows(0).Cells("形體號").Value = 形體名稱 : 控制表3_dgv.Rows(0).Cells("形體號").Value = 形體名稱
                                            明細表_dgv.Rows(0).Cells("ProductName").Value = 形體名稱 : 明細表3_dgv.Rows(0).Cells("ProductName").Value = 形體名稱
                                            明細表_dgv.Rows(0).Cells("ProductDescription").Value = 型體描述 : 明細表3_dgv.Rows(0).Cells("ProductDescription").Value = 型體描述
                                        End If
                                        If Strings.Left(xlSheet.Cells(YY, XX1 + I).value, 8) = "Colorway" Then
                                            控制表_dgv.Rows(0).Cells("顏色").Value = xlSheet.Cells(YY + 1, XX1 + I).value
                                            控制表3_dgv.Rows(0).Cells("顏色").Value = xlSheet.Cells(YY + 1, XX1 + I).value
                                            明細表_dgv.Rows(0).Cells("Color").Value = xlSheet.Cells(YY + 1, XX1 + I).value
                                            明細表3_dgv.Rows(0).Cells("Color").Value = xlSheet.Cells(YY + 1, XX1 + I).value
                                        End If
                                        If Strings.Left(xlSheet.Cells(YY, XX1 + I).value, 10) = "Product ID" Then
                                            控制表_dgv.Rows(0).Cells("ProductID").Value = xlSheet.Cells(YY + 1, XX1 + I).value
                                            控制表3_dgv.Rows(0).Cells("ProductID").Value = xlSheet.Cells(YY + 1, XX1 + I).value
                                        End If
                                        If Strings.Left(xlSheet.Cells(YY, XX1 + I).value, 3) = "UoM" Then
                                            控制表_dgv.Rows(0).Cells("UoM").Value = xlSheet.Cells(YY + 1, XX1 + I).value
                                            控制表3_dgv.Rows(0).Cells("UoM").Value = xlSheet.Cells(YY + 1, XX1 + I).value
                                        End If
                                    Next : ProgressBar3.Value = 0 : 最終數2 = 0
                                    W += 1
                                End If
                            End If
                        Next : ProgressBar2.Value = 0 : 最終數1 = 0
                    End If
                    If Strings.Left(xlSheet.Cells(YY, XX1).value, 4) = "Item" Then
                        ProgressBar1.Value = 0 : 最終數 = 0 : Exit For
                    End If
                Next : ProgressBar1.Value = 0 : 最終數 = 0
                '-------裝箱控制表--------------------------------------------------------------------------------------------------------------------------------------------------------------------
                Dim W1 As Integer = 0 : Dim W2 As Integer = 0 : Dim XX2 As Integer = 1
                For YY As Integer = 30 To 300 : 資料數 = 300 : 進度條()
                    項目 = ""
                    If Strings.Left(xlSheet.Cells(YY, XX2).value, 4) = "Item" Then
                        If W1 = 0 Then : Else
                            裝箱控制_dgv.Rows.Insert(0) : 裝箱控制3_dgv.Rows.Insert(0)
                        End If

                        裝箱控制_dgv.Rows(0).Cells("天盾流水號").Value = Number_tb.Text : 裝箱控制_dgv.Rows(0).Cells("客戶訂單號").Value = 客戶訂單號_tb.Text
                        裝箱控制_dgv.Rows(0).Cells("力威訂單號").Value = 力威訂單號_tb.Text
                        裝箱控制3_dgv.Rows(0).Cells("天盾流水號").Value = Number_tb.Text : 裝箱控制3_dgv.Rows(0).Cells("客戶訂單號").Value = 客戶訂單號_tb.Text
                        裝箱控制3_dgv.Rows(0).Cells("力威訂單號").Value = 力威訂單號_tb.Text

                        For I As Integer = 0 To 60 : 資料數1 = 60 : 進度條1()
                            If Strings.Left(xlSheet.Cells(YY, XX2 + I).value, 4) = "Item" Then
                                裝箱控制_dgv.Rows(0).Cells("Item").Value = xlSheet.Cells(YY + 1, XX2 + I).value
                                裝箱控制3_dgv.Rows(0).Cells("Item").Value = xlSheet.Cells(YY + 1, XX2 + I).value
                                項目 = xlSheet.Cells(YY + 1, XX2 + I).value : End If
                            If Strings.Left(xlSheet.Cells(YY, XX2 + I).value, 10) = "Material #" Then
                                裝箱控制_dgv.Rows(0).Cells("Material").Value = xlSheet.Cells(YY + 1, XX2 + I).value
                                裝箱控制3_dgv.Rows(0).Cells("Material").Value = xlSheet.Cells(YY + 1, XX2 + I).value
                                型體資料 = xlSheet.Cells(YY + 1, XX2 + I).value : End If
                            If Strings.Left(xlSheet.Cells(YY, XX2 + I).value, 20) = "Material Description" Then
                                裝箱控制_dgv.Rows(0).Cells("MaterialDescription").Value = xlSheet.Cells(YY + 1, XX2 + I).value
                                裝箱控制3_dgv.Rows(0).Cells("MaterialDescription").Value = xlSheet.Cells(YY + 1, XX2 + I).value
                            End If
                            If Strings.Left(xlSheet.Cells(YY, XX2 + I).value, 3) = "Qty" Then
                                裝箱控制_dgv.Rows(0).Cells("Qty").Value = xlSheet.Cells(YY + 1, XX2 + I).value
                                裝箱控制3_dgv.Rows(0).Cells("Qty").Value = xlSheet.Cells(YY + 1, XX2 + I).value
                            End If
                            If Strings.Left(xlSheet.Cells(YY, XX2 + I).value, 3) = "UoM" Then
                                裝箱控制_dgv.Rows(0).Cells("UoM").Value = xlSheet.Cells(YY + 1, XX2 + I).value
                                裝箱控制3_dgv.Rows(0).Cells("UoM").Value = xlSheet.Cells(YY + 1, XX2 + I).value
                                Exit For : ProgressBar2.Value = 0 : 最終數1 = 0
                            End If
                        Next : ProgressBar2.Value = 0 : 最終數1 = 0

                        For I As Integer = 3 To 60 : 資料數1 = 60 : 進度條1()
                            If Strings.Left(xlSheet.Cells(YY + I, XX2).value, 13) = "PO Item Text:" Then
                                裝箱控制_dgv.Rows(0).Cells("POItemText").Value = Strings.Mid(xlSheet.Cells(YY + I, XX2).value, 14, 300)
                                裝箱控制3_dgv.Rows(0).Cells("POItemText").Value = Strings.Mid(xlSheet.Cells(YY + I, XX2).value, 14, 300)
                            End If

                            If Strings.Left(xlSheet.Cells(YY + I, XX2).value, 13) = "Cust Assign #" Then
                                For II As Integer = 19 To 60 : 資料數2 = 60 : 進度條2()
                                    If Strings.Left(xlSheet.Cells(YY + I, XX2 + II).value, 9) = "Units/Ctn" Then
                                        For III As Integer = 1 To 5 : 資料數3 = 5 : 進度條3()
                                            裝箱控制_dgv.Rows(0).Cells("UnitsCtn").Value = xlSheet.Cells(YY + I + III, XX2 + II).value
                                            裝箱控制3_dgv.Rows(0).Cells("UnitsCtn").Value = xlSheet.Cells(YY + I + III, XX2 + II).value
                                            If Not IsNothing(裝箱控制_dgv.Rows(0).Cells("UnitsCtn").Value) Then : Exit For : ProgressBar4.Value = 0 : 最終數3 = 0 : End If
                                        Next : ProgressBar4.Value = 0 : 最終數3 = 0
                                    End If
                                    If Strings.Left(xlSheet.Cells(YY + I, XX2 + II).value, 6) = "No/Ctn" Then
                                        For III As Integer = 1 To 5 : 資料數3 = 5 : 進度條3()
                                            裝箱控制_dgv.Rows(0).Cells("NoCtn").Value = xlSheet.Cells(YY + I + III, XX2 + II).value
                                            裝箱控制3_dgv.Rows(0).Cells("NoCtn").Value = xlSheet.Cells(YY + I + III, XX2 + II).value
                                            If Not IsNothing(裝箱控制_dgv.Rows(0).Cells("NoCtn").Value) Then : Exit For : ProgressBar4.Value = 0 : 最終數3 = 0 : End If
                                        Next : ProgressBar4.Value = 0 : 最終數3 = 0
                                    End If
                                    If Strings.Left(xlSheet.Cells(YY + I, XX2 + II).value, 6) = "Ctn No" Then
                                        For III As Integer = 1 To 5 : 資料數3 = 5 : 進度條3()
                                            裝箱控制_dgv.Rows(0).Cells("CtnNo").Value = xlSheet.Cells(YY + I + III, XX2 + II).value
                                            裝箱控制3_dgv.Rows(0).Cells("CtnNo").Value = xlSheet.Cells(YY + I + III, XX2 + II).value
                                            If Not IsNothing(裝箱控制_dgv.Rows(0).Cells("CtnNo").Value) Then : Exit For : ProgressBar4.Value = 0 : 最終數3 = 0 : End If
                                        Next : ProgressBar4.Value = 0 : 最終數3 = 0
                                    End If
                                    If Strings.Left(xlSheet.Cells(YY + I, XX2 + II).value, 5) = "Units" Then
                                        For III As Integer = 1 To 5 : 資料數3 = 5 : 進度條3()
                                            裝箱控制_dgv.Rows(0).Cells("Units2").Value = xlSheet.Cells(YY + I + III, XX2 + II).value
                                            裝箱控制3_dgv.Rows(0).Cells("Units2").Value = xlSheet.Cells(YY + I + III, XX2 + II).value
                                            If Not IsNothing(裝箱控制_dgv.Rows(0).Cells("Units2").Value) Then : Exit For : ProgressBar4.Value = 0 : 最終數3 = 0 : End If
                                        Next : ProgressBar4.Value = 0 : 最終數3 = 0
                                    End If
                                Next : ProgressBar3.Value = 0 : 最終數2 = 0

                                For II As Integer = 0 To 10 : 資料數2 = 10 : 進度條2()
                                    If Strings.Left(xlSheet.Cells(YY + I, XX2 + II).value, 5) = "Width" Then
                                        For TT As Integer = 1 To 3
                                            If Strings.Left(xlSheet.Cells(YY + I + TT, XX2 + II).value, 1) = "M" Or Strings.Left(xlSheet.Cells(YY + I + TT, XX2 + II).value, 1) = "W" Or
                                                Strings.Left(xlSheet.Cells(YY + I + TT, XX2 + II).value, 1) = "N" Then
                                                If W2 = 0 Then : Else
                                                    裝箱明細_dgv.Rows.Insert(0) : 裝箱明細3_dgv.Rows.Insert(0)
                                                    填入0值2() : 填入0值2_1()
                                                End If

                                                裝箱明細_dgv.Rows(0).Cells("天盾流水號").Value = Number_tb.Text
                                                裝箱明細_dgv.Rows(0).Cells("客戶訂單號").Value = 客戶訂單號_tb.Text
                                                裝箱明細_dgv.Rows(0).Cells("力威訂單號").Value = 力威訂單號_tb.Text
                                                裝箱明細_dgv.Rows(0).Cells("Item").Value = 項目
                                                裝箱明細_dgv.Rows(0).Cells("Material").Value = 型體資料

                                                裝箱明細3_dgv.Rows(0).Cells("天盾流水號").Value = Number_tb.Text
                                                裝箱明細3_dgv.Rows(0).Cells("客戶訂單號").Value = 客戶訂單號_tb.Text
                                                裝箱明細3_dgv.Rows(0).Cells("力威訂單號").Value = 力威訂單號_tb.Text
                                                裝箱明細3_dgv.Rows(0).Cells("Item").Value = 項目
                                                裝箱明細3_dgv.Rows(0).Cells("Material").Value = 型體資料

                                                If Strings.Left(xlSheet.Cells(YY + I + TT, XX2 + II).value, 1) = "M" Then
                                                    裝箱明細_dgv.Rows(0).Cells("DM").Value = "MED" : 裝箱明細3_dgv.Rows(0).Cells("DM").Value = "MED"
                                                ElseIf Strings.Left(xlSheet.Cells(YY + I + TT, XX2 + II).value, 1) = "W" Then
                                                    裝箱明細_dgv.Rows(0).Cells("DM").Value = "WIDE" : 裝箱明細3_dgv.Rows(0).Cells("DM").Value = "WIDE"
                                                ElseIf Strings.Left(xlSheet.Cells(YY + I + TT, XX2 + II).value, 1) = "N" Then
                                                    裝箱明細_dgv.Rows(0).Cells("DM").Value = "NARRO" : 裝箱明細3_dgv.Rows(0).Cells("DM").Value = "NARRO"
                                                End If
                                                For UU As Integer = 1 To 70 : 資料數3 = 70 : 進度條3()
                                                    If Not IsNumeric(xlSheet.Cells(YY + I, XX2 + II + UU).value) Then : Else
                                                        If xlSheet.Cells(YY + I, XX2 + II + UU).value = 5 Then
                                                            裝箱明細_dgv.Rows(0).Cells("5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
                                                            裝箱明細3_dgv.Rows(0).Cells("5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
                                                            If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else
                                                                裝箱明細_dgv.Rows(0).Cells("5").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("5").Value = 0 : End If : End If
                                                        If xlSheet.Cells(YY + I, XX2 + II + UU).value = 5.5 Then
                                                            裝箱明細_dgv.Rows(0).Cells("5.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
                                                            裝箱明細3_dgv.Rows(0).Cells("5.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
                                                            If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else
                                                                裝箱明細_dgv.Rows(0).Cells("5.5").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("5.5").Value = 0 : End If : End If
                                                        If xlSheet.Cells(YY + I, XX2 + II + UU).value = 6 Then
                                                            裝箱明細_dgv.Rows(0).Cells("6").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
                                                            裝箱明細3_dgv.Rows(0).Cells("6").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
                                                            If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else
                                                                裝箱明細_dgv.Rows(0).Cells("6").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("6").Value = 0 : End If : End If
                                                        If xlSheet.Cells(YY + I, XX2 + II + UU).value = 6.5 Then
                                                            裝箱明細_dgv.Rows(0).Cells("6.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
                                                            裝箱明細3_dgv.Rows(0).Cells("6.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
                                                            If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else
                                                                裝箱明細_dgv.Rows(0).Cells("6.5").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("6.5").Value = 0 : End If : End If
                                                        If xlSheet.Cells(YY + I, XX2 + II + UU).value = 7 Then
                                                            裝箱明細_dgv.Rows(0).Cells("7").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
                                                            裝箱明細3_dgv.Rows(0).Cells("7").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
                                                            If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else
                                                                裝箱明細_dgv.Rows(0).Cells("7").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("7").Value = 0 : End If : End If
                                                        If xlSheet.Cells(YY + I, XX2 + II + UU).value = 7.5 Then
                                                            裝箱明細_dgv.Rows(0).Cells("7.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
                                                            裝箱明細3_dgv.Rows(0).Cells("7.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
                                                            If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else
                                                                裝箱明細_dgv.Rows(0).Cells("7.5").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("7.5").Value = 0 : End If : End If
                                                        If xlSheet.Cells(YY + I, XX2 + II + UU).value = 8 Then
                                                            裝箱明細_dgv.Rows(0).Cells("8").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
                                                            裝箱明細3_dgv.Rows(0).Cells("8").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
                                                            If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else
                                                                裝箱明細_dgv.Rows(0).Cells("8").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("8").Value = 0 : End If : End If
                                                        If xlSheet.Cells(YY + I, XX2 + II + UU).value = 8.5 Then
                                                            裝箱明細_dgv.Rows(0).Cells("8.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
                                                            裝箱明細3_dgv.Rows(0).Cells("8.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
                                                            If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else
                                                                裝箱明細_dgv.Rows(0).Cells("8.5").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("8.5").Value = 0 : End If : End If
                                                        If xlSheet.Cells(YY + I, XX2 + II + UU).value = 9 Then
                                                            裝箱明細_dgv.Rows(0).Cells("9").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
                                                            裝箱明細3_dgv.Rows(0).Cells("9").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
                                                            If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else
                                                                裝箱明細_dgv.Rows(0).Cells("9").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("9").Value = 0 : End If : End If
                                                        If xlSheet.Cells(YY + I, XX2 + II + UU).value = 9.5 Then
                                                            裝箱明細_dgv.Rows(0).Cells("9.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
                                                            裝箱明細3_dgv.Rows(0).Cells("9.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
                                                            If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else
                                                                裝箱明細_dgv.Rows(0).Cells("9.5").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("9.5").Value = 0 : End If : End If
                                                        If xlSheet.Cells(YY + I, XX2 + II + UU).value = 10 Then
                                                            裝箱明細_dgv.Rows(0).Cells("10").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
                                                            裝箱明細3_dgv.Rows(0).Cells("10").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
                                                            If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else
                                                                裝箱明細_dgv.Rows(0).Cells("10").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("10").Value = 0 : End If : End If
                                                        If xlSheet.Cells(YY + I, XX2 + II + UU).value = 10.5 Then
                                                            裝箱明細_dgv.Rows(0).Cells("10.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
                                                            裝箱明細3_dgv.Rows(0).Cells("10.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
                                                            If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else
                                                                裝箱明細_dgv.Rows(0).Cells("10.5").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("10.5").Value = 0 : End If : End If
                                                        If xlSheet.Cells(YY + I, XX2 + II + UU).value = 11 Then
                                                            裝箱明細_dgv.Rows(0).Cells("11").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
                                                            裝箱明細3_dgv.Rows(0).Cells("11").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
                                                            If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else
                                                                裝箱明細_dgv.Rows(0).Cells("11").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("11").Value = 0 : End If : End If
                                                        If xlSheet.Cells(YY + I, XX2 + II + UU).value = 11.5 Then
                                                            裝箱明細_dgv.Rows(0).Cells("11.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
                                                            裝箱明細3_dgv.Rows(0).Cells("11.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
                                                            If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else
                                                                裝箱明細_dgv.Rows(0).Cells("11.5").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("11.5").Value = 0 : End If : End If
                                                        If xlSheet.Cells(YY + I, XX2 + II + UU).value = 12 Then
                                                            裝箱明細_dgv.Rows(0).Cells("12").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
                                                            裝箱明細3_dgv.Rows(0).Cells("12").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
                                                            If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else
                                                                裝箱明細_dgv.Rows(0).Cells("12").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("12").Value = 0 : End If : End If
                                                        If xlSheet.Cells(YY + I, XX2 + II + UU).value = 12.5 Then
                                                            裝箱明細_dgv.Rows(0).Cells("12.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
                                                            裝箱明細3_dgv.Rows(0).Cells("12.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
                                                            If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else
                                                                裝箱明細_dgv.Rows(0).Cells("12.5").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("12.5").Value = 0 : End If : End If
                                                        If xlSheet.Cells(YY + I, XX2 + II + UU).value = 13 Then
                                                            裝箱明細_dgv.Rows(0).Cells("13").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
                                                            裝箱明細3_dgv.Rows(0).Cells("13").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
                                                            If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else
                                                                裝箱明細_dgv.Rows(0).Cells("13").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("13").Value = 0 : End If : End If
                                                        If xlSheet.Cells(YY + I, XX2 + II + UU).value = 14 Then
                                                            裝箱明細_dgv.Rows(0).Cells("14").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
                                                            裝箱明細3_dgv.Rows(0).Cells("14").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
                                                            If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else
                                                                裝箱明細_dgv.Rows(0).Cells("14").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("14").Value = 0 : End If : End If
                                                    End If
                                                Next : ProgressBar4.Value = 0 : 最終數3 = 0
                                                W2 += 1
                                            End If
                                        Next
                                    End If
                                Next : ProgressBar3.Value = 0 : 最終數2 = 0
                                Exit For : ProgressBar2.Value = 0 : 最終數1 = 0
                            End If

                            If Strings.Left(xlSheet.Cells(YY + I, XX2).value, 19) = "Product Description" Then
                                裝箱控制_dgv.Rows(0).Cells("ProductDescription").Value = xlSheet.Cells(YY + I + 1, XX2).value
                                裝箱控制3_dgv.Rows(0).Cells("ProductDescription").Value = xlSheet.Cells(YY + I + 1, XX2).value
                                For II As Integer = 35 To 60 : 資料數2 = 60 : 進度條2()
                                    If Strings.Left(xlSheet.Cells(YY + I, XX2 + II).value, 10) = "Inco Terms" Then
                                        裝箱控制_dgv.Rows(0).Cells("IncoTerms").Value = xlSheet.Cells(YY + I + 1, XX2 + II).value
                                        裝箱控制3_dgv.Rows(0).Cells("IncoTerms").Value = xlSheet.Cells(YY + I + 1, XX2 + II).value
                                        Exit For : ProgressBar3.Value = 0 : 最終數2 = 0
                                    End If
                                Next : ProgressBar3.Value = 0 : 最終數2 = 0
                            End If

                            If Strings.Left(xlSheet.Cells(YY + I, XX2).value, 22) = "Style and Descriptions" Then
                                For II As Integer = 15 To 50 : 資料數2 = 50 : 進度條2()
                                    If Strings.Left(xlSheet.Cells(YY + I, XX2 + II).value, 13) = "Customer Data" Then
                                        For III As Integer = 1 To 5
                                            If xlSheet.Cells(YY + I + III, XX2 + II).value <> "" Then
                                                裝箱控制_dgv.Rows(0).Cells("CustomerData").Value = xlSheet.Cells(YY + I + III, XX2 + II).value
                                                裝箱控制3_dgv.Rows(0).Cells("CustomerData").Value = xlSheet.Cells(YY + I + III, XX2 + II).value
                                                Exit For
                                            End If
                                        Next
                                        Exit For : ProgressBar3.Value = 0 : 最終數2 = 0
                                    End If
                                Next : ProgressBar3.Value = 0 : 最終數2 = 0

                                For II As Integer = 0 To 50 : 資料數2 = 50 : 進度條2()
                                    For III As Integer = 20 To 50 : 資料數3 = 50 : 進度條3()
                                        If Strings.Left(xlSheet.Cells(YY + I + II, XX2 + III).value, 22) = "Final Customer Ship To" Then
                                            For FF As Integer = 1 To 3
                                                If xlSheet.Cells(YY + I + II + FF, XX2 + III).value <> "" Then
                                                    裝箱控制_dgv.Rows(0).Cells("FinalCustomerShipTo").Value = xlSheet.Cells(YY + I + II + FF, XX2 + III).value
                                                    裝箱控制3_dgv.Rows(0).Cells("FinalCustomerShipTo").Value = xlSheet.Cells(YY + I + II + FF, XX2 + III).value
                                                    Exit For
                                                End If
                                            Next
                                        End If

                                        If Strings.Left(xlSheet.Cells(YY + I + II, XX2 + III).value, 12) = "Customs Info" Then
                                            For UU As Integer = 1 To 5
                                                For IIII As Integer = 0 To 30
                                                    If Strings.Left(xlSheet.Cells(YY + I + II + UU, XX2 + III + IIII).value, 4) = "Size" Then
                                                        For IIIII As Integer = 1 To 3
                                                            裝箱控制_dgv.Rows(0).Cells("Size").Value = xlSheet.Cells(YY + I + II + IIIII + UU, XX2 + III + IIII).value
                                                            裝箱控制3_dgv.Rows(0).Cells("Size").Value = xlSheet.Cells(YY + I + II + IIIII + UU, XX2 + III + IIII).value
                                                            If Not IsNothing(裝箱控制_dgv.Rows(0).Cells("Size").Value) Then : Exit For : End If
                                                        Next
                                                    End If
                                                    If Strings.Left(xlSheet.Cells(YY + I + II + UU, XX2 + III + IIII).value, 3) = "HS#" Then
                                                        For IIIII As Integer = 1 To 3
                                                            裝箱控制_dgv.Rows(0).Cells("HS").Value = xlSheet.Cells(YY + I + II + IIIII + UU, XX2 + III + IIII).value
                                                            裝箱控制3_dgv.Rows(0).Cells("HS").Value = xlSheet.Cells(YY + I + II + IIIII + UU, XX2 + III + IIII).value
                                                            If Not IsNothing(裝箱控制_dgv.Rows(0).Cells("HS").Value) Then : Exit For : End If
                                                        Next
                                                    End If
                                                    If Strings.Left(xlSheet.Cells(YY + I + II + UU, XX2 + III + IIII).value, 5) = "Units" Then
                                                        For IIIII As Integer = 1 To 3
                                                            裝箱控制_dgv.Rows(0).Cells("Units1").Value = xlSheet.Cells(YY + I + II + IIIII + UU, XX2 + III + IIII).value
                                                            裝箱控制3_dgv.Rows(0).Cells("Units1").Value = xlSheet.Cells(YY + I + II + IIIII + UU, XX2 + III + IIII).value
                                                            If Not IsNothing(裝箱控制_dgv.Rows(0).Cells("Units1").Value) Then : Exit For : End If
                                                        Next
                                                    End If
                                                    If Strings.Left(xlSheet.Cells(YY + I + II + UU, XX2 + III + IIII).value, 9) = "Dty Rate%" Then
                                                        For IIIII As Integer = 1 To 3
                                                            裝箱控制_dgv.Rows(0).Cells("DtyRate").Value = xlSheet.Cells(YY + I + II + IIIII + UU, XX2 + III + IIII).value
                                                            裝箱控制3_dgv.Rows(0).Cells("DtyRate").Value = xlSheet.Cells(YY + I + II + IIIII + UU, XX2 + III + IIII).value
                                                            If Not IsNothing(裝箱控制_dgv.Rows(0).Cells("DtyRate").Value) Then : Exit For : End If
                                                        Next
                                                    End If
                                                    If Strings.Left(xlSheet.Cells(YY + I + II + UU, XX2 + III + IIII).value, 10) = "Add On Dty" Then
                                                        For IIIII As Integer = 1 To 3
                                                            裝箱控制_dgv.Rows(0).Cells("AddOnDty").Value = xlSheet.Cells(YY + I + II + IIIII + UU, XX2 + III + IIII).value
                                                            裝箱控制3_dgv.Rows(0).Cells("AddOnDty").Value = xlSheet.Cells(YY + I + II + IIIII + UU, XX2 + III + IIII).value
                                                            If Not IsNothing(裝箱控制_dgv.Rows(0).Cells("AddOnDty").Value) Then : Exit For : End If
                                                        Next : Exit For
                                                    End If
                                                Next
                                            Next
                                        End If
                                    Next : ProgressBar4.Value = 0 : 最終數3 = 0

                                    If Strings.Left(xlSheet.Cells(YY + I + II, XX2).value, 11) = "PLM Season:" Then
                                        For III As Integer = 2 To 19 : 資料數3 = 19 : 進度條3()
                                            '---------------找出'並換成-號
                                            STR1 = ""
                                            For ZZ As Integer = 1 To 300
                                                If Strings.Mid(xlSheet.Cells(YY + I + II, XX2 + III).value, ZZ, 1) = "'" Then
                                                    STR1 &= "-"
                                                ElseIf Strings.Mid(xlSheet.Cells(YY + I + II, XX2 + III).value, ZZ, 1) <> "'" Then
                                                    STR1 &= Strings.Mid(xlSheet.Cells(YY + I + II, XX2 + III).value, ZZ, 1)
                                                End If
                                            Next
                                            裝箱控制_dgv.Rows(0).Cells("PLMSeason").Value = STR1
                                            裝箱控制3_dgv.Rows(0).Cells("PLMSeason").Value = STR1
                                            If 裝箱控制_dgv.Rows(0).Cells("PLMSeason").Value <> "" Then : Exit For : ProgressBar4.Value = 0 : 最終數3 = 0 : End If
                                        Next : ProgressBar4.Value = 0 : 最終數3 = 0
                                    End If
                                    If Strings.Left(xlSheet.Cells(YY + I + II, XX2).value, 11) = "Product ID:" Then
                                        For III As Integer = 2 To 19 : 資料數3 = 19 : 進度條3()
                                            裝箱控制_dgv.Rows(0).Cells("ProductID").Value = xlSheet.Cells(YY + I + II, XX2 + III).value
                                            裝箱控制3_dgv.Rows(0).Cells("ProductID").Value = xlSheet.Cells(YY + I + II, XX2 + III).value
                                            If Not IsNothing(裝箱控制_dgv.Rows(0).Cells("ProductID").Value) Then : Exit For : ProgressBar4.Value = 0 : 最終數3 = 0 : End If
                                        Next : ProgressBar4.Value = 0 : 最終數3 = 0
                                    End If
                                    If Strings.Left(xlSheet.Cells(YY + I + II, XX2).value, 8) = "Stock #:" Then
                                        For III As Integer = 2 To 19 : 資料數3 = 19 : 進度條3()
                                            裝箱控制_dgv.Rows(0).Cells("Stock").Value = xlSheet.Cells(YY + I + II, XX2 + III).value
                                            裝箱控制3_dgv.Rows(0).Cells("Stock").Value = xlSheet.Cells(YY + I + II, XX2 + III).value
                                            If Not IsNothing(裝箱控制_dgv.Rows(0).Cells("Stock").Value) Then : Exit For : ProgressBar4.Value = 0 : 最終數3 = 0 : End If
                                        Next : ProgressBar4.Value = 0 : 最終數3 = 0
                                    End If
                                    If Strings.Left(xlSheet.Cells(YY + I + II, XX2).value, 9) = "Stk Name:" Then
                                        For III As Integer = 2 To 19 : 資料數3 = 19 : 進度條3()
                                            裝箱控制_dgv.Rows(0).Cells("StkName").Value = xlSheet.Cells(YY + I + II, XX2 + III).value
                                            裝箱控制3_dgv.Rows(0).Cells("StkName").Value = xlSheet.Cells(YY + I + II, XX2 + III).value
                                            If Not IsNothing(裝箱控制_dgv.Rows(0).Cells("StkName").Value) Then : Exit For : ProgressBar4.Value = 0 : 最終數3 = 0 : End If
                                        Next : ProgressBar4.Value = 0 : 最終數3 = 0
                                    End If
                                    If Strings.Left(xlSheet.Cells(YY + I + II, XX2).value, 11) = "Cust Stk #:" Then
                                        For III As Integer = 2 To 19 : 資料數3 = 19 : 進度條3()
                                            裝箱控制_dgv.Rows(0).Cells("CustStk").Value = xlSheet.Cells(YY + I + II, XX2 + III).value
                                            裝箱控制3_dgv.Rows(0).Cells("CustStk").Value = xlSheet.Cells(YY + I + II, XX2 + III).value
                                            If Not IsNothing(裝箱控制_dgv.Rows(0).Cells("CustStk").Value) Then : Exit For : ProgressBar4.Value = 0 : 最終數3 = 0 : End If
                                        Next : ProgressBar4.Value = 0 : 最終數3 = 0
                                    End If
                                    If Strings.Left(xlSheet.Cells(YY + I + II, XX2).value, 14) = "Cust Stk Name:" Then
                                        For III As Integer = 2 To 19 : 資料數3 = 19 : 進度條3()
                                            裝箱控制_dgv.Rows(0).Cells("CustStkName").Value = xlSheet.Cells(YY + I + II, XX2 + III).value
                                            裝箱控制3_dgv.Rows(0).Cells("CustStkName").Value = xlSheet.Cells(YY + I + II, XX2 + III).value
                                            If Not IsNothing(裝箱控制_dgv.Rows(0).Cells("CustStkName").Value) Then : Exit For : ProgressBar4.Value = 0 : 最終數3 = 0 : End If
                                        Next : ProgressBar4.Value = 0 : 最終數3 = 0
                                    End If
                                    If Strings.Left(xlSheet.Cells(YY + I + II, XX2).value, 9) = "Colorway:" Then
                                        For III As Integer = 2 To 19 : 資料數3 = 19 : 進度條3()
                                            裝箱控制_dgv.Rows(0).Cells("Colorway").Value = xlSheet.Cells(YY + I + II, XX2 + III).value
                                            裝箱控制3_dgv.Rows(0).Cells("Colorway").Value = xlSheet.Cells(YY + I + II, XX2 + III).value
                                            If Not IsNothing(裝箱控制_dgv.Rows(0).Cells("Colorway").Value) Then : Exit For : ProgressBar4.Value = 0 : 最終數3 = 0 : End If
                                        Next : ProgressBar4.Value = 0 : 最終數3 = 0
                                    End If
                                    If Strings.Left(xlSheet.Cells(YY + I + II, XX2).value, 12) = "Order Color:" Then
                                        For III As Integer = 2 To 19 : 資料數3 = 19 : 進度條3()
                                            裝箱控制_dgv.Rows(0).Cells("OrderColor").Value = xlSheet.Cells(YY + I + II, XX2 + III).value
                                            裝箱控制3_dgv.Rows(0).Cells("OrderColor").Value = xlSheet.Cells(YY + I + II, XX2 + III).value
                                            If Not IsNothing(裝箱控制_dgv.Rows(0).Cells("OrderColor").Value) Then : Exit For : ProgressBar4.Value = 0 : 最終數3 = 0 : End If
                                        Next : ProgressBar4.Value = 0 : 最終數3 = 0
                                    End If
                                    If Strings.Left(xlSheet.Cells(YY + I + II, XX2).value, 5) = "Logo:" Then
                                        For III As Integer = 2 To 19 : 資料數3 = 19 : 進度條3()
                                            STR1 = ""
                                            For ZZ As Integer = 1 To 100
                                                If Strings.Mid(xlSheet.Cells(YY + I + II, XX2 + III).value, ZZ, 1) = "'" Then
                                                    STR1 &= "-"
                                                ElseIf Strings.Mid(xlSheet.Cells(YY + I + II, XX2 + III).value, ZZ, 1) <> "'" Then
                                                    STR1 &= Strings.Mid(xlSheet.Cells(YY + I + II, XX2 + III).value, ZZ, 1)
                                                End If
                                            Next
                                            裝箱控制_dgv.Rows(0).Cells("Logo").Value = STR1
                                            裝箱控制3_dgv.Rows(0).Cells("Logo").Value = STR1
                                            If 裝箱控制_dgv.Rows(0).Cells("Logo").Value <> "" Then : Exit For : ProgressBar4.Value = 0 : 最終數3 = 0 : End If
                                        Next : ProgressBar4.Value = 0 : 最終數3 = 0
                                        Exit For : ProgressBar3.Value = 0 : 最終數2 = 0
                                    End If
                                Next : ProgressBar3.Value = 0 : 最終數2 = 0
                            End If
                        Next : ProgressBar2.Value = 0 : 最終數1 = 0
                        W1 += 1
                    End If
                Next : ProgressBar1.Value = 0 : 最終數 = 0
                裝箱控制_dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
                裝箱控制3_dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
                xlApp.Visible = True : xlApp.Quit() : xlApp = Nothing
                訂單讀取_bt.Enabled = False : 版本比對_bt.Enabled = True
                MsgBox("讀取EXCEL完成")
            ElseIf OpenFileDialog1.ShowDialog = DialogResult.No Then
            End If
        End If
    End Sub
    Private Sub 清空()
        '-------清空------------------------------------------------------------------------------------------------------------------------------------------------------------------
        SEASON_cb_下拉表單資料載入() : DIV_cb_下拉表單資料載入() : Remark_cb_下拉表單資料載入() : FTY_cb_下拉表單資料載入()

        Number_tb.Text = "" : Brand_cb.Text = "" : 訂單類別_tb.Text = "" : 英科條款_tb.Text = "" : 公司編號_tb.Text = "" : 服務_tb.Text = "" : 版本_tb.Text = "" : 供應商編號_tb.Text = " 903537"
        客戶訂單號_tb.Text = "" : 郵寄方式_tb.Text = "" : 客戶交期_dtp.Value = Today() : 客戶交期_dtp.Text = "" : 總雙數_tb.Text = "" : 總案件_tb.Text = "" : VendorName_tb.Text = ""
        工廠編號_tb.Text = "" : 地址1_tb.Text = "" : 地址二_tb.Text = "" : 代理編號_cb.Text = "" : 訂貨代理_tb.Text = "" : 最終運送_tb.Text = ""

        Number2_tb.Text = "" : Brand2_cb.Text = "" : 訂單類別2_tb.Text = "" : 英科條款2_tb.Text = "" : 公司編號2_tb.Text = "" : 服務2_tb.Text = "" : 版本2_tb.Text = "" : 供應商編號2_tb.Text = " 903537"
        客戶訂單號2_tb.Text = "" : 郵寄方式2_tb.Text = "" : 客戶交期2_dtp.Value = Today() : 客戶交期2_dtp.Text = "" : 總雙數2_tb.Text = "" : 總案件2_tb.Text = "" : VendorName2_tb.Text = ""
        工廠編號2_tb.Text = "" : 地址12_tb.Text = "" : 地址二2_tb.Text = "" : 代理編號2_cb.Text = "" : 訂貨代理2_tb.Text = "" : 最終運送2_tb.Text = ""

        Dim 數量 As Integer
        數量 = 控制表_dgv.Rows.Count
        If 數量 > 1 Then : For i As Integer = 0 To 數量 - 2 : 控制表_dgv.EndEdit(0) : 控制表_dgv.Rows.RemoveAt(0) : Next : End If : 填入0值3()
        數量 = 控制表3_dgv.Rows.Count
        If 數量 > 1 Then : For i As Integer = 0 To 數量 - 2 : 控制表3_dgv.EndEdit(0) : 控制表3_dgv.Rows.RemoveAt(0) : Next : End If : 填入0值3_1()
        數量 = 明細表_dgv.Rows.Count
        If 數量 > 1 Then : For i As Integer = 0 To 數量 - 2 : 明細表_dgv.EndEdit(0) : 明細表_dgv.Rows.RemoveAt(0) : Next : End If : 填入0值1()
        數量 = 明細表3_dgv.Rows.Count
        If 數量 > 1 Then : For i As Integer = 0 To 數量 - 2 : 明細表3_dgv.EndEdit(0) : 明細表3_dgv.Rows.RemoveAt(0) : Next : End If : 填入0值1_1()
        數量 = 裝箱控制_dgv.Rows.Count
        If 數量 > 1 Then : For i As Integer = 0 To 數量 - 2 : 裝箱控制_dgv.EndEdit(0) : 裝箱控制_dgv.Rows.RemoveAt(0) : Next : End If : 填入0值4()
        數量 = 裝箱控制3_dgv.Rows.Count
        If 數量 > 1 Then : For i As Integer = 0 To 數量 - 2 : 裝箱控制3_dgv.EndEdit(0) : 裝箱控制3_dgv.Rows.RemoveAt(0) : Next : End If : 填入0值4_1()
        數量 = 裝箱明細_dgv.Rows.Count
        If 數量 > 1 Then : For i As Integer = 0 To 數量 - 2 : 裝箱明細_dgv.EndEdit(0) : 裝箱明細_dgv.Rows.RemoveAt(0) : Next : End If : 填入0值2()
        數量 = 裝箱明細3_dgv.Rows.Count
        If 數量 > 1 Then : For i As Integer = 0 To 數量 - 2 : 裝箱明細3_dgv.EndEdit(0) : 裝箱明細3_dgv.Rows.RemoveAt(0) : Next : End If : 填入0值2_1()

        訂單讀取_bt.Enabled = True : 版本比對_bt.Enabled = False
    End Sub
    Private Sub 清空_bt_Click(sender As Object, e As EventArgs) Handles 清空_bt.Click
        清空()
    End Sub
    Private Sub 版本比對_bt_Click(sender As Object, e As EventArgs) Handles 版本比對_bt.Click
        Dim 索引 As Integer
        If Brand_cb.Text = Brand1_cb.Text Then : AA02_lb.ForeColor = Color.Black : Brand2_cb.ForeColor = Color.Black : Brand2_cb.Text = Brand_cb.Text
        Else : AA02_lb.ForeColor = Color.Red : Brand2_cb.ForeColor = Color.Red : Brand2_cb.Text = Brand_cb.Text : End If

        If 訂單類別_tb.Text = 訂單類別1_tb.Text Then : AA03_lb.ForeColor = Color.Black : 訂單類別2_tb.ForeColor = Color.Black : 訂單類別2_tb.Text = 訂單類別_tb.Text
        Else : AA03_lb.ForeColor = Color.Red : 訂單類別2_tb.ForeColor = Color.Red : 訂單類別2_tb.Text = 訂單類別_tb.Text : End If

        If 英科條款_tb.Text = 英科條款1_tb.Text Then : AA04_lb.ForeColor = Color.Black : 英科條款2_tb.ForeColor = Color.Black : 英科條款2_tb.Text = 英科條款_tb.Text
        Else : AA04_lb.ForeColor = Color.Red : 英科條款2_tb.ForeColor = Color.Red : 英科條款2_tb.Text = 英科條款_tb.Text : End If

        If 公司編號_tb.Text = 公司編號1_tb.Text Then : AA05_lb.ForeColor = Color.Black : 公司編號2_tb.ForeColor = Color.Black : 公司編號2_tb.Text = 公司編號_tb.Text
        Else : AA05_lb.ForeColor = Color.Red : 公司編號2_tb.ForeColor = Color.Red : 公司編號2_tb.Text = 公司編號_tb.Text : End If

        If 服務_tb.Text = 服務1_tb.Text Then : AA06_lb.ForeColor = Color.Black : 服務2_tb.ForeColor = Color.Black : 服務2_tb.Text = 服務_tb.Text
        Else : AA06_lb.ForeColor = Color.Red : 服務2_tb.ForeColor = Color.Red : 服務2_tb.Text = 服務_tb.Text : End If

        If 版本_tb.Text = 版本1_tb.Text Then : AA07_lb.ForeColor = Color.Black : 版本2_tb.ForeColor = Color.Black : 版本2_tb.Text = 版本_tb.Text
        Else : AA07_lb.ForeColor = Color.Red : 版本2_tb.ForeColor = Color.Red : 版本2_tb.Text = 版本_tb.Text : End If

        If 供應商編號_tb.Text = 供應商編號1_tb.Text Then : AA08_lb.ForeColor = Color.Black : 供應商編號2_tb.ForeColor = Color.Black : 供應商編號2_tb.Text = 供應商編號_tb.Text
        Else : AA08_lb.ForeColor = Color.Red : 供應商編號2_tb.ForeColor = Color.Red : 供應商編號2_tb.Text = 供應商編號_tb.Text : End If

        If 客戶訂單號_tb.Text = 客戶訂單號1_tb.Text Then : AA09_lb.ForeColor = Color.Black : 客戶訂單號2_tb.ForeColor = Color.Black : 客戶訂單號2_tb.Text = 客戶訂單號_tb.Text
        Else : AA09_lb.ForeColor = Color.Red : 客戶訂單號2_tb.ForeColor = Color.Red : 客戶訂單號2_tb.Text = 客戶訂單號_tb.Text : End If

        If 郵寄方式_tb.Text = 郵寄方式1_tb.Text Then : AA10_lb.ForeColor = Color.Black : 郵寄方式2_tb.ForeColor = Color.Black : 郵寄方式2_tb.Text = 郵寄方式_tb.Text
        Else : AA10_lb.ForeColor = Color.Red : 郵寄方式2_tb.ForeColor = Color.Red : 郵寄方式2_tb.Text = 郵寄方式_tb.Text : End If

        If 客戶交期_dtp.Value = 客戶交期1_dtp.Value Then : AA11_lb.ForeColor = Color.Black : 客戶交期2_dtp.Value = 客戶交期_dtp.Value
        Else : AA11_lb.ForeColor = Color.Red : 客戶交期2_dtp.Value = 客戶交期_dtp.Value : End If

        If 力威訂單號_tb.Text = 力威訂單號1_tb.Text Then : AA12_lb.ForeColor = Color.Black : 力威訂單號2_tb.ForeColor = Color.Black : 力威訂單號2_tb.Text = 力威訂單號_tb.Text
        Else : AA12_lb.ForeColor = Color.Red : 力威訂單號2_tb.ForeColor = Color.Red : 力威訂單號2_tb.Text = 力威訂單號_tb.Text : End If

        If 總雙數_tb.Text = 總雙數1_tb.Text Then : AA13_lb.ForeColor = Color.Black : 總雙數2_tb.ForeColor = Color.Black : 總雙數2_tb.Text = 總雙數_tb.Text
        Else : AA13_lb.ForeColor = Color.Red : 總雙數2_tb.ForeColor = Color.Red : 總雙數2_tb.Text = 總雙數_tb.Text : End If

        If 總案件_tb.Text = 總案件1_tb.Text Then : AA14_lb.ForeColor = Color.Black : 總案件2_tb.ForeColor = Color.Black : 總案件2_tb.Text = 總案件_tb.Text
        Else : AA14_lb.ForeColor = Color.Red : 總案件2_tb.ForeColor = Color.Red : 總案件2_tb.Text = 總案件_tb.Text : End If

        If 工廠編號_tb.Text = 工廠編號1_tb.Text Then : AA15_lb.ForeColor = Color.Black : 工廠編號2_tb.ForeColor = Color.Black : 工廠編號2_tb.Text = 工廠編號_tb.Text
        Else : AA15_lb.ForeColor = Color.Red : 工廠編號2_tb.ForeColor = Color.Red : 工廠編號2_tb.Text = 工廠編號_tb.Text : End If

        If 地址1_tb.Text = 地址11_tb.Text Then : AA16_lb.ForeColor = Color.Black : 地址12_tb.ForeColor = Color.Black : 地址12_tb.Text = 地址1_tb.Text
        Else : AA16_lb.ForeColor = Color.Red : 地址12_tb.ForeColor = Color.Red : 地址12_tb.Text = 地址1_tb.Text : End If

        If 地址二_tb.Text = 地址二1_tb.Text Then : AA17_lb.ForeColor = Color.Black : 地址二2_tb.ForeColor = Color.Black : 地址二2_tb.Text = 地址二_tb.Text
        Else : AA17_lb.ForeColor = Color.Red : 地址二2_tb.ForeColor = Color.Red : 地址二2_tb.Text = 地址二_tb.Text : End If

        If 最終運送_tb.Text = 最終運送1_tb.Text Then : AA18_lb.ForeColor = Color.Black : 最終運送2_tb.ForeColor = Color.Black : 最終運送2_tb.Text = 最終運送_tb.Text
        Else : AA18_lb.ForeColor = Color.Red : 最終運送2_tb.ForeColor = Color.Red : 最終運送2_tb.Text = 最終運送_tb.Text : End If

        If 代理編號_cb.Text = 代理編號1_cb.Text Then : AA19_lb.ForeColor = Color.Black : 代理編號2_cb.ForeColor = Color.Black : 代理編號2_cb.Text = 代理編號_cb.Text
        Else : AA19_lb.ForeColor = Color.Red : 代理編號2_cb.ForeColor = Color.Red : 代理編號2_cb.Text = 代理編號_cb.Text : End If

        If 訂貨代理_tb.Text = 訂貨代理1_tb.Text Then : 訂貨代理2_tb.ForeColor = Color.Black : 訂貨代理2_tb.Text = 訂貨代理_tb.Text
        Else : 訂貨代理2_tb.ForeColor = Color.Red : 訂貨代理2_tb.Text = 訂貨代理_tb.Text : End If

        If 控制表2_dgv.Rows.Count <> 控制表3_dgv.Rows.Count Then : BB01_lb.Text = "不對等" : BB01_lb.ForeColor = Color.Red : Else : BB01_lb.Text = "對等" : BB01_lb.ForeColor = Color.Blue : End If
        If 明細表2_dgv.Rows.Count <> 明細表3_dgv.Rows.Count Then : BB02_lb.Text = "不對等" : BB02_lb.ForeColor = Color.Red : Else : BB02_lb.Text = "對等" : BB02_lb.ForeColor = Color.Blue : End If
        If 裝箱控制2_dgv.Rows.Count <> 裝箱控制3_dgv.Rows.Count Then : BB03_lb.Text = "不對等" : BB03_lb.ForeColor = Color.Red : Else : BB03_lb.Text = "對等" : BB03_lb.ForeColor = Color.Blue : End If
        If 裝箱明細2_dgv.Rows.Count <> 裝箱明細3_dgv.Rows.Count Then : BB04_lb.Text = "不對等" : BB04_lb.ForeColor = Color.Red : Else : BB04_lb.Text = "對等" : BB04_lb.ForeColor = Color.Blue : End If

        索引 = 0 : BB09_lb.Text = 控制表2_dgv.Rows.Count & " 筆" : BB05_lb.Text = "0 筆"
        If BB01_lb.Text = "對等" Then
            For I As Integer = 0 To 控制表2_dgv.Rows.Count - 1
                For II As Integer = 0 To 控制表3_dgv.Rows.Count - 1
                    If 控制表2_dgv.Rows(I).Cells("形體號").Value = 控制表3_dgv.Rows(II).Cells("形體號").Value And
                       控制表2_dgv.Rows(I).Cells("楦型").Value = 控制表3_dgv.Rows(II).Cells("楦型").Value And
                       控制表2_dgv.Rows(I).Cells("ProductID").Value = 控制表3_dgv.Rows(II).Cells("ProductID").Value And
                       控制表2_dgv.Rows(I).Cells("顏色").Value = 控制表3_dgv.Rows(II).Cells("顏色").Value Then
                        索引 += 1
                        控制表3_dgv.Rows(II).Cells("資料流水號").Value = 控制表2_dgv.Rows(II).Cells("資料流水號").Value

                        If 控制表2_dgv.Rows(I).Cells("訂單數量").Value <> 控制表3_dgv.Rows(II).Cells("訂單數量").Value Then
                            控制表3_dgv.Rows(II).Cells("訂單數量").Style.ForeColor = Color.Red : 控制表2_dgv.Rows(I).Cells("訂單數量").Style.ForeColor = Color.Red
                        Else
                            控制表3_dgv.Rows(II).Cells("訂單數量").Style.ForeColor = Color.Black : 控制表2_dgv.Rows(I).Cells("訂單數量").Style.ForeColor = Color.Black
                        End If

                        If 控制表2_dgv.Rows(I).Cells("客戶交期").Value <> 控制表3_dgv.Rows(II).Cells("客戶交期").Value Then
                            控制表3_dgv.Rows(II).Cells("客戶交期").Style.ForeColor = Color.Red : 控制表2_dgv.Rows(I).Cells("客戶交期").Style.ForeColor = Color.Red
                        Else
                            控制表3_dgv.Rows(II).Cells("客戶交期").Style.ForeColor = Color.Black : 控制表2_dgv.Rows(I).Cells("客戶交期").Style.ForeColor = Color.Black
                        End If

                        If 控制表2_dgv.Rows(I).Cells("工廠回復交期").Value <> 控制表3_dgv.Rows(II).Cells("工廠回復交期").Value Then
                            控制表3_dgv.Rows(II).Cells("工廠回復交期").Style.ForeColor = Color.Red : 控制表2_dgv.Rows(I).Cells("工廠回復交期").Style.ForeColor = Color.Red
                        Else
                            控制表3_dgv.Rows(II).Cells("工廠回復交期").Style.ForeColor = Color.Black : 控制表2_dgv.Rows(I).Cells("工廠回復交期").Style.ForeColor = Color.Black
                        End If

                        If 控制表2_dgv.Rows(I).Cells("UoM").Value <> 控制表3_dgv.Rows(II).Cells("UoM").Value Then
                            控制表3_dgv.Rows(II).Cells("UoM").Style.ForeColor = Color.Red : 控制表2_dgv.Rows(I).Cells("UoM").Style.ForeColor = Color.Red
                        Else
                            控制表3_dgv.Rows(II).Cells("UoM").Style.ForeColor = Color.Black : 控制表2_dgv.Rows(I).Cells("UoM").Style.ForeColor = Color.Black
                        End If
                    End If
                Next
            Next
            BB05_lb.Text = 索引 & " 筆"
        End If

        索引 = 0 : BB10_lb.Text = 明細表2_dgv.Rows.Count & " 筆" : BB06_lb.Text = "0 筆"
        If BB02_lb.Text = "對等" Then
            For I As Integer = 0 To 明細表2_dgv.Rows.Count - 1
                For II As Integer = 0 To 明細表3_dgv.Rows.Count - 1
                    If 明細表2_dgv.Rows(I).Cells("ItemNumber").Value = 明細表3_dgv.Rows(II).Cells("ItemNumber").Value And
                       明細表2_dgv.Rows(I).Cells("ProductName").Value = 明細表3_dgv.Rows(II).Cells("ProductName").Value And
                       明細表2_dgv.Rows(I).Cells("Color").Value = 明細表3_dgv.Rows(II).Cells("Color").Value And
                       明細表2_dgv.Rows(I).Cells("DM").Value = 明細表3_dgv.Rows(II).Cells("DM").Value Then
                        索引 += 1
                        If 明細表2_dgv.Rows(I).Cells("5").Value <> 明細表3_dgv.Rows(II).Cells("5").Value Then
                            明細表3_dgv.Rows(II).Cells("5").Style.ForeColor = Color.Red : 明細表2_dgv.Rows(I).Cells("5").Style.ForeColor = Color.Red : Else
                            明細表3_dgv.Rows(II).Cells("5").Style.ForeColor = Color.Black : 明細表2_dgv.Rows(I).Cells("5").Style.ForeColor = Color.Black : End If

                        If 明細表2_dgv.Rows(I).Cells("5.5").Value <> 明細表3_dgv.Rows(II).Cells("5.5").Value Then
                            明細表3_dgv.Rows(II).Cells("5.5").Style.ForeColor = Color.Red : 明細表2_dgv.Rows(I).Cells("5.5").Style.ForeColor = Color.Red : Else
                            明細表3_dgv.Rows(II).Cells("5.5").Style.ForeColor = Color.Black : 明細表2_dgv.Rows(I).Cells("5.5").Style.ForeColor = Color.Black : End If

                        If 明細表2_dgv.Rows(I).Cells("6").Value <> 明細表3_dgv.Rows(II).Cells("6").Value Then
                            明細表3_dgv.Rows(II).Cells("6").Style.ForeColor = Color.Red : 明細表2_dgv.Rows(I).Cells("6").Style.ForeColor = Color.Red : Else
                            明細表3_dgv.Rows(II).Cells("6").Style.ForeColor = Color.Black : 明細表2_dgv.Rows(I).Cells("6").Style.ForeColor = Color.Black : End If

                        If 明細表2_dgv.Rows(I).Cells("6.5").Value <> 明細表3_dgv.Rows(II).Cells("6.5").Value Then
                            明細表3_dgv.Rows(II).Cells("6.5").Style.ForeColor = Color.Red : 明細表2_dgv.Rows(I).Cells("6.5").Style.ForeColor = Color.Red : Else
                            明細表3_dgv.Rows(II).Cells("6.5").Style.ForeColor = Color.Black : 明細表2_dgv.Rows(I).Cells("6.5").Style.ForeColor = Color.Black : End If

                        If 明細表2_dgv.Rows(I).Cells("7").Value <> 明細表3_dgv.Rows(II).Cells("7").Value Then
                            明細表3_dgv.Rows(II).Cells("7").Style.ForeColor = Color.Red : 明細表2_dgv.Rows(I).Cells("7").Style.ForeColor = Color.Red : Else
                            明細表3_dgv.Rows(II).Cells("7").Style.ForeColor = Color.Black : 明細表2_dgv.Rows(I).Cells("7").Style.ForeColor = Color.Black : End If

                        If 明細表2_dgv.Rows(I).Cells("7.5").Value <> 明細表3_dgv.Rows(II).Cells("7.5").Value Then
                            明細表3_dgv.Rows(II).Cells("7.5").Style.ForeColor = Color.Red : 明細表2_dgv.Rows(I).Cells("7.5").Style.ForeColor = Color.Red : Else
                            明細表3_dgv.Rows(II).Cells("7.5").Style.ForeColor = Color.Black : 明細表2_dgv.Rows(I).Cells("7.5").Style.ForeColor = Color.Black : End If

                        If 明細表2_dgv.Rows(I).Cells("8").Value <> 明細表3_dgv.Rows(II).Cells("8").Value Then
                            明細表3_dgv.Rows(II).Cells("8").Style.ForeColor = Color.Red : 明細表2_dgv.Rows(I).Cells("8").Style.ForeColor = Color.Red : Else
                            明細表3_dgv.Rows(II).Cells("8").Style.ForeColor = Color.Black : 明細表2_dgv.Rows(I).Cells("8").Style.ForeColor = Color.Black : End If

                        If 明細表2_dgv.Rows(I).Cells("8.5").Value <> 明細表3_dgv.Rows(II).Cells("8.5").Value Then
                            明細表3_dgv.Rows(II).Cells("8.5").Style.ForeColor = Color.Red : 明細表2_dgv.Rows(I).Cells("8.5").Style.ForeColor = Color.Red : Else
                            明細表3_dgv.Rows(II).Cells("8.5").Style.ForeColor = Color.Black : 明細表2_dgv.Rows(I).Cells("8.5").Style.ForeColor = Color.Black : End If

                        If 明細表2_dgv.Rows(I).Cells("9").Value <> 明細表3_dgv.Rows(II).Cells("9").Value Then
                            明細表3_dgv.Rows(II).Cells("9").Style.ForeColor = Color.Red : 明細表2_dgv.Rows(I).Cells("9").Style.ForeColor = Color.Red : Else
                            明細表3_dgv.Rows(II).Cells("9").Style.ForeColor = Color.Black : 明細表2_dgv.Rows(I).Cells("9").Style.ForeColor = Color.Black : End If

                        If 明細表2_dgv.Rows(I).Cells("9.5").Value <> 明細表3_dgv.Rows(II).Cells("9.5").Value Then
                            明細表3_dgv.Rows(II).Cells("9.5").Style.ForeColor = Color.Red : 明細表2_dgv.Rows(I).Cells("9.5").Style.ForeColor = Color.Red : Else
                            明細表3_dgv.Rows(II).Cells("9.5").Style.ForeColor = Color.Black : 明細表2_dgv.Rows(I).Cells("9.5").Style.ForeColor = Color.Black : End If

                        If 明細表2_dgv.Rows(I).Cells("10").Value <> 明細表3_dgv.Rows(II).Cells("10").Value Then
                            明細表3_dgv.Rows(II).Cells("10").Style.ForeColor = Color.Red : 明細表2_dgv.Rows(I).Cells("10").Style.ForeColor = Color.Red : Else
                            明細表3_dgv.Rows(II).Cells("10").Style.ForeColor = Color.Black : 明細表2_dgv.Rows(I).Cells("10").Style.ForeColor = Color.Black : End If

                        If 明細表2_dgv.Rows(I).Cells("10.5").Value <> 明細表3_dgv.Rows(II).Cells("10.5").Value Then
                            明細表3_dgv.Rows(II).Cells("10.5").Style.ForeColor = Color.Red : 明細表2_dgv.Rows(I).Cells("10.5").Style.ForeColor = Color.Red : Else
                            明細表3_dgv.Rows(II).Cells("10.5").Style.ForeColor = Color.Black : 明細表2_dgv.Rows(I).Cells("10.5").Style.ForeColor = Color.Black : End If

                        If 明細表2_dgv.Rows(I).Cells("11").Value <> 明細表3_dgv.Rows(II).Cells("11").Value Then
                            明細表3_dgv.Rows(II).Cells("11").Style.ForeColor = Color.Red : 明細表2_dgv.Rows(I).Cells("11").Style.ForeColor = Color.Red : Else
                            明細表3_dgv.Rows(II).Cells("11").Style.ForeColor = Color.Black : 明細表2_dgv.Rows(I).Cells("11").Style.ForeColor = Color.Black : End If

                        If 明細表2_dgv.Rows(I).Cells("11.5").Value <> 明細表3_dgv.Rows(II).Cells("11.5").Value Then
                            明細表3_dgv.Rows(II).Cells("11.5").Style.ForeColor = Color.Red : 明細表2_dgv.Rows(I).Cells("11.5").Style.ForeColor = Color.Red : Else
                            明細表3_dgv.Rows(II).Cells("11.5").Style.ForeColor = Color.Black : 明細表2_dgv.Rows(I).Cells("11.5").Style.ForeColor = Color.Black : End If

                        If 明細表2_dgv.Rows(I).Cells("12").Value <> 明細表3_dgv.Rows(II).Cells("12").Value Then
                            明細表3_dgv.Rows(II).Cells("12").Style.ForeColor = Color.Red : 明細表2_dgv.Rows(I).Cells("12").Style.ForeColor = Color.Red : Else
                            明細表3_dgv.Rows(II).Cells("12").Style.ForeColor = Color.Black : 明細表2_dgv.Rows(I).Cells("12").Style.ForeColor = Color.Black : End If

                        If 明細表2_dgv.Rows(I).Cells("12.5").Value <> 明細表3_dgv.Rows(II).Cells("12.5").Value Then
                            明細表3_dgv.Rows(II).Cells("12.5").Style.ForeColor = Color.Red : 明細表2_dgv.Rows(I).Cells("12.5").Style.ForeColor = Color.Red : Else
                            明細表3_dgv.Rows(II).Cells("12.5").Style.ForeColor = Color.Black : 明細表2_dgv.Rows(I).Cells("12.5").Style.ForeColor = Color.Black : End If

                        If 明細表2_dgv.Rows(I).Cells("13").Value <> 明細表3_dgv.Rows(II).Cells("13").Value Then
                            明細表3_dgv.Rows(II).Cells("13").Style.ForeColor = Color.Red : 明細表2_dgv.Rows(I).Cells("13").Style.ForeColor = Color.Red : Else
                            明細表3_dgv.Rows(II).Cells("13").Style.ForeColor = Color.Black : 明細表2_dgv.Rows(I).Cells("13").Style.ForeColor = Color.Black : End If

                        If 明細表2_dgv.Rows(I).Cells("14").Value <> 明細表3_dgv.Rows(II).Cells("14").Value Then
                            明細表3_dgv.Rows(II).Cells("14").Style.ForeColor = Color.Red : 明細表2_dgv.Rows(I).Cells("14").Style.ForeColor = Color.Red : Else
                            明細表3_dgv.Rows(II).Cells("14").Style.ForeColor = Color.Black : 明細表2_dgv.Rows(I).Cells("14").Style.ForeColor = Color.Black : End If
                    End If
                Next
            Next
            BB06_lb.Text = 索引 & " 筆"
        End If

        索引 = 0 : BB11_lb.Text = 裝箱控制2_dgv.Rows.Count & " 筆" : BB07_lb.Text = "0 筆"
        If BB03_lb.Text = "對等" Then
            For I As Integer = 0 To 裝箱控制2_dgv.Rows.Count - 1
                For II As Integer = 0 To 裝箱控制3_dgv.Rows.Count - 1
                    If 裝箱控制2_dgv.Rows(I).Cells("天盾流水號").Value = 裝箱控制3_dgv.Rows(II).Cells("天盾流水號").Value And
                       裝箱控制2_dgv.Rows(I).Cells("Item").Value = 裝箱控制3_dgv.Rows(II).Cells("Item").Value And
                       裝箱控制2_dgv.Rows(I).Cells("Material").Value = 裝箱控制3_dgv.Rows(II).Cells("Material").Value And
                       裝箱控制2_dgv.Rows(I).Cells("ProductID").Value = 裝箱控制3_dgv.Rows(II).Cells("ProductID").Value Then
                        索引 += 1
                        If 裝箱控制2_dgv.Rows(I).Cells("MaterialDescription").Value <> 裝箱控制3_dgv.Rows(II).Cells("MaterialDescription").Value Then
                            裝箱控制3_dgv.Rows(II).Cells("MaterialDescription").Style.ForeColor = Color.Red : 裝箱控制2_dgv.Rows(I).Cells("MaterialDescription").Style.ForeColor = Color.Red
                        Else
                            裝箱控制3_dgv.Rows(II).Cells("MaterialDescription").Style.ForeColor = Color.Black : 裝箱控制2_dgv.Rows(I).Cells("MaterialDescription").Style.ForeColor = Color.Black
                        End If

                        If 裝箱控制2_dgv.Rows(I).Cells("Qty").Value <> 裝箱控制3_dgv.Rows(II).Cells("Qty").Value Then
                            裝箱控制3_dgv.Rows(II).Cells("Qty").Style.ForeColor = Color.Red : 裝箱控制2_dgv.Rows(I).Cells("Qty").Style.ForeColor = Color.Red
                        Else
                            裝箱控制3_dgv.Rows(II).Cells("Qty").Style.ForeColor = Color.Black : 裝箱控制2_dgv.Rows(I).Cells("Qty").Style.ForeColor = Color.Black
                        End If

                        If 裝箱控制2_dgv.Rows(I).Cells("UoM").Value <> 裝箱控制3_dgv.Rows(II).Cells("UoM").Value Then
                            裝箱控制3_dgv.Rows(II).Cells("UoM").Style.ForeColor = Color.Red : 裝箱控制2_dgv.Rows(I).Cells("UoM").Style.ForeColor = Color.Red
                        Else
                            裝箱控制3_dgv.Rows(II).Cells("UoM").Style.ForeColor = Color.Black : 裝箱控制2_dgv.Rows(I).Cells("UoM").Style.ForeColor = Color.Black
                        End If

                        If 裝箱控制2_dgv.Rows(I).Cells("ProductDescription").Value <> 裝箱控制3_dgv.Rows(II).Cells("ProductDescription").Value Then
                            裝箱控制3_dgv.Rows(II).Cells("ProductDescription").Style.ForeColor = Color.Red : 裝箱控制2_dgv.Rows(I).Cells("ProductDescription").Style.ForeColor = Color.Red
                        Else
                            裝箱控制3_dgv.Rows(II).Cells("ProductDescription").Style.ForeColor = Color.Black : 裝箱控制2_dgv.Rows(I).Cells("ProductDescription").Style.ForeColor = Color.Black
                        End If

                        If 裝箱控制2_dgv.Rows(I).Cells("IncoTerms").Value <> 裝箱控制3_dgv.Rows(II).Cells("IncoTerms").Value Then
                            裝箱控制3_dgv.Rows(II).Cells("IncoTerms").Style.ForeColor = Color.Red : 裝箱控制2_dgv.Rows(I).Cells("IncoTerms").Style.ForeColor = Color.Red
                        Else
                            裝箱控制3_dgv.Rows(II).Cells("IncoTerms").Style.ForeColor = Color.Black : 裝箱控制2_dgv.Rows(I).Cells("IncoTerms").Style.ForeColor = Color.Black
                        End If

                        If 裝箱控制2_dgv.Rows(I).Cells("CustomerData").Value <> 裝箱控制3_dgv.Rows(II).Cells("CustomerData").Value Then
                            裝箱控制3_dgv.Rows(II).Cells("CustomerData").Style.ForeColor = Color.Red : 裝箱控制2_dgv.Rows(I).Cells("CustomerData").Style.ForeColor = Color.Red
                        Else
                            裝箱控制3_dgv.Rows(II).Cells("CustomerData").Style.ForeColor = Color.Black : 裝箱控制2_dgv.Rows(I).Cells("CustomerData").Style.ForeColor = Color.Black
                        End If

                        If 裝箱控制2_dgv.Rows(I).Cells("Size").Value <> 裝箱控制3_dgv.Rows(II).Cells("Size").Value Then
                            裝箱控制3_dgv.Rows(II).Cells("Size").Style.ForeColor = Color.Red : 裝箱控制2_dgv.Rows(I).Cells("Size").Style.ForeColor = Color.Red
                        Else
                            裝箱控制3_dgv.Rows(II).Cells("Size").Style.ForeColor = Color.Black : 裝箱控制2_dgv.Rows(I).Cells("Size").Style.ForeColor = Color.Black
                        End If

                        If 裝箱控制2_dgv.Rows(I).Cells("HS").Value <> 裝箱控制3_dgv.Rows(II).Cells("HS").Value Then
                            裝箱控制3_dgv.Rows(II).Cells("HS").Style.ForeColor = Color.Red : 裝箱控制2_dgv.Rows(I).Cells("HS").Style.ForeColor = Color.Red
                        Else
                            裝箱控制3_dgv.Rows(II).Cells("HS").Style.ForeColor = Color.Black : 裝箱控制2_dgv.Rows(I).Cells("HS").Style.ForeColor = Color.Black
                        End If

                        If 裝箱控制2_dgv.Rows(I).Cells("Units1").Value.ToString.ToString <> 裝箱控制3_dgv.Rows(II).Cells("Units1").Value.ToString Then
                            裝箱控制3_dgv.Rows(II).Cells("Units1").Style.ForeColor = Color.Red : 裝箱控制2_dgv.Rows(I).Cells("Units1").Style.ForeColor = Color.Red
                        Else
                            裝箱控制3_dgv.Rows(II).Cells("Units1").Style.ForeColor = Color.Black : 裝箱控制2_dgv.Rows(I).Cells("Units1").Style.ForeColor = Color.Black
                        End If

                        If 裝箱控制2_dgv.Rows(I).Cells("DtyRate").Value.ToString <> 裝箱控制3_dgv.Rows(II).Cells("DtyRate").Value.ToString Then
                            裝箱控制3_dgv.Rows(II).Cells("DtyRate").Style.ForeColor = Color.Red : 裝箱控制2_dgv.Rows(I).Cells("DtyRate").Style.ForeColor = Color.Red
                        Else
                            裝箱控制3_dgv.Rows(II).Cells("DtyRate").Style.ForeColor = Color.Black : 裝箱控制2_dgv.Rows(I).Cells("DtyRate").Style.ForeColor = Color.Black
                        End If

                        If 裝箱控制2_dgv.Rows(I).Cells("AddOnDty").Value <> 裝箱控制3_dgv.Rows(II).Cells("AddOnDty").Value Then
                            裝箱控制3_dgv.Rows(II).Cells("AddOnDty").Style.ForeColor = Color.Red : 裝箱控制2_dgv.Rows(I).Cells("AddOnDty").Style.ForeColor = Color.Red
                        Else
                            裝箱控制3_dgv.Rows(II).Cells("AddOnDty").Style.ForeColor = Color.Black : 裝箱控制2_dgv.Rows(I).Cells("AddOnDty").Style.ForeColor = Color.Black
                        End If

                        If 裝箱控制2_dgv.Rows(I).Cells("UnitsCtn").Value <> 裝箱控制3_dgv.Rows(II).Cells("UnitsCtn").Value Then
                            裝箱控制3_dgv.Rows(II).Cells("UnitsCtn").Style.ForeColor = Color.Red : 裝箱控制2_dgv.Rows(I).Cells("UnitsCtn").Style.ForeColor = Color.Red
                        Else
                            裝箱控制3_dgv.Rows(II).Cells("UnitsCtn").Style.ForeColor = Color.Black : 裝箱控制2_dgv.Rows(I).Cells("UnitsCtn").Style.ForeColor = Color.Black
                        End If

                        If 裝箱控制2_dgv.Rows(I).Cells("NoCtn").Value <> 裝箱控制3_dgv.Rows(II).Cells("NoCtn").Value Then
                            裝箱控制3_dgv.Rows(II).Cells("NoCtn").Style.ForeColor = Color.Red : 裝箱控制2_dgv.Rows(I).Cells("NoCtn").Style.ForeColor = Color.Red
                        Else
                            裝箱控制3_dgv.Rows(II).Cells("NoCtn").Style.ForeColor = Color.Black : 裝箱控制2_dgv.Rows(I).Cells("NoCtn").Style.ForeColor = Color.Black
                        End If

                        If 裝箱控制2_dgv.Rows(I).Cells("CtnNo").Value <> 裝箱控制3_dgv.Rows(II).Cells("CtnNo").Value Then
                            裝箱控制3_dgv.Rows(II).Cells("CtnNo").Style.ForeColor = Color.Red : 裝箱控制2_dgv.Rows(I).Cells("CtnNo").Style.ForeColor = Color.Red
                        Else
                            裝箱控制3_dgv.Rows(II).Cells("CtnNo").Style.ForeColor = Color.Black : 裝箱控制2_dgv.Rows(I).Cells("CtnNo").Style.ForeColor = Color.Black
                        End If

                        If 裝箱控制2_dgv.Rows(I).Cells("Units2").Value.ToString <> 裝箱控制3_dgv.Rows(II).Cells("Units2").Value.ToString Then
                            裝箱控制3_dgv.Rows(II).Cells("Units2").Style.ForeColor = Color.Red : 裝箱控制2_dgv.Rows(I).Cells("Units2").Style.ForeColor = Color.Red
                        Else
                            裝箱控制3_dgv.Rows(II).Cells("Units2").Style.ForeColor = Color.Black : 裝箱控制2_dgv.Rows(I).Cells("Units2").Style.ForeColor = Color.Black
                        End If

                        If 裝箱控制2_dgv.Rows(I).Cells("PLMSeason").Value <> 裝箱控制3_dgv.Rows(II).Cells("PLMSeason").Value Then
                            裝箱控制3_dgv.Rows(II).Cells("PLMSeason").Style.ForeColor = Color.Red : 裝箱控制2_dgv.Rows(I).Cells("PLMSeason").Style.ForeColor = Color.Red
                        Else
                            裝箱控制3_dgv.Rows(II).Cells("PLMSeason").Style.ForeColor = Color.Black : 裝箱控制2_dgv.Rows(I).Cells("PLMSeason").Style.ForeColor = Color.Black
                        End If

                        If 裝箱控制2_dgv.Rows(I).Cells("Stock").Value <> 裝箱控制3_dgv.Rows(II).Cells("Stock").Value Then
                            裝箱控制3_dgv.Rows(II).Cells("Stock").Style.ForeColor = Color.Red : 裝箱控制2_dgv.Rows(I).Cells("Stock").Style.ForeColor = Color.Red
                        Else
                            裝箱控制3_dgv.Rows(II).Cells("Stock").Style.ForeColor = Color.Black : 裝箱控制2_dgv.Rows(I).Cells("Stock").Style.ForeColor = Color.Black
                        End If

                        If 裝箱控制2_dgv.Rows(I).Cells("StkName").Value <> 裝箱控制3_dgv.Rows(II).Cells("StkName").Value Then
                            裝箱控制3_dgv.Rows(II).Cells("StkName").Style.ForeColor = Color.Red : 裝箱控制2_dgv.Rows(I).Cells("StkName").Style.ForeColor = Color.Red
                        Else
                            裝箱控制3_dgv.Rows(II).Cells("StkName").Style.ForeColor = Color.Black : 裝箱控制2_dgv.Rows(I).Cells("StkName").Style.ForeColor = Color.Black
                        End If

                        If 裝箱控制2_dgv.Rows(I).Cells("CustStk").Value <> 裝箱控制3_dgv.Rows(II).Cells("CustStk").Value Then
                            裝箱控制3_dgv.Rows(II).Cells("CustStk").Style.ForeColor = Color.Red : 裝箱控制2_dgv.Rows(I).Cells("CustStk").Style.ForeColor = Color.Red
                        Else
                            裝箱控制3_dgv.Rows(II).Cells("CustStk").Style.ForeColor = Color.Black : 裝箱控制2_dgv.Rows(I).Cells("CustStk").Style.ForeColor = Color.Black
                        End If

                        If 裝箱控制2_dgv.Rows(I).Cells("CustStkName").Value <> 裝箱控制3_dgv.Rows(II).Cells("CustStkName").Value Then
                            裝箱控制3_dgv.Rows(II).Cells("CustStkName").Style.ForeColor = Color.Red : 裝箱控制2_dgv.Rows(I).Cells("CustStkName").Style.ForeColor = Color.Red
                        Else
                            裝箱控制3_dgv.Rows(II).Cells("CustStkName").Style.ForeColor = Color.Black : 裝箱控制2_dgv.Rows(I).Cells("CustStkName").Style.ForeColor = Color.Black
                        End If

                        If 裝箱控制2_dgv.Rows(I).Cells("CasePack").Value <> 裝箱控制3_dgv.Rows(II).Cells("CasePack").Value Then
                            裝箱控制3_dgv.Rows(II).Cells("CasePack").Style.ForeColor = Color.Red : 裝箱控制2_dgv.Rows(I).Cells("CasePack").Style.ForeColor = Color.Red
                        Else
                            裝箱控制3_dgv.Rows(II).Cells("CasePack").Style.ForeColor = Color.Black : 裝箱控制2_dgv.Rows(I).Cells("CasePack").Style.ForeColor = Color.Black
                        End If

                        If 裝箱控制2_dgv.Rows(I).Cells("Colorway").Value <> 裝箱控制3_dgv.Rows(II).Cells("Colorway").Value Then
                            裝箱控制3_dgv.Rows(II).Cells("Colorway").Style.ForeColor = Color.Red : 裝箱控制2_dgv.Rows(I).Cells("Colorway").Style.ForeColor = Color.Red
                        Else
                            裝箱控制3_dgv.Rows(II).Cells("Colorway").Style.ForeColor = Color.Black : 裝箱控制2_dgv.Rows(I).Cells("Colorway").Style.ForeColor = Color.Black
                        End If

                        If 裝箱控制2_dgv.Rows(I).Cells("OrderColor").Value <> 裝箱控制3_dgv.Rows(II).Cells("OrderColor").Value Then
                            裝箱控制3_dgv.Rows(II).Cells("OrderColor").Style.ForeColor = Color.Red : 裝箱控制2_dgv.Rows(I).Cells("OrderColor").Style.ForeColor = Color.Red
                        Else
                            裝箱控制3_dgv.Rows(II).Cells("OrderColor").Style.ForeColor = Color.Black : 裝箱控制2_dgv.Rows(I).Cells("OrderColor").Style.ForeColor = Color.Black
                        End If

                        If 裝箱控制2_dgv.Rows(I).Cells("Logo").Value <> 裝箱控制3_dgv.Rows(II).Cells("Logo").Value Then
                            裝箱控制3_dgv.Rows(II).Cells("Logo").Style.ForeColor = Color.Red : 裝箱控制2_dgv.Rows(I).Cells("Logo").Style.ForeColor = Color.Red
                        Else
                            裝箱控制3_dgv.Rows(II).Cells("Logo").Style.ForeColor = Color.Black : 裝箱控制2_dgv.Rows(I).Cells("Logo").Style.ForeColor = Color.Black
                        End If

                        If 裝箱控制2_dgv.Rows(I).Cells("POItemText").Value <> 裝箱控制3_dgv.Rows(II).Cells("POItemText").Value Then
                            裝箱控制3_dgv.Rows(II).Cells("POItemText").Style.ForeColor = Color.Red : 裝箱控制2_dgv.Rows(I).Cells("POItemText").Style.ForeColor = Color.Red
                        Else
                            裝箱控制3_dgv.Rows(II).Cells("POItemText").Style.ForeColor = Color.Black : 裝箱控制2_dgv.Rows(I).Cells("POItemText").Style.ForeColor = Color.Black
                        End If

                        If 裝箱控制2_dgv.Rows(I).Cells("FinalCustomerShipTo").Value <> 裝箱控制3_dgv.Rows(II).Cells("FinalCustomerShipTo").Value Then
                            裝箱控制3_dgv.Rows(II).Cells("FinalCustomerShipTo").Style.ForeColor = Color.Red : 裝箱控制2_dgv.Rows(I).Cells("FinalCustomerShipTo").Style.ForeColor = Color.Red
                        Else
                            裝箱控制3_dgv.Rows(II).Cells("FinalCustomerShipTo").Style.ForeColor = Color.Black : 裝箱控制2_dgv.Rows(I).Cells("FinalCustomerShipTo").Style.ForeColor = Color.Black
                        End If
                    End If
                Next
            Next
            BB07_lb.Text = 索引 & " 筆"
        End If

        索引 = 0 : BB12_lb.Text = 裝箱明細2_dgv.Rows.Count & " 筆" : BB08_lb.Text = "0 筆"
        If BB04_lb.Text = "對等" Then
            For I As Integer = 0 To 裝箱明細2_dgv.Rows.Count - 1
                For II As Integer = 0 To 裝箱明細3_dgv.Rows.Count - 1
                    If 裝箱明細2_dgv.Rows(I).Cells("Item").Value = 裝箱明細3_dgv.Rows(II).Cells("Item").Value And
                       裝箱明細2_dgv.Rows(I).Cells("Material").Value = 裝箱明細3_dgv.Rows(II).Cells("Material").Value And
                       裝箱明細2_dgv.Rows(I).Cells("DM").Value = 裝箱明細3_dgv.Rows(II).Cells("DM").Value Then
                        索引 += 1
                        If 裝箱明細2_dgv.Rows(I).Cells("5").Value <> 裝箱明細3_dgv.Rows(II).Cells("5").Value Then
                            裝箱明細3_dgv.Rows(II).Cells("5").Style.ForeColor = Color.Red : 裝箱明細2_dgv.Rows(I).Cells("5").Style.ForeColor = Color.Red : Else
                            裝箱明細3_dgv.Rows(II).Cells("5").Style.ForeColor = Color.Black : 裝箱明細2_dgv.Rows(I).Cells("5").Style.ForeColor = Color.Black : End If

                        If 裝箱明細2_dgv.Rows(I).Cells("5.5").Value <> 裝箱明細3_dgv.Rows(II).Cells("5.5").Value Then
                            裝箱明細3_dgv.Rows(II).Cells("5.5").Style.ForeColor = Color.Red : 裝箱明細2_dgv.Rows(I).Cells("5.5").Style.ForeColor = Color.Red : Else
                            裝箱明細3_dgv.Rows(II).Cells("5.5").Style.ForeColor = Color.Black : 裝箱明細2_dgv.Rows(I).Cells("5.5").Style.ForeColor = Color.Black : End If

                        If 裝箱明細2_dgv.Rows(I).Cells("6").Value <> 裝箱明細3_dgv.Rows(II).Cells("6").Value Then
                            裝箱明細3_dgv.Rows(II).Cells("6").Style.ForeColor = Color.Red : 裝箱明細2_dgv.Rows(I).Cells("6").Style.ForeColor = Color.Red : Else
                            裝箱明細3_dgv.Rows(II).Cells("6").Style.ForeColor = Color.Black : 裝箱明細2_dgv.Rows(I).Cells("6").Style.ForeColor = Color.Black : End If

                        If 裝箱明細2_dgv.Rows(I).Cells("6.5").Value <> 裝箱明細3_dgv.Rows(II).Cells("6.5").Value Then
                            裝箱明細3_dgv.Rows(II).Cells("6.5").Style.ForeColor = Color.Red : 裝箱明細2_dgv.Rows(I).Cells("6.5").Style.ForeColor = Color.Red : Else
                            裝箱明細3_dgv.Rows(II).Cells("6.5").Style.ForeColor = Color.Black : 裝箱明細2_dgv.Rows(I).Cells("6.5").Style.ForeColor = Color.Black : End If

                        If 裝箱明細2_dgv.Rows(I).Cells("7").Value <> 裝箱明細3_dgv.Rows(II).Cells("7").Value Then
                            裝箱明細3_dgv.Rows(II).Cells("7").Style.ForeColor = Color.Red : 裝箱明細2_dgv.Rows(I).Cells("7").Style.ForeColor = Color.Red : Else
                            裝箱明細3_dgv.Rows(II).Cells("7").Style.ForeColor = Color.Black : 裝箱明細2_dgv.Rows(I).Cells("7").Style.ForeColor = Color.Black : End If

                        If 裝箱明細2_dgv.Rows(I).Cells("7.5").Value <> 裝箱明細3_dgv.Rows(II).Cells("7.5").Value Then
                            裝箱明細3_dgv.Rows(II).Cells("7.5").Style.ForeColor = Color.Red : 裝箱明細2_dgv.Rows(I).Cells("7.5").Style.ForeColor = Color.Red : Else
                            裝箱明細3_dgv.Rows(II).Cells("7.5").Style.ForeColor = Color.Black : 裝箱明細2_dgv.Rows(I).Cells("7.5").Style.ForeColor = Color.Black : End If

                        If 裝箱明細2_dgv.Rows(I).Cells("8").Value <> 裝箱明細3_dgv.Rows(II).Cells("8").Value Then
                            裝箱明細3_dgv.Rows(II).Cells("8").Style.ForeColor = Color.Red : 裝箱明細2_dgv.Rows(I).Cells("8").Style.ForeColor = Color.Red : Else
                            裝箱明細3_dgv.Rows(II).Cells("8").Style.ForeColor = Color.Black : 裝箱明細2_dgv.Rows(I).Cells("8").Style.ForeColor = Color.Black : End If

                        If 裝箱明細2_dgv.Rows(I).Cells("8.5").Value <> 裝箱明細3_dgv.Rows(II).Cells("8.5").Value Then
                            裝箱明細3_dgv.Rows(II).Cells("8.5").Style.ForeColor = Color.Red : 裝箱明細2_dgv.Rows(I).Cells("8.5").Style.ForeColor = Color.Red : Else
                            裝箱明細3_dgv.Rows(II).Cells("8.5").Style.ForeColor = Color.Black : 裝箱明細2_dgv.Rows(I).Cells("8.5").Style.ForeColor = Color.Black : End If

                        If 裝箱明細2_dgv.Rows(I).Cells("9").Value <> 裝箱明細3_dgv.Rows(II).Cells("9").Value Then
                            裝箱明細3_dgv.Rows(II).Cells("9").Style.ForeColor = Color.Red : 裝箱明細2_dgv.Rows(I).Cells("9").Style.ForeColor = Color.Red : Else
                            裝箱明細3_dgv.Rows(II).Cells("9").Style.ForeColor = Color.Black : 裝箱明細2_dgv.Rows(I).Cells("9").Style.ForeColor = Color.Black : End If

                        If 裝箱明細2_dgv.Rows(I).Cells("9.5").Value <> 裝箱明細3_dgv.Rows(II).Cells("9.5").Value Then
                            裝箱明細3_dgv.Rows(II).Cells("9.5").Style.ForeColor = Color.Red : 裝箱明細2_dgv.Rows(I).Cells("9.5").Style.ForeColor = Color.Red : Else
                            裝箱明細3_dgv.Rows(II).Cells("9.5").Style.ForeColor = Color.Black : 裝箱明細2_dgv.Rows(I).Cells("9.5").Style.ForeColor = Color.Black : End If

                        If 裝箱明細2_dgv.Rows(I).Cells("10").Value <> 裝箱明細3_dgv.Rows(II).Cells("10").Value Then
                            裝箱明細3_dgv.Rows(II).Cells("10").Style.ForeColor = Color.Red : 裝箱明細2_dgv.Rows(I).Cells("10").Style.ForeColor = Color.Red : Else
                            裝箱明細3_dgv.Rows(II).Cells("10").Style.ForeColor = Color.Black : 裝箱明細2_dgv.Rows(I).Cells("10").Style.ForeColor = Color.Black : End If

                        If 裝箱明細2_dgv.Rows(I).Cells("10.5").Value <> 裝箱明細3_dgv.Rows(II).Cells("10.5").Value Then
                            裝箱明細3_dgv.Rows(II).Cells("10.5").Style.ForeColor = Color.Red : 裝箱明細2_dgv.Rows(I).Cells("10.5").Style.ForeColor = Color.Red : Else
                            裝箱明細3_dgv.Rows(II).Cells("10.5").Style.ForeColor = Color.Black : 裝箱明細2_dgv.Rows(I).Cells("10.5").Style.ForeColor = Color.Black : End If

                        If 裝箱明細2_dgv.Rows(I).Cells("11").Value <> 裝箱明細3_dgv.Rows(II).Cells("11").Value Then
                            裝箱明細3_dgv.Rows(II).Cells("11").Style.ForeColor = Color.Red : 裝箱明細2_dgv.Rows(I).Cells("11").Style.ForeColor = Color.Red : Else
                            裝箱明細3_dgv.Rows(II).Cells("11").Style.ForeColor = Color.Black : 裝箱明細2_dgv.Rows(I).Cells("11").Style.ForeColor = Color.Black : End If

                        If 裝箱明細2_dgv.Rows(I).Cells("11.5").Value <> 裝箱明細3_dgv.Rows(II).Cells("11.5").Value Then
                            裝箱明細3_dgv.Rows(II).Cells("11.5").Style.ForeColor = Color.Red : 裝箱明細2_dgv.Rows(I).Cells("11.5").Style.ForeColor = Color.Red : Else
                            裝箱明細3_dgv.Rows(II).Cells("11.5").Style.ForeColor = Color.Black : 裝箱明細2_dgv.Rows(I).Cells("11.5").Style.ForeColor = Color.Black : End If

                        If 裝箱明細2_dgv.Rows(I).Cells("12").Value <> 裝箱明細3_dgv.Rows(II).Cells("12").Value Then
                            裝箱明細3_dgv.Rows(II).Cells("12").Style.ForeColor = Color.Red : 裝箱明細2_dgv.Rows(I).Cells("12").Style.ForeColor = Color.Red : Else
                            裝箱明細3_dgv.Rows(II).Cells("12").Style.ForeColor = Color.Black : 裝箱明細2_dgv.Rows(I).Cells("12").Style.ForeColor = Color.Black : End If

                        If 裝箱明細2_dgv.Rows(I).Cells("12.5").Value <> 裝箱明細3_dgv.Rows(II).Cells("12.5").Value Then
                            裝箱明細3_dgv.Rows(II).Cells("12.5").Style.ForeColor = Color.Red : 裝箱明細2_dgv.Rows(I).Cells("12.5").Style.ForeColor = Color.Red : Else
                            裝箱明細3_dgv.Rows(II).Cells("12.5").Style.ForeColor = Color.Black : 裝箱明細2_dgv.Rows(I).Cells("12.5").Style.ForeColor = Color.Black : End If

                        If 裝箱明細2_dgv.Rows(I).Cells("13").Value <> 裝箱明細3_dgv.Rows(II).Cells("13").Value Then
                            裝箱明細3_dgv.Rows(II).Cells("13").Style.ForeColor = Color.Red : 裝箱明細2_dgv.Rows(I).Cells("13").Style.ForeColor = Color.Red : Else
                            裝箱明細3_dgv.Rows(II).Cells("13").Style.ForeColor = Color.Black : 裝箱明細2_dgv.Rows(I).Cells("13").Style.ForeColor = Color.Black : End If

                        If 裝箱明細2_dgv.Rows(I).Cells("14").Value <> 裝箱明細3_dgv.Rows(II).Cells("14").Value Then
                            裝箱明細3_dgv.Rows(II).Cells("14").Style.ForeColor = Color.Red : 裝箱明細2_dgv.Rows(I).Cells("14").Style.ForeColor = Color.Red : Else
                            裝箱明細3_dgv.Rows(II).Cells("14").Style.ForeColor = Color.Black : 裝箱明細2_dgv.Rows(I).Cells("14").Style.ForeColor = Color.Black : End If
                    End If
                Next
            Next
            BB08_lb.Text = 索引 & " 筆"
        End If

        If BB01_lb.Text = "對等" And BB02_lb.Text = "對等" And BB03_lb.Text = "對等" And BB04_lb.Text = "對等" And BB05_lb.Text = BB09_lb.Text And BB06_lb.Text = BB10_lb.Text And
            BB07_lb.Text = BB11_lb.Text And BB08_lb.Text = BB12_lb.Text Then
            覆蓋更新_bt.Enabled = True : 刪除新建_bt.Enabled = False
        Else
            覆蓋更新_bt.Enabled = False : 刪除新建_bt.Enabled = True
        End If
        Me.TabControl1.SelectedTab = Me.TabPage3
    End Sub
    Private Sub Set_日期格式轉換()
        If DTP = " " Then : DTP = "" : Else : DTP = Format(客戶交期2_dtp.Value, "yyyy/MM/dd") : End If
        If DTP1 = " " Then : DTP1 = "" : Else : DTP1 = Format(下單日2_dtp.Value, "yyyy/MM/dd") : End If
    End Sub
    Private Sub 覆蓋更新_bt_Click(sender As Object, e As EventArgs) Handles 覆蓋更新_bt.Click
        Set_日期格式轉換()
        '-------訂單抬頭--------------------------------------------------------------------------------------------------------------------------------------------------------------------
        ConnOpen()
        SQL1 = "UPDATE " & 訂單資料表(0) & " SET 客戶訂單號 = '" & 客戶訂單號2_tb.Text & "', ModeOfDelivery = '" & 訂單類別2_tb.Text & "', DeliveryTerms = '" & 英科條款2_tb.Text & "', 
                                                 OrgShipDate = '" & DTP & "', VendorReference = '" & 供應商編號2_tb.Text & "', ModifiedDate = '" & 版本2_tb.Text & "', 
                                                 CustomerName = '" & 公司編號2_tb.Text & "', ShipDate = '" & DTP & "', SalesOrder = '" & 郵寄方式2_tb.Text & "', 
                                                 DeliveryAddress = '" & 地址二2_tb.Text & "', 下單日 = '" & DTP & "', 交期 = '" & DTP & "', ETADate = '" & DTP & "', CreatedDate = '" & DTP1 & "', 
                                                 Brand = '" & Brand2_cb.Text & "', CustomerRequisition = '" & 力威訂單號2_tb.Text & "', 工廠編號 = '" & 工廠編號2_tb.Text & "', 
                                                 工廠地址 = '" & 地址12_tb.Text & "', 代理編號 = '" & 代理編號2_cb.Text & "', 訂貨代理 = '" & 訂貨代理2_tb.Text & "', 總雙數 = '" & 總雙數2_tb.Text & "', 
                                                 總案件數 = '" & 總案件2_tb.Text & "', 公司 = '" & 服務2_tb.Text & "', 工廠簡稱 = '" & FTY2_cb.Text & "', 最終運送 = '" & 最終運送2_tb.Text & "'
                WHERE 天盾流水號 LIKE '" & Number2_tb.Text & "'"
        CmdSet_For_dr() : conn.Close()
        '-------訂單控制表------------------------------------------------------------------------------------------------------------------------------------------------------------------
        For i As Integer = 0 To 控制表3_dgv.Rows.Count - 1 : 資料數 = 控制表3_dgv.Rows.Count : 進度條()
            ConnOpen()
            SQL1 = "UPDATE " & 訂單資料表(1) & " SET 年份季度 = '" & 控制表3_dgv.Rows(i).Cells("年份季度").Value & "', 客戶訂單號 = '" & 控制表3_dgv.Rows(i).Cells("客戶訂單號").Value & "', 
                                                     訂單數量 = '" & 控制表3_dgv.Rows(i).Cells("訂單數量").Value & "', 客戶交期 = '" & 控制表3_dgv.Rows(i).Cells("客戶交期").Value & "', 
                                                     生產工廠 = '" & 控制表3_dgv.Rows(i).Cells("生產工廠").Value & "', 訂單種類 = '" & 控制表3_dgv.Rows(i).Cells("訂單種類").Value & "', 
                                                     工廠回復交期 = '" & 控制表3_dgv.Rows(i).Cells("工廠回復交期").Value & "', PO_S_Date = '" & 控制表3_dgv.Rows(i).Cells("客戶交期").Value & "', 
                                                     Requested_XF = '" & 控制表3_dgv.Rows(i).Cells("客戶交期").Value & "', Confirm_XF = '" & 控制表3_dgv.Rows(i).Cells("客戶交期").Value & "', 
                                                     力威訂單號 = '" & 力威訂單號2_tb.Text & "', UoM = '" & 控制表3_dgv.Rows(i).Cells("UoM").Value & "'
                    WHERE 形體號 LIKE '" & 控制表3_dgv.Rows(i).Cells("形體號").Value & "' AND 楦型 LIKE '" & 控制表3_dgv.Rows(i).Cells("楦型").Value & "'  AND 
                          ProductID LIKE '" & 控制表3_dgv.Rows(i).Cells("ProductID").Value & "'  AND 顏色 LIKE '" & 控制表3_dgv.Rows(i).Cells("顏色").Value & "' AND 
                          訂單流水號 LIKE '" & Number2_tb.Text & "'"
            CmdSet_For_dr() : conn.Close()
        Next : ProgressBar1.Value = 0 : 最終數 = 0
        '-------訂單明細表------------------------------------------------------------------------------------------------------------------------------------------------------------------
        For i As Integer = 0 To 明細表3_dgv.Rows.Count - 1 : 資料數1 = 明細表3_dgv.Rows.Count : 進度條1()
            ConnOpen()
            SQL1 = "UPDATE " & 訂單資料表(5) & " SET [5] = '" & 明細表3_dgv.Rows(i).Cells("5").Value & "', [5.5] = '" & 明細表3_dgv.Rows(i).Cells("5.5").Value & "', 
                                                     [6] = '" & 明細表3_dgv.Rows(i).Cells("6").Value & "', [6.5] = '" & 明細表3_dgv.Rows(i).Cells("6.5").Value & "', 
                                                     [7] = '" & 明細表3_dgv.Rows(i).Cells("7").Value & "', [7.5] = '" & 明細表3_dgv.Rows(i).Cells("7.5").Value & "', 
                                                     [8] = '" & 明細表3_dgv.Rows(i).Cells("8").Value & "', [8.5] = '" & 明細表3_dgv.Rows(i).Cells("8.5").Value & "', 
                                                     [9] = '" & 明細表3_dgv.Rows(i).Cells("9").Value & "', [9.5] = '" & 明細表3_dgv.Rows(i).Cells("9.5").Value & "', 
                                                     [10] = '" & 明細表3_dgv.Rows(i).Cells("10").Value & "', [10.5] = '" & 明細表3_dgv.Rows(i).Cells("10.5").Value & "', 
                                                     [11] = '" & 明細表3_dgv.Rows(i).Cells("11").Value & "', [11.5] = '" & 明細表3_dgv.Rows(i).Cells("11.5").Value & "', 
                                                     [12] = '" & 明細表3_dgv.Rows(i).Cells("12").Value & "', [12.5] = '" & 明細表3_dgv.Rows(i).Cells("12.5").Value & "', 
                                                     [13] = '" & 明細表3_dgv.Rows(i).Cells("13").Value & "', [14] = '" & 明細表3_dgv.Rows(i).Cells("14").Value & "' 
                    WHERE 天盾流水號 LIKE '" & Number2_tb.Text & "' AND ItemNumber LIKE '" & 明細表3_dgv.Rows(i).Cells("ItemNumber").Value & "' AND 
                          ProductName LIKE '" & 明細表3_dgv.Rows(i).Cells("ProductName").Value & "' AND Color LIKE '" & 明細表3_dgv.Rows(i).Cells("Color").Value & "' AND 
                          DM LIKE '" & 明細表3_dgv.Rows(i).Cells("DM").Value & "'"
            CmdSet_For_dr() : conn.Close()
        Next : ProgressBar2.Value = 0 : 最終數1 = 0
        '-------裝箱控制------------------------------------------------------------------------------------------------------------------------------------------------------------------
        For i As Integer = 0 To 裝箱控制3_dgv.Rows.Count - 1 : 資料數2 = 裝箱控制3_dgv.Rows.Count : 進度條2()
            ConnOpen()
            SQL1 = "UPDATE " & 訂單資料表(2) & " SET 客戶訂單號 = '" & 裝箱控制3_dgv.Rows(i).Cells("客戶訂單號").Value & "', 力威訂單號 = '" & 裝箱控制3_dgv.Rows(i).Cells("力威訂單號").Value & "', 
                                                     MaterialDescription = '" & 裝箱控制3_dgv.Rows(i).Cells("MaterialDescription").Value & "', Qty = '" & 裝箱控制3_dgv.Rows(i).Cells("Qty").Value & "', 
                                                     UoM = '" & 裝箱控制3_dgv.Rows(i).Cells("UoM").Value & "', ProductDescription = '" & 裝箱控制3_dgv.Rows(i).Cells("ProductDescription").Value & "', 
                                                     IncoTerms = '" & 裝箱控制3_dgv.Rows(i).Cells("IncoTerms").Value & "', CustomerData = '" & 裝箱控制3_dgv.Rows(i).Cells("CustomerData").Value & "', 
                                                     Size = '" & 裝箱控制3_dgv.Rows(i).Cells("Size").Value & "', HS = '" & 裝箱控制3_dgv.Rows(i).Cells("HS").Value & "', 
                                                     Units1 = '" & 裝箱控制3_dgv.Rows(i).Cells("Units1").Value & "', DtyRate = '" & 裝箱控制3_dgv.Rows(i).Cells("DtyRate").Value & "', 
                                                     AddOnDty = '" & 裝箱控制3_dgv.Rows(i).Cells("AddOnDty").Value & "', UnitsCtn = '" & 裝箱控制3_dgv.Rows(i).Cells("UnitsCtn").Value & "', 
                                                     NoCtn = '" & 裝箱控制3_dgv.Rows(i).Cells("NoCtn").Value & "', CtnNo = '" & 裝箱控制3_dgv.Rows(i).Cells("CtnNo").Value & "', 
                                                     Units2 = '" & 裝箱控制3_dgv.Rows(i).Cells("Units2").Value & "', PLMSeason = '" & 裝箱控制3_dgv.Rows(i).Cells("PLMSeason").Value & "', 
                                                     Stock = '" & 裝箱控制3_dgv.Rows(i).Cells("Stock").Value & "', StkName = '" & 裝箱控制3_dgv.Rows(i).Cells("StkName").Value & "', 
                                                     CustStk = '" & 裝箱控制3_dgv.Rows(i).Cells("CustStk").Value & "', CustStkName = '" & 裝箱控制3_dgv.Rows(i).Cells("CustStkName").Value & "', 
                                                     CasePack = '" & 裝箱控制3_dgv.Rows(i).Cells("CasePack").Value & "', Colorway = '" & 裝箱控制3_dgv.Rows(i).Cells("Colorway").Value & "', 
                                                     OrderColor = '" & 裝箱控制3_dgv.Rows(i).Cells("OrderColor").Value & "', Logo = '" & 裝箱控制3_dgv.Rows(i).Cells("Logo").Value & "', 
                                                     POItemText = '" & 裝箱控制3_dgv.Rows(i).Cells("POItemText").Value & "', 
                                                     FinalCustomerShipTo = '" & 裝箱控制3_dgv.Rows(i).Cells("FinalCustomerShipTo").Value & "' 
                    WHERE 天盾流水號 LIKE '" & 裝箱控制3_dgv.Rows(i).Cells("天盾流水號").Value & "' AND Item LIKE '" & 裝箱控制3_dgv.Rows(i).Cells("Item").Value & "' AND 
                          Material LIKE '" & 裝箱控制3_dgv.Rows(i).Cells("Material").Value & "' AND ProductID LIKE '" & 裝箱控制3_dgv.Rows(i).Cells("ProductID").Value & "'"
            CmdSet_For_dr() : conn.Close()
        Next : ProgressBar3.Value = 0 : 最終數2 = 0
        '-------裝箱明細------------------------------------------------------------------------------------------------------------------------------------------------------------------
        For i As Integer = 0 To 裝箱明細3_dgv.Rows.Count - 1 : 資料數3 = 裝箱明細3_dgv.Rows.Count : 進度條3()
            ConnOpen()
            SQL1 = "UPDATE " & 訂單資料表(3) & " SET [5] = '" & 裝箱明細3_dgv.Rows(i).Cells("5").Value & "', [5.5] = '" & 裝箱明細3_dgv.Rows(i).Cells("5.5").Value & "', 
                                                     [6] = '" & 裝箱明細3_dgv.Rows(i).Cells("6").Value & "', [6.5] = '" & 裝箱明細3_dgv.Rows(i).Cells("6.5").Value & "', 
                                                     [7] = '" & 裝箱明細3_dgv.Rows(i).Cells("7").Value & "', [7.5] = '" & 裝箱明細3_dgv.Rows(i).Cells("7.5").Value & "', 
                                                     [8] = '" & 裝箱明細3_dgv.Rows(i).Cells("8").Value & "', [8.5] = '" & 裝箱明細3_dgv.Rows(i).Cells("8.5").Value & "', 
                                                     [9] = '" & 裝箱明細3_dgv.Rows(i).Cells("9").Value & "', [9.5] = '" & 裝箱明細3_dgv.Rows(i).Cells("9.5").Value & "', 
                                                     [10] = '" & 裝箱明細3_dgv.Rows(i).Cells("10").Value & "', [10.5] = '" & 裝箱明細3_dgv.Rows(i).Cells("10.5").Value & "', 
                                                     [11] = '" & 裝箱明細3_dgv.Rows(i).Cells("11").Value & "', [11.5] = '" & 裝箱明細3_dgv.Rows(i).Cells("11.5").Value & "', 
                                                     [12] = '" & 裝箱明細3_dgv.Rows(i).Cells("12").Value & "', [12.5] = '" & 裝箱明細3_dgv.Rows(i).Cells("12.5").Value & "', 
                                                     [13] = '" & 裝箱明細3_dgv.Rows(i).Cells("13").Value & "', [14] = '" & 裝箱明細3_dgv.Rows(i).Cells("14").Value & "' 
                    WHERE 天盾流水號 LIKE '" & Number2_tb.Text & "' AND Item LIKE '" & 裝箱明細3_dgv.Rows(i).Cells("Item").Value & "' AND 
                          Material LIKE '" & 裝箱明細3_dgv.Rows(i).Cells("Material").Value & "'AND DM LIKE '" & 裝箱明細3_dgv.Rows(i).Cells("DM").Value & "'"
            CmdSet_For_dr() : conn.Close()
        Next : ProgressBar4.Value = 0 : 最終數3 = 0
        '-------清空------------------------------------------------------------------------------------------------------------------------------------------------------------------
        覆蓋更新_bt.Enabled = False : 刪除新建_bt.Enabled = False : 清空() : 訂單讀取_bt.Enabled = True : 版本比對_bt.Enabled = False
        MsgBox("存檔完成")
    End Sub
    Private Sub 刪除新建_bt_Click(sender As Object, e As EventArgs) Handles 刪除新建_bt.Click
        Set_日期格式轉換()
        '-------訂單抬頭--------------------------------------------------------------------------------------------------------------------------------------------------------------------
        ConnOpen()
        SQL1 = "UPDATE " & 訂單資料表(0) & " SET 客戶訂單號 = '" & 客戶訂單號2_tb.Text & "', ModeOfDelivery = '" & 訂單類別2_tb.Text & "', DeliveryTerms = '" & 英科條款2_tb.Text & "', 
                                                 OrgShipDate = '" & DTP & "', VendorReference = '" & 供應商編號2_tb.Text & "', ModifiedDate = '" & 版本2_tb.Text & "', 
                                                 CustomerName = '" & 公司編號2_tb.Text & "', ShipDate = '" & DTP & "', SalesOrder = '" & 郵寄方式2_tb.Text & "', 
                                                 DeliveryAddress = '" & 地址二2_tb.Text & "', 下單日 = '" & DTP & "', 交期 = '" & DTP & "', ETADate = '" & DTP & "', CreatedDate = '" & DTP1 & "', 
                                                 Brand = '" & Brand2_cb.Text & "', CustomerRequisition = '" & 力威訂單號2_tb.Text & "', 工廠編號 = '" & 工廠編號2_tb.Text & "', 
                                                 工廠地址 = '" & 地址12_tb.Text & "', 代理編號 = '" & 代理編號2_cb.Text & "', 訂貨代理 = '" & 訂貨代理2_tb.Text & "', 總雙數 = '" & 總雙數2_tb.Text & "', 
                                                 總案件數 = '" & 總案件2_tb.Text & "', 公司 = '" & 服務2_tb.Text & "', 工廠簡稱 = '" & FTY2_cb.Text & "', 最終運送 = '" & 最終運送2_tb.Text & "'
                WHERE 天盾流水號 LIKE '" & Number2_tb.Text & "'"
        CmdSet_For_dr() : conn.Close()
        '-------訂單控制表指定刪除--------------------------------------------------------------------------------------------------------------------------------------------------------------------
        ConnOpen() : SQL1 = "DELETE FROM " & 訂單資料表(1) & "  WHERE 訂單流水號 LIKE '" & Number2_tb.Text & "'" : CmdSet_For_dr() : conn.Close()
        '-------訂單明細表指定刪除------------------------------------------------------------------------------------------------------------------------------------------------------------------
        ConnOpen() : SQL1 = "DELETE FROM " & 訂單資料表(5) & " WHERE 天盾流水號 LIKE '" & Number2_tb.Text & "'" : CmdSet_For_dr() : conn.Close()
        '-------裝箱控制指定刪除------------------------------------------------------------------------------------------------------------------------------------------------------------------
        ConnOpen() : SQL1 = "DELETE FROM " & 訂單資料表(2) & "  WHERE 天盾流水號 LIKE '" & Number2_tb.Text & "'" : CmdSet_For_dr() : conn.Close()
        '-------裝箱明細指定刪除------------------------------------------------------------------------------------------------------------------------------------------------------------------
        ConnOpen() : SQL1 = "DELETE FROM " & 訂單資料表(3) & "  WHERE 天盾流水號 LIKE '" & Number2_tb.Text & "'" : CmdSet_For_dr() : conn.Close()
        '-------價格利潤指定刪除------------------------------------------------------------------------------------------------------------------------------------------------------------------
        ConnOpen() : SQL1 = "DELETE FROM " & 訂單資料表(7) & "  WHERE 天盾訂單號 LIKE '" & Number2_tb.Text & "'" : CmdSet_For_dr() : conn.Close()
        '-------價格利潤指定刪除------------------------------------------------------------------------------------------------------------------------------------------------------------------
        ConnOpen() : SQL1 = "DELETE FROM " & 訂單資料表(7) & "  WHERE 天盾訂單號 LIKE '" & Number2_tb.Text & "'" : CmdSet_For_dr() : conn.Close()
        '-------出貨資料指定刪除------------------------------------------------------------------------------------------------------------------------------------------------------------------
        ConnOpen() : SQL1 = "DELETE FROM 貨款匯入出款明細表  WHERE 訂單流水號 LIKE '" & Number2_tb.Text & "'" : CmdSet_For_dr() : conn.Close()
        '-------訂單控制表------------------------------------------------------------------------------------------------------------------------------------------------------------------
        For i As Integer = 0 To 控制表3_dgv.Rows.Count - 1 : 資料數 = 控制表3_dgv.Rows.Count : 進度條()
            ConnOpen()
            SQL1 = "SELECT TOP (1) 資料流水號 FROM " & 訂單資料表(1) & " GROUP BY 資料流水號 ORDER BY 資料流水號 DESC"
            CmdSet_For_dr()
            If dr.Read() Then : 資料流水號_tb.Text = dr("資料流水號").ToString : Else : 資料流水號_tb.Text = "00000000" : 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

            ConnOpen()
            SQL1 = "INSERT INTO " & 訂單資料表(1) & " (訂單流水號, 年份季度, 客戶訂單號, 形體號, 顏色, 楦型, 訂單數量, 客戶交期, 單價, 總金額, 備註, 生產工廠, 訂單種類, 工廠回復交期, CFMSPEC, 
                                                    CFMSAMPLE, TRIAL1, TRIAL2, TRIAL3, TRIAL4, 包裝確認時間, 貼標時間, 裁斷時間, 針車時間, 成型時間, 驗貨時間, 實際離廠日, 資料流水號, 明細建檔, 
                                                    PO_S_Date, Requested_XF, Confirm_XF, Revised_XF, Special_Packaging, Remarks, 國標測試, 力威訂單號, ProductID, UoM) 
                    VALUES ('" & 控制表3_dgv.Rows(i).Cells("訂單流水號").Value & "','" & 控制表3_dgv.Rows(i).Cells("年份季度").Value & "','" & 控制表3_dgv.Rows(i).Cells("客戶訂單號").Value & "',
                            '" & 控制表3_dgv.Rows(i).Cells("形體號").Value & "','" & 控制表3_dgv.Rows(i).Cells("顏色").Value & "','" & 控制表3_dgv.Rows(i).Cells("楦型").Value & "',
                            '" & 控制表3_dgv.Rows(i).Cells("訂單數量").Value & "','" & 控制表3_dgv.Rows(i).Cells("客戶交期").Value & "','0','0','','" & 控制表3_dgv.Rows(i).Cells("生產工廠").Value & "',
                            '" & 控制表3_dgv.Rows(i).Cells("訂單種類").Value & "','" & 控制表3_dgv.Rows(i).Cells("工廠回復交期").Value & "','','','','','','','','','','','','','',
                            '" & 資料流水號_tb.Text & "','1','" & 控制表3_dgv.Rows(i).Cells("客戶交期").Value & "','" & 控制表3_dgv.Rows(i).Cells("客戶交期").Value & "',
                            '" & 控制表3_dgv.Rows(i).Cells("客戶交期").Value & "','','','','" & 國標測試報告2_ch.Checked & "','" & 力威訂單號2_tb.Text & "',
                            '" & 控制表3_dgv.Rows(i).Cells("ProductID").Value & "','" & 控制表3_dgv.Rows(i).Cells("UoM").Value & "')"
            CmdSet_For_dr() : conn.Close()
        Next : ProgressBar1.Value = 0 : 最終數 = 0
        '-------訂單明細表------------------------------------------------------------------------------------------------------------------------------------------------------------------
        For i As Integer = 0 To 明細表3_dgv.Rows.Count - 1 : 資料數1 = 明細表3_dgv.Rows.Count : 進度條1()
            '-------判斷是否需要新增顏色------------------------------------------------------------------------------------------------------------------------------------------------------------------
            ConnOpen()
            SQL1 = "SELECT 顏色 FROM 訂單控制表顏色清單 WHERE 顏色 LIKE N'" & 明細表3_dgv.Rows(i).Cells("Color").Value & "'"
            CmdSet_For_dr()
            If dr.Read() Then
                conn.Close() : dr.Close()
            Else
                conn.Close() : dr.Close() : ConnOpen()
                SQL1 = "INSERT INTO 訂單控制表顏色清單 (顏色) VALUES (N'" & 明細表3_dgv.Rows(i).Cells("Color").Value & "')"
                CmdSet_For_dr() : conn.Close() : dr.Close()
            End If
            '-------判斷是否需要新增形體------------------------------------------------------------------------------------------------------------------------------------------------------------------
            ConnOpen()
            SQL1 = "SELECT 形體號 FROM 訂單控制表形體號清單 WHERE 形體號 LIKE '" & 明細表3_dgv.Rows(i).Cells("ProductName").Value & "'"
            CmdSet_For_dr()
            If dr.Read() Then
                conn.Close() : dr.Close()
            Else
                conn.Close() : dr.Close() : ConnOpen()
                SQL1 = "INSERT INTO 訂單控制表形體號清單 (形體號) VALUES ('" & 明細表3_dgv.Rows(i).Cells("ProductName").Value & "')"
                CmdSet_For_dr() : conn.Close() : dr.Close()
            End If
            ConnOpen()
            SQL1 = "SELECT ProductName FROM STYLELIST WHERE ProductName LIKE '" & 明細表3_dgv.Rows(i).Cells("ProductName").Value & "'"
            CmdSet_For_dr()
            If dr.Read() Then
                conn.Close() : dr.Close()
            Else
                ConnOpen()
                SQL1 = "INSERT INTO STYLELIST ( ItemNumber, ProductName, Style, Description, 建立季節) 
                                VALUES ('" & 明細表3_dgv.Rows(i).Cells("ItemNumber").Value & "', '" & 明細表3_dgv.Rows(i).Cells("ProductName").Value & "', '', 
                                        '" & 明細表3_dgv.Rows(i).Cells("ProductDescription").Value & "', '" & SEASON2_cb.Text & "')"
                CmdSet_For_dr() : conn.Close()
            End If
            '-------明細表寫入------------------------------------------------------------------------------------------------------------------------------------------------------------------
            ConnOpen()
            SQL1 = "INSERT INTO " & 訂單資料表(5) & " (天盾流水號, 客戶訂單號, ItemNumber, ProductName, ProductDescription, Color, DM, [5], [5.5], [6], [6.5], [7], [7.5], [8], [8.5], [9], 
                                                                [9.5], [10], [10.5], [11], [11.5], [12], [12.5], [13], [14]) 
                    VALUES ('" & 明細表3_dgv.Rows(i).Cells("天盾流水號").Value & "','" & 明細表3_dgv.Rows(i).Cells("客戶訂單號").Value & "','" & 明細表3_dgv.Rows(i).Cells("ItemNumber").Value & "',
                            '" & 明細表3_dgv.Rows(i).Cells("ProductName").Value & "','" & 明細表3_dgv.Rows(i).Cells("ProductDescription").Value & "','" & 明細表3_dgv.Rows(i).Cells("Color").Value & "',
                            '" & 明細表3_dgv.Rows(i).Cells("DM").Value & "','" & 明細表3_dgv.Rows(i).Cells("5").Value & "','" & 明細表3_dgv.Rows(i).Cells("5.5").Value & "',
                            '" & 明細表3_dgv.Rows(i).Cells("6").Value & "','" & 明細表3_dgv.Rows(i).Cells("6.5").Value & "','" & 明細表3_dgv.Rows(i).Cells("7").Value & "',
                            '" & 明細表3_dgv.Rows(i).Cells("7.5").Value & "','" & 明細表3_dgv.Rows(i).Cells("8").Value & "','" & 明細表3_dgv.Rows(i).Cells("8.5").Value & "',
                            '" & 明細表3_dgv.Rows(i).Cells("9").Value & "','" & 明細表3_dgv.Rows(i).Cells("9.5").Value & "','" & 明細表3_dgv.Rows(i).Cells("10").Value & "',
                            '" & 明細表3_dgv.Rows(i).Cells("10.5").Value & "','" & 明細表3_dgv.Rows(i).Cells("11").Value & "','" & 明細表3_dgv.Rows(i).Cells("11.5").Value & "',
                            '" & 明細表3_dgv.Rows(i).Cells("12").Value & "','" & 明細表3_dgv.Rows(i).Cells("12.5").Value & "','" & 明細表3_dgv.Rows(i).Cells("13").Value & "',
                            '" & 明細表3_dgv.Rows(i).Cells("14").Value & "')"
            CmdSet_For_dr() : conn.Close()
        Next : ProgressBar2.Value = 0 : 最終數1 = 0
        '-------裝箱控制------------------------------------------------------------------------------------------------------------------------------------------------------------------
        For i As Integer = 0 To 裝箱控制3_dgv.Rows.Count - 1 : 資料數2 = 裝箱控制3_dgv.Rows.Count : 進度條2()
            ConnOpen()
            SQL1 = "INSERT INTO " & 訂單資料表(2) & " (天盾流水號, 客戶訂單號, 力威訂單號, Item, Material, MaterialDescription, Qty, UoM, ProductDescription, IncoTerms, CustomerData, Size, HS, Units1, 
                                                       DtyRate, AddOnDty, UnitsCtn, NoCtn, CtnNo, Units2, PLMSeason, ProductID, Stock, StkName, CustStk, CustStkName, CasePack, Colorway, OrderColor, 
                                                       Logo, POItemText, FinalCustomerShipTo) 
                    VALUES ('" & 裝箱控制3_dgv.Rows(i).Cells("天盾流水號").Value & "','" & 裝箱控制3_dgv.Rows(i).Cells("客戶訂單號").Value & "','" & 裝箱控制3_dgv.Rows(i).Cells("力威訂單號").Value & "',
                            '" & 裝箱控制3_dgv.Rows(i).Cells("Item").Value & "','" & 裝箱控制3_dgv.Rows(i).Cells("Material").Value & "','" & 裝箱控制3_dgv.Rows(i).Cells("MaterialDescription").Value & "',
                            '" & 裝箱控制3_dgv.Rows(i).Cells("Qty").Value & "','" & 裝箱控制3_dgv.Rows(i).Cells("UoM").Value & "','" & 裝箱控制3_dgv.Rows(i).Cells("ProductDescription").Value & "',
                            '" & 裝箱控制3_dgv.Rows(i).Cells("IncoTerms").Value & "','" & 裝箱控制3_dgv.Rows(i).Cells("CustomerData").Value & "','" & 裝箱控制3_dgv.Rows(i).Cells("Size").Value & "',
                            '" & 裝箱控制3_dgv.Rows(i).Cells("HS").Value & "','" & 裝箱控制3_dgv.Rows(i).Cells("Units1").Value & "','" & 裝箱控制3_dgv.Rows(i).Cells("DtyRate").Value & "',
                            '" & 裝箱控制3_dgv.Rows(i).Cells("AddOnDty").Value & "','" & 裝箱控制3_dgv.Rows(i).Cells("UnitsCtn").Value & "','" & 裝箱控制3_dgv.Rows(i).Cells("NoCtn").Value & "',
                            '" & 裝箱控制3_dgv.Rows(i).Cells("CtnNo").Value & "','" & 裝箱控制3_dgv.Rows(i).Cells("Units2").Value & "','" & 裝箱控制3_dgv.Rows(i).Cells("PLMSeason").Value & "',
                            '" & 裝箱控制3_dgv.Rows(i).Cells("ProductID").Value & "','" & 裝箱控制3_dgv.Rows(i).Cells("Stock").Value & "','" & 裝箱控制3_dgv.Rows(i).Cells("StkName").Value & "',
                            '" & 裝箱控制3_dgv.Rows(i).Cells("CustStk").Value & "','" & 裝箱控制3_dgv.Rows(i).Cells("CustStkName").Value & "','" & 裝箱控制3_dgv.Rows(i).Cells("CasePack").Value & "',
                            '" & 裝箱控制3_dgv.Rows(i).Cells("Colorway").Value & "','" & 裝箱控制3_dgv.Rows(i).Cells("OrderColor").Value & "','" & 裝箱控制3_dgv.Rows(i).Cells("Logo").Value & "',
                            '" & 裝箱控制3_dgv.Rows(i).Cells("POItemText").Value & "', '" & 裝箱控制3_dgv.Rows(i).Cells("FinalCustomerShipTo").Value & "')"
            CmdSet_For_dr() : conn.Close()
        Next : ProgressBar3.Value = 0 : 最終數2 = 0
        '-------裝箱明細------------------------------------------------------------------------------------------------------------------------------------------------------------------
        For i As Integer = 0 To 裝箱明細3_dgv.Rows.Count - 1 : 資料數3 = 裝箱明細3_dgv.Rows.Count : 進度條3()
            ConnOpen()
            SQL1 = "INSERT INTO " & 訂單資料表(3) & " (天盾流水號, 客戶訂單號, 力威訂單號, Item, Material, DM, [5], [5.5], [6], [6.5], [7], [7.5], [8], [8.5], [9], [9.5], 
                                                       [10], [10.5], [11], [11.5], [12], [12.5], [13], [14]) 
                    VALUES ('" & 裝箱明細3_dgv.Rows(i).Cells("天盾流水號").Value & "','" & 裝箱明細3_dgv.Rows(i).Cells("客戶訂單號").Value & "','" & 裝箱明細3_dgv.Rows(i).Cells("力威訂單號").Value & "',
                            '" & 裝箱明細3_dgv.Rows(i).Cells("Item").Value & "','" & 裝箱明細3_dgv.Rows(i).Cells("Material").Value & "','" & 裝箱明細3_dgv.Rows(i).Cells("DM").Value & "',
                            '" & 裝箱明細3_dgv.Rows(i).Cells("5").Value & "','" & 裝箱明細3_dgv.Rows(i).Cells("5.5").Value & "', '" & 裝箱明細3_dgv.Rows(i).Cells("6").Value & "', 
                            '" & 裝箱明細3_dgv.Rows(i).Cells("6.5").Value & "','" & 裝箱明細3_dgv.Rows(i).Cells("7").Value & "', '" & 裝箱明細3_dgv.Rows(i).Cells("7.5").Value & "',
                            '" & 裝箱明細3_dgv.Rows(i).Cells("8").Value & "','" & 裝箱明細3_dgv.Rows(i).Cells("8.5").Value & "', '" & 裝箱明細3_dgv.Rows(i).Cells("9").Value & "',
                            '" & 裝箱明細3_dgv.Rows(i).Cells("9.5").Value & "','" & 裝箱明細3_dgv.Rows(i).Cells("10").Value & "', '" & 裝箱明細3_dgv.Rows(i).Cells("10.5").Value & "',
                            '" & 裝箱明細3_dgv.Rows(i).Cells("11").Value & "','" & 裝箱明細3_dgv.Rows(i).Cells("11.5").Value & "', '" & 裝箱明細3_dgv.Rows(i).Cells("12").Value & "',
                            '" & 裝箱明細3_dgv.Rows(i).Cells("12.5").Value & "','" & 裝箱明細3_dgv.Rows(i).Cells("13").Value & "', '" & 裝箱明細3_dgv.Rows(i).Cells("14").Value & "')"
            CmdSet_For_dr() : conn.Close()
        Next : ProgressBar4.Value = 0 : 最終數3 = 0
        '-------清空------------------------------------------------------------------------------------------------------------------------------------------------------------------
        覆蓋更新_bt.Enabled = False : 刪除新建_bt.Enabled = False : 清空() : 訂單讀取_bt.Enabled = True : 版本比對_bt.Enabled = False
        MsgBox("存檔完成")
    End Sub
End Class