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 Private Sub Brand_cb_下拉表單資料載入() conn.Close() ConnOpen() SQL1 = "SELECT 客戶名稱 FROM 客戶資料" CmdSet_For_dr() : Brand_cb.Items.Clear() While (dr.Read()) : Brand_cb.Items.Add(dr("客戶名稱")) : End While : conn.Close() Brand_cb.SelectedIndex = 0 End Sub Private Sub SEASON_cb_下拉表單資料載入() conn.Close() ConnOpen() SQL1 = "SELECT 年份季度 FROM 訂單控制表年份季度清單 ORDER BY 年份季度 DESC" CmdSet_For_dr() : SEASON_cb.Items.Clear() While (dr.Read()) : SEASON_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() While (dr.Read()) : DIV_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() While (dr.Read()) : Remark_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() While (dr.Read()) : FTY_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值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值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值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 訂單資料匯入_力威_Load(sender As Object, e As EventArgs) Handles MyBase.Load Me.MdiParent = TENDEN_MES_SYS : Me.WindowState = 2 : Me.AutoScroll = True 訂單資料庫選擇.ShowDialog() 匯入列表開啟 = True : 力威匯入列表 = True SEASON_cb_下拉表單資料載入() : DIV_cb_下拉表單資料載入() : Remark_cb_下拉表單資料載入() : FTY_cb_下拉表單資料載入() 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 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 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) 明細表_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 填入0值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 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() End Sub Private Sub 訂單資料匯入_力威_Unload(sender As Object, e As EventArgs) Handles MyBase.Closing 匯入列表開啟 = False ConnOpen() SQL1 = "DELETE FROM " & 訂單資料表(4) & " WHERE (訂單流水號 = '" & Strings.Right(天盾流水號_tb.Text, 6) & "')" cmd.CommandText = SQL1 : cmd.Connection = conn : cmd.ExecuteNonQuery() : cmd.ExecuteNonQuery() : conn.Close() End Sub Private Sub 新增訂單號_bt_Click(sender As Object, e As EventArgs) Handles 新增訂單號_bt.Click If 天盾流水號_tb.Text = "" Then ConnOpen() SQL1 = "DELETE FROM " & 訂單資料表(4) & " WHERE (訂單流水號 = '" & Strings.Right(Number_tb.Text, 6) & "')" cmd.CommandText = SQL1 : cmd.Connection = conn : cmd.ExecuteNonQuery() : cmd.ExecuteNonQuery() : conn.Close() 訂單流水號.Show() Else MsgBox("已有訂單號") End If Number_tb.Text = 天盾流水號_tb.Text End Sub Private Sub 清空_bt_Click(sender As Object, e As EventArgs) Handles 清空_bt.Click '-------清空------------------------------------------------------------------------------------------------------------------------------------------------------------------ ConnOpen() SQL1 = "DELETE FROM " & 訂單資料表(4) & " WHERE (訂單流水號 = '" & Strings.Right(天盾流水號_tb.Text, 6) & "')" cmd.CommandText = SQL1 : cmd.Connection = conn : cmd.ExecuteNonQuery() : cmd.ExecuteNonQuery() : conn.Close() 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 = "" 客戶訂單號_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 = "" : 最終運送_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() 數量 = 明細表_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() 數量 = 裝箱控制_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() 數量 = 裝箱明細_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() 訂單讀取_bt.Enabled = True : 訂單存檔_bt.Enabled = False End Sub Private Sub 新增清單1_bt_Click(sender As Object, e As EventArgs) Handles 新增清單1_bt.Click 清單修改.Close() : 修改清單(0) = True : 修改清單(1) = False : 修改清單(2) = False : 修改清單(3) = False : 修改清單(4) = False : 修改清單(5) = False 修改清單(6) = False : 修改清單(7) = False : 修改清單(8) = False : 修改清單(9) = False : 修改清單(10) = False : 修改清單(11) = False : 清單修改.Show() SEASON_cb_下拉表單資料載入() End Sub Private Sub 新增清單2_bt_Click(sender As Object, e As EventArgs) Handles 新增清單2_bt.Click 清單修改.Close() : 修改清單(0) = False : 修改清單(1) = False : 修改清單(2) = False : 修改清單(3) = False : 修改清單(4) = False : 修改清單(5) = True 修改清單(6) = False : 修改清單(7) = False : 修改清單(8) = False : 修改清單(9) = False : 修改清單(10) = False : 修改清單(11) = False : 清單修改.Show() DIV_cb_下拉表單資料載入() End Sub Private Sub 新增清單5_bt_Click(sender As Object, e As EventArgs) Handles 新增清單5_bt.Click 清單修改.Close() : 修改清單(0) = False : 修改清單(1) = False : 修改清單(2) = False : 修改清單(3) = False : 修改清單(4) = False : 修改清單(5) = False 修改清單(6) = True : 修改清單(7) = False : 修改清單(8) = False : 修改清單(9) = False : 修改清單(10) = False : 修改清單(11) = False : 清單修改.Show() Brand_cb_下拉表單資料載入() End Sub Private Sub Remark_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Remark_cb.TextChanged ConnOpen() SQL1 = "SELECT DELIVERYADDRESS FROM DELIVERYADDRESS WHERE REMARK LIKE '" & Remark_cb.Text & "'" CmdSet_For_dr() If dr.Read() Then : 地址二_tb.Text = dr("DELIVERYADDRESS").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 : 生產工廠_tb.Text = dr("生產工廠").ToString : End If : conn.Close() For i As Integer = 0 To 控制表_dgv.Rows.Count - 1 控制表_dgv.Rows(i).Cells("生產工廠").Value = 生產工廠_tb.Text Next i 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 訂單讀取_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 = 日期_tb.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) : 明細表_dgv.Rows.Insert(0) 填入0值1() End If If Strings.Left(xlSheet.Cells(YY + TT, XX1).value, 1) = "M" Then 明細表_dgv.Rows(0).Cells("DM").Value = "MED" : 控制表_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" : 控制表_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" : 控制表_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 : 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 If IsNumeric(xlSheet.Cells(YY + TT, XX1 + UU).value) Then : Else : 明細表_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 If IsNumeric(xlSheet.Cells(YY + TT, XX1 + UU).value) Then : Else : 明細表_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 If IsNumeric(xlSheet.Cells(YY + TT, XX1 + UU).value) Then : Else : 明細表_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 If IsNumeric(xlSheet.Cells(YY + TT, XX1 + UU).value) Then : Else : 明細表_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 If IsNumeric(xlSheet.Cells(YY + TT, XX1 + UU).value) Then : Else : 明細表_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 If IsNumeric(xlSheet.Cells(YY + TT, XX1 + UU).value) Then : Else : 明細表_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 If IsNumeric(xlSheet.Cells(YY + TT, XX1 + UU).value) Then : Else : 明細表_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 If IsNumeric(xlSheet.Cells(YY + TT, XX1 + UU).value) Then : Else : 明細表_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 If IsNumeric(xlSheet.Cells(YY + TT, XX1 + UU).value) Then : Else : 明細表_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 If IsNumeric(xlSheet.Cells(YY + TT, XX1 + UU).value) Then : Else : 明細表_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 If IsNumeric(xlSheet.Cells(YY + TT, XX1 + UU).value) Then : Else : 明細表_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 If IsNumeric(xlSheet.Cells(YY + TT, XX1 + UU).value) Then : Else : 明細表_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 If IsNumeric(xlSheet.Cells(YY + TT, XX1 + UU).value) Then : Else : 明細表_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 If IsNumeric(xlSheet.Cells(YY + TT, XX1 + UU).value) Then : Else : 明細表_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 If IsNumeric(xlSheet.Cells(YY + TT, XX1 + UU).value) Then : Else : 明細表_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 If IsNumeric(xlSheet.Cells(YY + TT, XX1 + UU).value) Then : Else : 明細表_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 If IsNumeric(xlSheet.Cells(YY + TT, XX1 + UU).value) Then : Else : 明細表_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 If IsNumeric(xlSheet.Cells(YY + TT, XX1 + UU).value) Then : Else : 明細表_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 = 天盾流水號_tb.Text 明細表_dgv.Rows(0).Cells("客戶訂單號").Value = 客戶訂單號_tb.Text 控制表_dgv.Rows(0).Cells("訂單流水號").Value = 天盾流水號_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 型體描述 = "" 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 = 形體名稱 明細表_dgv.Rows(0).Cells("ProductName").Value = 形體名稱 明細表_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 明細表_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 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 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) End If 裝箱控制_dgv.Rows(0).Cells("天盾流水號").Value = 天盾流水號_tb.Text : 裝箱控制_dgv.Rows(0).Cells("客戶訂單號").Value = 客戶訂單號_tb.Text 裝箱控制_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 : 項目 = 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 : 型體資料 = 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 : 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 : 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 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) 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 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 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 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 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) 填入0值2() End If 裝箱明細_dgv.Rows(0).Cells("天盾流水號").Value = 天盾流水號_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 = 型體資料 If Strings.Left(xlSheet.Cells(YY + I + TT, XX2 + II).value, 1) = "M" Then : 裝箱明細_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" ElseIf Strings.Left(xlSheet.Cells(YY + I + TT, XX2 + II).value, 1) = "N" Then : 裝箱明細_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 If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_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 If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_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 If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_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 If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_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 If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_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 If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_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 If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_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 If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_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 If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_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 If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_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 If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_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 If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_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 If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_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 If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_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 If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_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 If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_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 If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_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 If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_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 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 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 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 : 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 Set_日期格式轉換() If DTP = " " Then : DTP = "" : Else : DTP = Format(客戶交期_dtp.Value, "yyyy/MM/dd") : End If If DTP1 = " " Then : DTP1 = "" : Else : DTP1 = Format(下單日_dtp.Value, "yyyy/MM/dd") : End If 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 Brand_cb.Text = "" Or 訂單類別_tb.Text = "" Or 英科條款_tb.Text = "" Or 公司編號_tb.Text = "" Or 服務_tb.Text = "" Or 力威訂單號_tb.Text = "" Or 客戶訂單號_tb.Text = "" Or 供應商編號_tb.Text = "" Or 工廠編號_tb.Text = "" Or 地址1_tb.Text = "" Or 地址二_tb.Text = "" Then MsgBox("打藍色星號處的資料不可以空白。") Else Set_日期格式轉換() ConnOpen() SQL1 = "SELECT 客戶名稱 FROM 客戶資料 WHERE 客戶名稱 LIKE N'" & Brand_cb.Text & "'" CmdSet_For_dr() If dr.Read() Then : Else ConnOpen() SQL1 = "INSERT INTO 客戶資料 (客戶名稱) VALUES (N'" & Brand_cb.Text & "')" CmdSet_For_dr() : conn.Close() End If : conn.Close() '-------訂單抬頭-------------------------------------------------------------------------------------------------------------------------------------------------------------------- ConnOpen() SQL1 = "INSERT INTO " & 訂單資料表(0) & " (客戶訂單號, 天盾流水號, ModeOfDelivery, DeliveryTerms, OrgShipDate, FromPort, ToPort, ShippingCarrier, VendorReference, ModifiedDate, CustomerName, ShipDate, SalesOrder, DeliveryAddress, 下單日, 交期, ETADate, CreatedDate, Brand, CustomerRequisition, 工廠編號, 工廠地址, 代理編號, 訂貨代理, 總雙數, 總案件數, 公司, 工廠簡稱, 最終運送, 入單型態) VALUES ('" & 客戶訂單號_tb.Text & "','" & Number_tb.Text & "','" & 訂單類別_tb.Text & "','" & 英科條款_tb.Text & "','" & DTP & "','','','','" & 供應商編號_tb.Text & "','" & 版本_tb.Text & "','" & 公司編號_tb.Text & "','" & DTP & "','" & 郵寄方式_tb.Text & "','" & 地址二_tb.Text & "','" & DTP & "','" & DTP & "','" & DTP & "','" & DTP1 & "','" & Brand_cb.Text & "','" & 力威訂單號_tb.Text & "','" & 工廠編號_tb.Text & "','" & 地址1_tb.Text & "','" & 代理編號_cb.Text & "','" & 訂貨代理_tb.Text & "','" & 總雙數_tb.Text & "','" & 總案件_tb.Text & "','" & 服務_tb.Text & "','" & FTY_cb.Text & "','" & 最終運送_tb.Text & "', '2')" CmdSet_For_dr() : conn.Close() '-------訂單控制表------------------------------------------------------------------------------------------------------------------------------------------------------------------ For i As Integer = 0 To 控制表_dgv.Rows.Count - 1 : 資料數 = 控制表_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 ('" & 控制表_dgv.Rows(i).Cells("訂單流水號").Value & "','" & 控制表_dgv.Rows(i).Cells("年份季度").Value & "','" & 控制表_dgv.Rows(i).Cells("客戶訂單號").Value & "', '" & 控制表_dgv.Rows(i).Cells("形體號").Value & "','" & 控制表_dgv.Rows(i).Cells("顏色").Value & "','" & 控制表_dgv.Rows(i).Cells("楦型").Value & "', '" & 控制表_dgv.Rows(i).Cells("訂單數量").Value & "','" & 控制表_dgv.Rows(i).Cells("客戶交期").Value & "','0','0','','" & 控制表_dgv.Rows(i).Cells("生產工廠").Value & "', '" & 控制表_dgv.Rows(i).Cells("訂單種類").Value & "','" & 控制表_dgv.Rows(i).Cells("工廠回復交期").Value & "','','','','','','','','','','','','','', '" & 資料流水號_tb.Text & "','1','" & 控制表_dgv.Rows(i).Cells("客戶交期").Value & "','" & 控制表_dgv.Rows(i).Cells("客戶交期").Value & "', '" & 控制表_dgv.Rows(i).Cells("客戶交期").Value & "','','','','" & 國標測試報告_ch.Checked & "','" & 力威訂單號_tb.Text & "', '" & 控制表_dgv.Rows(i).Cells("ProductID").Value & "','" & 控制表_dgv.Rows(i).Cells("UoM").Value & "')" CmdSet_For_dr() : conn.Close() Next : ProgressBar1.Value = 0 : 最終數 = 0 '-------訂單明細表------------------------------------------------------------------------------------------------------------------------------------------------------------------ For i As Integer = 0 To 明細表_dgv.Rows.Count - 1 : 資料數1 = 明細表_dgv.Rows.Count : 進度條1() '-------判斷是否需要新增顏色------------------------------------------------------------------------------------------------------------------------------------------------------------------ ConnOpen() SQL1 = "SELECT 顏色 FROM 訂單控制表顏色清單 WHERE 顏色 LIKE N'" & 明細表_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'" & 明細表_dgv.Rows(i).Cells("Color").Value & "')" CmdSet_For_dr() : conn.Close() : dr.Close() End If '-------判斷是否需要新增形體------------------------------------------------------------------------------------------------------------------------------------------------------------------ ConnOpen() SQL1 = "SELECT 形體號 FROM 訂單控制表形體號清單 WHERE 形體號 LIKE '" & 明細表_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 ('" & 明細表_dgv.Rows(i).Cells("ProductName").Value & "')" CmdSet_For_dr() : conn.Close() : dr.Close() End If ConnOpen() SQL1 = "SELECT ProductName FROM STYLELIST WHERE ProductName LIKE '" & 明細表_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 ('" & 明細表_dgv.Rows(i).Cells("ItemNumber").Value & "', '" & 明細表_dgv.Rows(i).Cells("ProductName").Value & "', '', '" & 明細表_dgv.Rows(i).Cells("ProductDescription").Value & "', '" & SEASON_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 ('" & 明細表_dgv.Rows(i).Cells("天盾流水號").Value & "','" & 明細表_dgv.Rows(i).Cells("客戶訂單號").Value & "','" & 明細表_dgv.Rows(i).Cells("ItemNumber").Value & "', '" & 明細表_dgv.Rows(i).Cells("ProductName").Value & "','" & 明細表_dgv.Rows(i).Cells("ProductDescription").Value & "','" & 明細表_dgv.Rows(i).Cells("Color").Value & "', '" & 明細表_dgv.Rows(i).Cells("DM").Value & "','" & 明細表_dgv.Rows(i).Cells("5").Value & "','" & 明細表_dgv.Rows(i).Cells("5.5").Value & "', '" & 明細表_dgv.Rows(i).Cells("6").Value & "','" & 明細表_dgv.Rows(i).Cells("6.5").Value & "','" & 明細表_dgv.Rows(i).Cells("7").Value & "', '" & 明細表_dgv.Rows(i).Cells("7.5").Value & "','" & 明細表_dgv.Rows(i).Cells("8").Value & "','" & 明細表_dgv.Rows(i).Cells("8.5").Value & "', '" & 明細表_dgv.Rows(i).Cells("9").Value & "','" & 明細表_dgv.Rows(i).Cells("9.5").Value & "','" & 明細表_dgv.Rows(i).Cells("10").Value & "', '" & 明細表_dgv.Rows(i).Cells("10.5").Value & "','" & 明細表_dgv.Rows(i).Cells("11").Value & "','" & 明細表_dgv.Rows(i).Cells("11.5").Value & "', '" & 明細表_dgv.Rows(i).Cells("12").Value & "','" & 明細表_dgv.Rows(i).Cells("12.5").Value & "','" & 明細表_dgv.Rows(i).Cells("13").Value & "', '" & 明細表_dgv.Rows(i).Cells("14").Value & "')" CmdSet_For_dr() : conn.Close() Next : ProgressBar2.Value = 0 : 最終數1 = 0 '-------裝箱控制------------------------------------------------------------------------------------------------------------------------------------------------------------------ For i As Integer = 0 To 裝箱控制_dgv.Rows.Count - 1 : 資料數2 = 裝箱控制_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 ('" & 裝箱控制_dgv.Rows(i).Cells("天盾流水號").Value & "','" & 裝箱控制_dgv.Rows(i).Cells("客戶訂單號").Value & "','" & 裝箱控制_dgv.Rows(i).Cells("力威訂單號").Value & "', '" & 裝箱控制_dgv.Rows(i).Cells("Item").Value & "','" & 裝箱控制_dgv.Rows(i).Cells("Material").Value & "','" & 裝箱控制_dgv.Rows(i).Cells("MaterialDescription").Value & "', '" & 裝箱控制_dgv.Rows(i).Cells("Qty").Value & "','" & 裝箱控制_dgv.Rows(i).Cells("UoM").Value & "','" & 裝箱控制_dgv.Rows(i).Cells("ProductDescription").Value & "', '" & 裝箱控制_dgv.Rows(i).Cells("IncoTerms").Value & "','" & 裝箱控制_dgv.Rows(i).Cells("CustomerData").Value & "','" & 裝箱控制_dgv.Rows(i).Cells("Size").Value & "', '" & 裝箱控制_dgv.Rows(i).Cells("HS").Value & "','" & 裝箱控制_dgv.Rows(i).Cells("Units1").Value & "','" & 裝箱控制_dgv.Rows(i).Cells("DtyRate").Value & "', '" & 裝箱控制_dgv.Rows(i).Cells("AddOnDty").Value & "','" & 裝箱控制_dgv.Rows(i).Cells("UnitsCtn").Value & "','" & 裝箱控制_dgv.Rows(i).Cells("NoCtn").Value & "', '" & 裝箱控制_dgv.Rows(i).Cells("CtnNo").Value & "','" & 裝箱控制_dgv.Rows(i).Cells("Units2").Value & "','" & 裝箱控制_dgv.Rows(i).Cells("PLMSeason").Value & "', '" & 裝箱控制_dgv.Rows(i).Cells("ProductID").Value & "','" & 裝箱控制_dgv.Rows(i).Cells("Stock").Value & "','" & 裝箱控制_dgv.Rows(i).Cells("StkName").Value & "', '" & 裝箱控制_dgv.Rows(i).Cells("CustStk").Value & "','" & 裝箱控制_dgv.Rows(i).Cells("CustStkName").Value & "','" & 裝箱控制_dgv.Rows(i).Cells("CasePack").Value & "', '" & 裝箱控制_dgv.Rows(i).Cells("Colorway").Value & "','" & 裝箱控制_dgv.Rows(i).Cells("OrderColor").Value & "','" & 裝箱控制_dgv.Rows(i).Cells("Logo").Value & "', '" & 裝箱控制_dgv.Rows(i).Cells("POItemText").Value & "', '" & 裝箱控制_dgv.Rows(i).Cells("FinalCustomerShipTo").Value & "')" CmdSet_For_dr() : conn.Close() Next : ProgressBar3.Value = 0 : 最終數2 = 0 '-------裝箱明細------------------------------------------------------------------------------------------------------------------------------------------------------------------ For i As Integer = 0 To 裝箱明細_dgv.Rows.Count - 1 : 資料數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 ('" & 裝箱明細_dgv.Rows(i).Cells("天盾流水號").Value & "','" & 裝箱明細_dgv.Rows(i).Cells("客戶訂單號").Value & "','" & 裝箱明細_dgv.Rows(i).Cells("力威訂單號").Value & "', '" & 裝箱明細_dgv.Rows(i).Cells("Item").Value & "','" & 裝箱明細_dgv.Rows(i).Cells("Material").Value & "','" & 裝箱明細_dgv.Rows(i).Cells("DM").Value & "', '" & 裝箱明細_dgv.Rows(i).Cells("5").Value & "','" & 裝箱明細_dgv.Rows(i).Cells("5.5").Value & "', '" & 裝箱明細_dgv.Rows(i).Cells("6").Value & "', '" & 裝箱明細_dgv.Rows(i).Cells("6.5").Value & "','" & 裝箱明細_dgv.Rows(i).Cells("7").Value & "', '" & 裝箱明細_dgv.Rows(i).Cells("7.5").Value & "', '" & 裝箱明細_dgv.Rows(i).Cells("8").Value & "','" & 裝箱明細_dgv.Rows(i).Cells("8.5").Value & "', '" & 裝箱明細_dgv.Rows(i).Cells("9").Value & "', '" & 裝箱明細_dgv.Rows(i).Cells("9.5").Value & "','" & 裝箱明細_dgv.Rows(i).Cells("10").Value & "', '" & 裝箱明細_dgv.Rows(i).Cells("10.5").Value & "', '" & 裝箱明細_dgv.Rows(i).Cells("11").Value & "','" & 裝箱明細_dgv.Rows(i).Cells("11.5").Value & "', '" & 裝箱明細_dgv.Rows(i).Cells("12").Value & "', '" & 裝箱明細_dgv.Rows(i).Cells("12.5").Value & "','" & 裝箱明細_dgv.Rows(i).Cells("13").Value & "', '" & 裝箱明細_dgv.Rows(i).Cells("14").Value & "')" CmdSet_For_dr() : conn.Close() Next : ProgressBar4.Value = 0 : 最終數3 = 0 '-------清空------------------------------------------------------------------------------------------------------------------------------------------------------------------ 清空_bt.PerformClick() MsgBox("訂單資料存檔完成") End If End If End Sub End Class