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