版本號 : 2021042101

更新內容如下
1、力威訂單導入新增多筆裝箱資料導入功能。
2、裝箱控制表新增CustAssign導入。
3、力威訂單號比對更新內容一同更新。

TENDEN-MES-SYS/Module/全域變數.vb

@@ -4,7 +4,7 @@
     Public Target As String : Public Target1 As String : Public Target2 As String : Public FTP帳號 As String : Public FTP密碼 As String : Public 登入人IP As String
     Public CC(99) As Boolean : Public AA(99) As String : Public 登入判斷 As Boolean
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2021042001"
+    Public 版本 As String = "2021042101"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 匯率 As Double
 

TENDEN-MES-SYS/量產訂單管理/訂單資料匯入-力威.vb

@@ -204,6 +204,7 @@ Public Class 訂單資料匯入_力威
         Dim DR13 As New DataGridViewTextBoxColumn : Dim DR14 As New DataGridViewTextBoxColumn : Dim DR15 As New DataGridViewTextBoxColumn : Dim DR16 As New DataGridViewTextBoxColumn
         Dim DR17 As New DataGridViewTextBoxColumn : Dim DR18 As New DataGridViewTextBoxColumn : Dim DR19 As New DataGridViewTextBoxColumn : Dim DR20 As New DataGridViewTextBoxColumn
         Dim DR21 As New DataGridViewTextBoxColumn : Dim DR22 As New DataGridViewTextBoxColumn : Dim DR23 As New DataGridViewTextBoxColumn : Dim DR24 As New DataGridViewTextBoxColumn
+        Dim DR25 As New DataGridViewTextBoxColumn
 
         DR01.HeaderText = "天盾流水號" : DR01.Name = "天盾流水號" : 裝箱明細_dgv.Columns.Insert(0, DR01)
         DR02.HeaderText = "客戶訂單號" : DR02.Name = "客戶訂單號" : 裝箱明細_dgv.Columns.Insert(1, DR02)
@@ -220,13 +221,14 @@ Public Class 訂單資料匯入_力威
         DR19.HeaderText = "11" : DR19.Name = "11" : 裝箱明細_dgv.Columns.Insert(18, DR19) : DR20.HeaderText = "11.5" : DR20.Name = "11.5" : 裝箱明細_dgv.Columns.Insert(19, DR20)
         DR21.HeaderText = "12" : DR21.Name = "12" : 裝箱明細_dgv.Columns.Insert(20, DR21) : DR22.HeaderText = "12.5" : DR22.Name = "12.5" : 裝箱明細_dgv.Columns.Insert(21, DR22)
         DR23.HeaderText = "13" : DR23.Name = "13" : 裝箱明細_dgv.Columns.Insert(22, DR23) : DR24.HeaderText = "14" : DR24.Name = "14" : 裝箱明細_dgv.Columns.Insert(23, DR24)
-
+        DR25.HeaderText = "CustAssign" : DR25.Name = "CustAssign" : 裝箱明細_dgv.Columns.Insert(24, DR25)
         裝箱明細_dgv.Columns(0).FillWeight = 100 : 裝箱明細_dgv.Columns(1).FillWeight = 100 : 裝箱明細_dgv.Columns(2).FillWeight = 100 : 裝箱明細_dgv.Columns(3).FillWeight = 100
         裝箱明細_dgv.Columns(4).FillWeight = 80 : 裝箱明細_dgv.Columns(5).FillWeight = 60 : 裝箱明細_dgv.Columns(6).FillWeight = 50 : 裝箱明細_dgv.Columns(7).FillWeight = 50
         裝箱明細_dgv.Columns(8).FillWeight = 50 : 裝箱明細_dgv.Columns(9).FillWeight = 50 : 裝箱明細_dgv.Columns(10).FillWeight = 50 : 裝箱明細_dgv.Columns(11).FillWeight = 50
         裝箱明細_dgv.Columns(12).FillWeight = 50 : 裝箱明細_dgv.Columns(13).FillWeight = 50 : 裝箱明細_dgv.Columns(14).FillWeight = 50 : 裝箱明細_dgv.Columns(15).FillWeight = 50
         裝箱明細_dgv.Columns(16).FillWeight = 50 : 裝箱明細_dgv.Columns(17).FillWeight = 50 : 裝箱明細_dgv.Columns(18).FillWeight = 50 : 裝箱明細_dgv.Columns(19).FillWeight = 50
         裝箱明細_dgv.Columns(20).FillWeight = 50 : 裝箱明細_dgv.Columns(21).FillWeight = 50 : 裝箱明細_dgv.Columns(22).FillWeight = 50 : 裝箱明細_dgv.Columns(23).FillWeight = 50
+        裝箱明細_dgv.Columns(24).FillWeight = 80
         填入0值2()
     End Sub
     Private Sub 訂單資料匯入_力威_Unload(sender As Object, e As EventArgs) Handles MyBase.Closing
@@ -600,65 +602,67 @@ Public Class 訂單資料匯入_力威
 
                                 For II As Integer = 0 To 10 : 資料數2 = 10 : 進度條2()
                                     If Strings.Left(xlSheet.Cells(YY + I, XX2 + II).value, 5) = "Width" Then
-                                        For TT As Integer = 1 To 3
-                                            If Strings.Left(xlSheet.Cells(YY + I + TT, XX2 + II).value, 1) = "M" Or Strings.Left(xlSheet.Cells(YY + I + TT, XX2 + II).value, 1) = "W" Or
+                                        For TT As Integer = 1 To 15
+                                            If xlSheet.Cells(YY + I + TT, XX2 + II).value = "Width" Then : Else
+                                                If Strings.Left(xlSheet.Cells(YY + I + TT, XX2 + II).value, 1) = "M" Or Strings.Left(xlSheet.Cells(YY + I + TT, XX2 + II).value, 1) = "W" Or
                                                 Strings.Left(xlSheet.Cells(YY + I + TT, XX2 + II).value, 1) = "N" Then
-                                                If W2 = 0 Then : Else
-                                                    裝箱明細_dgv.Rows.Insert(0)
-                                                    填入0值2()
-                                                End If
-
-                                                裝箱明細_dgv.Rows(0).Cells("天盾流水號").Value = 天盾流水號_tb.Text
-                                                裝箱明細_dgv.Rows(0).Cells("客戶訂單號").Value = 客戶訂單號_tb.Text
-                                                裝箱明細_dgv.Rows(0).Cells("力威訂單號").Value = 力威訂單號_tb.Text
-                                                裝箱明細_dgv.Rows(0).Cells("Item").Value = 項目
-                                                裝箱明細_dgv.Rows(0).Cells("Material").Value = 型體資料
+                                                    If W2 = 0 Then : Else
+                                                        裝箱明細_dgv.Rows.Insert(0)
+                                                        填入0值2()
+                                                    End If
 
