TENDEN-MES-SYS
/
TENDEN-MES-SYS-LEEHSIEHJUI
Suivre 4
Favoriser 0
Bifurcation 0
Code Tickets 0 Demandes d'ajout 0 Versions 0 Wiki Activité
Aucune description
Vous ne pouvez pas sélectionner plus de 25 sujets Les noms de sujets doivent commencer par une lettre ou un nombre, peuvent contenir des tirets ('-') et peuvent comporter jusqu'à 35 caractères.
24 Révisions
1 Branche
Aborescence: 609ee2ee67
Branches Tags
${ item.name }
Créer la branche ${ searchTerm }
de '609ee2ee67'
${ noResults }
TENDEN-MES-SYS-LEEHSIEHJUI/TENDEN-MES-SYS/量產訂單管理/訂單資料匯入-力威.vb

訂單資料匯入-力威.vb 103KB
Historique Brut

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986 
  1. Option Strict Off

  2. Public Class 訂單資料匯入_力威

  3.     Dim xlApp As Microsoft.Office.Interop.Excel.Application

  4.     ReadOnly xlBook As Microsoft.Office.Interop.Excel.Workbook

  5.     Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet

  6.     Dim file_name As String = "" : Dim 形體名稱 As String : Dim 型體描述 As String : Dim 項目 As String : Dim 型體資料 As String : Dim STR1 As String

  7.     Public 平均數 As Integer : Public 最終數 As Integer = 0 : Public 資料數 As Integer = 0

  8.     Public 平均數1 As Integer : Public 最終數1 As Integer = 0 : Public 資料數1 As Integer = 0

  9.     Public 平均數2 As Integer : Public 最終數2 As Integer = 0 : Public 資料數2 As Integer = 0

  10.     Public 平均數3 As Integer : Public 最終數3 As Integer = 0 : Public 資料數3 As Integer = 0

  11.     Private Sub Brand_cb_下拉表單資料載入()

  12.         conn.Close()

  13.         ConnOpen()

  14.         SQL1 = "SELECT 客戶名稱 FROM 客戶資料"

  15.         CmdSet_For_dr() : Brand_cb.Items.Clear()

  16.         While (dr.Read()) : Brand_cb.Items.Add(dr("客戶名稱")) : End While : conn.Close()

  17.         Brand_cb.SelectedIndex = 0

  18.     End Sub

  19.     Private Sub SEASON_cb_下拉表單資料載入()

  20.         conn.Close()

  21.         ConnOpen()

  22.         SQL1 = "SELECT 年份季度 FROM 訂單控制表年份季度清單 ORDER BY 年份季度 DESC"

  23.         CmdSet_For_dr() : SEASON_cb.Items.Clear()

  24.         While (dr.Read()) : SEASON_cb.Items.Add(dr("年份季度")) : End While : conn.Close()

  25.     End Sub

  26.     Private Sub DIV_cb_下拉表單資料載入()

  27.         conn.Close()

  28.         ConnOpen()

  29.         SQL1 = "SELECT 訂單種類 FROM  訂單控制表訂單種類清單 GROUP BY 訂單種類 ORDER BY 訂單種類"

  30.         CmdSet_For_dr() : DIV_cb.Items.Clear()

  31.         While (dr.Read()) : DIV_cb.Items.Add(dr("訂單種類")) : End While : conn.Close()

  32.     End Sub

  33.     Private Sub Remark_cb_下拉表單資料載入()

  34.         conn.Close()

  35.         ConnOpen()

  36.         SQL1 = "SELECT REMARK FROM DELIVERYADDRESS  ORDER BY REMARK"

  37.         CmdSet_For_dr() : Remark_cb.Items.Clear()

  38.         While (dr.Read()) : Remark_cb.Items.Add(dr("REMARK")) : End While : conn.Close()

  39.     End Sub

  40.     Private Sub FTY_cb_下拉表單資料載入()

  41.         conn.Close()

  42.         ConnOpen()

  43.         SQL1 = "SELECT 生產工廠 FROM 訂單控制表生產工廠清單 GROUP BY 生產工廠 ORDER BY 生產工廠"

  44.         CmdSet_For_dr() : FTY_cb.Items.Clear()

  45.         While (dr.Read()) : FTY_cb.Items.Add(dr("生產工廠")) : End While : conn.Close()

  46.     End Sub

  47.     Private Sub 填入0值1()

  48.         明細表_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

  49.         明細表_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

  50.         明細表_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

  51.         明細表_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

  52.         明細表_dgv.Rows(0).Cells("13").Value = 0 : 明細表_dgv.Rows(0).Cells("14").Value = 0 : 明細表_dgv.Rows(0).Cells("天盾流水號").Value = ""

  53.         明細表_dgv.Rows(0).Cells("客戶訂單號").Value = "" : 明細表_dgv.Rows(0).Cells("ItemNumber").Value = "" : 明細表_dgv.Rows(0).Cells("ProductName").Value = ""

  54.         明細表_dgv.Rows(0).Cells("ProductDescription").Value = "" : 明細表_dgv.Rows(0).Cells("Color").Value = "" : 明細表_dgv.Rows(0).Cells("DM").Value = ""

  55.     End Sub

  56.     Private Sub 填入0值2()

  57.         裝箱明細_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

  58.         裝箱明細_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

  59.         裝箱明細_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

  60.         裝箱明細_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

  61.         裝箱明細_dgv.Rows(0).Cells("13").Value = 0 : 裝箱明細_dgv.Rows(0).Cells("14").Value = 0 : 裝箱明細_dgv.Rows(0).Cells("天盾流水號").Value = ""

  62.         裝箱明細_dgv.Rows(0).Cells("客戶訂單號").Value = "" : 裝箱明細_dgv.Rows(0).Cells("力威訂單號").Value = "" : 裝箱明細_dgv.Rows(0).Cells("Item").Value = ""

  63.         裝箱明細_dgv.Rows(0).Cells("Material").Value = "" : 裝箱明細_dgv.Rows(0).Cells("DM").Value = ""

  64.     End Sub

  65.     Private Sub 填入0值3()

  66.         控制表_dgv.Rows(0).Cells("訂單流水號").Value = "" : 控制表_dgv.Rows(0).Cells("年份季度").Value = "" : 控制表_dgv.Rows(0).Cells("客戶訂單號").Value = ""

  67.         控制表_dgv.Rows(0).Cells("形體號").Value = "" : 控制表_dgv.Rows(0).Cells("顏色").Value = "" : 控制表_dgv.Rows(0).Cells("楦型").Value = ""

  68.         控制表_dgv.Rows(0).Cells("訂單數量").Value = "" : 控制表_dgv.Rows(0).Cells("客戶交期").Value = "" : 控制表_dgv.Rows(0).Cells("生產工廠").Value = ""

  69.         控制表_dgv.Rows(0).Cells("訂單種類").Value = "" : 控制表_dgv.Rows(0).Cells("工廠回復交期").Value = "" : 控制表_dgv.Rows(0).Cells("ProductID").Value = ""

  70.         控制表_dgv.Rows(0).Cells("UoM").Value = ""

  71.     End Sub

  72.     Private Sub 填入0值4()

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

  74.         裝箱控制_dgv.Rows(0).Cells("Item").Value = "" : 裝箱控制_dgv.Rows(0).Cells("Material").Value = "" : 裝箱控制_dgv.Rows(0).Cells("MaterialDescription").Value = ""

  75.         裝箱控制_dgv.Rows(0).Cells("Qty").Value = "" : 裝箱控制_dgv.Rows(0).Cells("UoM").Value = "" : 裝箱控制_dgv.Rows(0).Cells("ProductDescription").Value = ""

  76.         裝箱控制_dgv.Rows(0).Cells("IncoTerms").Value = "" : 裝箱控制_dgv.Rows(0).Cells("CustomerData").Value = "" : 裝箱控制_dgv.Rows(0).Cells("Size").Value = ""

  77.         裝箱控制_dgv.Rows(0).Cells("HS").Value = "" : 裝箱控制_dgv.Rows(0).Cells("Units1").Value = "" : 裝箱控制_dgv.Rows(0).Cells("DtyRate").Value = ""

  78.         裝箱控制_dgv.Rows(0).Cells("AddOnDty").Value = "" : 裝箱控制_dgv.Rows(0).Cells("UnitsCtn").Value = "" : 裝箱控制_dgv.Rows(0).Cells("NoCtn").Value = ""

  79.         裝箱控制_dgv.Rows(0).Cells("CtnNo").Value = "" : 裝箱控制_dgv.Rows(0).Cells("Units2").Value = "" : 裝箱控制_dgv.Rows(0).Cells("PLMSeason").Value = ""

  80.         裝箱控制_dgv.Rows(0).Cells("ProductID").Value = "" : 裝箱控制_dgv.Rows(0).Cells("Stock").Value = "" : 裝箱控制_dgv.Rows(0).Cells("StkName").Value = ""

  81.         裝箱控制_dgv.Rows(0).Cells("CustStk").Value = "" : 裝箱控制_dgv.Rows(0).Cells("CustStkName").Value = "" : 裝箱控制_dgv.Rows(0).Cells("CasePack").Value = ""

  82.         裝箱控制_dgv.Rows(0).Cells("Colorway").Value = "" : 裝箱控制_dgv.Rows(0).Cells("OrderColor").Value = "" : 裝箱控制_dgv.Rows(0).Cells("Logo").Value = ""

  83.         裝箱控制_dgv.Rows(0).Cells("POItemText").Value = ""

  84.     End Sub

  85.     Private Sub 訂單資料匯入_力威_Load(sender As Object, e As EventArgs) Handles MyBase.Load

  86.         Me.MdiParent = TENDEN_MES_SYS : Me.WindowState = 2 : Me.AutoScroll = True

  87.         訂單資料庫選擇.ShowDialog()

  88.         匯入列表開啟 = True : 力威匯入列表 = True

  89. 

  90.         SEASON_cb_下拉表單資料載入() : DIV_cb_下拉表單資料載入() : Remark_cb_下拉表單資料載入() : FTY_cb_下拉表單資料載入()

  91. 

  92.         Dim DB01 As New DataGridViewTextBoxColumn : Dim DB02 As New DataGridViewTextBoxColumn : Dim DB03 As New DataGridViewTextBoxColumn : Dim DB04 As New DataGridViewTextBoxColumn

  93.         Dim DB05 As New DataGridViewTextBoxColumn : Dim DB06 As New DataGridViewTextBoxColumn : Dim DB07 As New DataGridViewTextBoxColumn : Dim DB08 As New DataGridViewTextBoxColumn

  94.         Dim DB09 As New DataGridViewTextBoxColumn : Dim DB10 As New DataGridViewTextBoxColumn : Dim DB11 As New DataGridViewTextBoxColumn : Dim DB12 As New DataGridViewTextBoxColumn

  95.         Dim DB13 As New DataGridViewTextBoxColumn

  96. 

  97.         DB01.HeaderText = "訂單流水號" : DB01.Name = "訂單流水號" : 控制表_dgv.Columns.Insert(0, DB01)

  98.         DB02.HeaderText = "年份季度" : DB02.Name = "年份季度" : 控制表_dgv.Columns.Insert(1, DB02)

  99.         DB03.HeaderText = "客戶訂單號" : DB03.Name = "客戶訂單號" : 控制表_dgv.Columns.Insert(2, DB03)

  100.         DB04.HeaderText = "形體號" : DB04.Name = "形體號" : 控制表_dgv.Columns.Insert(3, DB04)

  101.         DB05.HeaderText = "顏色" : DB05.Name = "顏色" : 控制表_dgv.Columns.Insert(4, DB05)

  102.         DB06.HeaderText = "楦型" : DB06.Name = "楦型" : 控制表_dgv.Columns.Insert(5, DB06)

  103.         DB07.HeaderText = "訂單數量" : DB07.Name = "訂單數量" : 控制表_dgv.Columns.Insert(6, DB07)

  104.         DB08.HeaderText = "客戶交期" : DB08.Name = "客戶交期" : 控制表_dgv.Columns.Insert(7, DB08)

  105.         DB09.HeaderText = "生產工廠" : DB09.Name = "生產工廠" : 控制表_dgv.Columns.Insert(8, DB09)

  106.         DB10.HeaderText = "訂單種類" : DB10.Name = "訂單種類" : 控制表_dgv.Columns.Insert(9, DB10)

  107.         DB11.HeaderText = "工廠回復交期" : DB11.Name = "工廠回復交期" : 控制表_dgv.Columns.Insert(10, DB11)

  108.         DB12.HeaderText = "ProductID" : DB12.Name = "ProductID" : 控制表_dgv.Columns.Insert(11, DB12)

  109.         DB13.HeaderText = "UoM" : DB13.Name = "UoM" : 控制表_dgv.Columns.Insert(12, DB13)

  110. 

  111.         控制表_dgv.Columns(0).FillWeight = 80 : 控制表_dgv.Columns(1).FillWeight = 70 : 控制表_dgv.Columns(2).FillWeight = 100 : 控制表_dgv.Columns(3).FillWeight = 100

  112.         控制表_dgv.Columns(4).FillWeight = 60 : 控制表_dgv.Columns(5).FillWeight = 50 : 控制表_dgv.Columns(6).FillWeight = 70 : 控制表_dgv.Columns(7).FillWeight = 100

  113.         控制表_dgv.Columns(8).FillWeight = 50 : 控制表_dgv.Columns(9).FillWeight = 100 : 控制表_dgv.Columns(10).FillWeight = 100 : 控制表_dgv.Columns(11).FillWeight = 100

  114.         控制表_dgv.Columns(12).FillWeight = 50

  115. 

  116.         Dim DD01 As New DataGridViewTextBoxColumn : Dim DD02 As New DataGridViewTextBoxColumn : Dim DD03 As New DataGridViewTextBoxColumn : Dim DD04 As New DataGridViewTextBoxColumn

  117.         Dim DD05 As New DataGridViewTextBoxColumn : Dim DD06 As New DataGridViewTextBoxColumn : Dim DD07 As New DataGridViewTextBoxColumn : Dim DD08 As New DataGridViewTextBoxColumn

  118.         Dim DD09 As New DataGridViewTextBoxColumn : Dim DD10 As New DataGridViewTextBoxColumn : Dim DD11 As New DataGridViewTextBoxColumn : Dim DD12 As New DataGridViewTextBoxColumn

  119.         Dim DD13 As New DataGridViewTextBoxColumn : Dim DD14 As New DataGridViewTextBoxColumn : Dim DD15 As New DataGridViewTextBoxColumn : Dim DD16 As New DataGridViewTextBoxColumn

  120.         Dim DD17 As New DataGridViewTextBoxColumn : Dim DD18 As New DataGridViewTextBoxColumn : Dim DD19 As New DataGridViewTextBoxColumn : Dim DD20 As New DataGridViewTextBoxColumn

  121.         Dim DD21 As New DataGridViewTextBoxColumn : Dim DD22 As New DataGridViewTextBoxColumn : Dim DD23 As New DataGridViewTextBoxColumn : Dim DD24 As New DataGridViewTextBoxColumn

  122.         Dim DD25 As New DataGridViewTextBoxColumn

  123. 

  124.         DD01.HeaderText = "天盾流水號" : DD01.Name = "天盾流水號" : 明細表_dgv.Columns.Insert(0, DD01)

  125.         DD02.HeaderText = "客戶訂單號" : DD02.Name = "客戶訂單號" : 明細表_dgv.Columns.Insert(1, DD02)

  126.         DD03.HeaderText = "ItemNumber" : DD03.Name = "ItemNumber" : 明細表_dgv.Columns.Insert(2, DD03)

  127.         DD04.HeaderText = "ProductName" : DD04.Name = "ProductName" : 明細表_dgv.Columns.Insert(3, DD04)

  128.         DD05.HeaderText = "ProductDescription" : DD05.Name = "ProductDescription" : 明細表_dgv.Columns.Insert(4, DD05)

  129.         DD06.HeaderText = "Color" : DD06.Name = "Color" : 明細表_dgv.Columns.Insert(5, DD06)

  130.         DD07.HeaderText = "DM" : DD07.Name = "DM" : 明細表_dgv.Columns.Insert(6, DD07)

  131.         DD08.HeaderText = "5" : DD08.Name = "5" : 明細表_dgv.Columns.Insert(7, DD08) : DD09.HeaderText = "5.5" : DD09.Name = "5.5" : 明細表_dgv.Columns.Insert(8, DD09)

  132.         DD10.HeaderText = "6" : DD10.Name = "6" : 明細表_dgv.Columns.Insert(9, DD10) : DD11.HeaderText = "6.5" : DD11.Name = "6.5" : 明細表_dgv.Columns.Insert(10, DD11)

  133.         DD12.HeaderText = "7" : DD12.Name = "7" : 明細表_dgv.Columns.Insert(11, DD12) : DD13.HeaderText = "7.5" : DD13.Name = "7.5" : 明細表_dgv.Columns.Insert(12, DD13)

  134.         DD14.HeaderText = "8" : DD14.Name = "8" : 明細表_dgv.Columns.Insert(13, DD14) : DD15.HeaderText = "8.5" : DD15.Name = "8.5" : 明細表_dgv.Columns.Insert(14, DD15)

  135.         DD16.HeaderText = "9" : DD16.Name = "9" : 明細表_dgv.Columns.Insert(15, DD16) : DD17.HeaderText = "9.5" : DD17.Name = "9.5" : 明細表_dgv.Columns.Insert(16, DD17)

  136.         DD18.HeaderText = "10" : DD18.Name = "10" : 明細表_dgv.Columns.Insert(17, DD18) : DD19.HeaderText = "10.5" : DD19.Name = "10.5" : 明細表_dgv.Columns.Insert(18, DD19)

  137.         DD20.HeaderText = "11" : DD20.Name = "11" : 明細表_dgv.Columns.Insert(19, DD20) : DD21.HeaderText = "11.5" : DD21.Name = "11.5" : 明細表_dgv.Columns.Insert(20, DD21)

  138.         DD22.HeaderText = "12" : DD22.Name = "12" : 明細表_dgv.Columns.Insert(21, DD22) : DD23.HeaderText = "12.5" : DD23.Name = "12.5" : 明細表_dgv.Columns.Insert(22, DD23)

  139.         DD24.HeaderText = "13" : DD24.Name = "13" : 明細表_dgv.Columns.Insert(23, DD24) : DD25.HeaderText = "14" : DD25.Name = "14" : 明細表_dgv.Columns.Insert(24, DD25)

  140. 

  141.         明細表_dgv.Columns(0).FillWeight = 100 : 明細表_dgv.Columns(1).FillWeight = 100 : 明細表_dgv.Columns(2).FillWeight = 100 : 明細表_dgv.Columns(3).FillWeight = 100

  142.         明細表_dgv.Columns(4).FillWeight = 200 : 明細表_dgv.Columns(5).FillWeight = 80 : 明細表_dgv.Columns(6).FillWeight = 60 : 明細表_dgv.Columns(7).FillWeight = 50

  143.         明細表_dgv.Columns(8).FillWeight = 50 : 明細表_dgv.Columns(9).FillWeight = 50 : 明細表_dgv.Columns(10).FillWeight = 50 : 明細表_dgv.Columns(11).FillWeight = 50

  144.         明細表_dgv.Columns(12).FillWeight = 50 : 明細表_dgv.Columns(13).FillWeight = 50 : 明細表_dgv.Columns(14).FillWeight = 50 : 明細表_dgv.Columns(15).FillWeight = 50

  145.         明細表_dgv.Columns(16).FillWeight = 50 : 明細表_dgv.Columns(17).FillWeight = 50 : 明細表_dgv.Columns(18).FillWeight = 50 : 明細表_dgv.Columns(19).FillWeight = 50

  146.         明細表_dgv.Columns(20).FillWeight = 50 : 明細表_dgv.Columns(21).FillWeight = 50 : 明細表_dgv.Columns(22).FillWeight = 50 : 明細表_dgv.Columns(23).FillWeight = 50

  147.         明細表_dgv.Columns(24).FillWeight = 50

  148.         填入0值1()

  149. 

  150.         Dim DC01 As New DataGridViewTextBoxColumn : Dim DC02 As New DataGridViewTextBoxColumn : Dim DC03 As New DataGridViewTextBoxColumn : Dim DC04 As New DataGridViewTextBoxColumn

  151.         Dim DC05 As New DataGridViewTextBoxColumn : Dim DC06 As New DataGridViewTextBoxColumn : Dim DC07 As New DataGridViewTextBoxColumn : Dim DC08 As New DataGridViewTextBoxColumn

  152.         Dim DC09 As New DataGridViewTextBoxColumn : Dim DC10 As New DataGridViewTextBoxColumn : Dim DC11 As New DataGridViewTextBoxColumn : Dim DC12 As New DataGridViewTextBoxColumn

  153.         Dim DC13 As New DataGridViewTextBoxColumn : Dim DC14 As New DataGridViewTextBoxColumn : Dim DC15 As New DataGridViewTextBoxColumn : Dim DC16 As New DataGridViewTextBoxColumn

  154.         Dim DC17 As New DataGridViewTextBoxColumn : Dim DC18 As New DataGridViewTextBoxColumn : Dim DC19 As New DataGridViewTextBoxColumn : Dim DC20 As New DataGridViewTextBoxColumn

  155.         Dim DC21 As New DataGridViewTextBoxColumn : Dim DC22 As New DataGridViewTextBoxColumn : Dim DC23 As New DataGridViewTextBoxColumn : Dim DC24 As New DataGridViewTextBoxColumn

  156.         Dim DC25 As New DataGridViewTextBoxColumn : Dim DC26 As New DataGridViewTextBoxColumn : Dim DC27 As New DataGridViewTextBoxColumn : Dim DC28 As New DataGridViewTextBoxColumn

  157.         Dim DC29 As New DataGridViewTextBoxColumn : Dim DC30 As New DataGridViewTextBoxColumn : Dim DC31 As New DataGridViewTextBoxColumn : Dim DC32 As New DataGridViewTextBoxColumn

  158. 

  159.         DC01.HeaderText = "天盾流水號" : DC01.Name = "天盾流水號" : 裝箱控制_dgv.Columns.Insert(0, DC01)

  160.         DC02.HeaderText = "客戶訂單號" : DC02.Name = "客戶訂單號" : 裝箱控制_dgv.Columns.Insert(1, DC02)

  161.         DC03.HeaderText = "力威訂單號" : DC03.Name = "力威訂單號" : 裝箱控制_dgv.Columns.Insert(2, DC03)

  162.         DC04.HeaderText = "Item" : DC04.Name = "Item" : 裝箱控制_dgv.Columns.Insert(3, DC04)

  163.         DC05.HeaderText = "Material" : DC05.Name = "Material" : 裝箱控制_dgv.Columns.Insert(4, DC05)

  164.         DC06.HeaderText = "MaterialDescription" : DC06.Name = "MaterialDescription" : 裝箱控制_dgv.Columns.Insert(5, DC06)

  165.         DC07.HeaderText = "Qty" : DC07.Name = "Qty" : 裝箱控制_dgv.Columns.Insert(6, DC07)

  166.         DC08.HeaderText = "UoM" : DC08.Name = "UoM" : 裝箱控制_dgv.Columns.Insert(7, DC08)

  167.         DC09.HeaderText = "ProductDescription" : DC09.Name = "ProductDescription" : 裝箱控制_dgv.Columns.Insert(8, DC09)

  168.         DC10.HeaderText = "IncoTerms" : DC10.Name = "IncoTerms" : 裝箱控制_dgv.Columns.Insert(9, DC10)

  169.         DC11.HeaderText = "CustomerData" : DC11.Name = "CustomerData" : 裝箱控制_dgv.Columns.Insert(10, DC11)

  170.         DC12.HeaderText = "Size" : DC12.Name = "Size" : 裝箱控制_dgv.Columns.Insert(11, DC12)

  171.         DC13.HeaderText = "HS" : DC13.Name = "HS" : 裝箱控制_dgv.Columns.Insert(12, DC13)

  172.         DC14.HeaderText = "Units1" : DC14.Name = "Units1" : 裝箱控制_dgv.Columns.Insert(13, DC14)

  173.         DC15.HeaderText = "DtyRate" : DC15.Name = "DtyRate" : 裝箱控制_dgv.Columns.Insert(14, DC15)

  174.         DC16.HeaderText = "AddOnDty" : DC16.Name = "AddOnDty" : 裝箱控制_dgv.Columns.Insert(15, DC16)

  175.         DC17.HeaderText = "UnitsCtn" : DC17.Name = "UnitsCtn" : 裝箱控制_dgv.Columns.Insert(16, DC17)

  176.         DC18.HeaderText = "NoCtn" : DC18.Name = "NoCtn" : 裝箱控制_dgv.Columns.Insert(17, DC18)

  177.         DC19.HeaderText = "CtnNo" : DC19.Name = "CtnNo" : 裝箱控制_dgv.Columns.Insert(18, DC19)

  178.         DC20.HeaderText = "Units2" : DC20.Name = "Units2" : 裝箱控制_dgv.Columns.Insert(19, DC20)

  179.         DC21.HeaderText = "PLMSeason" : DC21.Name = "PLMSeason" : 裝箱控制_dgv.Columns.Insert(20, DC21)

  180.         DC22.HeaderText = "ProductID" : DC22.Name = "ProductID" : 裝箱控制_dgv.Columns.Insert(21, DC22)

  181.         DC23.HeaderText = "Stock" : DC23.Name = "Stock" : 裝箱控制_dgv.Columns.Insert(22, DC23)

  182.         DC24.HeaderText = "StkName" : DC24.Name = "StkName" : 裝箱控制_dgv.Columns.Insert(23, DC24)

  183.         DC25.HeaderText = "CustStk" : DC25.Name = "CustStk" : 裝箱控制_dgv.Columns.Insert(24, DC25)

  184.         DC26.HeaderText = "CustStkName" : DC26.Name = "CustStkName" : 裝箱控制_dgv.Columns.Insert(25, DC26)

  185.         DC27.HeaderText = "CasePack" : DC27.Name = "CasePack" : 裝箱控制_dgv.Columns.Insert(26, DC27)

  186.         DC28.HeaderText = "Colorway" : DC28.Name = "Colorway" : 裝箱控制_dgv.Columns.Insert(27, DC28)

  187.         DC29.HeaderText = "OrderColor" : DC29.Name = "OrderColor" : 裝箱控制_dgv.Columns.Insert(28, DC29)

  188.         DC30.HeaderText = "Logo" : DC30.Name = "Logo" : 裝箱控制_dgv.Columns.Insert(29, DC30)

  189.         DC31.HeaderText = "POItemText" : DC31.Name = "POItemText" : 裝箱控制_dgv.Columns.Insert(30, DC31)

  190.         DC32.HeaderText = "FinalCustomerShipTo" : DC32.Name = "FinalCustomerShipTo" : 裝箱控制_dgv.Columns.Insert(31, DC32)

  191. 

  192.         裝箱控制_dgv.Columns(0).FillWeight = 100 : 裝箱控制_dgv.Columns(1).FillWeight = 100 : 裝箱控制_dgv.Columns(2).FillWeight = 100 : 裝箱控制_dgv.Columns(3).FillWeight = 100

  193.         裝箱控制_dgv.Columns(4).FillWeight = 100 : 裝箱控制_dgv.Columns(5).FillWeight = 100 : 裝箱控制_dgv.Columns(6).FillWeight = 100 : 裝箱控制_dgv.Columns(7).FillWeight = 100

  194.         裝箱控制_dgv.Columns(8).FillWeight = 100 : 裝箱控制_dgv.Columns(9).FillWeight = 100 : 裝箱控制_dgv.Columns(10).FillWeight = 100 : 裝箱控制_dgv.Columns(11).FillWeight = 100

  195.         裝箱控制_dgv.Columns(12).FillWeight = 100 : 裝箱控制_dgv.Columns(13).FillWeight = 100 : 裝箱控制_dgv.Columns(14).FillWeight = 100 : 裝箱控制_dgv.Columns(15).FillWeight = 100

  196.         裝箱控制_dgv.Columns(16).FillWeight = 100 : 裝箱控制_dgv.Columns(17).FillWeight = 100 : 裝箱控制_dgv.Columns(18).FillWeight = 100 : 裝箱控制_dgv.Columns(19).FillWeight = 100

  197.         裝箱控制_dgv.Columns(20).FillWeight = 100 : 裝箱控制_dgv.Columns(21).FillWeight = 100 : 裝箱控制_dgv.Columns(22).FillWeight = 100 : 裝箱控制_dgv.Columns(23).FillWeight = 100

  198.         裝箱控制_dgv.Columns(24).FillWeight = 100 : 裝箱控制_dgv.Columns(25).FillWeight = 100 : 裝箱控制_dgv.Columns(26).FillWeight = 100 : 裝箱控制_dgv.Columns(27).FillWeight = 100

  199.         裝箱控制_dgv.Columns(28).FillWeight = 100 : 裝箱控制_dgv.Columns(29).FillWeight = 100 : 裝箱控制_dgv.Columns(30).FillWeight = 100 : 裝箱控制_dgv.Columns(31).FillWeight = 100

  200. 

  201.         Dim DR01 As New DataGridViewTextBoxColumn : Dim DR02 As New DataGridViewTextBoxColumn : Dim DR03 As New DataGridViewTextBoxColumn : Dim DR04 As New DataGridViewTextBoxColumn

  202.         Dim DR05 As New DataGridViewTextBoxColumn : Dim DR06 As New DataGridViewTextBoxColumn : Dim DR07 As New DataGridViewTextBoxColumn : Dim DR08 As New DataGridViewTextBoxColumn

  203.         Dim DR09 As New DataGridViewTextBoxColumn : Dim DR10 As New DataGridViewTextBoxColumn : Dim DR11 As New DataGridViewTextBoxColumn : Dim DR12 As New DataGridViewTextBoxColumn

  204.         Dim DR13 As New DataGridViewTextBoxColumn : Dim DR14 As New DataGridViewTextBoxColumn : Dim DR15 As New DataGridViewTextBoxColumn : Dim DR16 As New DataGridViewTextBoxColumn

  205.         Dim DR17 As New DataGridViewTextBoxColumn : Dim DR18 As New DataGridViewTextBoxColumn : Dim DR19 As New DataGridViewTextBoxColumn : Dim DR20 As New DataGridViewTextBoxColumn

  206.         Dim DR21 As New DataGridViewTextBoxColumn : Dim DR22 As New DataGridViewTextBoxColumn : Dim DR23 As New DataGridViewTextBoxColumn : Dim DR24 As New DataGridViewTextBoxColumn

  207.         Dim DR25 As New DataGridViewTextBoxColumn

  208. 

  209.         DR01.HeaderText = "天盾流水號" : DR01.Name = "天盾流水號" : 裝箱明細_dgv.Columns.Insert(0, DR01)

  210.         DR02.HeaderText = "客戶訂單號" : DR02.Name = "客戶訂單號" : 裝箱明細_dgv.Columns.Insert(1, DR02)

  211.         DR03.HeaderText = "力威訂單號" : DR03.Name = "力威訂單號" : 裝箱明細_dgv.Columns.Insert(2, DR03)

  212.         DR04.HeaderText = "Item" : DR04.Name = "Item" : 裝箱明細_dgv.Columns.Insert(3, DR04)

  213.         DR05.HeaderText = "Material" : DR05.Name = "Material" : 裝箱明細_dgv.Columns.Insert(4, DR05)

  214.         DR06.HeaderText = "DM" : DR06.Name = "DM" : 裝箱明細_dgv.Columns.Insert(5, DR06)

  215.         DR07.HeaderText = "5" : DR07.Name = "5" : 裝箱明細_dgv.Columns.Insert(6, DR07) : DR08.HeaderText = "5.5" : DR08.Name = "5.5" : 裝箱明細_dgv.Columns.Insert(7, DR08)

  216.         DR09.HeaderText = "6" : DR09.Name = "6" : 裝箱明細_dgv.Columns.Insert(8, DR09) : DR10.HeaderText = "6.5" : DR10.Name = "6.5" : 裝箱明細_dgv.Columns.Insert(9, DR10)

  217.         DR11.HeaderText = "7" : DR11.Name = "7" : 裝箱明細_dgv.Columns.Insert(10, DR11) : DR12.HeaderText = "7.5" : DR12.Name = "7.5" : 裝箱明細_dgv.Columns.Insert(11, DR12)

  218.         DR13.HeaderText = "8" : DR13.Name = "8" : 裝箱明細_dgv.Columns.Insert(12, DR13) : DR14.HeaderText = "8.5" : DR14.Name = "8.5" : 裝箱明細_dgv.Columns.Insert(13, DR14)

  219.         DR15.HeaderText = "9" : DR15.Name = "9" : 裝箱明細_dgv.Columns.Insert(14, DR15) : DR16.HeaderText = "9.5" : DR16.Name = "9.5" : 裝箱明細_dgv.Columns.Insert(15, DR16)

  220.         DR17.HeaderText = "10" : DR17.Name = "10" : 裝箱明細_dgv.Columns.Insert(16, DR17) : DR18.HeaderText = "10.5" : DR18.Name = "10.5" : 裝箱明細_dgv.Columns.Insert(17, DR18)

  221.         DR19.HeaderText = "11" : DR19.Name = "11" : 裝箱明細_dgv.Columns.Insert(18, DR19) : DR20.HeaderText = "11.5" : DR20.Name = "11.5" : 裝箱明細_dgv.Columns.Insert(19, DR20)

  222.         DR21.HeaderText = "12" : DR21.Name = "12" : 裝箱明細_dgv.Columns.Insert(20, DR21) : DR22.HeaderText = "12.5" : DR22.Name = "12.5" : 裝箱明細_dgv.Columns.Insert(21, DR22)

  223.         DR23.HeaderText = "13" : DR23.Name = "13" : 裝箱明細_dgv.Columns.Insert(22, DR23) : DR24.HeaderText = "14" : DR24.Name = "14" : 裝箱明細_dgv.Columns.Insert(23, DR24)

  224.         DR25.HeaderText = "CustAssign" : DR25.Name = "CustAssign" : 裝箱明細_dgv.Columns.Insert(24, DR25)

  225.         裝箱明細_dgv.Columns(0).FillWeight = 100 : 裝箱明細_dgv.Columns(1).FillWeight = 100 : 裝箱明細_dgv.Columns(2).FillWeight = 100 : 裝箱明細_dgv.Columns(3).FillWeight = 100

  226.         裝箱明細_dgv.Columns(4).FillWeight = 80 : 裝箱明細_dgv.Columns(5).FillWeight = 60 : 裝箱明細_dgv.Columns(6).FillWeight = 50 : 裝箱明細_dgv.Columns(7).FillWeight = 50

  227.         裝箱明細_dgv.Columns(8).FillWeight = 50 : 裝箱明細_dgv.Columns(9).FillWeight = 50 : 裝箱明細_dgv.Columns(10).FillWeight = 50 : 裝箱明細_dgv.Columns(11).FillWeight = 50

  228.         裝箱明細_dgv.Columns(12).FillWeight = 50 : 裝箱明細_dgv.Columns(13).FillWeight = 50 : 裝箱明細_dgv.Columns(14).FillWeight = 50 : 裝箱明細_dgv.Columns(15).FillWeight = 50

  229.         裝箱明細_dgv.Columns(16).FillWeight = 50 : 裝箱明細_dgv.Columns(17).FillWeight = 50 : 裝箱明細_dgv.Columns(18).FillWeight = 50 : 裝箱明細_dgv.Columns(19).FillWeight = 50

  230.         裝箱明細_dgv.Columns(20).FillWeight = 50 : 裝箱明細_dgv.Columns(21).FillWeight = 50 : 裝箱明細_dgv.Columns(22).FillWeight = 50 : 裝箱明細_dgv.Columns(23).FillWeight = 50

  231.         裝箱明細_dgv.Columns(24).FillWeight = 80

  232.         填入0值2()

  233.     End Sub

  234.     Private Sub 訂單資料匯入_力威_Unload(sender As Object, e As EventArgs) Handles MyBase.Closing

  235.         匯入列表開啟 = False

  236.         ConnOpen()

  237.         SQL1 = "DELETE FROM " & 訂單資料表(4) & " WHERE (訂單流水號 = '" & Strings.Right(天盾流水號_tb.Text, 6) & "')"

  238.         cmd.CommandText = SQL1 : cmd.Connection = conn : cmd.ExecuteNonQuery() : cmd.ExecuteNonQuery() : conn.Close()

  239.     End Sub

  240.     Private Sub 新增訂單號_bt_Click(sender As Object, e As EventArgs) Handles 新增訂單號_bt.Click

  241.         If 天盾流水號_tb.Text = "" Then

  242.             ConnOpen()

  243.             SQL1 = "DELETE FROM " & 訂單資料表(4) & " WHERE (訂單流水號 = '" & Strings.Right(Number_tb.Text, 6) & "')"

  244.             cmd.CommandText = SQL1 : cmd.Connection = conn : cmd.ExecuteNonQuery() : cmd.ExecuteNonQuery() : conn.Close()

  245.             訂單流水號.Show()

  246.         Else

  247.             MsgBox("已有訂單號")

  248.         End If

  249.         Number_tb.Text = 天盾流水號_tb.Text

  250.     End Sub

  251.     Private Sub 清空_bt_Click(sender As Object, e As EventArgs) Handles 清空_bt.Click

  252.         '-------清空------------------------------------------------------------------------------------------------------------------------------------------------------------------

  253.         ConnOpen()

  254.         SQL1 = "DELETE FROM " & 訂單資料表(4) & " WHERE (訂單流水號 = '" & Strings.Right(天盾流水號_tb.Text, 6) & "')"

  255.         cmd.CommandText = SQL1 : cmd.Connection = conn : cmd.ExecuteNonQuery() : cmd.ExecuteNonQuery() : conn.Close()

  256. 

  257.         SEASON_cb_下拉表單資料載入() : DIV_cb_下拉表單資料載入() : Remark_cb_下拉表單資料載入() : FTY_cb_下拉表單資料載入()

  258. 

  259.         Number_tb.Text = "" : Brand_cb.Text = "" : 訂單類別_tb.Text = "" : 英科條款_tb.Text = "" : 公司編號_tb.Text = "" : 服務_tb.Text = "" : 版本_tb.Text = "" : 供應商編號_tb.Text = " 903537"

  260.         客戶訂單號_tb.Text = "" : 郵寄方式_tb.Text = "" : 客戶交期_dtp.Value = Today() : 客戶交期_dtp.Text = "" : 總雙數_tb.Text = "" : 總案件_tb.Text = "" : VendorName_tb.Text = ""

  261.         工廠編號_tb.Text = "" : 地址1_tb.Text = "" : 地址二_tb.Text = "" : 代理編號_cb.Text = "" : 訂貨代理_tb.Text = "" : 天盾流水號_tb.Text = "" : 最終運送_tb.Text = ""

  262. 

  263.         Dim 數量 As Integer

  264.         數量 = 控制表_dgv.Rows.Count

  265.         If 數量 > 1 Then : For i As Integer = 0 To 數量 - 2 : 控制表_dgv.EndEdit(0) : 控制表_dgv.Rows.RemoveAt(0) : Next : End If : 填入0值3()

  266.         數量 = 明細表_dgv.Rows.Count

  267.         If 數量 > 1 Then : For i As Integer = 0 To 數量 - 2 : 明細表_dgv.EndEdit(0) : 明細表_dgv.Rows.RemoveAt(0) : Next : End If : 填入0值1()

  268.         數量 = 裝箱控制_dgv.Rows.Count

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

  270.         數量 = 裝箱明細_dgv.Rows.Count

  271.         If 數量 > 1 Then : For i As Integer = 0 To 數量 - 2 : 裝箱明細_dgv.EndEdit(0) : 裝箱明細_dgv.Rows.RemoveAt(0) : Next : End If : 填入0值2()

  272. 

  273.         訂單讀取_bt.Enabled = True : 訂單存檔_bt.Enabled = False

  274.     End Sub

  275.     Private Sub 新增清單1_bt_Click(sender As Object, e As EventArgs) Handles 新增清單1_bt.Click

  276.         清單修改.Close() : 修改清單(0) = True : 修改清單(1) = False : 修改清單(2) = False : 修改清單(3) = False : 修改清單(4) = False : 修改清單(5) = False

  277.         修改清單(6) = False : 修改清單(7) = False : 修改清單(8) = False : 修改清單(9) = False : 修改清單(10) = False : 修改清單(11) = False : 清單修改.Show()

  278.         SEASON_cb_下拉表單資料載入()

  279.     End Sub

  280.     Private Sub 新增清單2_bt_Click(sender As Object, e As EventArgs) Handles 新增清單2_bt.Click

  281.         清單修改.Close() : 修改清單(0) = False : 修改清單(1) = False : 修改清單(2) = False : 修改清單(3) = False : 修改清單(4) = False : 修改清單(5) = True

  282.         修改清單(6) = False : 修改清單(7) = False : 修改清單(8) = False : 修改清單(9) = False : 修改清單(10) = False : 修改清單(11) = False : 清單修改.Show()

  283.         DIV_cb_下拉表單資料載入()

  284.     End Sub

  285.     Private Sub 新增清單5_bt_Click(sender As Object, e As EventArgs) Handles 新增清單5_bt.Click

  286.         清單修改.Close() : 修改清單(0) = False : 修改清單(1) = False : 修改清單(2) = False : 修改清單(3) = False : 修改清單(4) = False : 修改清單(5) = False

  287.         修改清單(6) = True : 修改清單(7) = False : 修改清單(8) = False : 修改清單(9) = False : 修改清單(10) = False : 修改清單(11) = False : 清單修改.Show()

  288.         Brand_cb_下拉表單資料載入()

  289.     End Sub

  290.     Private Sub Remark_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Remark_cb.TextChanged

  291.         ConnOpen()

  292.         SQL1 = "SELECT DELIVERYADDRESS FROM DELIVERYADDRESS WHERE REMARK LIKE '" & Remark_cb.Text & "'"

  293.         CmdSet_For_dr()

  294.         If dr.Read() Then : 地址二_tb.Text = dr("DELIVERYADDRESS").ToString : End If : conn.Close()

  295.     End Sub

  296.     Private Sub FTY_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles FTY_cb.TextChanged

  297.         ConnOpen()

  298.         SQL1 = "SELECT 生產工廠, 供應商資料, 供應商地址 FROM 訂單控制表生產工廠清單 WHERE 生產工廠 LIKE '" & FTY_cb.Text & "'"

  299.         CmdSet_For_dr()

  300.         If dr.Read() Then : VendorName_tb.Text = dr("供應商資料").ToString : 生產工廠_tb.Text = dr("生產工廠").ToString : End If : conn.Close()

  301.         For i As Integer = 0 To 控制表_dgv.Rows.Count - 1

  302.             控制表_dgv.Rows(i).Cells("生產工廠").Value = 生產工廠_tb.Text

  303.         Next i

  304.     End Sub

  305.     Private Sub 進度條()

  306.         平均數 = 10000 / 資料數 : 最終數 += 平均數 : If 最終數 > 10000 Then : 最終數 = 10000 : End If : ProgressBar1.Value = 最終數

  307.     End Sub

  308.     Private Sub 進度條1()

  309.         平均數1 = 10000 / 資料數1 : 最終數1 += 平均數1 : If 最終數1 > 10000 Then : 最終數1 = 10000 : End If : ProgressBar2.Value = 最終數1

  310.     End Sub

  311.     Private Sub 進度條2()

  312.         平均數2 = 10000 / 資料數2 : 最終數2 += 平均數2 : If 最終數2 > 10000 Then : 最終數2 = 10000 : End If : ProgressBar3.Value = 最終數2

  313.     End Sub

  314.     Private Sub 進度條3()

  315.         平均數3 = 10000 / 資料數3 : 最終數3 += 平均數3 : If 最終數3 > 10000 Then : 最終數3 = 10000 : End If : ProgressBar4.Value = 最終數3

  316.     End Sub

  317.     Private Sub 訂單讀取_bt_Click(sender As Object, e As EventArgs) Handles 訂單讀取_bt.Click

  318.         If Number_tb.Text = "" Or FTY_cb.Text = "" Or SEASON_cb.Text = "" Or DIV_cb.Text = "" Then

  319.             MsgBox("打藍色星號處的資料不可以空白，請檢察後再按導入。")

  320.         Else

  321.             If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then

  322.                 file_name = OpenFileDialog1.FileName

  323.                 xlApp = CreateObject("Excel.Application")

  324.                 xlApp.DisplayAlerts = False

  325.                 xlApp.Visible = True

  326.                 xlApp.Workbooks.Open(file_name)

  327.                 xlSheet = xlApp.Worksheets(1)

  328.                 xlSheet.Activate()

  329.                 xlApp.Visible = False

  330.                 '-------表頭-----------------------------------------------------------------------------------------------------------------------------------------------------------------------

  331.                 For YY As Integer = 1 To 35

  332.                     資料數 = 35 : 進度條()

  333.                     For XX As Integer = 1 To 60

  334.                         資料數1 = 60 : 進度條1()

  335.                         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

  336.                         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

  337.                         'If Strings.Left(xlSheet.Cells(YY, XX).value, 6) = "Vendor" Then : 供應商編號_tb.Text = Strings.Mid(xlSheet.Cells(YY, XX).value, 12, 50) : End If

  338.                         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

  339.                         If Strings.Left(xlSheet.Cells(YY, XX).value, 12) = "Company Code" Then

  340.                             公司編號_tb.Text = Strings.Mid(xlSheet.Cells(YY, XX).value, 18, 4) : 服務_tb.Text = Strings.Mid(xlSheet.Cells(YY, XX).value, 35, 500) : End If

  341. 

  342.                         If Strings.Left(xlSheet.Cells(YY, XX).value, 11) = "Total Units" Then

  343.                             For I As Integer = 1 To 50 : 資料數2 = 50 : 進度條2()

  344.                                 If xlSheet.Cells(YY, XX + I).value > 0 Then

  345.                                     總雙數_tb.Text = xlSheet.Cells(YY, XX + I).value : Exit For : ProgressBar3.Value = 0 : 最終數2 = 0

  346.                                 End If

  347.                             Next : ProgressBar3.Value = 0 : 最終數2 = 0

  348.                         End If

  349.                         If Strings.Left(xlSheet.Cells(YY, XX).value, 11) = "Total Cases" Then

  350.                             For I As Integer = 1 To 50 : 資料數2 = 50 : 進度條2()

  351.                                 If xlSheet.Cells(YY, XX + I).value > 0 Then

  352.                                     總案件_tb.Text = xlSheet.Cells(YY, XX + I).value : Exit For : ProgressBar3.Value = 0 : 最終數2 = 0

  353.                                 End If

  354.                             Next : ProgressBar3.Value = 0 : 最終數2 = 0

  355.                         End If

  356.                         If Strings.Left(xlSheet.Cells(YY, XX).value, 7) = "Version" Then

  357.                             For I As Integer = 1 To 50 : 資料數2 = 50 : 進度條2()

  358.                                 If xlSheet.Cells(YY, XX + I).value > 0 Then

  359.                                     版本_tb.Text = xlSheet.Cells(YY, XX + I).value : Exit For : ProgressBar3.Value = 0 : 最終數2 = 0

  360.                                 End If

  361.                             Next : ProgressBar3.Value = 0 : 最終數2 = 0

  362.                         End If

  363.                         If Strings.Left(xlSheet.Cells(YY, XX).value, 3) = "PO#" Then

  364.                             For I As Integer = 1 To 50 : 資料數2 = 50 : 進度條2()

  365.                                 If xlSheet.Cells(YY, XX + I).value > 0 Then

  366.                                     力威訂單號_tb.Text = xlSheet.Cells(YY, XX + I).value : Exit For : ProgressBar3.Value = 0 : 最終數2 = 0

  367.                                 End If

  368.                             Next : ProgressBar3.Value = 0 : 最終數2 = 0

  369.                         End If

  370. 

  371.                         If Strings.Left(xlSheet.Cells(YY, XX).value, 7) = "Factory" Then

  372.                             工廠編號_tb.Text = Strings.Mid(xlSheet.Cells(YY, XX).value, 17, 20)

  373.                             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

  374.                         End If

  375.                         If Strings.Left(xlSheet.Cells(YY, XX).value, 16) = "Forwarding Agent" Then

  376.                             代理編號_cb.Text = Strings.Mid(xlSheet.Cells(YY, XX).value, 20, 20)

  377.                             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

  378.                         End If

  379. 

  380.                         If Strings.Left(xlSheet.Cells(YY, XX).value, 22) = "Final Customer Ship To" Then

  381.                             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

  382.                         End If

  383.                         If Strings.Left(xlSheet.Cells(YY, XX).value, 10) = "Inco Terms" Then

  384.                             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

  385.                         End If

  386.                         If Strings.Left(xlSheet.Cells(YY, XX).value, 15) = "Shipping Method" Then

  387.                             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

  388.                         End If

  389.                         If Strings.Left(xlSheet.Cells(YY, XX).value, 7) = "Ship To" Then

  390.                             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

  391.                         End If

  392.                         If Strings.Left(xlSheet.Cells(YY, XX).value, 23) = "NLT - Ex - Factory Date" Then

  393.                             For I As Integer = 1 To 3

  394.                                 日期_tb.Text = xlSheet.Cells(YY + I, XX).value

  395.                                 If 日期_tb.Text = "Per Item" Then

  396.                                     客戶交期_dtp.Text = Today()

  397.                                     If 日期_tb.Text <> "" Then

  398.                                         Exit For

  399.                                     End If

  400.                                 Else

  401.                                     客戶交期_dtp.Text = 日期_tb.Text

  402.                                     If 日期_tb.Text <> "" Then

  403.                                         Exit For

  404.                                     End If

  405.                                 End If

  406.                             Next

  407.                         End If

  408.                         If Number_tb.Text <> "" And 英科條款_tb.Text <> "" And 供應商編號_tb.Text <> "" And 郵寄方式_tb.Text <> "" And 總案件_tb.Text <> "" And 訂貨代理_tb.Text <> "" And

  409.                             Brand_cb.Text <> "" And 公司編號_tb.Text <> "" And 版本_tb.Text <> "" And 力威訂單號_tb.Text <> "" And 地址1_tb.Text <> "" And 代理編號_cb.Text <> "" And

  410.                             訂單類別_tb.Text <> "" And 服務_tb.Text <> "" And 客戶訂單號_tb.Text <> "" And 總雙數_tb.Text <> "" And 地址二_tb.Text <> "" Then

  411.                             ProgressBar2.Value = 0 : 最終數1 = 0 : Exit For

  412.                         End If

  413.                     Next : ProgressBar2.Value = 0 : 最終數1 = 0

  414.                     If Number_tb.Text <> "" And 英科條款_tb.Text <> "" And 供應商編號_tb.Text <> "" And 郵寄方式_tb.Text <> "" And 總案件_tb.Text <> "" And 訂貨代理_tb.Text <> "" And

  415.                         Brand_cb.Text <> "" And 公司編號_tb.Text <> "" And 版本_tb.Text <> "" And 力威訂單號_tb.Text <> "" And 地址1_tb.Text <> "" And 代理編號_cb.Text <> "" And

  416.                         訂單類別_tb.Text <> "" And 服務_tb.Text <> "" And 客戶訂單號_tb.Text <> "" And 總雙數_tb.Text <> "" And 地址二_tb.Text <> "" Then

  417.                         ProgressBar1.Value = 0 : 最終數 = 0 : Exit For

  418.                     End If

  419.                 Next : ProgressBar1.Value = 0 : 最終數 = 0

  420.                 If 客戶訂單號_tb.Text = "" Then

  421.                     客戶訂單號_tb.Text = 力威訂單號_tb.Text

  422.                 End If

  423.                 '-------控制表與明細表------------------------------------------------------------------------------------------------------------------------------------------------------------

  424.                 Dim W As Integer = 0 : Dim XX1 As Integer = 1

  425.                 For YY As Integer = 25 To 100

  426.                     資料數 = 100 : 進度條()

  427.                     形體名稱 = "" : 型體描述 = ""

  428.                     If Strings.Left(xlSheet.Cells(YY, XX1).value, 12) = "Material No." Then

  429.                         For TT As Integer = 4 To 6 : 資料數1 = 6 : 進度條1()

  430.                             If Strings.Left(xlSheet.Cells(YY + TT, XX1).value, 12) <> "Material No." Then

  431.                                 If Strings.Left(xlSheet.Cells(YY + TT, XX1).value, 1) = "M" Or Strings.Left(xlSheet.Cells(YY + TT, XX1).value, 1) = "W" Or

  432.                                 Strings.Left(xlSheet.Cells(YY + TT, XX1).value, 1) = "N" Then

  433.                                     If W = 0 Then : Else

  434.                                         控制表_dgv.Rows.Insert(0) : 明細表_dgv.Rows.Insert(0)

  435.                                         填入0值1()

  436.                                     End If

  437.                                     If Strings.Left(xlSheet.Cells(YY + TT, XX1).value, 1) = "M" Then

  438.                                         明細表_dgv.Rows(0).Cells("DM").Value = "MED" : 控制表_dgv.Rows(0).Cells("楦型").Value = "MED"

  439.                                     ElseIf Strings.Left(xlSheet.Cells(YY + TT, XX1).value, 1) = "W" Then

  440.                                         明細表_dgv.Rows(0).Cells("DM").Value = "WIDE" : 控制表_dgv.Rows(0).Cells("楦型").Value = "WIDE"

  441.                                     ElseIf Strings.Left(xlSheet.Cells(YY + TT, XX1).value, 1) = "N" Then

  442.                                         明細表_dgv.Rows(0).Cells("DM").Value = "NARRO" : 控制表_dgv.Rows(0).Cells("楦型").Value = "NARRO"

  443.                                     End If

  444. 

  445.                                     For UU As Integer = 2 To 70 : 資料數2 = 70 : 進度條2()

  446.                                         If Strings.Left(xlSheet.Cells(YY + 3, XX1 + UU).value, 5) = "Total" Then

  447.                                             控制表_dgv.Rows(0).Cells("訂單數量").Value = xlSheet.Cells(YY + TT, XX1 + UU).value : Exit For : ProgressBar3.Value = 0 : 最終數2 = 0

  448.                                         End If

  449.                                         If xlSheet.Cells(YY + 3, XX1 + UU).value = 5 Then : 明細表_dgv.Rows(0).Cells("5").Value = xlSheet.Cells(YY + TT, XX1 + UU).value

  450.                                             If IsNumeric(xlSheet.Cells(YY + TT, XX1 + UU).value) Then : Else : 明細表_dgv.Rows(0).Cells("5").Value = 0 : End If : End If

  451.                                         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

  452.                                             If IsNumeric(xlSheet.Cells(YY + TT, XX1 + UU).value) Then : Else : 明細表_dgv.Rows(0).Cells("5.5").Value = 0 : End If : End If

  453.                                         If xlSheet.Cells(YY + 3, XX1 + UU).value = 6 Then : 明細表_dgv.Rows(0).Cells("6").Value = xlSheet.Cells(YY + TT, XX1 + UU).value

  454.                                             If IsNumeric(xlSheet.Cells(YY + TT, XX1 + UU).value) Then : Else : 明細表_dgv.Rows(0).Cells("6").Value = 0 : End If : End If

  455.                                         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

  456.                                             If IsNumeric(xlSheet.Cells(YY + TT, XX1 + UU).value) Then : Else : 明細表_dgv.Rows(0).Cells("6.5").Value = 0 : End If : End If

  457.                                         If xlSheet.Cells(YY + 3, XX1 + UU).value = 7 Then : 明細表_dgv.Rows(0).Cells("7").Value = xlSheet.Cells(YY + TT, XX1 + UU).value

  458.                                             If IsNumeric(xlSheet.Cells(YY + TT, XX1 + UU).value) Then : Else : 明細表_dgv.Rows(0).Cells("7").Value = 0 : End If : End If

  459.                                         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

  460.                                             If IsNumeric(xlSheet.Cells(YY + TT, XX1 + UU).value) Then : Else : 明細表_dgv.Rows(0).Cells("7.5").Value = 0 : End If : End If

  461.                                         If xlSheet.Cells(YY + 3, XX1 + UU).value = 8 Then : 明細表_dgv.Rows(0).Cells("8").Value = xlSheet.Cells(YY + TT, XX1 + UU).value

  462.                                             If IsNumeric(xlSheet.Cells(YY + TT, XX1 + UU).value) Then : Else : 明細表_dgv.Rows(0).Cells("8").Value = 0 : End If : End If

  463.                                         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

  464.                                             If IsNumeric(xlSheet.Cells(YY + TT, XX1 + UU).value) Then : Else : 明細表_dgv.Rows(0).Cells("8.5").Value = 0 : End If : End If

  465.                                         If xlSheet.Cells(YY + 3, XX1 + UU).value = 9 Then : 明細表_dgv.Rows(0).Cells("9").Value = xlSheet.Cells(YY + TT, XX1 + UU).value

  466.                                             If IsNumeric(xlSheet.Cells(YY + TT, XX1 + UU).value) Then : Else : 明細表_dgv.Rows(0).Cells("9").Value = 0 : End If : End If

  467.                                         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

  468.                                             If IsNumeric(xlSheet.Cells(YY + TT, XX1 + UU).value) Then : Else : 明細表_dgv.Rows(0).Cells("9.5").Value = 0 : End If : End If

  469.                                         If xlSheet.Cells(YY + 3, XX1 + UU).value = 10 Then : 明細表_dgv.Rows(0).Cells("10").Value = xlSheet.Cells(YY + TT, XX1 + UU).value

  470.                                             If IsNumeric(xlSheet.Cells(YY + TT, XX1 + UU).value) Then : Else : 明細表_dgv.Rows(0).Cells("10").Value = 0 : End If : End If

  471.                                         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

  472.                                             If IsNumeric(xlSheet.Cells(YY + TT, XX1 + UU).value) Then : Else : 明細表_dgv.Rows(0).Cells("10.5").Value = 0 : End If : End If

  473.                                         If xlSheet.Cells(YY + 3, XX1 + UU).value = 11 Then : 明細表_dgv.Rows(0).Cells("11").Value = xlSheet.Cells(YY + TT, XX1 + UU).value

  474.                                             If IsNumeric(xlSheet.Cells(YY + TT, XX1 + UU).value) Then : Else : 明細表_dgv.Rows(0).Cells("11").Value = 0 : End If : End If

  475.                                         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

  476.                                             If IsNumeric(xlSheet.Cells(YY + TT, XX1 + UU).value) Then : Else : 明細表_dgv.Rows(0).Cells("11.5").Value = 0 : End If : End If

  477.                                         If xlSheet.Cells(YY + 3, XX1 + UU).value = 12 Then : 明細表_dgv.Rows(0).Cells("12").Value = xlSheet.Cells(YY + TT, XX1 + UU).value

  478.                                             If IsNumeric(xlSheet.Cells(YY + TT, XX1 + UU).value) Then : Else : 明細表_dgv.Rows(0).Cells("12").Value = 0 : End If : End If

  479.                                         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

  480.                                             If IsNumeric(xlSheet.Cells(YY + TT, XX1 + UU).value) Then : Else : 明細表_dgv.Rows(0).Cells("12.5").Value = 0 : End If : End If

  481.                                         If xlSheet.Cells(YY + 3, XX1 + UU).value = 13 Then : 明細表_dgv.Rows(0).Cells("13").Value = xlSheet.Cells(YY + TT, XX1 + UU).value

  482.                                             If IsNumeric(xlSheet.Cells(YY + TT, XX1 + UU).value) Then : Else : 明細表_dgv.Rows(0).Cells("13").Value = 0 : End If : End If

  483.                                         If xlSheet.Cells(YY + 3, XX1 + UU).value = 14 Then : 明細表_dgv.Rows(0).Cells("14").Value = xlSheet.Cells(YY + TT, XX1 + UU).value

  484.                                             If IsNumeric(xlSheet.Cells(YY + TT, XX1 + UU).value) Then : Else : 明細表_dgv.Rows(0).Cells("14").Value = 0 : End If : End If

  485.                                     Next : ProgressBar3.Value = 0 : 最終數2 = 0

  486. 

  487.                                     明細表_dgv.Rows(0).Cells("ItemNumber").Value = xlSheet.Cells(YY + 1, XX1).value

  488.                                     明細表_dgv.Rows(0).Cells("天盾流水號").Value = 天盾流水號_tb.Text

  489.                                     明細表_dgv.Rows(0).Cells("客戶訂單號").Value = 客戶訂單號_tb.Text

  490. 

  491.                                     控制表_dgv.Rows(0).Cells("訂單流水號").Value = 天盾流水號_tb.Text

  492.                                     控制表_dgv.Rows(0).Cells("年份季度").Value = SEASON_cb.Text

  493.                                     控制表_dgv.Rows(0).Cells("客戶訂單號").Value = 客戶訂單號_tb.Text

  494.                                     控制表_dgv.Rows(0).Cells("客戶交期").Value = Strings.Format(客戶交期_dtp.Value, "yyyy/MM/dd")

  495.                                     控制表_dgv.Rows(0).Cells("工廠回復交期").Value = Strings.Format(客戶交期_dtp.Value, "yyyy/MM/dd")

  496.                                     控制表_dgv.Rows(0).Cells("生產工廠").Value = FTY_cb.Text

  497.                                     控制表_dgv.Rows(0).Cells("訂單種類").Value = DIV_cb.Text

  498.                                     型體描述 = ""

  499.                                     For I As Integer = 0 To 60 : 資料數2 = 60 : 進度條2()

  500.                                         If Strings.Left(xlSheet.Cells(YY, XX1 + I).value, 20) = "Material Description" Then

  501.                                             For WW As Integer = 1 To 100 : 資料數3 = 100 : 進度條3()

  502.                                                 If WW = 1 Then

  503.                                                     形體名稱 = Strings.Left(xlSheet.Cells(YY + 1, XX1 + I).value, 1)

  504.                                                 End If

  505.                                                 If WW > 1 Then

  506.                                                     If Strings.Mid(xlSheet.Cells(YY + 1, XX1 + I).value, WW, 1) = "," Then

  507.                                                         Dim Z As Integer = WW + 1

  508.                                                         For ZZ As Integer = Z To 200

  509.                                                             If Strings.Mid(xlSheet.Cells(YY + 1, XX1 + I).value, ZZ, 1) = "," Then

  510.                                                                 Exit For

  511.                                                             Else

  512.                                                                 型體描述 &= Strings.Mid(xlSheet.Cells(YY + 1, XX1 + I).value, ZZ, 1)

  513.                                                             End If

  514.                                                         Next

  515.                                                         Exit For : ProgressBar4.Value = 0 : 最終數3 = 0

  516.                                                     Else

  517.                                                         形體名稱 &= Strings.Mid(xlSheet.Cells(YY + 1, XX1 + I).value, WW, 1)

  518.                                                     End If

  519.                                                 End If

  520.                                             Next : ProgressBar4.Value = 0 : 最終數3 = 0

  521.                                             控制表_dgv.Rows(0).Cells("形體號").Value = 形體名稱

  522.                                             明細表_dgv.Rows(0).Cells("ProductName").Value = 形體名稱

  523.                                             明細表_dgv.Rows(0).Cells("ProductDescription").Value = 型體描述

  524.                                         End If

  525.                                         If Strings.Left(xlSheet.Cells(YY, XX1 + I).value, 8) = "Colorway" Then

  526.                                             控制表_dgv.Rows(0).Cells("顏色").Value = xlSheet.Cells(YY + 1, XX1 + I).value

  527.                                             明細表_dgv.Rows(0).Cells("Color").Value = xlSheet.Cells(YY + 1, XX1 + I).value

  528.                                         End If

  529.                                         If Strings.Left(xlSheet.Cells(YY, XX1 + I).value, 10) = "Product ID" Then

  530.                                             控制表_dgv.Rows(0).Cells("ProductID").Value = xlSheet.Cells(YY + 1, XX1 + I).value

  531.                                         End If

  532.                                         If Strings.Left(xlSheet.Cells(YY, XX1 + I).value, 3) = "UoM" Then

  533.                                             控制表_dgv.Rows(0).Cells("UoM").Value = xlSheet.Cells(YY + 1, XX1 + I).value

  534.                                         End If

  535.                                     Next : ProgressBar3.Value = 0 : 最終數2 = 0

  536.                                     W += 1

  537.                                 End If

  538.                             End If

  539.                         Next : ProgressBar2.Value = 0 : 最終數1 = 0

  540.                     End If

  541.                     If Strings.Left(xlSheet.Cells(YY, XX1).value, 4) = "Item" Then

  542.                         ProgressBar1.Value = 0 : 最終數 = 0 : Exit For

  543.                     End If

  544.                 Next : ProgressBar1.Value = 0 : 最終數 = 0

  545.                 '-------裝箱控制表--------------------------------------------------------------------------------------------------------------------------------------------------------------------

  546.                 Dim W1 As Integer = 0 : Dim W2 As Integer = 0 : Dim XX2 As Integer = 1

  547.                 For YY As Integer = 30 To 300 : 資料數 = 300 : 進度條()

  548.                     項目 = ""

  549.                     If Strings.Left(xlSheet.Cells(YY, XX2).value, 4) = "Item" Then

  550.                         If W1 = 0 Then : Else

  551.                             裝箱控制_dgv.Rows.Insert(0)

  552.                         End If

  553. 

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

  555.                         裝箱控制_dgv.Rows(0).Cells("力威訂單號").Value = 力威訂單號_tb.Text

  556. 

  557.                         For I As Integer = 0 To 60 : 資料數1 = 60 : 進度條1()

  558.                             If Strings.Left(xlSheet.Cells(YY, XX2 + I).value, 4) = "Item" Then

  559.                                 裝箱控制_dgv.Rows(0).Cells("Item").Value = xlSheet.Cells(YY + 1, XX2 + I).value : 項目 = xlSheet.Cells(YY + 1, XX2 + I).value : End If

  560.                             If Strings.Left(xlSheet.Cells(YY, XX2 + I).value, 10) = "Material #" Then

  561.                                 裝箱控制_dgv.Rows(0).Cells("Material").Value = xlSheet.Cells(YY + 1, XX2 + I).value : 型體資料 = xlSheet.Cells(YY + 1, XX2 + I).value : End If

  562.                             If Strings.Left(xlSheet.Cells(YY, XX2 + I).value, 20) = "Material Description" Then

  563.                                 裝箱控制_dgv.Rows(0).Cells("MaterialDescription").Value = xlSheet.Cells(YY + 1, XX2 + I).value : End If

  564.                             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

  565.                             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

  566.                                 Exit For : ProgressBar2.Value = 0 : 最終數1 = 0

  567.                             End If

  568.                         Next : ProgressBar2.Value = 0 : 最終數1 = 0

  569. 

  570.                         For I As Integer = 3 To 60 : 資料數1 = 60 : 進度條1()

  571.                             If Strings.Left(xlSheet.Cells(YY + I, XX2).value, 13) = "PO Item Text:" Then

  572.                                 裝箱控制_dgv.Rows(0).Cells("POItemText").Value = Strings.Mid(xlSheet.Cells(YY + I, XX2).value, 14, 300)

  573.                             End If

  574. 

  575.                             If Strings.Left(xlSheet.Cells(YY + I, XX2).value, 13) = "Cust Assign #" Then

  576.                                 For II As Integer = 19 To 60 : 資料數2 = 60 : 進度條2()

  577.                                     If Strings.Left(xlSheet.Cells(YY + I, XX2 + II).value, 9) = "Units/Ctn" Then

  578.                                         For III As Integer = 1 To 5 : 資料數3 = 5 : 進度條3()

  579.                                             裝箱控制_dgv.Rows(0).Cells("UnitsCtn").Value = xlSheet.Cells(YY + I + III, XX2 + II).value

  580.                                             If Not IsNothing(裝箱控制_dgv.Rows(0).Cells("UnitsCtn").Value) Then : Exit For : ProgressBar4.Value = 0 : 最終數3 = 0 : End If

  581.                                         Next : ProgressBar4.Value = 0 : 最終數3 = 0

  582.                                     End If

  583.                                     If Strings.Left(xlSheet.Cells(YY + I, XX2 + II).value, 6) = "No/Ctn" Then

  584.                                         For III As Integer = 1 To 5 : 資料數3 = 5 : 進度條3()

  585.                                             裝箱控制_dgv.Rows(0).Cells("NoCtn").Value = xlSheet.Cells(YY + I + III, XX2 + II).value

  586.                                             If Not IsNothing(裝箱控制_dgv.Rows(0).Cells("NoCtn").Value) Then : Exit For : ProgressBar4.Value = 0 : 最終數3 = 0 : End If

  587.                                         Next : ProgressBar4.Value = 0 : 最終數3 = 0

  588.                                     End If

  589.                                     If Strings.Left(xlSheet.Cells(YY + I, XX2 + II).value, 6) = "Ctn No" Then

  590.                                         For III As Integer = 1 To 5 : 資料數3 = 5 : 進度條3()

  591.                                             裝箱控制_dgv.Rows(0).Cells("CtnNo").Value = xlSheet.Cells(YY + I + III, XX2 + II).value

  592.                                             If Not IsNothing(裝箱控制_dgv.Rows(0).Cells("CtnNo").Value) Then : Exit For : ProgressBar4.Value = 0 : 最終數3 = 0 : End If

  593.                                         Next : ProgressBar4.Value = 0 : 最終數3 = 0

  594.                                     End If

  595.                                     If Strings.Left(xlSheet.Cells(YY + I, XX2 + II).value, 5) = "Units" Then

  596.                                         For III As Integer = 1 To 5 : 資料數3 = 5 : 進度條3()

  597.                                             裝箱控制_dgv.Rows(0).Cells("Units2").Value = xlSheet.Cells(YY + I + III, XX2 + II).value

  598.                                             If Not IsNothing(裝箱控制_dgv.Rows(0).Cells("Units2").Value) Then : Exit For : ProgressBar4.Value = 0 : 最終數3 = 0 : End If

  599.                                         Next : ProgressBar4.Value = 0 : 最終數3 = 0

  600.                                     End If

  601.                                 Next : ProgressBar3.Value = 0 : 最終數2 = 0

  602. 

  603.                                 For II As Integer = 0 To 10 : 資料數2 = 10 : 進度條2()

  604.                                     If Strings.Left(xlSheet.Cells(YY + I, XX2 + II).value, 5) = "Width" Then

  605.                                         For TT As Integer = 1 To 15

  606.                                             If xlSheet.Cells(YY + I + TT, XX2 + II).value = "Width" Then : Else

  607.                                                 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

  608.                                                 Strings.Left(xlSheet.Cells(YY + I + TT, XX2 + II).value, 1) = "N" Then

  609.                                                     If W2 = 0 Then : Else

  610.                                                         裝箱明細_dgv.Rows.Insert(0)

  611.                                                         填入0值2()

  612.                                                     End If

  613. 

  614.                                                     裝箱明細_dgv.Rows(0).Cells("天盾流水號").Value = 天盾流水號_tb.Text

  615.                                                     裝箱明細_dgv.Rows(0).Cells("客戶訂單號").Value = 客戶訂單號_tb.Text

  616.                                                     裝箱明細_dgv.Rows(0).Cells("力威訂單號").Value = 力威訂單號_tb.Text

  617.                                                     裝箱明細_dgv.Rows(0).Cells("Item").Value = 項目

  618.                                                     裝箱明細_dgv.Rows(0).Cells("Material").Value = 型體資料

  619.                                                     裝箱明細_dgv.Rows(0).Cells("CustAssign").Value = xlSheet.Cells(YY + I + TT, 1).value

  620.                                                     If Strings.Left(xlSheet.Cells(YY + I + TT, XX2 + II).value, 1) = "M" Then : 裝箱明細_dgv.Rows(0).Cells("DM").Value = "MED"

  621.                                                     ElseIf Strings.Left(xlSheet.Cells(YY + I + TT, XX2 + II).value, 1) = "W" Then : 裝箱明細_dgv.Rows(0).Cells("DM").Value = "WIDE"

  622.                                                     ElseIf Strings.Left(xlSheet.Cells(YY + I + TT, XX2 + II).value, 1) = "N" Then : 裝箱明細_dgv.Rows(0).Cells("DM").Value = "NARRO"

  623.                                                     End If

  624.                                                     For UU As Integer = 1 To 70 : 資料數3 = 70 : 進度條3()

  625.                                                         If Not IsNumeric(xlSheet.Cells(YY + I, XX2 + II + UU).value) Then : Else

  626.                                                             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

  627.                                                                 If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_dgv.Rows(0).Cells("5").Value = 0 : End If : End If

  628.                                                             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

  629.                                                                 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

  630.                                                             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

  631.                                                                 If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_dgv.Rows(0).Cells("6").Value = 0 : End If : End If

  632.                                                             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

  633.                                                                 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

  634.                                                             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

  635.                                                                 If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_dgv.Rows(0).Cells("7").Value = 0 : End If : End If

  636.                                                             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

  637.                                                                 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

  638.                                                             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

  639.                                                                 If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_dgv.Rows(0).Cells("8").Value = 0 : End If : End If

  640.                                                             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

  641.                                                                 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

  642.                                                             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

  643.                                                                 If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_dgv.Rows(0).Cells("9").Value = 0 : End If : End If

  644.                                                             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

  645.                                                                 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

  646.                                                             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

  647.                                                                 If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_dgv.Rows(0).Cells("10").Value = 0 : End If : End If

  648.                                                             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

  649.                                                                 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

  650.                                                             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

  651.                                                                 If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_dgv.Rows(0).Cells("11").Value = 0 : End If : End If

  652.                                                             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

  653.                                                                 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

  654.                                                             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

  655.                                                                 If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_dgv.Rows(0).Cells("12").Value = 0 : End If : End If

  656.                                                             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

  657.                                                                 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

  658.                                                             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

  659.                                                                 If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_dgv.Rows(0).Cells("13").Value = 0 : End If : End If

  660.                                                             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

  661.                                                                 If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_dgv.Rows(0).Cells("14").Value = 0 : End If : End If

  662.                                                         End If

  663.                                                     Next : ProgressBar4.Value = 0 : 最終數3 = 0

  664.                                                     W2 += 1

  665.                                                 End If

  666.                                             End If

  667.                                         Next

  668.                                     End If

  669.                                 Next : ProgressBar3.Value = 0 : 最終數2 = 0

  670.                                 Exit For : ProgressBar2.Value = 0 : 最終數1 = 0

  671.                             End If

  672. 

  673.                             If Strings.Left(xlSheet.Cells(YY + I, XX2).value, 19) = "Product Description" Then

  674.                                 裝箱控制_dgv.Rows(0).Cells("ProductDescription").Value = xlSheet.Cells(YY + I + 1, XX2).value

  675.                                 For II As Integer = 35 To 60 : 資料數2 = 60 : 進度條2()

  676.                                     If Strings.Left(xlSheet.Cells(YY + I, XX2 + II).value, 10) = "Inco Terms" Then

  677.                                         裝箱控制_dgv.Rows(0).Cells("IncoTerms").Value = xlSheet.Cells(YY + I + 1, XX2 + II).value

  678.                                         Exit For : ProgressBar3.Value = 0 : 最終數2 = 0

  679.                                     End If

  680.                                 Next : ProgressBar3.Value = 0 : 最終數2 = 0

  681.                             End If

  682. 

  683.                             If Strings.Left(xlSheet.Cells(YY + I, XX2).value, 22) = "Style and Descriptions" Then

  684.                                 For II As Integer = 15 To 50 : 資料數2 = 50 : 進度條2()

  685.                                     If Strings.Left(xlSheet.Cells(YY + I, XX2 + II).value, 13) = "Customer Data" Then

  686.                                         For III As Integer = 1 To 5

  687.                                             If xlSheet.Cells(YY + I + III, XX2 + II).value <> "" Then

  688.                                                 裝箱控制_dgv.Rows(0).Cells("CustomerData").Value = xlSheet.Cells(YY + I + III, XX2 + II).value

  689.                                                 Exit For

  690.                                             End If

  691.                                         Next

  692.                                         Exit For : ProgressBar3.Value = 0 : 最終數2 = 0

  693.                                     End If

  694.                                 Next : ProgressBar3.Value = 0 : 最終數2 = 0

  695. 

  696.                                 For II As Integer = 0 To 50 : 資料數2 = 50 : 進度條2()

  697.                                     For III As Integer = 20 To 50 : 資料數3 = 50 : 進度條3()

  698.                                         If Strings.Left(xlSheet.Cells(YY + I + II, XX2 + III).value, 22) = "Final Customer Ship To" Then

  699.                                             For FF As Integer = 1 To 3

  700.                                                 If xlSheet.Cells(YY + I + II + FF, XX2 + III).value <> "" Then

  701.                                                     裝箱控制_dgv.Rows(0).Cells("FinalCustomerShipTo").Value = xlSheet.Cells(YY + I + II + FF, XX2 + III).value : Exit For

  702.                                                 End If

  703.                                             Next

  704.                                         End If

  705. 

  706.                                         If Strings.Left(xlSheet.Cells(YY + I + II, XX2 + III).value, 12) = "Customs Info" Then

  707.                                             For UU As Integer = 1 To 5

  708.                                                 For IIII As Integer = 0 To 30

  709.                                                     If Strings.Left(xlSheet.Cells(YY + I + II + UU, XX2 + III + IIII).value, 4) = "Size" Then

  710.                                                         For IIIII As Integer = 1 To 3

  711.                                                             裝箱控制_dgv.Rows(0).Cells("Size").Value = xlSheet.Cells(YY + I + II + IIIII + UU, XX2 + III + IIII).value

  712.                                                             If Not IsNothing(裝箱控制_dgv.Rows(0).Cells("Size").Value) Then : Exit For : End If

  713.                                                         Next

  714.                                                     End If

  715.                                                     If Strings.Left(xlSheet.Cells(YY + I + II + UU, XX2 + III + IIII).value, 3) = "HS#" Then

  716.                                                         For IIIII As Integer = 1 To 3

  717.                                                             裝箱控制_dgv.Rows(0).Cells("HS").Value = xlSheet.Cells(YY + I + II + IIIII + UU, XX2 + III + IIII).value

  718.                                                             If Not IsNothing(裝箱控制_dgv.Rows(0).Cells("HS").Value) Then : Exit For : End If

  719.                                                         Next

  720.                                                     End If

  721.                                                     If Strings.Left(xlSheet.Cells(YY + I + II + UU, XX2 + III + IIII).value, 5) = "Units" Then

  722.                                                         For IIIII As Integer = 1 To 3

  723.                                                             裝箱控制_dgv.Rows(0).Cells("Units1").Value = xlSheet.Cells(YY + I + II + IIIII + UU, XX2 + III + IIII).value

  724.                                                             If Not IsNothing(裝箱控制_dgv.Rows(0).Cells("Units1").Value) Then : Exit For : End If

  725.                                                         Next

  726.                                                     End If

  727.                                                     If Strings.Left(xlSheet.Cells(YY + I + II + UU, XX2 + III + IIII).value, 9) = "Dty Rate%" Then

  728.                                                         For IIIII As Integer = 1 To 3

  729.                                                             裝箱控制_dgv.Rows(0).Cells("DtyRate").Value = xlSheet.Cells(YY + I + II + IIIII + UU, XX2 + III + IIII).value

  730.                                                             If Not IsNothing(裝箱控制_dgv.Rows(0).Cells("DtyRate").Value) Then : Exit For : End If

  731.                                                         Next

  732.                                                     End If

  733.                                                     If Strings.Left(xlSheet.Cells(YY + I + II + UU, XX2 + III + IIII).value, 10) = "Add On Dty" Then

  734.                                                         For IIIII As Integer = 1 To 3

  735.                                                             裝箱控制_dgv.Rows(0).Cells("AddOnDty").Value = xlSheet.Cells(YY + I + II + IIIII + UU, XX2 + III + IIII).value

  736.                                                             If Not IsNothing(裝箱控制_dgv.Rows(0).Cells("AddOnDty").Value) Then : Exit For : End If

  737.                                                         Next : Exit For

  738.                                                     End If

  739.                                                 Next

  740.                                             Next

  741.                                         End If

  742.                                     Next : ProgressBar4.Value = 0 : 最終數3 = 0

  743. 

  744.                                     If Strings.Left(xlSheet.Cells(YY + I + II, XX2).value, 11) = "PLM Season:" Then

  745.                                         For III As Integer = 2 To 19 : 資料數3 = 19 : 進度條3()

  746.                                             '---------------找出'並換成-號

  747.                                             STR1 = ""

  748.                                             For ZZ As Integer = 1 To 300

  749.                                                 If Strings.Mid(xlSheet.Cells(YY + I + II, XX2 + III).value, ZZ, 1) = "'" Then

  750.                                                     STR1 &= "-"

  751.                                                 ElseIf Strings.Mid(xlSheet.Cells(YY + I + II, XX2 + III).value, ZZ, 1) <> "'" Then

  752.                                                     STR1 &= Strings.Mid(xlSheet.Cells(YY + I + II, XX2 + III).value, ZZ, 1)

  753.                                                 End If

  754.                                             Next

  755.                                             裝箱控制_dgv.Rows(0).Cells("PLMSeason").Value = STR1

  756.                                             If 裝箱控制_dgv.Rows(0).Cells("PLMSeason").Value <> "" Then : Exit For : ProgressBar4.Value = 0 : 最終數3 = 0 : End If

  757.                                         Next : ProgressBar4.Value = 0 : 最終數3 = 0

  758.                                     End If

  759.                                     If Strings.Left(xlSheet.Cells(YY + I + II, XX2).value, 11) = "Product ID:" Then

  760.                                         For III As Integer = 2 To 19 : 資料數3 = 19 : 進度條3()

  761.                                             裝箱控制_dgv.Rows(0).Cells("ProductID").Value = xlSheet.Cells(YY + I + II, XX2 + III).value

  762.                                             If Not IsNothing(裝箱控制_dgv.Rows(0).Cells("ProductID").Value) Then : Exit For : ProgressBar4.Value = 0 : 最終數3 = 0 : End If

  763.                                         Next : ProgressBar4.Value = 0 : 最終數3 = 0

  764.                                     End If

  765.                                     If Strings.Left(xlSheet.Cells(YY + I + II, XX2).value, 8) = "Stock #:" Then

  766.                                         For III As Integer = 2 To 19 : 資料數3 = 19 : 進度條3()

  767.                                             裝箱控制_dgv.Rows(0).Cells("Stock").Value = xlSheet.Cells(YY + I + II, XX2 + III).value

  768.                                             If Not IsNothing(裝箱控制_dgv.Rows(0).Cells("Stock").Value) Then : Exit For : ProgressBar4.Value = 0 : 最終數3 = 0 : End If

  769.                                         Next : ProgressBar4.Value = 0 : 最終數3 = 0

  770.                                     End If

  771.                                     If Strings.Left(xlSheet.Cells(YY + I + II, XX2).value, 9) = "Stk Name:" Then

  772.                                         For III As Integer = 2 To 19 : 資料數3 = 19 : 進度條3()

  773.                                             裝箱控制_dgv.Rows(0).Cells("StkName").Value = xlSheet.Cells(YY + I + II, XX2 + III).value

  774.                                             If Not IsNothing(裝箱控制_dgv.Rows(0).Cells("StkName").Value) Then : Exit For : ProgressBar4.Value = 0 : 最終數3 = 0 : End If

  775.                                         Next : ProgressBar4.Value = 0 : 最終數3 = 0

  776.                                     End If

  777.                                     If Strings.Left(xlSheet.Cells(YY + I + II, XX2).value, 11) = "Cust Stk #:" Then

  778.                                         For III As Integer = 2 To 19 : 資料數3 = 19 : 進度條3()

  779.                                             裝箱控制_dgv.Rows(0).Cells("CustStk").Value = xlSheet.Cells(YY + I + II, XX2 + III).value

  780.                                             If Not IsNothing(裝箱控制_dgv.Rows(0).Cells("CustStk").Value) Then : Exit For : ProgressBar4.Value = 0 : 最終數3 = 0 : End If

  781.                                         Next : ProgressBar4.Value = 0 : 最終數3 = 0

  782.                                     End If

  783.                                     If Strings.Left(xlSheet.Cells(YY + I + II, XX2).value, 14) = "Cust Stk Name:" Then

  784.                                         For III As Integer = 2 To 19 : 資料數3 = 19 : 進度條3()

  785.                                             裝箱控制_dgv.Rows(0).Cells("CustStkName").Value = xlSheet.Cells(YY + I + II, XX2 + III).value

  786.                                             If Not IsNothing(裝箱控制_dgv.Rows(0).Cells("CustStkName").Value) Then : Exit For : ProgressBar4.Value = 0 : 最終數3 = 0 : End If

  787.                                         Next : ProgressBar4.Value = 0 : 最終數3 = 0

  788.                                     End If

  789.                                     If Strings.Left(xlSheet.Cells(YY + I + II, XX2).value, 9) = "Colorway:" Then

  790.                                         For III As Integer = 2 To 19 : 資料數3 = 19 : 進度條3()

  791.                                             裝箱控制_dgv.Rows(0).Cells("Colorway").Value = xlSheet.Cells(YY + I + II, XX2 + III).value

  792.                                             If Not IsNothing(裝箱控制_dgv.Rows(0).Cells("Colorway").Value) Then : Exit For : ProgressBar4.Value = 0 : 最終數3 = 0 : End If

  793.                                         Next : ProgressBar4.Value = 0 : 最終數3 = 0

  794.                                     End If

  795.                                     If Strings.Left(xlSheet.Cells(YY + I + II, XX2).value, 12) = "Order Color:" Then

  796.                                         For III As Integer = 2 To 19 : 資料數3 = 19 : 進度條3()

  797.                                             裝箱控制_dgv.Rows(0).Cells("OrderColor").Value = xlSheet.Cells(YY + I + II, XX2 + III).value

  798.                                             If Not IsNothing(裝箱控制_dgv.Rows(0).Cells("OrderColor").Value) Then : Exit For : ProgressBar4.Value = 0 : 最終數3 = 0 : End If

  799.                                         Next : ProgressBar4.Value = 0 : 最終數3 = 0

  800.                                     End If

  801.                                     If Strings.Left(xlSheet.Cells(YY + I + II, XX2).value, 5) = "Logo:" Then

  802.                                         For III As Integer = 2 To 19 : 資料數3 = 19 : 進度條3()

  803.                                             STR1 = ""

  804.                                             For ZZ As Integer = 1 To 100

  805.                                                 If Strings.Mid(xlSheet.Cells(YY + I + II, XX2 + III).value, ZZ, 1) = "'" Then

  806.                                                     STR1 &= "-"

  807.                                                 ElseIf Strings.Mid(xlSheet.Cells(YY + I + II, XX2 + III).value, ZZ, 1) <> "'" Then

  808.                                                     STR1 &= Strings.Mid(xlSheet.Cells(YY + I + II, XX2 + III).value, ZZ, 1)

  809.                                                 End If

  810.                                             Next

  811.                                             裝箱控制_dgv.Rows(0).Cells("Logo").Value = STR1

  812.                                             If 裝箱控制_dgv.Rows(0).Cells("Logo").Value <> "" Then : Exit For : ProgressBar4.Value = 0 : 最終數3 = 0 : End If

  813.                                         Next : ProgressBar4.Value = 0 : 最終數3 = 0

  814.                                         Exit For : ProgressBar3.Value = 0 : 最終數2 = 0

  815.                                     End If

  816.                                 Next : ProgressBar3.Value = 0 : 最終數2 = 0

  817.                             End If

  818.                         Next : ProgressBar2.Value = 0 : 最終數1 = 0

  819.                         W1 += 1

  820.                     End If

  821.                 Next : ProgressBar1.Value = 0 : 最終數 = 0

  822.                 裝箱控制_dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells

  823.                 xlApp.Visible = True : xlApp.Quit() : xlApp = Nothing

  824.                 訂單讀取_bt.Enabled = False : 訂單存檔_bt.Enabled = True

  825.                 MsgBox("讀取EXCEL完成")

  826.             ElseIf OpenFileDialog1.ShowDialog = DialogResult.No Then

  827.             End If

  828.         End If

  829.     End Sub

  830.     Private Sub Set_日期格式轉換()

  831.         If DTP = " " Then : DTP = "" : Else : DTP = Format(客戶交期_dtp.Value, "yyyy/MM/dd") : End If

  832.         If DTP1 = " " Then : DTP1 = "" : Else : DTP1 = Format(下單日_dtp.Value, "yyyy/MM/dd") : End If

  833.     End Sub

  834.     Private Sub 訂單存檔_bt_Click(sender As Object, e As EventArgs) Handles 訂單存檔_bt.Click

  835.         If Number_tb.Text = "" Or FTY_cb.Text = "" Or SEASON_cb.Text = "" Or DIV_cb.Text = "" Then

  836.             MsgBox("打藍色星號處的資料不可以空白。")

  837.         Else

  838.             If Brand_cb.Text = "" Or 訂單類別_tb.Text = "" Or 英科條款_tb.Text = "" Or 公司編號_tb.Text = "" Or 服務_tb.Text = "" Or 力威訂單號_tb.Text = "" Or 客戶訂單號_tb.Text = "" Or

  839.                 供應商編號_tb.Text = "" Or 工廠編號_tb.Text = "" Or 地址1_tb.Text = "" Or 地址二_tb.Text = "" Then

  840.                 MsgBox("打藍色星號處的資料不可以空白。")

  841.             Else

  842.                 Set_日期格式轉換()

  843. 

  844.                 ConnOpen()

  845.                 SQL1 = "SELECT 客戶名稱 FROM 客戶資料 WHERE 客戶名稱 LIKE N'" & Brand_cb.Text & "'"

  846.                 CmdSet_For_dr()

  847.                 If dr.Read() Then : Else

  848.                     ConnOpen()

  849.                     SQL1 = "INSERT INTO 客戶資料 (客戶名稱) VALUES (N'" & Brand_cb.Text & "')"

  850.                     CmdSet_For_dr() : conn.Close()

  851.                 End If : conn.Close()

  852.                 '-------訂單抬頭--------------------------------------------------------------------------------------------------------------------------------------------------------------------

  853.                 ConnOpen()

  854.                 SQL1 = "INSERT INTO " & 訂單資料表(0) & " (客戶訂單號, 天盾流水號, ModeOfDelivery, DeliveryTerms, OrgShipDate, FromPort, ToPort, ShippingCarrier, VendorReference, ModifiedDate, 

  855.                                                     CustomerName, ShipDate, SalesOrder, DeliveryAddress, 下單日, 交期, ETADate, CreatedDate, Brand, CustomerRequisition, 工廠編號, 工廠地址, 

  856.                                                     代理編號, 訂貨代理, 總雙數, 總案件數, 公司, 工廠簡稱, 最終運送, 入單型態) 

  857.                          VALUES ('" & 客戶訂單號_tb.Text & "','" & Number_tb.Text & "','" & 訂單類別_tb.Text & "','" & 英科條款_tb.Text & "','" & DTP & "','','','','" & 供應商編號_tb.Text &

  858.                               "','" & 版本_tb.Text & "','" & 公司編號_tb.Text & "','" & DTP & "','" & 郵寄方式_tb.Text & "','" & 地址二_tb.Text & "','" & DTP & "','" & DTP & "','" & DTP &

  859.                               "','" & DTP1 & "','" & Brand_cb.Text & "','" & 力威訂單號_tb.Text & "','" & 工廠編號_tb.Text & "','" & 地址1_tb.Text & "','" & 代理編號_cb.Text &

  860.                               "','" & 訂貨代理_tb.Text & "','" & 總雙數_tb.Text & "','" & 總案件_tb.Text & "','" & 服務_tb.Text & "','" & FTY_cb.Text & "','" & 最終運送_tb.Text & "', '2')"

  861.                 CmdSet_For_dr() : conn.Close()

  862.                 '-------訂單控制表------------------------------------------------------------------------------------------------------------------------------------------------------------------

  863.                 For i As Integer = 0 To 控制表_dgv.Rows.Count - 1 : 資料數 = 控制表_dgv.Rows.Count : 進度條()

  864.                     ConnOpen()

  865.                     SQL1 = "SELECT TOP (1) 資料流水號 FROM " & 訂單資料表(1) & " GROUP BY 資料流水號 ORDER BY 資料流水號 DESC"

  866.                     CmdSet_For_dr()

  867.                     If dr.Read() Then : 資料流水號_tb.Text = dr("資料流水號").ToString : Else : 資料流水號_tb.Text = "00000000" : End If

  868.                     conn.Close()

  869.                     Dim NUM1 As Integer

  870.                     NUM1 = Double.Parse(Strings.Right(資料流水號_tb.Text, 8)) + 1

  871.                     If NUM1 < 10 Then : 資料流水號_tb.Text = "PO" & "0000000" & NUM1

  872.                     ElseIf NUM1 > 9 And NUM1 < 100 Then : 資料流水號_tb.Text = "PO" & "000000" & NUM1

  873.                     ElseIf NUM1 > 99 And NUM1 < 1000 Then : 資料流水號_tb.Text = "PO" & "00000" & NUM1

  874.                     ElseIf NUM1 > 999 And NUM1 < 10000 Then : 資料流水號_tb.Text = "PO" & "0000" & NUM1

  875.                     ElseIf NUM1 > 9999 And NUM1 < 100000 Then : 資料流水號_tb.Text = "PO" & "000" & NUM1

  876.                     ElseIf NUM1 > 99999 And NUM1 < 100000 Then : 資料流水號_tb.Text = "PO" & "00" & NUM1

  877.                     ElseIf NUM1 > 999999 And NUM1 < 1000000 Then : 資料流水號_tb.Text = "PO" & "0" & NUM1

  878.                     ElseIf NUM1 > 9999999 Then : 資料流水號_tb.Text = "PO" & NUM1 + 1

  879.                     End If

  880. 

  881.                     ConnOpen()

  882.                     SQL1 = "INSERT INTO " & 訂單資料表(1) & " (訂單流水號, 年份季度, 客戶訂單號, 形體號, 顏色, 楦型, 訂單數量, 客戶交期, 單價, 總金額, 備註, 生產工廠, 訂單種類, 工廠回復交期, CFMSPEC, 

  883.                                                     CFMSAMPLE, TRIAL1, TRIAL2, TRIAL3, TRIAL4, 包裝確認時間, 貼標時間, 裁斷時間, 針車時間, 成型時間, 驗貨時間, 實際離廠日, 資料流水號, 明細建檔, 

  884.                                                     PO_S_Date, Requested_XF, Confirm_XF, Revised_XF, Special_Packaging, Remarks, 國標測試, 力威訂單號, ProductID, UoM) 

  885.                             VALUES ('" & 控制表_dgv.Rows(i).Cells("訂單流水號").Value & "','" & 控制表_dgv.Rows(i).Cells("年份季度").Value & "','" & 控制表_dgv.Rows(i).Cells("客戶訂單號").Value & "',

  886.                                     '" & 控制表_dgv.Rows(i).Cells("形體號").Value & "','" & 控制表_dgv.Rows(i).Cells("顏色").Value & "','" & 控制表_dgv.Rows(i).Cells("楦型").Value & "',

  887.                                     '" & 控制表_dgv.Rows(i).Cells("訂單數量").Value & "','" & 控制表_dgv.Rows(i).Cells("客戶交期").Value & "','0','0','','" & 控制表_dgv.Rows(i).Cells("生產工廠").Value & "',

  888.                                     '" & 控制表_dgv.Rows(i).Cells("訂單種類").Value & "','" & 控制表_dgv.Rows(i).Cells("工廠回復交期").Value & "','','','','','','','','','','','','','',

  889.                                     '" & 資料流水號_tb.Text & "','1','" & 控制表_dgv.Rows(i).Cells("客戶交期").Value & "','" & 控制表_dgv.Rows(i).Cells("客戶交期").Value & "',

  890.                                     '" & 控制表_dgv.Rows(i).Cells("客戶交期").Value & "','','','','" & 國標測試報告_ch.Checked & "','" & 力威訂單號_tb.Text & "',

  891.                                     '" & 控制表_dgv.Rows(i).Cells("ProductID").Value & "','" & 控制表_dgv.Rows(i).Cells("UoM").Value & "')"

  892.                     CmdSet_For_dr() : conn.Close()

  893.                 Next : ProgressBar1.Value = 0 : 最終數 = 0

  894.                 '-------訂單明細表------------------------------------------------------------------------------------------------------------------------------------------------------------------

  895.                 For i As Integer = 0 To 明細表_dgv.Rows.Count - 1 : 資料數1 = 明細表_dgv.Rows.Count : 進度條1()

  896.                     '-------判斷是否需要新增顏色------------------------------------------------------------------------------------------------------------------------------------------------------------------

  897.                     ConnOpen()

  898.                     SQL1 = "SELECT 顏色 FROM 訂單控制表顏色清單 WHERE 顏色 LIKE N'" & 明細表_dgv.Rows(i).Cells("Color").Value & "'"

  899.                     CmdSet_For_dr()

  900.                     If dr.Read() Then

  901.                         conn.Close() : dr.Close()

  902.                     Else

  903.                         conn.Close() : dr.Close() : ConnOpen()

  904.                         SQL1 = "INSERT INTO 訂單控制表顏色清單 (顏色) VALUES (N'" & 明細表_dgv.Rows(i).Cells("Color").Value & "')"

  905.                         CmdSet_For_dr() : conn.Close() : dr.Close()

  906.                     End If

  907.                     '-------判斷是否需要新增形體------------------------------------------------------------------------------------------------------------------------------------------------------------------

  908.                     ConnOpen()

  909.                     SQL1 = "SELECT 形體號 FROM 訂單控制表形體號清單 WHERE 形體號 LIKE '" & 明細表_dgv.Rows(i).Cells("ProductName").Value & "'"

  910.                     CmdSet_For_dr()

  911.                     If dr.Read() Then

  912.                         conn.Close() : dr.Close()

  913.                     Else

  914.                         conn.Close() : dr.Close() : ConnOpen()

  915.                         SQL1 = "INSERT INTO 訂單控制表形體號清單 (形體號) VALUES ('" & 明細表_dgv.Rows(i).Cells("ProductName").Value & "')"

  916.                         CmdSet_For_dr() : conn.Close() : dr.Close()

  917.                     End If

  918.                     ConnOpen()

  919.                     SQL1 = "SELECT ProductName FROM STYLELIST WHERE ProductName LIKE '" & 明細表_dgv.Rows(i).Cells("ProductName").Value & "'"

  920.                     CmdSet_For_dr()

  921.                     If dr.Read() Then

  922.                         conn.Close() : dr.Close()

  923.                     Else

  924.                         ConnOpen()

  925.                         SQL1 = "INSERT INTO STYLELIST ( ItemNumber, ProductName, Style, Description, 建立季節) 

  926.                                 VALUES ('" & 明細表_dgv.Rows(i).Cells("ItemNumber").Value & "', '" & 明細表_dgv.Rows(i).Cells("ProductName").Value & "', '', 

  927.                                         '" & 明細表_dgv.Rows(i).Cells("ProductDescription").Value & "', '" & SEASON_cb.Text & "')"

  928.                         CmdSet_For_dr() : conn.Close()

  929.                     End If

  930.                     '-------明細表寫入------------------------------------------------------------------------------------------------------------------------------------------------------------------

  931.                     ConnOpen()

  932.                     SQL1 = "INSERT INTO " & 訂單資料表(5) & " (天盾流水號, 客戶訂單號, ItemNumber, ProductName, ProductDescription, Color, DM, [5], [5.5], [6], [6.5], [7], [7.5], [8], [8.5], [9], 

  933.                                                                 [9.5], [10], [10.5], [11], [11.5], [12], [12.5], [13], [14]) 

  934.                             VALUES ('" & 明細表_dgv.Rows(i).Cells("天盾流水號").Value & "','" & 明細表_dgv.Rows(i).Cells("客戶訂單號").Value & "','" & 明細表_dgv.Rows(i).Cells("ItemNumber").Value & "',

  935.                                     '" & 明細表_dgv.Rows(i).Cells("ProductName").Value & "','" & 明細表_dgv.Rows(i).Cells("ProductDescription").Value & "','" & 明細表_dgv.Rows(i).Cells("Color").Value & "',

  936.                                     '" & 明細表_dgv.Rows(i).Cells("DM").Value & "','" & 明細表_dgv.Rows(i).Cells("5").Value & "','" & 明細表_dgv.Rows(i).Cells("5.5").Value & "',

  937.                                     '" & 明細表_dgv.Rows(i).Cells("6").Value & "','" & 明細表_dgv.Rows(i).Cells("6.5").Value & "','" & 明細表_dgv.Rows(i).Cells("7").Value & "',

  938.                                     '" & 明細表_dgv.Rows(i).Cells("7.5").Value & "','" & 明細表_dgv.Rows(i).Cells("8").Value & "','" & 明細表_dgv.Rows(i).Cells("8.5").Value & "',

  939.                                     '" & 明細表_dgv.Rows(i).Cells("9").Value & "','" & 明細表_dgv.Rows(i).Cells("9.5").Value & "','" & 明細表_dgv.Rows(i).Cells("10").Value & "',

  940.                                     '" & 明細表_dgv.Rows(i).Cells("10.5").Value & "','" & 明細表_dgv.Rows(i).Cells("11").Value & "','" & 明細表_dgv.Rows(i).Cells("11.5").Value & "',

  941.                                     '" & 明細表_dgv.Rows(i).Cells("12").Value & "','" & 明細表_dgv.Rows(i).Cells("12.5").Value & "','" & 明細表_dgv.Rows(i).Cells("13").Value & "',

  942.                                     '" & 明細表_dgv.Rows(i).Cells("14").Value & "')"

  943.                     CmdSet_For_dr() : conn.Close()

  944.                 Next : ProgressBar2.Value = 0 : 最終數1 = 0

  945.                 '-------裝箱控制------------------------------------------------------------------------------------------------------------------------------------------------------------------

  946.                 For i As Integer = 0 To 裝箱控制_dgv.Rows.Count - 1 : 資料數2 = 裝箱控制_dgv.Rows.Count : 進度條2()

  947.                     ConnOpen()

  948.                     SQL1 = "INSERT INTO " & 訂單資料表(2) & " (天盾流水號, 客戶訂單號, 力威訂單號, Item, Material, MaterialDescription, Qty, UoM, ProductDescription, IncoTerms, CustomerData, Size, HS, Units1, 

  949.                                                                  DtyRate, AddOnDty, UnitsCtn, NoCtn, CtnNo, Units2, PLMSeason, ProductID, Stock, StkName, CustStk, CustStkName, CasePack, Colorway, OrderColor, 

  950.                                                                  Logo, POItemText, FinalCustomerShipTo) 

  951.                             VALUES ('" & 裝箱控制_dgv.Rows(i).Cells("天盾流水號").Value & "','" & 裝箱控制_dgv.Rows(i).Cells("客戶訂單號").Value & "','" & 裝箱控制_dgv.Rows(i).Cells("力威訂單號").Value & "',

  952.                                     '" & 裝箱控制_dgv.Rows(i).Cells("Item").Value & "','" & 裝箱控制_dgv.Rows(i).Cells("Material").Value & "','" & 裝箱控制_dgv.Rows(i).Cells("MaterialDescription").Value & "',

  953.                                     '" & 裝箱控制_dgv.Rows(i).Cells("Qty").Value & "','" & 裝箱控制_dgv.Rows(i).Cells("UoM").Value & "','" & 裝箱控制_dgv.Rows(i).Cells("ProductDescription").Value & "',

  954.                                     '" & 裝箱控制_dgv.Rows(i).Cells("IncoTerms").Value & "','" & 裝箱控制_dgv.Rows(i).Cells("CustomerData").Value & "','" & 裝箱控制_dgv.Rows(i).Cells("Size").Value & "',

  955.                                     '" & 裝箱控制_dgv.Rows(i).Cells("HS").Value & "','" & 裝箱控制_dgv.Rows(i).Cells("Units1").Value & "','" & 裝箱控制_dgv.Rows(i).Cells("DtyRate").Value & "',

  956.                                     '" & 裝箱控制_dgv.Rows(i).Cells("AddOnDty").Value & "','" & 裝箱控制_dgv.Rows(i).Cells("UnitsCtn").Value & "','" & 裝箱控制_dgv.Rows(i).Cells("NoCtn").Value & "',

  957.                                     '" & 裝箱控制_dgv.Rows(i).Cells("CtnNo").Value & "','" & 裝箱控制_dgv.Rows(i).Cells("Units2").Value & "','" & 裝箱控制_dgv.Rows(i).Cells("PLMSeason").Value & "',

  958.                                     '" & 裝箱控制_dgv.Rows(i).Cells("ProductID").Value & "','" & 裝箱控制_dgv.Rows(i).Cells("Stock").Value & "','" & 裝箱控制_dgv.Rows(i).Cells("StkName").Value & "',

  959.                                     '" & 裝箱控制_dgv.Rows(i).Cells("CustStk").Value & "','" & 裝箱控制_dgv.Rows(i).Cells("CustStkName").Value & "','" & 裝箱控制_dgv.Rows(i).Cells("CasePack").Value & "',

  960.                                     '" & 裝箱控制_dgv.Rows(i).Cells("Colorway").Value & "','" & 裝箱控制_dgv.Rows(i).Cells("OrderColor").Value & "','" & 裝箱控制_dgv.Rows(i).Cells("Logo").Value & "',

  961.                                     '" & 裝箱控制_dgv.Rows(i).Cells("POItemText").Value & "', '" & 裝箱控制_dgv.Rows(i).Cells("FinalCustomerShipTo").Value & "')"

  962.                     CmdSet_For_dr() : conn.Close()

  963.                 Next : ProgressBar3.Value = 0 : 最終數2 = 0

  964.                 '-------裝箱明細------------------------------------------------------------------------------------------------------------------------------------------------------------------

  965.                 For i As Integer = 0 To 裝箱明細_dgv.Rows.Count - 1 : 資料數3 = 裝箱明細_dgv.Rows.Count : 進度條3()

  966.                     ConnOpen()

  967.                     SQL1 = "INSERT INTO " & 訂單資料表(3) & " (天盾流水號, 客戶訂單號, 力威訂單號, Item, Material, DM, [5], [5.5], [6], [6.5], [7], [7.5], [8], [8.5], [9], [9.5], 

  968.                                                                  [10], [10.5], [11], [11.5], [12], [12.5], [13], [14], CustAssign) 

  969.                             VALUES ('" & 裝箱明細_dgv.Rows(i).Cells("天盾流水號").Value & "','" & 裝箱明細_dgv.Rows(i).Cells("客戶訂單號").Value & "','" & 裝箱明細_dgv.Rows(i).Cells("力威訂單號").Value & "',

  970.                                     '" & 裝箱明細_dgv.Rows(i).Cells("Item").Value & "','" & 裝箱明細_dgv.Rows(i).Cells("Material").Value & "','" & 裝箱明細_dgv.Rows(i).Cells("DM").Value & "',

  971.                                     '" & 裝箱明細_dgv.Rows(i).Cells("5").Value & "','" & 裝箱明細_dgv.Rows(i).Cells("5.5").Value & "', '" & 裝箱明細_dgv.Rows(i).Cells("6").Value & "', 

  972.                                     '" & 裝箱明細_dgv.Rows(i).Cells("6.5").Value & "','" & 裝箱明細_dgv.Rows(i).Cells("7").Value & "', '" & 裝箱明細_dgv.Rows(i).Cells("7.5").Value & "',

  973.                                     '" & 裝箱明細_dgv.Rows(i).Cells("8").Value & "','" & 裝箱明細_dgv.Rows(i).Cells("8.5").Value & "', '" & 裝箱明細_dgv.Rows(i).Cells("9").Value & "',

  974.                                     '" & 裝箱明細_dgv.Rows(i).Cells("9.5").Value & "','" & 裝箱明細_dgv.Rows(i).Cells("10").Value & "', '" & 裝箱明細_dgv.Rows(i).Cells("10.5").Value & "',

  975.                                     '" & 裝箱明細_dgv.Rows(i).Cells("11").Value & "','" & 裝箱明細_dgv.Rows(i).Cells("11.5").Value & "', '" & 裝箱明細_dgv.Rows(i).Cells("12").Value & "',

  976.                                     '" & 裝箱明細_dgv.Rows(i).Cells("12.5").Value & "','" & 裝箱明細_dgv.Rows(i).Cells("13").Value & "', '" & 裝箱明細_dgv.Rows(i).Cells("14").Value & "', 

  977.                                     '" & 裝箱明細_dgv.Rows(i).Cells("CustAssign").Value & "')"

  978.                     CmdSet_For_dr() : conn.Close()

  979.                 Next : ProgressBar4.Value = 0 : 最終數3 = 0

  980.                 '-------清空------------------------------------------------------------------------------------------------------------------------------------------------------------------

  981.                 清空_bt.PerformClick()

  982.                 MsgBox("訂單資料存檔完成")

  983.                 End If

  984.             End If

  985.     End Sub

  986. End Class