TENDEN-MES-SYS
/
TENDEN-MES-SYS-LEEHSIEHJUI
关注 4
点赞 0
派生 0
代码 工单 0 合并请求 0 版本发布 0 百科 动态
暂无描述
您最多选择25个主题 主题必须以字母或数字开头，可以包含连字符 (-)，并且长度不得超过35个字符
12 提交
1 分支
目录树: 21287018fe
分支列表 标签列表
${ item.name }
创建分支 ${ searchTerm }
从 '21287018fe'
${ noResults }
TENDEN-MES-SYS-LEEHSIEHJUI/TENDEN-MES-SYS/量產訂單管理/訂單資料匯入-力威.vb

訂單資料匯入-力威.vb 102KB
文件历史 原始文件

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  223. 

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

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

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

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

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

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

  230.         填入0值2()

  231.     End Sub

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

  233.         匯入列表開啟 = False

  234.         ConnOpen()

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

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

  237.     End Sub

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

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

  240.             ConnOpen()

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

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

  243.             訂單流水號.Show()

  244.         Else

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

  246.         End If

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

  248.     End Sub

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

  250.         '-------清空------------------------------------------------------------------------------------------------------------------------------------------------------------------

  251.         ConnOpen()

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

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

  254. 

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

  256. 

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

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

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

  260. 

  261.         Dim 數量 As Integer

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

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

  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值1()

  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值4()

  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值2()

  270. 

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

  272.     End Sub

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

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

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

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

  277.     End Sub

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

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

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

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

  282.     End Sub

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

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

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

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

  287.     End Sub

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

  289.         ConnOpen()

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

  291.         CmdSet_For_dr()

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

  293.     End Sub

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

  295.         ConnOpen()

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

  297.         CmdSet_For_dr()

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

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

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

  301.         Next i

  302.     End Sub

  303.     Private Sub 進度條()

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

  305.     End Sub

  306.     Private Sub 進度條1()

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

  308.     End Sub

  309.     Private Sub 進度條2()

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

  311.     End Sub

  312.     Private Sub 進度條3()

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

  314.     End Sub

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

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

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

  318.         Else

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

  320.                 file_name = OpenFileDialog1.FileName

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

  322.                 xlApp.DisplayAlerts = False

  323.                 xlApp.Visible = True

  324.                 xlApp.Workbooks.Open(file_name)

  325.                 xlSheet = xlApp.Worksheets(1)

  326.                 xlSheet.Activate()

  327.                 xlApp.Visible = False

  328.                 '-------表頭-----------------------------------------------------------------------------------------------------------------------------------------------------------------------

  329.                 For YY As Integer = 1 To 35

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

  331.                     For XX As Integer = 1 To 60

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

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

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

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

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

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

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

  339. 

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

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

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

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

  344.                                 End If

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

  346.                         End If

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

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

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

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

  351.                                 End If

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

  353.                         End If

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

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

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

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

  358.                                 End If

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

  360.                         End If

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

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

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

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

  365.                                 End If

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

  367.                         End If

  368. 

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

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

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

  372.                         End If

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

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

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

  376.                         End If

  377. 

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

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

  380.                         End If

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

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

  383.                         End If

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

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

  386.                         End If

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

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

  389.                         End If

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

  391.                             For I As Integer = 1 To 3

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

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

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

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

  396.                                         Exit For

  397.                                     End If

  398.                                 Else

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

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

  401.                                         Exit For

  402.                                     End If

  403.                                 End If

  404.                             Next

  405.                         End If

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

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

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

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

  410.                         End If

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

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

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

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

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

  416.                     End If

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

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

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

  420.                 End If

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

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

  423.                 For YY As Integer = 25 To 100

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

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

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

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

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

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

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

  431.                                     If W = 0 Then : Else

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

  433.                                         填入0值1()

  434.                                     End If

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

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

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

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

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

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

  441.                                     End If

  442. 

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

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

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

  446.                                         End If

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  484. 

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

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

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

  488. 

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

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

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

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

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

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

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

  496.                                     型體描述 = ""

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

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

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

  500.                                                 If WW = 1 Then

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

  502.                                                 End If

  503.                                                 If WW > 1 Then

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

  505.                                                         Dim Z As Integer = WW + 1

  506.                                                         For ZZ As Integer = Z To 200

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

  508.                                                                 Exit For

  509.                                                             Else

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

  511.                                                             End If

  512.                                                         Next

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

  514.                                                     Else

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

  516.                                                     End If

  517.                                                 End If

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

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

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

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

  522.                                         End If

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

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

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

  526.                                         End If

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

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

  529.                                         End If

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

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

  532.                                         End If

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

  534.                                     W += 1

  535.                                 End If

  536.                             End If

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

  538.                     End If

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

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

  541.                     End If

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

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

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

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

  546.                     項目 = ""

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

  548.                         If W1 = 0 Then : Else

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

  550.                         End If

  551. 

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

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

  554. 

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

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

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

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

  559.                                 裝箱控制_dgv.Rows(0).Cells("Material").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, 20) = "Material Description" Then

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

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

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

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

  565.                             End If

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

  567. 

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

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

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

  571.                             End If

  572. 

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

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

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

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

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

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

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

  580.                                     End If

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

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

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

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

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

  586.                                     End If

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

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

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

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

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

  592.                                     End If

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

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

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

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

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

  598.                                     End If

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

  600. 

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

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

  603.                                         For TT As Integer = 1 To 3

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

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

  606.                                                 If W2 = 0 Then : Else

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

  608.                                                     填入0值2()

  609.                                                 End If

  610. 

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

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

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

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

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

  616. 

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

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

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

  620.                                                 End If

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

  659.                                                     End If

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

  661.                                                 W2 += 1

  662.                                             End If

  663.                                         Next

  664.                                     End If

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

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

  667.                             End If

  668. 

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

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

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

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

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

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

  675.                                     End If

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

  677.                             End If

  678. 

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

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

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

  682.                                         For III As Integer = 1 To 5

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

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

  685.                                                 Exit For

  686.                                             End If

  687.                                         Next

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

  689.                                     End If

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

  691. 

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

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

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

  695.                                             For FF As Integer = 1 To 3

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

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

  698.                                                 End If

  699.                                             Next

  700.                                         End If

  701. 

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

  703.                                             For UU As Integer = 1 To 5

  704.                                                 For IIII As Integer = 0 To 30

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

  706.                                                         For IIIII As Integer = 1 To 3

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

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

  709.                                                         Next

  710.                                                     End If

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

  712.                                                         For IIIII As Integer = 1 To 3

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

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

  715.                                                         Next

  716.                                                     End If

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

  718.                                                         For IIIII As Integer = 1 To 3

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

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

  721.                                                         Next

  722.                                                     End If

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

  724.                                                         For IIIII As Integer = 1 To 3

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

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

  727.                                                         Next

  728.                                                     End If

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

  730.                                                         For IIIII As Integer = 1 To 3

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

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

  733.                                                         Next : Exit For

  734.                                                     End If

  735.                                                 Next

  736.                                             Next

  737.                                         End If

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

  739. 

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

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

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

  743.                                             STR1 = ""

  744.                                             For ZZ As Integer = 1 To 300

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

  746.                                                     STR1 &= "-"

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

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

  749.                                                 End If

  750.                                             Next

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

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

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

  754.                                     End If

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

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

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

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

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

  760.                                     End If

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

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

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

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

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

  766.                                     End If

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

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

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

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

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

  772.                                     End If

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

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

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

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

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

  778.                                     End If

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

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

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

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

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

  784.                                     End If

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

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

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

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

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

  790.                                     End If

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

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

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

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

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

  796.                                     End If

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

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

  799.                                             STR1 = ""

  800.                                             For ZZ As Integer = 1 To 100

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

  802.                                                     STR1 &= "-"

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

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

  805.                                                 End If

  806.                                             Next

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

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

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

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

  811.                                     End If

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

  813.                             End If

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

  815.                         W1 += 1

  816.                     End If

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

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

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

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

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

  822.             ElseIf OpenFileDialog1.ShowDialog = DialogResult.No Then

  823.             End If

  824.         End If

  825.     End Sub

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

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

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

  829.     End Sub

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

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

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

  833.         Else

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

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

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

  837.             Else

  838.                 Set_日期格式轉換()

  839. 

  840.                 ConnOpen()

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

  842.                 CmdSet_For_dr()

  843.                 If dr.Read() Then : Else

  844.                     ConnOpen()

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

  846.                     CmdSet_For_dr() : conn.Close()

  847.                 End If : conn.Close()

  848.                 '-------訂單抬頭--------------------------------------------------------------------------------------------------------------------------------------------------------------------

  849.                 ConnOpen()

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

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

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

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

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

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

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

  857.                 CmdSet_For_dr() : conn.Close()

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

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

  860.                     ConnOpen()

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

  862.                     CmdSet_For_dr()

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

  864.                     conn.Close()

  865.                     Dim NUM1 As Integer

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

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

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

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

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

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

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

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

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

  875.                     End If

  876. 

  877.                     ConnOpen()

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

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

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

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

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

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

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

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

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

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

  888.                     CmdSet_For_dr() : conn.Close()

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

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

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

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

  893.                     ConnOpen()

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

  895.                     CmdSet_For_dr()

  896.                     If dr.Read() Then

  897.                         conn.Close() : dr.Close()

  898.                     Else

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

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

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

  902.                     End If

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

  904.                     ConnOpen()

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

  906.                     CmdSet_For_dr()

  907.                     If dr.Read() Then

  908.                         conn.Close() : dr.Close()

  909.                     Else

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

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

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

  913.                     End If

  914.                     ConnOpen()

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

  916.                     CmdSet_For_dr()

  917.                     If dr.Read() Then

  918.                         conn.Close() : dr.Close()

  919.                     Else

  920.                         ConnOpen()

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

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

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

  924.                         CmdSet_For_dr() : conn.Close()

  925.                     End If

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

  927.                     ConnOpen()

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

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

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

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

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

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

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

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

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

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

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

  939.                     CmdSet_For_dr() : conn.Close()

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

  941.                 '-------裝箱控制------------------------------------------------------------------------------------------------------------------------------------------------------------------

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

  943.                     ConnOpen()

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

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

  946.                                                                  Logo, POItemText, FinalCustomerShipTo) 

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

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

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

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

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

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

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

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

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

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

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

  958.                     CmdSet_For_dr() : conn.Close()

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

  960.                 '-------裝箱明細------------------------------------------------------------------------------------------------------------------------------------------------------------------

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

  962.                     ConnOpen()

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

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

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

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

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

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

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

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

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

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

  973.                     CmdSet_For_dr() : conn.Close()

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

  975.                 '-------清空------------------------------------------------------------------------------------------------------------------------------------------------------------------

  976.                 清空_bt.PerformClick()

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

  978.                 End If

  979.             End If

  980.     End Sub

  981. End Class