-                                                If Strings.Left(xlSheet.Cells(YY + I + TT, XX2 + II).value, 1) = "M" Then : 裝箱明細_dgv.Rows(0).Cells("DM").Value = "MED"
-                                                ElseIf Strings.Left(xlSheet.Cells(YY + I + TT, XX2 + II).value, 1) = "W" Then : 裝箱明細_dgv.Rows(0).Cells("DM").Value = "WIDE"
-                                                ElseIf Strings.Left(xlSheet.Cells(YY + I + TT, XX2 + II).value, 1) = "N" Then : 裝箱明細_dgv.Rows(0).Cells("DM").Value = "NARRO"
-                                                End If
-                                                For UU As Integer = 1 To 70 : 資料數3 = 70 : 進度條3()
-                                                    If Not IsNumeric(xlSheet.Cells(YY + I, XX2 + II + UU).value) Then : Else
-                                                        If xlSheet.Cells(YY + I, XX2 + II + UU).value = 5 Then : 裝箱明細_dgv.Rows(0).Cells("5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
-                                                            If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_dgv.Rows(0).Cells("5").Value = 0 : End If : End If
-                                                        If xlSheet.Cells(YY + I, XX2 + II + UU).value = 5.5 Then : 裝箱明細_dgv.Rows(0).Cells("5.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
-                                                            If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_dgv.Rows(0).Cells("5.5").Value = 0 : End If : End If
-                                                        If xlSheet.Cells(YY + I, XX2 + II + UU).value = 6 Then : 裝箱明細_dgv.Rows(0).Cells("6").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
-                                                            If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_dgv.Rows(0).Cells("6").Value = 0 : End If : End If
-                                                        If xlSheet.Cells(YY + I, XX2 + II + UU).value = 6.5 Then : 裝箱明細_dgv.Rows(0).Cells("6.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
-                                                            If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_dgv.Rows(0).Cells("6.5").Value = 0 : End If : End If
-                                                        If xlSheet.Cells(YY + I, XX2 + II + UU).value = 7 Then : 裝箱明細_dgv.Rows(0).Cells("7").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
-                                                            If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_dgv.Rows(0).Cells("7").Value = 0 : End If : End If
-                                                        If xlSheet.Cells(YY + I, XX2 + II + UU).value = 7.5 Then : 裝箱明細_dgv.Rows(0).Cells("7.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
-                                                            If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_dgv.Rows(0).Cells("7.5").Value = 0 : End If : End If
-                                                        If xlSheet.Cells(YY + I, XX2 + II + UU).value = 8 Then : 裝箱明細_dgv.Rows(0).Cells("8").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
-                                                            If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_dgv.Rows(0).Cells("8").Value = 0 : End If : End If
-                                                        If xlSheet.Cells(YY + I, XX2 + II + UU).value = 8.5 Then : 裝箱明細_dgv.Rows(0).Cells("8.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
-                                                            If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_dgv.Rows(0).Cells("8.5").Value = 0 : End If : End If
-                                                        If xlSheet.Cells(YY + I, XX2 + II + UU).value = 9 Then : 裝箱明細_dgv.Rows(0).Cells("9").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
-                                                            If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_dgv.Rows(0).Cells("9").Value = 0 : End If : End If
-                                                        If xlSheet.Cells(YY + I, XX2 + II + UU).value = 9.5 Then : 裝箱明細_dgv.Rows(0).Cells("9.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
-                                                            If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_dgv.Rows(0).Cells("9.5").Value = 0 : End If : End If
-                                                        If xlSheet.Cells(YY + I, XX2 + II + UU).value = 10 Then : 裝箱明細_dgv.Rows(0).Cells("10").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
-                                                            If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_dgv.Rows(0).Cells("10").Value = 0 : End If : End If
-                                                        If xlSheet.Cells(YY + I, XX2 + II + UU).value = 10.5 Then : 裝箱明細_dgv.Rows(0).Cells("10.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
-                                                            If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_dgv.Rows(0).Cells("10.5").Value = 0 : End If : End If
-                                                        If xlSheet.Cells(YY + I, XX2 + II + UU).value = 11 Then : 裝箱明細_dgv.Rows(0).Cells("11").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
-                                                            If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_dgv.Rows(0).Cells("11").Value = 0 : End If : End If
-                                                        If xlSheet.Cells(YY + I, XX2 + II + UU).value = 11.5 Then : 裝箱明細_dgv.Rows(0).Cells("11.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
-                                                            If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_dgv.Rows(0).Cells("11.5").Value = 0 : End If : End If
-                                                        If xlSheet.Cells(YY + I, XX2 + II + UU).value = 12 Then : 裝箱明細_dgv.Rows(0).Cells("12").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
-                                                            If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_dgv.Rows(0).Cells("12").Value = 0 : End If : End If
-                                                        If xlSheet.Cells(YY + I, XX2 + II + UU).value = 12.5 Then : 裝箱明細_dgv.Rows(0).Cells("12.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
-                                                            If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_dgv.Rows(0).Cells("12.5").Value = 0 : End If : End If
-                                                        If xlSheet.Cells(YY + I, XX2 + II + UU).value = 13 Then : 裝箱明細_dgv.Rows(0).Cells("13").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
-                                                            If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_dgv.Rows(0).Cells("13").Value = 0 : End If : End If
-                                                        If xlSheet.Cells(YY + I, XX2 + II + UU).value = 14 Then : 裝箱明細_dgv.Rows(0).Cells("14").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
-                                                            If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_dgv.Rows(0).Cells("14").Value = 0 : End If : End If
+                                                    裝箱明細_dgv.Rows(0).Cells("天盾流水號").Value = 天盾流水號_tb.Text
+                                                    裝箱明細_dgv.Rows(0).Cells("客戶訂單號").Value = 客戶訂單號_tb.Text
+                                                    裝箱明細_dgv.Rows(0).Cells("力威訂單號").Value = 力威訂單號_tb.Text
+                                                    裝箱明細_dgv.Rows(0).Cells("Item").Value = 項目
+                                                    裝箱明細_dgv.Rows(0).Cells("Material").Value = 型體資料
+                                                    裝箱明細_dgv.Rows(0).Cells("CustAssign").Value = xlSheet.Cells(YY + I + TT, 1).value
+                                                    If Strings.Left(xlSheet.Cells(YY + I + TT, XX2 + II).value, 1) = "M" Then : 裝箱明細_dgv.Rows(0).Cells("DM").Value = "MED"
+                                                    ElseIf Strings.Left(xlSheet.Cells(YY + I + TT, XX2 + II).value, 1) = "W" Then : 裝箱明細_dgv.Rows(0).Cells("DM").Value = "WIDE"
+                                                    ElseIf Strings.Left(xlSheet.Cells(YY + I + TT, XX2 + II).value, 1) = "N" Then : 裝箱明細_dgv.Rows(0).Cells("DM").Value = "NARRO"
                                                     End If
-                                                Next : ProgressBar4.Value = 0 : 最終數3 = 0
-                                                W2 += 1
+                                                    For UU As Integer = 1 To 70 : 資料數3 = 70 : 進度條3()
+                                                        If Not IsNumeric(xlSheet.Cells(YY + I, XX2 + II + UU).value) Then : Else
+                                                            If xlSheet.Cells(YY + I, XX2 + II + UU).value = 5 Then : 裝箱明細_dgv.Rows(0).Cells("5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
+                                                                If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_dgv.Rows(0).Cells("5").Value = 0 : End If : End If
+                                                            If xlSheet.Cells(YY + I, XX2 + II + UU).value = 5.5 Then : 裝箱明細_dgv.Rows(0).Cells("5.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
+                                                                If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_dgv.Rows(0).Cells("5.5").Value = 0 : End If : End If
+                                                            If xlSheet.Cells(YY + I, XX2 + II + UU).value = 6 Then : 裝箱明細_dgv.Rows(0).Cells("6").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
+                                                                If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_dgv.Rows(0).Cells("6").Value = 0 : End If : End If
+                                                            If xlSheet.Cells(YY + I, XX2 + II + UU).value = 6.5 Then : 裝箱明細_dgv.Rows(0).Cells("6.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
+                                                                If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_dgv.Rows(0).Cells("6.5").Value = 0 : End If : End If
+                                                            If xlSheet.Cells(YY + I, XX2 + II + UU).value = 7 Then : 裝箱明細_dgv.Rows(0).Cells("7").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
+                                                                If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_dgv.Rows(0).Cells("7").Value = 0 : End If : End If
+                                                            If xlSheet.Cells(YY + I, XX2 + II + UU).value = 7.5 Then : 裝箱明細_dgv.Rows(0).Cells("7.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
+                                                                If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_dgv.Rows(0).Cells("7.5").Value = 0 : End If : End If
+                                                            If xlSheet.Cells(YY + I, XX2 + II + UU).value = 8 Then : 裝箱明細_dgv.Rows(0).Cells("8").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
+                                                                If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_dgv.Rows(0).Cells("8").Value = 0 : End If : End If
+                                                            If xlSheet.Cells(YY + I, XX2 + II + UU).value = 8.5 Then : 裝箱明細_dgv.Rows(0).Cells("8.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
+                                                                If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_dgv.Rows(0).Cells("8.5").Value = 0 : End If : End If
+                                                            If xlSheet.Cells(YY + I, XX2 + II + UU).value = 9 Then : 裝箱明細_dgv.Rows(0).Cells("9").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
+                                                                If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_dgv.Rows(0).Cells("9").Value = 0 : End If : End If
+                                                            If xlSheet.Cells(YY + I, XX2 + II + UU).value = 9.5 Then : 裝箱明細_dgv.Rows(0).Cells("9.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
+                                                                If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_dgv.Rows(0).Cells("9.5").Value = 0 : End If : End If
+                                                            If xlSheet.Cells(YY + I, XX2 + II + UU).value = 10 Then : 裝箱明細_dgv.Rows(0).Cells("10").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
+                                                                If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_dgv.Rows(0).Cells("10").Value = 0 : End If : End If
+                                                            If xlSheet.Cells(YY + I, XX2 + II + UU).value = 10.5 Then : 裝箱明細_dgv.Rows(0).Cells("10.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
+                                                                If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_dgv.Rows(0).Cells("10.5").Value = 0 : End If : End If
+                                                            If xlSheet.Cells(YY + I, XX2 + II + UU).value = 11 Then : 裝箱明細_dgv.Rows(0).Cells("11").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
+                                                                If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_dgv.Rows(0).Cells("11").Value = 0 : End If : End If
+                                                            If xlSheet.Cells(YY + I, XX2 + II + UU).value = 11.5 Then : 裝箱明細_dgv.Rows(0).Cells("11.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
+                                                                If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_dgv.Rows(0).Cells("11.5").Value = 0 : End If : End If
+                                                            If xlSheet.Cells(YY + I, XX2 + II + UU).value = 12 Then : 裝箱明細_dgv.Rows(0).Cells("12").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
+                                                                If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_dgv.Rows(0).Cells("12").Value = 0 : End If : End If
+                                                            If xlSheet.Cells(YY + I, XX2 + II + UU).value = 12.5 Then : 裝箱明細_dgv.Rows(0).Cells("12.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
+                                                                If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_dgv.Rows(0).Cells("12.5").Value = 0 : End If : End If
+                                                            If xlSheet.Cells(YY + I, XX2 + II + UU).value = 13 Then : 裝箱明細_dgv.Rows(0).Cells("13").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
+                                                                If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_dgv.Rows(0).Cells("13").Value = 0 : End If : End If
+                                                            If xlSheet.Cells(YY + I, XX2 + II + UU).value = 14 Then : 裝箱明細_dgv.Rows(0).Cells("14").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
+                                                                If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else : 裝箱明細_dgv.Rows(0).Cells("14").Value = 0 : End If : End If
+                                                        End If
+                                                    Next : ProgressBar4.Value = 0 : 最終數3 = 0
+                                                    W2 += 1
+                                                End If
                                             End If
                                         Next
                                     End If
@@ -961,7 +965,7 @@ Public Class 訂單資料匯入_力威
                 For i As Integer = 0 To 裝箱明細_dgv.Rows.Count - 1 : 資料數3 = 裝箱明細_dgv.Rows.Count : 進度條3()
                     ConnOpen()
                     SQL1 = "INSERT INTO " & 訂單資料表(3) & " (天盾流水號, 客戶訂單號, 力威訂單號, Item, Material, DM, [5], [5.5], [6], [6.5], [7], [7.5], [8], [8.5], [9], [9.5], 
-                                                                 [10], [10.5], [11], [11.5], [12], [12.5], [13], [14]) 
+                                                                 [10], [10.5], [11], [11.5], [12], [12.5], [13], [14], CustAssign) 
                             VALUES ('" & 裝箱明細_dgv.Rows(i).Cells("天盾流水號").Value & "','" & 裝箱明細_dgv.Rows(i).Cells("客戶訂單號").Value & "','" & 裝箱明細_dgv.Rows(i).Cells("力威訂單號").Value & "',
                                     '" & 裝箱明細_dgv.Rows(i).Cells("Item").Value & "','" & 裝箱明細_dgv.Rows(i).Cells("Material").Value & "','" & 裝箱明細_dgv.Rows(i).Cells("DM").Value & "',
                                     '" & 裝箱明細_dgv.Rows(i).Cells("5").Value & "','" & 裝箱明細_dgv.Rows(i).Cells("5.5").Value & "', '" & 裝箱明細_dgv.Rows(i).Cells("6").Value & "', 
@@ -969,7 +973,8 @@ Public Class 訂單資料匯入_力威
                                     '" & 裝箱明細_dgv.Rows(i).Cells("8").Value & "','" & 裝箱明細_dgv.Rows(i).Cells("8.5").Value & "', '" & 裝箱明細_dgv.Rows(i).Cells("9").Value & "',
                                     '" & 裝箱明細_dgv.Rows(i).Cells("9.5").Value & "','" & 裝箱明細_dgv.Rows(i).Cells("10").Value & "', '" & 裝箱明細_dgv.Rows(i).Cells("10.5").Value & "',
                                     '" & 裝箱明細_dgv.Rows(i).Cells("11").Value & "','" & 裝箱明細_dgv.Rows(i).Cells("11.5").Value & "', '" & 裝箱明細_dgv.Rows(i).Cells("12").Value & "',
-                                    '" & 裝箱明細_dgv.Rows(i).Cells("12.5").Value & "','" & 裝箱明細_dgv.Rows(i).Cells("13").Value & "', '" & 裝箱明細_dgv.Rows(i).Cells("14").Value & "')"
+                                    '" & 裝箱明細_dgv.Rows(i).Cells("12.5").Value & "','" & 裝箱明細_dgv.Rows(i).Cells("13").Value & "', '" & 裝箱明細_dgv.Rows(i).Cells("14").Value & "', 
+                                    '" & 裝箱明細_dgv.Rows(i).Cells("CustAssign").Value & "')"
                     CmdSet_For_dr() : conn.Close()
                 Next : ProgressBar4.Value = 0 : 最終數3 = 0
                 '-------清空------------------------------------------------------------------------------------------------------------------------------------------------------------------

TENDEN-MES-SYS/量產訂單管理/訂單資料比對與修改_力威.vb

@@ -179,7 +179,8 @@ Public Class 訂單資料比對與修改_力威
         裝箱明細2_dgv.ColumnHeadersHeight = 25
         裝箱明細2_dgv.AllowUserToAddRows = False
         ConnOpen()
-        SQL1 = "SELECT    天盾流水號, 客戶訂單號, 力威訂單號, Item, Material, DM, [5], [5.5], [6], [6.5], [7], [7.5], [8], [8.5], [9], [9.5], [10], [10.5], [11], [11.5], [12], [12.5], [13], [14]
+        SQL1 = "SELECT    天盾流水號, 客戶訂單號, 力威訂單號, Item, Material, DM, [5], [5.5], [6], [6.5], [7], [7.5], [8], [8.5], [9], [9.5], [10], [10.5], [11], [11.5], [12], [12.5], 
+                          [13], [14], CustAssign
                 FROM      " & 訂單資料表(3) & "
                 WHERE     天盾流水號 LIKE '" & Number1_tb.Text & "' ORDER BY Item DESC"
         CmdSet_For_DGV() : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds4) : 裝箱明細1_dgv.DataSource = ds4.Tables(0) : 裝箱明細2_dgv.DataSource = ds4.Tables(0) : conn.Close()
@@ -190,7 +191,7 @@ Public Class 訂單資料比對與修改_力威
         裝箱明細1_dgv.Columns(10).FillWeight = 40 : 裝箱明細1_dgv.Columns(11).FillWeight = 40 : 裝箱明細1_dgv.Columns(12).FillWeight = 40 : 裝箱明細1_dgv.Columns(13).FillWeight = 40
         裝箱明細1_dgv.Columns(14).FillWeight = 40 : 裝箱明細1_dgv.Columns(15).FillWeight = 40 : 裝箱明細1_dgv.Columns(16).FillWeight = 40 : 裝箱明細1_dgv.Columns(17).FillWeight = 40
         裝箱明細1_dgv.Columns(18).FillWeight = 40 : 裝箱明細1_dgv.Columns(19).FillWeight = 40 : 裝箱明細1_dgv.Columns(20).FillWeight = 40 : 裝箱明細1_dgv.Columns(21).FillWeight = 40
-        裝箱明細1_dgv.Columns(22).FillWeight = 40 : 裝箱明細1_dgv.Columns(23).FillWeight = 40
+        裝箱明細1_dgv.Columns(22).FillWeight = 40 : 裝箱明細1_dgv.Columns(23).FillWeight = 40 : 裝箱明細1_dgv.Columns(24).FillWeight = 80
         裝箱明細1_dgv.Columns(7).DefaultCellStyle.Format = "#,##0" : 裝箱明細1_dgv.Columns(8).DefaultCellStyle.Format = "#,##0" : 裝箱明細1_dgv.Columns(9).DefaultCellStyle.Format = "#,##0"
         裝箱明細1_dgv.Columns(10).DefaultCellStyle.Format = "#,##0" : 裝箱明細1_dgv.Columns(11).DefaultCellStyle.Format = "#,##0" : 裝箱明細1_dgv.Columns(12).DefaultCellStyle.Format = "#,##0"
         裝箱明細1_dgv.Columns(13).DefaultCellStyle.Format = "#,##0" : 裝箱明細1_dgv.Columns(14).DefaultCellStyle.Format = "#,##0" : 裝箱明細1_dgv.Columns(15).DefaultCellStyle.Format = "#,##0"
@@ -204,7 +205,7 @@ Public Class 訂單資料比對與修改_力威
         裝箱明細2_dgv.Columns(10).FillWeight = 40 : 裝箱明細2_dgv.Columns(11).FillWeight = 40 : 裝箱明細2_dgv.Columns(12).FillWeight = 40 : 裝箱明細2_dgv.Columns(13).FillWeight = 40
         裝箱明細2_dgv.Columns(14).FillWeight = 40 : 裝箱明細2_dgv.Columns(15).FillWeight = 40 : 裝箱明細2_dgv.Columns(16).FillWeight = 40 : 裝箱明細2_dgv.Columns(17).FillWeight = 40
         裝箱明細2_dgv.Columns(18).FillWeight = 40 : 裝箱明細2_dgv.Columns(19).FillWeight = 40 : 裝箱明細2_dgv.Columns(20).FillWeight = 40 : 裝箱明細2_dgv.Columns(21).FillWeight = 40
-        裝箱明細2_dgv.Columns(22).FillWeight = 40 : 裝箱明細2_dgv.Columns(23).FillWeight = 40
+        裝箱明細2_dgv.Columns(22).FillWeight = 40 : 裝箱明細2_dgv.Columns(23).FillWeight = 40 : 裝箱明細2_dgv.Columns(24).FillWeight = 80
         裝箱明細2_dgv.Columns(7).DefaultCellStyle.Format = "#,##0" : 裝箱明細2_dgv.Columns(8).DefaultCellStyle.Format = "#,##0" : 裝箱明細2_dgv.Columns(9).DefaultCellStyle.Format = "#,##0"
         裝箱明細2_dgv.Columns(10).DefaultCellStyle.Format = "#,##0" : 裝箱明細2_dgv.Columns(11).DefaultCellStyle.Format = "#,##0" : 裝箱明細2_dgv.Columns(12).DefaultCellStyle.Format = "#,##0"
         裝箱明細2_dgv.Columns(13).DefaultCellStyle.Format = "#,##0" : 裝箱明細2_dgv.Columns(14).DefaultCellStyle.Format = "#,##0" : 裝箱明細2_dgv.Columns(15).DefaultCellStyle.Format = "#,##0"
@@ -267,7 +268,7 @@ Public Class 訂單資料比對與修改_力威
         裝箱明細_dgv.Rows(0).Cells("11").Value = 0 : 裝箱明細_dgv.Rows(0).Cells("11.5").Value = 0 : 裝箱明細_dgv.Rows(0).Cells("12").Value = 0 : 裝箱明細_dgv.Rows(0).Cells("12.5").Value = 0
         裝箱明細_dgv.Rows(0).Cells("13").Value = 0 : 裝箱明細_dgv.Rows(0).Cells("14").Value = 0 : 裝箱明細_dgv.Rows(0).Cells("天盾流水號").Value = ""
         裝箱明細_dgv.Rows(0).Cells("客戶訂單號").Value = "" : 裝箱明細_dgv.Rows(0).Cells("力威訂單號").Value = "" : 裝箱明細_dgv.Rows(0).Cells("Item").Value = ""
-        裝箱明細_dgv.Rows(0).Cells("Material").Value = "" : 裝箱明細_dgv.Rows(0).Cells("DM").Value = ""
+        裝箱明細_dgv.Rows(0).Cells("Material").Value = "" : 裝箱明細_dgv.Rows(0).Cells("DM").Value = "" : 裝箱明細_dgv.Rows(0).Cells("CustAssign").Value = ""
     End Sub
     Private Sub 填入0值2_1()
         裝箱明細3_dgv.Rows(0).Cells("5").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("5.5").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("6").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("6.5").Value = 0
@@ -276,7 +277,7 @@ Public Class 訂單資料比對與修改_力威
         裝箱明細3_dgv.Rows(0).Cells("11").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("11.5").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("12").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("12.5").Value = 0
         裝箱明細3_dgv.Rows(0).Cells("13").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("14").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("天盾流水號").Value = ""
         裝箱明細3_dgv.Rows(0).Cells("客戶訂單號").Value = "" : 裝箱明細3_dgv.Rows(0).Cells("力威訂單號").Value = "" : 裝箱明細3_dgv.Rows(0).Cells("Item").Value = ""
-        裝箱明細3_dgv.Rows(0).Cells("Material").Value = "" : 裝箱明細3_dgv.Rows(0).Cells("DM").Value = ""
+        裝箱明細3_dgv.Rows(0).Cells("Material").Value = "" : 裝箱明細3_dgv.Rows(0).Cells("DM").Value = "" : 裝箱明細3_dgv.Rows(0).Cells("CustAssign").Value = ""
     End Sub
     Private Sub 填入0值3()
         控制表_dgv.Rows(0).Cells("訂單流水號").Value = "" : 控制表_dgv.Rows(0).Cells("年份季度").Value = "" : 控制表_dgv.Rows(0).Cells("客戶訂單號").Value = ""
@@ -552,6 +553,7 @@ Public Class 訂單資料比對與修改_力威
         Dim DR13 As New DataGridViewTextBoxColumn : Dim DR14 As New DataGridViewTextBoxColumn : Dim DR15 As New DataGridViewTextBoxColumn : Dim DR16 As New DataGridViewTextBoxColumn
         Dim DR17 As New DataGridViewTextBoxColumn : Dim DR18 As New DataGridViewTextBoxColumn : Dim DR19 As New DataGridViewTextBoxColumn : Dim DR20 As New DataGridViewTextBoxColumn
         Dim DR21 As New DataGridViewTextBoxColumn : Dim DR22 As New DataGridViewTextBoxColumn : Dim DR23 As New DataGridViewTextBoxColumn : Dim DR24 As New DataGridViewTextBoxColumn
+        Dim DR25 As New DataGridViewTextBoxColumn
         DR01.HeaderText = "天盾流水號" : DR01.Name = "天盾流水號" : 裝箱明細_dgv.Columns.Insert(0, DR01)
         DR02.HeaderText = "客戶訂單號" : DR02.Name = "客戶訂單號" : 裝箱明細_dgv.Columns.Insert(1, DR02)
         DR03.HeaderText = "力威訂單號" : DR03.Name = "力威訂單號" : 裝箱明細_dgv.Columns.Insert(2, DR03)
@@ -567,12 +569,14 @@ Public Class 訂單資料比對與修改_力威
         DR19.HeaderText = "11" : DR19.Name = "11" : 裝箱明細_dgv.Columns.Insert(18, DR19) : DR20.HeaderText = "11.5" : DR20.Name = "11.5" : 裝箱明細_dgv.Columns.Insert(19, DR20)
         DR21.HeaderText = "12" : DR21.Name = "12" : 裝箱明細_dgv.Columns.Insert(20, DR21) : DR22.HeaderText = "12.5" : DR22.Name = "12.5" : 裝箱明細_dgv.Columns.Insert(21, DR22)
         DR23.HeaderText = "13" : DR23.Name = "13" : 裝箱明細_dgv.Columns.Insert(22, DR23) : DR24.HeaderText = "14" : DR24.Name = "14" : 裝箱明細_dgv.Columns.Insert(23, DR24)
+        DR25.HeaderText = "CustAssign" : DR25.Name = "CustAssign" : 裝箱明細_dgv.Columns.Insert(23, DR25)
         裝箱明細_dgv.Columns(0).FillWeight = 100 : 裝箱明細_dgv.Columns(1).FillWeight = 100 : 裝箱明細_dgv.Columns(2).FillWeight = 100 : 裝箱明細_dgv.Columns(3).FillWeight = 100
         裝箱明細_dgv.Columns(4).FillWeight = 80 : 裝箱明細_dgv.Columns(5).FillWeight = 60 : 裝箱明細_dgv.Columns(6).FillWeight = 50 : 裝箱明細_dgv.Columns(7).FillWeight = 50
         裝箱明細_dgv.Columns(8).FillWeight = 50 : 裝箱明細_dgv.Columns(9).FillWeight = 50 : 裝箱明細_dgv.Columns(10).FillWeight = 50 : 裝箱明細_dgv.Columns(11).FillWeight = 50
         裝箱明細_dgv.Columns(12).FillWeight = 50 : 裝箱明細_dgv.Columns(13).FillWeight = 50 : 裝箱明細_dgv.Columns(14).FillWeight = 50 : 裝箱明細_dgv.Columns(15).FillWeight = 50
         裝箱明細_dgv.Columns(16).FillWeight = 50 : 裝箱明細_dgv.Columns(17).FillWeight = 50 : 裝箱明細_dgv.Columns(18).FillWeight = 50 : 裝箱明細_dgv.Columns(19).FillWeight = 50
         裝箱明細_dgv.Columns(20).FillWeight = 50 : 裝箱明細_dgv.Columns(21).FillWeight = 50 : 裝箱明細_dgv.Columns(22).FillWeight = 50 : 裝箱明細_dgv.Columns(23).FillWeight = 50
+        裝箱明細_dgv.Columns(24).FillWeight = 80
         填入0值2()
 
         Dim DK01 As New DataGridViewTextBoxColumn : Dim DK02 As New DataGridViewTextBoxColumn : Dim DK03 As New DataGridViewTextBoxColumn : Dim DK04 As New DataGridViewTextBoxColumn
@@ -581,6 +585,7 @@ Public Class 訂單資料比對與修改_力威
         Dim DK13 As New DataGridViewTextBoxColumn : Dim DK14 As New DataGridViewTextBoxColumn : Dim DK15 As New DataGridViewTextBoxColumn : Dim DK16 As New DataGridViewTextBoxColumn
         Dim DK17 As New DataGridViewTextBoxColumn : Dim DK18 As New DataGridViewTextBoxColumn : Dim DK19 As New DataGridViewTextBoxColumn : Dim DK20 As New DataGridViewTextBoxColumn
         Dim DK21 As New DataGridViewTextBoxColumn : Dim DK22 As New DataGridViewTextBoxColumn : Dim DK23 As New DataGridViewTextBoxColumn : Dim DK24 As New DataGridViewTextBoxColumn
+        Dim DK25 As New DataGridViewTextBoxColumn
         DK01.HeaderText = "天盾流水號" : DK01.Name = "天盾流水號" : 裝箱明細3_dgv.Columns.Insert(0, DK01)
         DK02.HeaderText = "客戶訂單號" : DK02.Name = "客戶訂單號" : 裝箱明細3_dgv.Columns.Insert(1, DK02)
         DK03.HeaderText = "力威訂單號" : DK03.Name = "力威訂單號" : 裝箱明細3_dgv.Columns.Insert(2, DK03)
@@ -596,13 +601,14 @@ Public Class 訂單資料比對與修改_力威
         DK19.HeaderText = "11" : DK19.Name = "11" : 裝箱明細3_dgv.Columns.Insert(18, DK19) : DK20.HeaderText = "11.5" : DK20.Name = "11.5" : 裝箱明細3_dgv.Columns.Insert(19, DK20)
         DK21.HeaderText = "12" : DK21.Name = "12" : 裝箱明細3_dgv.Columns.Insert(20, DK21) : DK22.HeaderText = "12.5" : DK22.Name = "12.5" : 裝箱明細3_dgv.Columns.Insert(21, DK22)
         DK23.HeaderText = "13" : DK23.Name = "13" : 裝箱明細3_dgv.Columns.Insert(22, DK23) : DK24.HeaderText = "14" : DK24.Name = "14" : 裝箱明細3_dgv.Columns.Insert(23, DK24)
+        DK25.HeaderText = "CustAssign" : DK25.Name = "CustAssign" : 裝箱明細3_dgv.Columns.Insert(23, DK25)
         裝箱明細3_dgv.Columns(0).FillWeight = 110 : 裝箱明細3_dgv.Columns(1).FillWeight = 110 : 裝箱明細3_dgv.Columns(2).FillWeight = 110
         裝箱明細3_dgv.Columns(3).FillWeight = 90 : 裝箱明細3_dgv.Columns(4).FillWeight = 190 : 裝箱明細3_dgv.Columns(5).FillWeight = 80
         裝箱明細3_dgv.Columns(6).FillWeight = 40 : 裝箱明細3_dgv.Columns(7).FillWeight = 40 : 裝箱明細3_dgv.Columns(8).FillWeight = 40 : 裝箱明細3_dgv.Columns(9).FillWeight = 40
         裝箱明細3_dgv.Columns(10).FillWeight = 40 : 裝箱明細3_dgv.Columns(11).FillWeight = 40 : 裝箱明細3_dgv.Columns(12).FillWeight = 40 : 裝箱明細3_dgv.Columns(13).FillWeight = 40
         裝箱明細3_dgv.Columns(14).FillWeight = 40 : 裝箱明細3_dgv.Columns(15).FillWeight = 40 : 裝箱明細3_dgv.Columns(16).FillWeight = 40 : 裝箱明細3_dgv.Columns(17).FillWeight = 40
         裝箱明細3_dgv.Columns(18).FillWeight = 40 : 裝箱明細3_dgv.Columns(19).FillWeight = 40 : 裝箱明細3_dgv.Columns(20).FillWeight = 40 : 裝箱明細3_dgv.Columns(21).FillWeight = 40
-        裝箱明細3_dgv.Columns(22).FillWeight = 40 : 裝箱明細3_dgv.Columns(23).FillWeight = 40
+        裝箱明細3_dgv.Columns(22).FillWeight = 40 : 裝箱明細3_dgv.Columns(23).FillWeight = 40 : 裝箱明細3_dgv.Columns(25).FillWeight = 80
         填入0值2_1()
     End Sub
     Private Sub 抬頭清單_dgv_CellClick(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles 抬頭清單_dgv.CellClick
@@ -1010,128 +1016,133 @@ Public Class 訂單資料比對與修改_力威
 
                                 For II As Integer = 0 To 10 : 資料數2 = 10 : 進度條2()
                                     If Strings.Left(xlSheet.Cells(YY + I, XX2 + II).value, 5) = "Width" Then
-                                        For TT As Integer = 1 To 3
-                                            If Strings.Left(xlSheet.Cells(YY + I + TT, XX2 + II).value, 1) = "M" Or Strings.Left(xlSheet.Cells(YY + I + TT, XX2 + II).value, 1) = "W" Or
+                                        For TT As Integer = 1 To 15
+                                            If xlSheet.Cells(YY + I + TT, XX2 + II).value = "Width" Then : Else
+                                                If Strings.Left(xlSheet.Cells(YY + I + TT, XX2 + II).value, 1) = "M" Or Strings.Left(xlSheet.Cells(YY + I + TT, XX2 + II).value, 1) = "W" Or
                                                 Strings.Left(xlSheet.Cells(YY + I + TT, XX2 + II).value, 1) = "N" Then
-                                                If W2 = 0 Then : Else
-                                                    裝箱明細_dgv.Rows.Insert(0) : 裝箱明細3_dgv.Rows.Insert(0)
-                                                    填入0值2() : 填入0值2_1()
-                                                End If
+                                                    If W2 = 0 Then : Else
+                                                        裝箱明細_dgv.Rows.Insert(0) : 裝箱明細3_dgv.Rows.Insert(0)
+                                                        填入0值2() : 填入0值2_1()
+                                                    End If
 
-                                                裝箱明細_dgv.Rows(0).Cells("天盾流水號").Value = Number_tb.Text
-                                                裝箱明細_dgv.Rows(0).Cells("客戶訂單號").Value = 客戶訂單號_tb.Text
-                                                裝箱明細_dgv.Rows(0).Cells("力威訂單號").Value = 力威訂單號_tb.Text
-                                                裝箱明細_dgv.Rows(0).Cells("Item").Value = 項目
-                                                裝箱明細_dgv.Rows(0).Cells("Material").Value = 型體資料
-
-                                                裝箱明細3_dgv.Rows(0).Cells("天盾流水號").Value = Number_tb.Text
-                                                裝箱明細3_dgv.Rows(0).Cells("客戶訂單號").Value = 客戶訂單號_tb.Text
-                                                裝箱明細3_dgv.Rows(0).Cells("力威訂單號").Value = 力威訂單號_tb.Text
-                                                裝箱明細3_dgv.Rows(0).Cells("Item").Value = 項目
-                                                裝箱明細3_dgv.Rows(0).Cells("Material").Value = 型體資料
-
-                                                If Strings.Left(xlSheet.Cells(YY + I + TT, XX2 + II).value, 1) = "M" Then
-                                                    裝箱明細_dgv.Rows(0).Cells("DM").Value = "MED" : 裝箱明細3_dgv.Rows(0).Cells("DM").Value = "MED"
-                                                ElseIf Strings.Left(xlSheet.Cells(YY + I + TT, XX2 + II).value, 1) = "W" Then
-                                                    裝箱明細_dgv.Rows(0).Cells("DM").Value = "WIDE" : 裝箱明細3_dgv.Rows(0).Cells("DM").Value = "WIDE"
-                                                ElseIf Strings.Left(xlSheet.Cells(YY + I + TT, XX2 + II).value, 1) = "N" Then
-                                                    裝箱明細_dgv.Rows(0).Cells("DM").Value = "NARRO" : 裝箱明細3_dgv.Rows(0).Cells("DM").Value = "NARRO"
-                                                End If
-                                                For UU As Integer = 1 To 70 : 資料數3 = 70 : 進度條3()
-                                                    If Not IsNumeric(xlSheet.Cells(YY + I, XX2 + II + UU).value) Then : Else
-                                                        If xlSheet.Cells(YY + I, XX2 + II + UU).value = 5 Then
-                                                            裝箱明細_dgv.Rows(0).Cells("5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
-                                                            裝箱明細3_dgv.Rows(0).Cells("5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
-                                                            If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else
-                                                                裝箱明細_dgv.Rows(0).Cells("5").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("5").Value = 0 : End If : End If
-                                                        If xlSheet.Cells(YY + I, XX2 + II + UU).value = 5.5 Then
-                                                            裝箱明細_dgv.Rows(0).Cells("5.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
-                                                            裝箱明細3_dgv.Rows(0).Cells("5.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
-                                                            If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else
-                                                                裝箱明細_dgv.Rows(0).Cells("5.5").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("5.5").Value = 0 : End If : End If
-                                                        If xlSheet.Cells(YY + I, XX2 + II + UU).value = 6 Then
-                                                            裝箱明細_dgv.Rows(0).Cells("6").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
-                                                            裝箱明細3_dgv.Rows(0).Cells("6").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
-                                                            If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else
-                                                                裝箱明細_dgv.Rows(0).Cells("6").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("6").Value = 0 : End If : End If
-                                                        If xlSheet.Cells(YY + I, XX2 + II + UU).value = 6.5 Then
-                                                            裝箱明細_dgv.Rows(0).Cells("6.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
-                                                            裝箱明細3_dgv.Rows(0).Cells("6.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
-                                                            If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else
-                                                                裝箱明細_dgv.Rows(0).Cells("6.5").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("6.5").Value = 0 : End If : End If
-                                                        If xlSheet.Cells(YY + I, XX2 + II + UU).value = 7 Then
-                                                            裝箱明細_dgv.Rows(0).Cells("7").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
-                                                            裝箱明細3_dgv.Rows(0).Cells("7").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
-                                                            If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else
-                                                                裝箱明細_dgv.Rows(0).Cells("7").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("7").Value = 0 : End If : End If
-                                                        If xlSheet.Cells(YY + I, XX2 + II + UU).value = 7.5 Then
-                                                            裝箱明細_dgv.Rows(0).Cells("7.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
-                                                            裝箱明細3_dgv.Rows(0).Cells("7.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
-                                                            If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else
-                                                                裝箱明細_dgv.Rows(0).Cells("7.5").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("7.5").Value = 0 : End If : End If
-                                                        If xlSheet.Cells(YY + I, XX2 + II + UU).value = 8 Then
-                                                            裝箱明細_dgv.Rows(0).Cells("8").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
-                                                            裝箱明細3_dgv.Rows(0).Cells("8").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
-                                                            If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else
-                                                                裝箱明細_dgv.Rows(0).Cells("8").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("8").Value = 0 : End If : End If
-                                                        If xlSheet.Cells(YY + I, XX2 + II + UU).value = 8.5 Then
-                                                            裝箱明細_dgv.Rows(0).Cells("8.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
-                                                            裝箱明細3_dgv.Rows(0).Cells("8.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
-                                                            If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else
-                                                                裝箱明細_dgv.Rows(0).Cells("8.5").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("8.5").Value = 0 : End If : End If
-                                                        If xlSheet.Cells(YY + I, XX2 + II + UU).value = 9 Then
-                                                            裝箱明細_dgv.Rows(0).Cells("9").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
-                                                            裝箱明細3_dgv.Rows(0).Cells("9").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
-                                                            If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else
-                                                                裝箱明細_dgv.Rows(0).Cells("9").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("9").Value = 0 : End If : End If
-                                                        If xlSheet.Cells(YY + I, XX2 + II + UU).value = 9.5 Then
-                                                            裝箱明細_dgv.Rows(0).Cells("9.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
-                                                            裝箱明細3_dgv.Rows(0).Cells("9.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
-                                                            If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else
-                                                                裝箱明細_dgv.Rows(0).Cells("9.5").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("9.5").Value = 0 : End If : End If
-                                                        If xlSheet.Cells(YY + I, XX2 + II + UU).value = 10 Then
-                                                            裝箱明細_dgv.Rows(0).Cells("10").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
-                                                            裝箱明細3_dgv.Rows(0).Cells("10").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
-                                                            If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else
-                                                                裝箱明細_dgv.Rows(0).Cells("10").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("10").Value = 0 : End If : End If
-                                                        If xlSheet.Cells(YY + I, XX2 + II + UU).value = 10.5 Then
-                                                            裝箱明細_dgv.Rows(0).Cells("10.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
-                                                            裝箱明細3_dgv.Rows(0).Cells("10.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
-                                                            If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else
-                                                                裝箱明細_dgv.Rows(0).Cells("10.5").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("10.5").Value = 0 : End If : End If
-                                                        If xlSheet.Cells(YY + I, XX2 + II + UU).value = 11 Then
-                                                            裝箱明細_dgv.Rows(0).Cells("11").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
-                                                            裝箱明細3_dgv.Rows(0).Cells("11").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
-                                                            If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else
-                                                                裝箱明細_dgv.Rows(0).Cells("11").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("11").Value = 0 : End If : End If
-                                                        If xlSheet.Cells(YY + I, XX2 + II + UU).value = 11.5 Then
-                                                            裝箱明細_dgv.Rows(0).Cells("11.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
-                                                            裝箱明細3_dgv.Rows(0).Cells("11.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
-                                                            If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else
-                                                                裝箱明細_dgv.Rows(0).Cells("11.5").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("11.5").Value = 0 : End If : End If
-                                                        If xlSheet.Cells(YY + I, XX2 + II + UU).value = 12 Then
-                                                            裝箱明細_dgv.Rows(0).Cells("12").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
-                                                            裝箱明細3_dgv.Rows(0).Cells("12").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
-                                                            If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else
-                                                                裝箱明細_dgv.Rows(0).Cells("12").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("12").Value = 0 : End If : End If
-                                                        If xlSheet.Cells(YY + I, XX2 + II + UU).value = 12.5 Then
-                                                            裝箱明細_dgv.Rows(0).Cells("12.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
-                                                            裝箱明細3_dgv.Rows(0).Cells("12.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
-                                                            If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else
-                                                                裝箱明細_dgv.Rows(0).Cells("12.5").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("12.5").Value = 0 : End If : End If
-                                                        If xlSheet.Cells(YY + I, XX2 + II + UU).value = 13 Then
-                                                            裝箱明細_dgv.Rows(0).Cells("13").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
-                                                            裝箱明細3_dgv.Rows(0).Cells("13").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
-                                                            If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else
-                                                                裝箱明細_dgv.Rows(0).Cells("13").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("13").Value = 0 : End If : End If
-                                                        If xlSheet.Cells(YY + I, XX2 + II + UU).value = 14 Then
-                                                            裝箱明細_dgv.Rows(0).Cells("14").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
-                                                            裝箱明細3_dgv.Rows(0).Cells("14").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
-                                                            If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else
-                                                                裝箱明細_dgv.Rows(0).Cells("14").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("14").Value = 0 : End If : End If
+                                                    裝箱明細_dgv.Rows(0).Cells("天盾流水號").Value = Number_tb.Text
+                                                    裝箱明細_dgv.Rows(0).Cells("客戶訂單號").Value = 客戶訂單號_tb.Text
+                                                    裝箱明細_dgv.Rows(0).Cells("力威訂單號").Value = 力威訂單號_tb.Text
+                                                    裝箱明細_dgv.Rows(0).Cells("Item").Value = 項目
+                                                    裝箱明細_dgv.Rows(0).Cells("Material").Value = 型體資料
+                                                    裝箱明細_dgv.Rows(0).Cells("CustAssign").Value = xlSheet.Cells(YY + I + TT, 1).value
+
+                                                    裝箱明細3_dgv.Rows(0).Cells("天盾流水號").Value = Number_tb.Text
+                                                    裝箱明細3_dgv.Rows(0).Cells("客戶訂單號").Value = 客戶訂單號_tb.Text
+                                                    裝箱明細3_dgv.Rows(0).Cells("力威訂單號").Value = 力威訂單號_tb.Text
+                                                    裝箱明細3_dgv.Rows(0).Cells("Item").Value = 項目
+                                                    裝箱明細3_dgv.Rows(0).Cells("Material").Value = 型體資料
+                                                    裝箱明細3_dgv.Rows(0).Cells("CustAssign").Value = xlSheet.Cells(YY + I + TT, 1).value
+
+                                                    If Strings.Left(xlSheet.Cells(YY + I + TT, XX2 + II).value, 1) = "M" Then
+                                                        裝箱明細_dgv.Rows(0).Cells("DM").Value = "MED" : 裝箱明細3_dgv.Rows(0).Cells("DM").Value = "MED"
+                                                    ElseIf Strings.Left(xlSheet.Cells(YY + I + TT, XX2 + II).value, 1) = "W" Then
+                                                        裝箱明細_dgv.Rows(0).Cells("DM").Value = "WIDE" : 裝箱明細3_dgv.Rows(0).Cells("DM").Value = "WIDE"
+                                                    ElseIf Strings.Left(xlSheet.Cells(YY + I + TT, XX2 + II).value, 1) = "N" Then
+                                                        裝箱明細_dgv.Rows(0).Cells("DM").Value = "NARRO" : 裝箱明細3_dgv.Rows(0).Cells("DM").Value = "NARRO"
                                                     End If
-                                                Next : ProgressBar4.Value = 0 : 最終數3 = 0
-                                                W2 += 1
+
+                                                    For UU As Integer = 1 To 70 : 資料數3 = 70 : 進度條3()
+                                                        If Not IsNumeric(xlSheet.Cells(YY + I, XX2 + II + UU).value) Then : Else
+                                                            If xlSheet.Cells(YY + I, XX2 + II + UU).value = 5 Then
+                                                                裝箱明細_dgv.Rows(0).Cells("5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
+                                                                裝箱明細3_dgv.Rows(0).Cells("5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
+                                                                If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else
+                                                                    裝箱明細_dgv.Rows(0).Cells("5").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("5").Value = 0 : End If : End If
+                                                            If xlSheet.Cells(YY + I, XX2 + II + UU).value = 5.5 Then
+                                                                裝箱明細_dgv.Rows(0).Cells("5.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
+                                                                裝箱明細3_dgv.Rows(0).Cells("5.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
+                                                                If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else
+                                                                    裝箱明細_dgv.Rows(0).Cells("5.5").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("5.5").Value = 0 : End If : End If
+                                                            If xlSheet.Cells(YY + I, XX2 + II + UU).value = 6 Then
+                                                                裝箱明細_dgv.Rows(0).Cells("6").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
+                                                                裝箱明細3_dgv.Rows(0).Cells("6").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
+                                                                If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else
+                                                                    裝箱明細_dgv.Rows(0).Cells("6").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("6").Value = 0 : End If : End If
+                                                            If xlSheet.Cells(YY + I, XX2 + II + UU).value = 6.5 Then
+                                                                裝箱明細_dgv.Rows(0).Cells("6.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
+                                                                裝箱明細3_dgv.Rows(0).Cells("6.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
+                                                                If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else
+                                                                    裝箱明細_dgv.Rows(0).Cells("6.5").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("6.5").Value = 0 : End If : End If
+                                                            If xlSheet.Cells(YY + I, XX2 + II + UU).value = 7 Then
+                                                                裝箱明細_dgv.Rows(0).Cells("7").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
+                                                                裝箱明細3_dgv.Rows(0).Cells("7").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
+                                                                If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else
+                                                                    裝箱明細_dgv.Rows(0).Cells("7").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("7").Value = 0 : End If : End If
+                                                            If xlSheet.Cells(YY + I, XX2 + II + UU).value = 7.5 Then
+                                                                裝箱明細_dgv.Rows(0).Cells("7.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
+                                                                裝箱明細3_dgv.Rows(0).Cells("7.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
+                                                                If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else
+                                                                    裝箱明細_dgv.Rows(0).Cells("7.5").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("7.5").Value = 0 : End If : End If
+                                                            If xlSheet.Cells(YY + I, XX2 + II + UU).value = 8 Then
+                                                                裝箱明細_dgv.Rows(0).Cells("8").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
+                                                                裝箱明細3_dgv.Rows(0).Cells("8").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
+                                                                If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else
+                                                                    裝箱明細_dgv.Rows(0).Cells("8").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("8").Value = 0 : End If : End If
+                                                            If xlSheet.Cells(YY + I, XX2 + II + UU).value = 8.5 Then
+                                                                裝箱明細_dgv.Rows(0).Cells("8.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
+                                                                裝箱明細3_dgv.Rows(0).Cells("8.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
+                                                                If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else
+                                                                    裝箱明細_dgv.Rows(0).Cells("8.5").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("8.5").Value = 0 : End If : End If
+                                                            If xlSheet.Cells(YY + I, XX2 + II + UU).value = 9 Then
+                                                                裝箱明細_dgv.Rows(0).Cells("9").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
+                                                                裝箱明細3_dgv.Rows(0).Cells("9").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
+                                                                If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else
+                                                                    裝箱明細_dgv.Rows(0).Cells("9").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("9").Value = 0 : End If : End If
+                                                            If xlSheet.Cells(YY + I, XX2 + II + UU).value = 9.5 Then
+                                                                裝箱明細_dgv.Rows(0).Cells("9.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
+                                                                裝箱明細3_dgv.Rows(0).Cells("9.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
+                                                                If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else
+                                                                    裝箱明細_dgv.Rows(0).Cells("9.5").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("9.5").Value = 0 : End If : End If
+                                                            If xlSheet.Cells(YY + I, XX2 + II + UU).value = 10 Then
+                                                                裝箱明細_dgv.Rows(0).Cells("10").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
+                                                                裝箱明細3_dgv.Rows(0).Cells("10").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
+                                                                If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else
+                                                                    裝箱明細_dgv.Rows(0).Cells("10").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("10").Value = 0 : End If : End If
+                                                            If xlSheet.Cells(YY + I, XX2 + II + UU).value = 10.5 Then
+                                                                裝箱明細_dgv.Rows(0).Cells("10.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
+                                                                裝箱明細3_dgv.Rows(0).Cells("10.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
+                                                                If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else
+                                                                    裝箱明細_dgv.Rows(0).Cells("10.5").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("10.5").Value = 0 : End If : End If
+                                                            If xlSheet.Cells(YY + I, XX2 + II + UU).value = 11 Then
+                                                                裝箱明細_dgv.Rows(0).Cells("11").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
+                                                                裝箱明細3_dgv.Rows(0).Cells("11").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
+                                                                If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else
+                                                                    裝箱明細_dgv.Rows(0).Cells("11").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("11").Value = 0 : End If : End If
+                                                            If xlSheet.Cells(YY + I, XX2 + II + UU).value = 11.5 Then
+                                                                裝箱明細_dgv.Rows(0).Cells("11.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
+                                                                裝箱明細3_dgv.Rows(0).Cells("11.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
+                                                                If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else
+                                                                    裝箱明細_dgv.Rows(0).Cells("11.5").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("11.5").Value = 0 : End If : End If
+                                                            If xlSheet.Cells(YY + I, XX2 + II + UU).value = 12 Then
+                                                                裝箱明細_dgv.Rows(0).Cells("12").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
+                                                                裝箱明細3_dgv.Rows(0).Cells("12").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
+                                                                If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else
+                                                                    裝箱明細_dgv.Rows(0).Cells("12").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("12").Value = 0 : End If : End If
+                                                            If xlSheet.Cells(YY + I, XX2 + II + UU).value = 12.5 Then
+                                                                裝箱明細_dgv.Rows(0).Cells("12.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
+                                                                裝箱明細3_dgv.Rows(0).Cells("12.5").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
+                                                                If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else
+                                                                    裝箱明細_dgv.Rows(0).Cells("12.5").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("12.5").Value = 0 : End If : End If
+                                                            If xlSheet.Cells(YY + I, XX2 + II + UU).value = 13 Then
+                                                                裝箱明細_dgv.Rows(0).Cells("13").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
+                                                                裝箱明細3_dgv.Rows(0).Cells("13").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
+                                                                If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else
+                                                                    裝箱明細_dgv.Rows(0).Cells("13").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("13").Value = 0 : End If : End If
+                                                            If xlSheet.Cells(YY + I, XX2 + II + UU).value = 14 Then
+                                                                裝箱明細_dgv.Rows(0).Cells("14").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
+                                                                裝箱明細3_dgv.Rows(0).Cells("14").Value = xlSheet.Cells(YY + I + TT, XX2 + II + UU).value
+                                                                If IsNumeric(xlSheet.Cells(YY + I + TT, XX2 + II + UU).value) Then : Else
+                                                                    裝箱明細_dgv.Rows(0).Cells("14").Value = 0 : 裝箱明細3_dgv.Rows(0).Cells("14").Value = 0 : End If : End If
+                                                        End If
+                                                    Next : ProgressBar4.Value = 0 : 最終數3 = 0
+                                                    W2 += 1
+                                                End If
                                             End If
                                         Next
                                     End If
@@ -1790,6 +1801,10 @@ Public Class 訂單資料比對與修改_力威
                         If 裝箱明細2_dgv.Rows(I).Cells("14").Value <> 裝箱明細3_dgv.Rows(II).Cells("14").Value Then
                             裝箱明細3_dgv.Rows(II).Cells("14").Style.ForeColor = Color.Red : 裝箱明細2_dgv.Rows(I).Cells("14").Style.ForeColor = Color.Red : Else
                             裝箱明細3_dgv.Rows(II).Cells("14").Style.ForeColor = Color.Black : 裝箱明細2_dgv.Rows(I).Cells("14").Style.ForeColor = Color.Black : End If
+
+                        If 裝箱明細2_dgv.Rows(I).Cells("CustAssign").Value <> 裝箱明細3_dgv.Rows(II).Cells("CustAssign").Value Then
+                            裝箱明細3_dgv.Rows(II).Cells("CustAssign").Style.ForeColor = Color.Red : 裝箱明細2_dgv.Rows(I).Cells("CustAssign").Style.ForeColor = Color.Red : Else
+                            裝箱明細3_dgv.Rows(II).Cells("CustAssign").Style.ForeColor = Color.Black : 裝箱明細2_dgv.Rows(I).Cells("CustAssign").Style.ForeColor = Color.Black : End If
                     End If
                 Next
             Next
@@ -1885,7 +1900,8 @@ Public Class 訂單資料比對與修改_力威
                                                      [10] = '" & 裝箱明細3_dgv.Rows(i).Cells("10").Value & "', [10.5] = '" & 裝箱明細3_dgv.Rows(i).Cells("10.5").Value & "', 
                                                      [11] = '" & 裝箱明細3_dgv.Rows(i).Cells("11").Value & "', [11.5] = '" & 裝箱明細3_dgv.Rows(i).Cells("11.5").Value & "', 
                                                      [12] = '" & 裝箱明細3_dgv.Rows(i).Cells("12").Value & "', [12.5] = '" & 裝箱明細3_dgv.Rows(i).Cells("12.5").Value & "', 
-                                                     [13] = '" & 裝箱明細3_dgv.Rows(i).Cells("13").Value & "', [14] = '" & 裝箱明細3_dgv.Rows(i).Cells("14").Value & "' 
+                                                     [13] = '" & 裝箱明細3_dgv.Rows(i).Cells("13").Value & "', [14] = '" & 裝箱明細3_dgv.Rows(i).Cells("14").Value & "', 
+                                                     CustAssign = '" & 裝箱明細3_dgv.Rows(i).Cells("CustAssign").Value & "' 
                     WHERE 天盾流水號 LIKE '" & Number2_tb.Text & "' AND Item LIKE '" & 裝箱明細3_dgv.Rows(i).Cells("Item").Value & "' AND 
                           Material LIKE '" & 裝箱明細3_dgv.Rows(i).Cells("Material").Value & "'AND DM LIKE '" & 裝箱明細3_dgv.Rows(i).Cells("DM").Value & "'"
             CmdSet_For_dr() : conn.Close()
@@ -2027,7 +2043,7 @@ Public Class 訂單資料比對與修改_力威
         For i As Integer = 0 To 裝箱明細3_dgv.Rows.Count - 1 : 資料數3 = 裝箱明細3_dgv.Rows.Count : 進度條3()
             ConnOpen()
             SQL1 = "INSERT INTO " & 訂單資料表(3) & " (天盾流水號, 客戶訂單號, 力威訂單號, Item, Material, DM, [5], [5.5], [6], [6.5], [7], [7.5], [8], [8.5], [9], [9.5], 
-                                                       [10], [10.5], [11], [11.5], [12], [12.5], [13], [14]) 
+                                                       [10], [10.5], [11], [11.5], [12], [12.5], [13], [14], CustAssign) 
                     VALUES ('" & 裝箱明細3_dgv.Rows(i).Cells("天盾流水號").Value & "','" & 裝箱明細3_dgv.Rows(i).Cells("客戶訂單號").Value & "','" & 裝箱明細3_dgv.Rows(i).Cells("力威訂單號").Value & "',
                             '" & 裝箱明細3_dgv.Rows(i).Cells("Item").Value & "','" & 裝箱明細3_dgv.Rows(i).Cells("Material").Value & "','" & 裝箱明細3_dgv.Rows(i).Cells("DM").Value & "',
                             '" & 裝箱明細3_dgv.Rows(i).Cells("5").Value & "','" & 裝箱明細3_dgv.Rows(i).Cells("5.5").Value & "', '" & 裝箱明細3_dgv.Rows(i).Cells("6").Value & "', 
@@ -2035,7 +2051,8 @@ Public Class 訂單資料比對與修改_力威
                             '" & 裝箱明細3_dgv.Rows(i).Cells("8").Value & "','" & 裝箱明細3_dgv.Rows(i).Cells("8.5").Value & "', '" & 裝箱明細3_dgv.Rows(i).Cells("9").Value & "',
                             '" & 裝箱明細3_dgv.Rows(i).Cells("9.5").Value & "','" & 裝箱明細3_dgv.Rows(i).Cells("10").Value & "', '" & 裝箱明細3_dgv.Rows(i).Cells("10.5").Value & "',
                             '" & 裝箱明細3_dgv.Rows(i).Cells("11").Value & "','" & 裝箱明細3_dgv.Rows(i).Cells("11.5").Value & "', '" & 裝箱明細3_dgv.Rows(i).Cells("12").Value & "',
-                            '" & 裝箱明細3_dgv.Rows(i).Cells("12.5").Value & "','" & 裝箱明細3_dgv.Rows(i).Cells("13").Value & "', '" & 裝箱明細3_dgv.Rows(i).Cells("14").Value & "')"
+                            '" & 裝箱明細3_dgv.Rows(i).Cells("12.5").Value & "','" & 裝箱明細3_dgv.Rows(i).Cells("13").Value & "', '" & 裝箱明細3_dgv.Rows(i).Cells("14").Value & "', 
+                            '" & 裝箱明細3_dgv.Rows(i).Cells("CustAssign").Value & "')"
             CmdSet_For_dr() : conn.Close()
         Next : ProgressBar4.Value = 0 : 最終數3 = 0
         '-------清空------------------------------------------------------------------------------------------------------------------------------------------------------------------