20211101備份

TENDEN-MES-SYS/LoginForm1vb.Designer.vb

@@ -30,6 +30,7 @@ Partial Class LoginForm1vb
     '請勿使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
         Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(LoginForm1vb))
         Me.LogoPictureBox = New System.Windows.Forms.PictureBox()
@@ -53,6 +54,7 @@ Partial Class LoginForm1vb
         Me.DataGridView1 = New System.Windows.Forms.DataGridView()
         Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
         Me.UPDATE_bt = New System.Windows.Forms.Button()
+        Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
         CType(Me.LogoPictureBox, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
@@ -265,6 +267,10 @@ Partial Class LoginForm1vb
         Me.UPDATE_bt.TabIndex = 637
         Me.UPDATE_bt.Text = "UPDATE"
         '
+        'Timer1
+        '
+        Me.Timer1.Interval = 3000
+        '
         'LoginForm1vb
         '
         Me.AcceptButton = Me.OK
@@ -320,4 +326,5 @@ Partial Class LoginForm1vb
     Friend WithEvents DataGridView1 As DataGridView
     Friend WithEvents SaveFileDialog1 As SaveFileDialog
     Friend WithEvents UPDATE_bt As Button
+    Friend WithEvents Timer1 As Timer
 End Class

TENDEN-MES-SYS/LoginForm1vb.resx

@@ -120,6 +120,9 @@
   <metadata name="SaveFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 17</value>
   </metadata>
+  <metadata name="Timer1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>161, 17</value>
+  </metadata>
   <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
   <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>

TENDEN-MES-SYS/LoginForm1vb.vb

@@ -23,11 +23,14 @@ Public Class LoginForm1vb
 
         da.Fill(ds2) : DataGridView1.DataSource = ds2.Tables(0) : conn.Close()
     End Sub
-    Private Sub LoginForm1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
         '-----------------------刪除自動更新項目-----------------------------------------------------------------------------------------------------------------------------------------------
         Dim Str As String = Application.StartupPath
         If File.Exists(Str + "\SYS-UPDATE.exe") Then : File.Delete(Str + "\SYS-UPDATE.exe") : End If
         If File.Exists(Str + "\LIVE.txt") Then : File.Delete(Str + "\LIVE.txt") : End If
+        Timer1.Enabled = False
+    End Sub
+    Private Sub LoginForm1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         '-----------------------控件基本設定-----------------------------------------------------------------------------------------------------------------------------------------------
         CheckBox1.Enabled = False : CheckBox1.Enabled = False : TextBox4.Text = "1" : Label1.Text = "執行檔版本號 : " & 版本 : UsernameTextBox.ImeMode = 3
         網段.ShowDialog()
@@ -46,6 +49,7 @@ Public Class LoginForm1vb
         ElseIf screenWidth = 1280 And screenHeight = 1024 Then : Me.Location = New Point(405, 368)
         ElseIf screenWidth = 1600 And screenHeight = 900 Then : Me.Location = New Point(565, 306)
         End If
+        Timer1.Enabled = True
     End Sub
     Private Sub 登入()
         '-----------------------寫入連線字串-----------------------------------------------------------------------------------------------------------------------------------------------
@@ -97,7 +101,7 @@ Public Class LoginForm1vb
             登入()
             OK.Enabled = True : Cancel.Enabled = True : CheckBox1.Checked = True
         ElseIf ComboBox1.Text = "雲端伺服器" Then
-            登入人IP = "106.1.50.79"
+            登入人IP = "106.1.48.106,4567"
             登入()
             OK.Enabled = True : Cancel.Enabled = True : CheckBox1.Checked = True
         End If

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 = "2021092901"
+    Public 版本 As String = "2021110101"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 匯率 As Double
 
@@ -12,10 +12,10 @@
     Public 財務列印(3) As Boolean : Public 修改清單(16) As Boolean : Public 中文樣品單開啟修改 As Boolean : Public 量產樣品匯入列表開啟 As Boolean
 
     Public PA As String = "" : Public PA1 As String = "" : Public PA2 As String = "" : Public PA3 As String = "" : Public PA4 As String = "" : Public PA5 As String = ""
-    Public PA6 As String = "" : Public PA7 As String = ""
+    Public PA6 As String = "" : Public PA7 As String = "" : Public PA8 As String = "" : Public PA9 As String = ""
     Public QA As String = "" : Public PP1 As String = "" : Public PP2 As String = "" : Public PP3 As String = ""
     Public 訂單資料表(10) As String : Public OD(42) As String : Public 列印用SQL As String = "" : Public 驗貨報告 As String = "" : Public 訂單紀錄流水號 As String
-
+    Public PB(60) As String : Public BL(1) As Boolean : Public DN(3) As Double
     Public 平均數 As Integer : Public 最終數 As Integer = 0 : Public 資料數 As Integer = 0
     Public Class MyModule1
         Friend Shared Sub 進度條()

TENDEN-MES-SYS/彙總報表管理/特殊工具/力威發票明細轉換工具.vb

@@ -108,11 +108,13 @@ Public Class 力威發票明細轉換工具
         ConnOpen() : SQL1 = "SELECT 編號 FROM 文件轉換用1 WHERE 編號 LIKE N'B%' ORDER BY 編號 DESC" : CmdSet_For_dr()
         If dr.Read() Then : GP = Double.Parse(dr("編號").ToString) : Else : GP = 0 : End If : conn.Close() : GP += 1 : 資料數 = 轉換前_dgv.Rows.Count * 5
         For I As Integer = 0 To 轉換前_dgv.Rows.Count - 1
-            進度條()
+            '進度條()
             For II As Integer = 0 To 100
-                進度條()
+                '進度條()
                 If 轉換前_dgv.Rows(I).Cells("文字2").Value <> "" Then
-                    If Strings.Left(轉換前_dgv.Rows(I).Cells("文字2").Value, 1) = "," Then
+                    If Strings.Left(轉換前_dgv.Rows(I).Cells("文字2").Value, 1) = "," Or
+                        Strings.Left(轉換前_dgv.Rows(I).Cells("文字2").Value, 1) = "." Or
+                        Strings.Left(轉換前_dgv.Rows(I).Cells("文字2").Value, 1) = " " Then
                         轉換前_dgv.Rows(I).Cells("文字2").Value = Strings.Mid(轉換前_dgv.Rows(I).Cells("文字2").Value, 2, 500)
                     Else
                         If GP < 10 Then : GPP = "B" & "00000" & GP
@@ -121,12 +123,21 @@ Public Class 力威發票明細轉換工具
                         ElseIf GP > 999 And GP < 10000 Then : GPP = "B" & "00" & GP
                         ElseIf GP > 9999 And GP < 100000 Then : GPP = "B" & "0" & GP
                         ElseIf GP > 999999 Then : GPP = "B" & GP : End If : 流水帳_tb.Text = GPP
-                        PA = Strings.Left(轉換前_dgv.Rows(I).Cells("文字2").Value.ToString, NUD1.Value)
+                        PA = ""
+                        For III As Integer = 0 To 20
+                            If Strings.Left(轉換前_dgv.Rows(I).Cells("文字2").Value, 1) = "," Or
+                            Strings.Left(轉換前_dgv.Rows(I).Cells("文字2").Value, 1) = "." Or
+                            Strings.Left(轉換前_dgv.Rows(I).Cells("文字2").Value, 1) = " " Then
+                                Exit For
+                            Else
+                                PA = PA + Strings.Left(轉換前_dgv.Rows(I).Cells("文字2").Value.ToString, 1)
+                                轉換前_dgv.Rows(I).Cells("文字2").Value = Strings.Mid(轉換前_dgv.Rows(I).Cells("文字2").Value, 2, 500)
+                            End If
+                        Next
                         ConnOpen()
                         SQL1 = "INSERT INTO 文件轉換用1 (編號, 文字1, 文字2) 
                                 VALUES (N'" & 流水帳_tb.Text & "', N'" & 轉換前_dgv.Rows(I).Cells("文字1").Value.ToString & "', N'" & PA & "')"
                         CmdSet_For_dr() : conn.Close() : GP += 1
-                        轉換前_dgv.Rows(I).Cells("文字2").Value = Strings.Mid(轉換前_dgv.Rows(I).Cells("文字2").Value, NUD1.Value.ToString + 2, 500)
                     End If
                 Else
                     Exit For

TENDEN-MES-SYS/彙總報表管理/特殊工具/訂單交期批量修改工具.vb

@@ -18,7 +18,7 @@
         For i As Integer = 1 To N3
             進度條()
             PA = xlSheet.Cells(i, 1).value : PA1 = Strings.Format(xlSheet.Cells(i, 2).value, "yyyy/MM/dd")
-            If PA <> "" Then
+            If PA <> "" And PA1 <> "yyyy/MM/dd" Then
                 ConnOpen() : SQL1 = "SELECT 力威訂單號 FROM 訂單控制表 WHERE (力威訂單號 LIKE N'" & PA & "')" : CmdSet_For_dr()
                 If dr.Read() Then
                     ConnOpen()
@@ -55,7 +55,7 @@
                     End If
                 End If
             Else
-                Exit For
+                MsgBox("你的導入資料有誤，會導致資料庫資料損毀，請不要亂搞......!!!") : Exit For
             End If
         Next : ProgressBar1.Value = 0 : 最終數 = 0
     End Sub

TENDEN-MES-SYS/量產訂單管理/量產管理報表/周進度表.Designer.vb

@@ -29,7 +29,7 @@ Partial Class 周進度表
         Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
         Me.生產工廠_tb = New System.Windows.Forms.TextBox()
         Me.接單日期_tb = New System.Windows.Forms.TextBox()
-        Me.形體號_tb = New System.Windows.Forms.TextBox()
+        Me.Requested_XF_tb = New System.Windows.Forms.TextBox()
         Me.顏色_tb = New System.Windows.Forms.TextBox()
         Me.Revised_XF_tb = New System.Windows.Forms.TextBox()
         Me.楦型_tb = New System.Windows.Forms.TextBox()
@@ -117,12 +117,12 @@ Partial Class 周進度表
         Me.接單日期_tb.Size = New System.Drawing.Size(84, 23)
         Me.接單日期_tb.TabIndex = 328
         '
-        '形體號_tb
+        'Requested_XF_tb
         '
-        Me.形體號_tb.Location = New System.Drawing.Point(442, 27)
-        Me.形體號_tb.Name = "形體號_tb"
-        Me.形體號_tb.Size = New System.Drawing.Size(84, 23)
-        Me.形體號_tb.TabIndex = 329
+        Me.Requested_XF_tb.Location = New System.Drawing.Point(442, 27)
+        Me.Requested_XF_tb.Name = "Requested_XF_tb"
+        Me.Requested_XF_tb.Size = New System.Drawing.Size(84, 23)
+        Me.Requested_XF_tb.TabIndex = 329
         '
         '顏色_tb
         '
@@ -425,7 +425,7 @@ Partial Class 周進度表
         Me.Controls.Add(Me.楦型_tb)
         Me.Controls.Add(Me.Revised_XF_tb)
         Me.Controls.Add(Me.顏色_tb)
-        Me.Controls.Add(Me.形體號_tb)
+        Me.Controls.Add(Me.Requested_XF_tb)
         Me.Controls.Add(Me.接單日期_tb)
         Me.Controls.Add(Me.生產工廠_tb)
         Me.Controls.Add(Me.導入Excel_bt)
@@ -450,7 +450,7 @@ Partial Class 周進度表
     Friend WithEvents OpenFileDialog1 As OpenFileDialog
     Friend WithEvents 生產工廠_tb As TextBox
     Friend WithEvents 接單日期_tb As TextBox
-    Friend WithEvents 形體號_tb As TextBox
+    Friend WithEvents Requested_XF_tb As TextBox
     Friend WithEvents 顏色_tb As TextBox
     Friend WithEvents Revised_XF_tb As TextBox
     Friend WithEvents 楦型_tb As TextBox

TENDEN-MES-SYS/量產訂單管理/量產管理報表/周進度表.vb

@@ -61,13 +61,13 @@ Public Class 周進度表
         For i As Integer = 4 To 99999
             生產工廠_tb.Text = xlSheet.Cells(i, 4).value
             接單日期_tb.Text = xlSheet.Cells(i, 2).value : If 接單日期_tb.Text = "" Then : Else : 接單日期_tb.Text = Format(xlSheet.Cells(i, 2).value, "yyyy/MM/dd") : End If
-            形體號_tb.Text = xlSheet.Cells(i, 9).value : If 形體號_tb.Text = "" Then : Else : 形體號_tb.Text = Format(xlSheet.Cells(i, 9).value, "yyyy/MM/dd") : End If
+            Requested_XF_tb.Text = xlSheet.Cells(i, 9).value : If Requested_XF_tb.Text = "" Then : Else : Requested_XF_tb.Text = Format(xlSheet.Cells(i, 9).value, "yyyy/MM/dd") : End If
             顏色_tb.Text = xlSheet.Cells(i, 10).value : If 顏色_tb.Text = "" Then : Else : 顏色_tb.Text = Format(xlSheet.Cells(i, 10).value, "yyyy/MM/dd") : End If
             Revised_XF_tb.Text = xlSheet.Cells(i, 11).value : If Revised_XF_tb.Text = "" Then : Else : Revised_XF_tb.Text = Format(xlSheet.Cells(i, 11).value, "yyyy/MM/dd") : End If
             If 生產工廠_tb.Text <> "" Then
                 If gUserName = "李協叡" Then
                     ConnOpen()
-                    SQL1 = "UPDATE " & 訂單資料表(1) & " SET PO_S_Date = '" & 接單日期_tb.Text & "', Requested_XF = '" & 形體號_tb.Text & "', Confirm_XF = '" & 顏色_tb.Text & "', 
+                    SQL1 = "UPDATE " & 訂單資料表(1) & " SET PO_S_Date = '" & 接單日期_tb.Text & "', Requested_XF = '" & Requested_XF_tb.Text & "', Confirm_XF = '" & 顏色_tb.Text & "', 
                                                              Revised_XF = '" & Revised_XF_tb.Text & "', 裁斷時間 = '" & xlSheet.Cells(i, 12).value & "', 
                                                              針車時間 = '" & xlSheet.Cells(i, 13).value & "', 成型時間 = '" & xlSheet.Cells(i, 14).value & "', 
                                                              Special_Packaging = '" & xlSheet.Cells(i, 15).value & "', Remarks = '" & xlSheet.Cells(i, 16).value & "' 
@@ -93,7 +93,7 @@ Public Class 周進度表
         Me.MdiParent = TENDEN_MES_SYS : Me.WindowState = 2 : Me.AutoScroll = True
         訂單資料庫選擇.ShowDialog()
 
-        生產工廠_tb.Enabled = False : 接單日期_tb.Enabled = False : 形體號_tb.Enabled = False : 顏色_tb.Enabled = False : Revised_XF_tb.Enabled = False : 楦型_tb.Enabled = False
+        生產工廠_tb.Enabled = False : 接單日期_tb.Enabled = False : Requested_XF_tb.Enabled = False : 顏色_tb.Enabled = False : Revised_XF_tb.Enabled = False : 楦型_tb.Enabled = False
         日期1_dtp.Visible = False : 日期2_dtp.Visible = False : 日期3_dtp.Visible = False : 日期4_dtp.Visible = False
         日期存檔_bt.Enabled = False : 存檔_bt.Enabled = False
         If CC(36) = True Then : 導入Excel_bt.Enabled = True : Else : 導入Excel_bt.Enabled = False : End If

TENDEN-MES-SYS/量產訂單管理/量產訂單系統/訂單控制表.Designer.vb

@@ -22,13 +22,13 @@ Partial Class 訂單控制表
     '請勿使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()>
     Private  Sub InitializeComponent()
-        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(訂單控制表))
-        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.控制表_dgv = New System.Windows.Forms.DataGridView()
         Me.Label5 = New System.Windows.Forms.Label()
         Me.客戶訂單號_tb = New System.Windows.Forms.TextBox()
@@ -188,6 +188,7 @@ Partial Class 訂單控制表
         Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
         Me.除錯_dgv = New System.Windows.Forms.DataGridView()
         Me.裝箱控制表_dgv = New System.Windows.Forms.DataGridView()
+        Me.裝箱明細_dgv = New System.Windows.Forms.DataGridView()
         Me.資訊_gb = New System.Windows.Forms.GroupBox()
         Me.TT23_lb = New System.Windows.Forms.TextBox()
         Me.Label49 = New System.Windows.Forms.Label()
@@ -242,12 +243,12 @@ Partial Class 訂單控制表
         Me.BB05_lb = New System.Windows.Forms.Label()
         Me.BB04_lb = New System.Windows.Forms.Label()
         Me.明細表_dgv = New System.Windows.Forms.DataGridView()
-        Me.裝箱明細_dgv = New System.Windows.Forms.DataGridView()
         Me.訂單明細_bt = New System.Windows.Forms.Button()
         Me.裝箱明細_bt = New System.Windows.Forms.Button()
         Me.裝箱資訊_bt = New System.Windows.Forms.Button()
         Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
         Me.清單全選_bt = New System.Windows.Forms.Button()
+        Me.指定拆單_bt = New System.Windows.Forms.Button()
         CType(Me.控制表_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.GroupBox1.SuspendLayout()
         Me.GroupBox2.SuspendLayout()
@@ -260,15 +261,15 @@ Partial Class 訂單控制表
         Me.SplitContainer1.SuspendLayout()
         CType(Me.除錯_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.裝箱控制表_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.裝箱明細_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.資訊_gb.SuspendLayout()
         CType(Me.明細表_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
-        CType(Me.裝箱明細_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         '控制表_dgv
         '
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.控制表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.控制表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
         Me.控制表_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -1283,8 +1284,8 @@ Partial Class 訂單控制表
         '
         'DataGridView2
         '
-        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.DataGridView2.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
+        DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.DataGridView2.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8
         Me.DataGridView2.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.DataGridView2.Location = New System.Drawing.Point(91, 146)
         Me.DataGridView2.Name = "DataGridView2"
@@ -1741,8 +1742,8 @@ Partial Class 訂單控制表
         '
         '除錯_dgv
         '
-        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.除錯_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
+        DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.除錯_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9
         Me.除錯_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.除錯_dgv.Location = New System.Drawing.Point(48, 36)
         Me.除錯_dgv.Name = "除錯_dgv"
@@ -1754,8 +1755,8 @@ Partial Class 訂單控制表
         '
         '裝箱控制表_dgv
         '
-        DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.裝箱控制表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
+        DataGridViewCellStyle10.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.裝箱控制表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle10
         Me.裝箱控制表_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
         Me.裝箱控制表_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
@@ -1767,6 +1768,22 @@ Partial Class 訂單控制表
         Me.裝箱控制表_dgv.Size = New System.Drawing.Size(465, 214)
         Me.裝箱控制表_dgv.TabIndex = 3
         '
+        '裝箱明細_dgv
+        '
+        DataGridViewCellStyle11.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.裝箱明細_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle11
+        Me.裝箱明細_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.裝箱明細_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        Me.裝箱明細_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.裝箱明細_dgv.Location = New System.Drawing.Point(475, 2)
+        Me.裝箱明細_dgv.Name = "裝箱明細_dgv"
+        Me.裝箱明細_dgv.RowHeadersWidth = 5
+        Me.裝箱明細_dgv.RowTemplate.Height = 24
+        Me.裝箱明細_dgv.Size = New System.Drawing.Size(1418, 214)
+        Me.裝箱明細_dgv.TabIndex = 4
+        '
         '資訊_gb
         '
         Me.資訊_gb.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
@@ -2297,8 +2314,8 @@ Partial Class 訂單控制表
         '
         '明細表_dgv
         '
-        DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.明細表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
+        DataGridViewCellStyle12.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.明細表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle12
         Me.明細表_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -2311,29 +2328,13 @@ Partial Class 訂單控制表
         Me.明細表_dgv.Size = New System.Drawing.Size(1418, 214)
         Me.明細表_dgv.TabIndex = 2
         '
-        '裝箱明細_dgv
-        '
-        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.裝箱明細_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
-        Me.裝箱明細_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.裝箱明細_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
-        Me.裝箱明細_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.裝箱明細_dgv.Location = New System.Drawing.Point(475, 2)
-        Me.裝箱明細_dgv.Name = "裝箱明細_dgv"
-        Me.裝箱明細_dgv.RowHeadersWidth = 5
-        Me.裝箱明細_dgv.RowTemplate.Height = 24
-        Me.裝箱明細_dgv.Size = New System.Drawing.Size(1418, 214)
-        Me.裝箱明細_dgv.TabIndex = 4
-        '
         '訂單明細_bt
         '
         Me.訂單明細_bt.Enabled = False
         Me.訂單明細_bt.ForeColor = System.Drawing.Color.Red
-        Me.訂單明細_bt.Location = New System.Drawing.Point(1624, 174)
+        Me.訂單明細_bt.Location = New System.Drawing.Point(1624, 173)
         Me.訂單明細_bt.Name = "訂單明細_bt"
-        Me.訂單明細_bt.Size = New System.Drawing.Size(85, 45)
+        Me.訂單明細_bt.Size = New System.Drawing.Size(85, 35)
         Me.訂單明細_bt.TabIndex = 754
         Me.訂單明細_bt.Text = "訂單明細"
         Me.訂單明細_bt.UseVisualStyleBackColor = True
@@ -2341,9 +2342,9 @@ Partial Class 訂單控制表
         '裝箱明細_bt
         '
         Me.裝箱明細_bt.ForeColor = System.Drawing.Color.Red
-        Me.裝箱明細_bt.Location = New System.Drawing.Point(1624, 267)
+        Me.裝箱明細_bt.Location = New System.Drawing.Point(1624, 243)
         Me.裝箱明細_bt.Name = "裝箱明細_bt"
-        Me.裝箱明細_bt.Size = New System.Drawing.Size(85, 45)
+        Me.裝箱明細_bt.Size = New System.Drawing.Size(85, 35)
         Me.裝箱明細_bt.TabIndex = 755
         Me.裝箱明細_bt.Text = "裝箱明細"
         Me.裝箱明細_bt.UseVisualStyleBackColor = True
@@ -2351,9 +2352,9 @@ Partial Class 訂單控制表
         '裝箱資訊_bt
         '
         Me.裝箱資訊_bt.ForeColor = System.Drawing.Color.Red
-        Me.裝箱資訊_bt.Location = New System.Drawing.Point(1624, 220)
+        Me.裝箱資訊_bt.Location = New System.Drawing.Point(1624, 208)
         Me.裝箱資訊_bt.Name = "裝箱資訊_bt"
-        Me.裝箱資訊_bt.Size = New System.Drawing.Size(85, 45)
+        Me.裝箱資訊_bt.Size = New System.Drawing.Size(85, 35)
         Me.裝箱資訊_bt.TabIndex = 756
         Me.裝箱資訊_bt.Text = "裝箱資訊"
         Me.裝箱資訊_bt.UseVisualStyleBackColor = True
@@ -2376,12 +2377,23 @@ Partial Class 訂單控制表
         Me.清單全選_bt.Text = "清單全選"
         Me.清單全選_bt.UseVisualStyleBackColor = True
         '
+        '指定拆單_bt
+        '
+        Me.指定拆單_bt.ForeColor = System.Drawing.Color.Purple
+        Me.指定拆單_bt.Location = New System.Drawing.Point(1624, 279)
+        Me.指定拆單_bt.Name = "指定拆單_bt"
+        Me.指定拆單_bt.Size = New System.Drawing.Size(85, 33)
+        Me.指定拆單_bt.TabIndex = 759
+        Me.指定拆單_bt.Text = "指定拆單"
+        Me.指定拆單_bt.UseVisualStyleBackColor = True
+        '
         '訂單控制表
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 15.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.AutoScroll = True
         Me.ClientSize = New System.Drawing.Size(1914, 966)
+        Me.Controls.Add(Me.指定拆單_bt)
         Me.Controls.Add(Me.清單全選_bt)
         Me.Controls.Add(Me.ProgressBar1)
         Me.Controls.Add(Me.裝箱資訊_bt)
@@ -2545,10 +2557,10 @@ Partial Class 訂單控制表
         Me.SplitContainer1.ResumeLayout(False)
         CType(Me.除錯_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.裝箱控制表_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.裝箱明細_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.資訊_gb.ResumeLayout(False)
         Me.資訊_gb.PerformLayout()
         CType(Me.明細表_dgv, System.ComponentModel.ISupportInitialize).EndInit()
-        CType(Me.裝箱明細_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -2773,5 +2785,6 @@ Partial Class 訂單控制表
     Friend WithEvents Label50 As Label
     Friend WithEvents ProgressBar1 As ProgressBar
     Friend WithEvents 清單全選_bt As Button
+    Friend WithEvents 指定拆單_bt As Button
 End Class
 

TENDEN-MES-SYS/量產訂單管理/量產訂單系統/訂單控制表.vb

@@ -1155,6 +1155,73 @@ Public Class 訂單控制表
                 conn.Close() : PictureBox2.SizeMode = 4
 
                 驗貨報告 = 控制表_dgv("驗貨報告圖片", e.RowIndex).Value.ToString
+
+                PB(0) = 控制表_dgv("訂單流水號", e.RowIndex).Value.ToString
+                PB(1) = 控制表_dgv("年份季度", e.RowIndex).Value.ToString
+                PB(2) = 控制表_dgv("客戶訂單號", e.RowIndex).Value.ToString
+                PB(4) = 控制表_dgv("形體號", e.RowIndex).Value.ToString
+                PB(5) = 控制表_dgv("顏色", e.RowIndex).Value.ToString
+                PB(6) = 控制表_dgv("楦型", e.RowIndex).Value.ToString
+                DN(0) = 控制表_dgv("訂單數量", e.RowIndex).Value.ToString
+                PB(7) = 控制表_dgv("客戶交期", e.RowIndex).Value.ToString
+                DN(1) = 控制表_dgv("單價", e.RowIndex).Value.ToString
+                DN(2) = 控制表_dgv("總金額", e.RowIndex).Value.ToString
+                PB(8) = 控制表_dgv("備註", e.RowIndex).Value.ToString
+                PB(9) = 控制表_dgv("生產工廠", e.RowIndex).Value.ToString
+                PB(10) = 控制表_dgv("訂單種類", e.RowIndex).Value.ToString
+                PB(11) = 控制表_dgv("工廠回復交期", e.RowIndex).Value.ToString
+                PB(12) = 控制表_dgv("CFMSPEC", e.RowIndex).Value.ToString
+                PB(13) = 控制表_dgv("CFMSAMPLE", e.RowIndex).Value.ToString
+                PB(14) = 控制表_dgv("TRIAL1", e.RowIndex).Value.ToString
+                PB(15) = 控制表_dgv("TRIAL2", e.RowIndex).Value.ToString
+                PB(16) = 控制表_dgv("TRIAL3", e.RowIndex).Value.ToString
+                PB(17) = 控制表_dgv("TRIAL4", e.RowIndex).Value.ToString
+                PB(18) = 控制表_dgv("包裝確認時間", e.RowIndex).Value.ToString
+                PB(19) = 控制表_dgv("貼標時間", e.RowIndex).Value.ToString
+                PB(20) = 控制表_dgv("裁斷時間", e.RowIndex).Value.ToString
+                PB(21) = 控制表_dgv("針車時間", e.RowIndex).Value.ToString
+                PB(22) = 控制表_dgv("成型時間", e.RowIndex).Value.ToString
+                PB(23) = 控制表_dgv("驗貨時間", e.RowIndex).Value.ToString
+                PB(24) = 控制表_dgv("實際離廠日", e.RowIndex).Value.ToString
+                PB(25) = 控制表_dgv("資料流水號", e.RowIndex).Value.ToString
+                BL(0) = 控制表_dgv("明細建檔", e.RowIndex).Value
+                PB(26) = 控制表_dgv("GOODBOX", e.RowIndex).Value.ToString
+                PB(27) = 控制表_dgv("LEATHER", e.RowIndex).Value.ToString
+                PB(28) = 控制表_dgv("LEA_Note", e.RowIndex).Value.ToString
+                DN(3) = 控制表_dgv("出貨數量", e.RowIndex).Value.ToString
+                PB(29) = 控制表_dgv("接單日", e.RowIndex).Value.ToString
+                PB(30) = 控制表_dgv("需求日期", e.RowIndex).Value.ToString
+                PB(31) = 控制表_dgv("確認日期", e.RowIndex).Value.ToString
+                PB(32) = 控制表_dgv("修訂日期", e.RowIndex).Value.ToString
+                PB(33) = 控制表_dgv("Special_Packaging", e.RowIndex).Value.ToString
+                PB(34) = 控制表_dgv("Remarks", e.RowIndex).Value.ToString
+                PB(35) = 控制表_dgv("出貨地", e.RowIndex).Value.ToString
+                PB(36) = 控制表_dgv("TVW", e.RowIndex).Value.ToString
+                PB(37) = 控制表_dgv("楦頭號", e.RowIndex).Value.ToString
+                PB(38) = 控制表_dgv("材質", e.RowIndex).Value.ToString
+                PB(39) = 控制表_dgv("WEAR_TEST", e.RowIndex).Value.ToString
+                PB(40) = 控制表_dgv("面料", e.RowIndex).Value.ToString
+                PB(41) = 控制表_dgv("副料", e.RowIndex).Value.ToString
+                PB(42) = 控制表_dgv("中底", e.RowIndex).Value.ToString
+                PB(43) = 控制表_dgv("鞋墊", e.RowIndex).Value.ToString
+                PB(44) = 控制表_dgv("大底", e.RowIndex).Value.ToString
+                PB(45) = 控制表_dgv("跟", e.RowIndex).Value.ToString
+                PB(46) = 控制表_dgv("工廠進度表備註1", e.RowIndex).Value.ToString
+                PB(47) = 控制表_dgv("七號模具", e.RowIndex).Value.ToString
+                PB(48) = 控制表_dgv("工廠進度表備註2", e.RowIndex).Value.ToString
+                BL(1) = 0
+                PB(49) = 控制表_dgv("客戶包裝確認", e.RowIndex).Value.ToString
+                PB(50) = 控制表_dgv("東莞業務備註", e.RowIndex).Value.ToString
+                PB(51) = 控制表_dgv("驗貨報告圖片", e.RowIndex).Value.ToString
+                PB(52) = 控制表_dgv("工廠確認", e.RowIndex).Value.ToString
+                PB(53) = 控制表_dgv("利威確認", e.RowIndex).Value.ToString
+                PB(54) = 控制表_dgv("結關日", e.RowIndex).Value.ToString
+                PB(55) = 控制表_dgv("SMS簽回", e.RowIndex).Value.ToString
+                PB(56) = 控制表_dgv("FRS簽回", e.RowIndex).Value.ToString
+                PB(57) = 控制表_dgv("MASTER_SWATCH", e.RowIndex).Value.ToString
+                PB(58) = 控制表_dgv("力威訂單號", e.RowIndex).Value.ToString
+                PB(59) = 控制表_dgv("ProductID", e.RowIndex).Value.ToString
+                PB(60) = 控制表_dgv("UoM", e.RowIndex).Value.ToString
             End If
         End If
     End Sub
@@ -1843,4 +1910,69 @@ Public Class 訂單控制表
             控制表_dgv("選擇", I).Value = True
         Next
     End Sub
+
+    Private Sub 指定拆單_bt_Click(sender As Object, e As EventArgs) Handles 指定拆單_bt.Click
+        If PB(0) = "" Or PB(0) = Nothing Then
+            MsgBox("請先選擇要猜單的訂單資料!!")
+        Else
+            PA8 = InputBox("請輸入拆單數量!!")
+            If IsNumeric(PA8) = False Then
+                MsgBox("輸入的資料不是阿拉伯數字!!")
+            Else
+                If DN(0) <= Val(PA8) Then
+                    MsgBox("訂單拆單數量大於等於原始數量無法完成拆單!!")
+                Else
+                    PA9 = InputBox("請輸入交期!! - (注意格式範例如下 : 2021/01/01 ，一定要十碼長度!!)")
+                    If Len(PA9) <> 10 Then
+                        MsgBox("輸入的格式不正確!!")
+                    Else
+                        '----------修改訂單資料--------------------------------------------------------------------------------------
+                        DN(0) = DN(0) - Val(PA8) : DN(2) = DN(1) * DN(0)
+                        ConnOpen()
+                        SQL1 = "UPDATE " & 訂單資料表(1) & " SET  訂單數量 = '" & DN(0) & "', 總金額 = '" & DN(2) & "' WHERE (資料流水號 = '" & PB(25) & "')"
+                        CmdSet_For_dr() : conn.Close()
+                        '----------新增訂單資料--------------------------------------------------------------------------------------
+                        ConnOpen()
+                        SQL1 = "SELECT TOP (1) 資料流水號 FROM " & 訂單資料表(1) & " GROUP BY 資料流水號 ORDER BY 資料流水號 DESC"
+                        CmdSet_For_dr()
+                        If dr.Read() Then : PB(25) = dr("資料流水號").ToString : Else : PB(25) = "" : End If
+                        conn.Close()
+                        Dim NUM1 As Integer
+                        NUM1 = Double.Parse(Strings.Right(PB(25), 8)) + 1
+                        If NUM1 < 10 Then : PB(25) = "PO" & "0000000" & NUM1
+                        ElseIf NUM1 > 9 And NUM1 < 100 Then : PB(25) = "PO" & "000000" & NUM1
+                        ElseIf NUM1 > 99 And NUM1 < 1000 Then : PB(25) = "PO" & "00000" & NUM1
+                        ElseIf NUM1 > 999 And NUM1 < 10000 Then : PB(25) = "PO" & "0000" & NUM1
+                        ElseIf NUM1 > 9999 And NUM1 < 100000 Then : PB(25) = "PO" & "000" & NUM1
+                        ElseIf NUM1 > 99999 And NUM1 < 100000 Then : PB(25) = "PO" & "00" & NUM1
+                        ElseIf NUM1 > 999999 And NUM1 < 1000000 Then : PB(25) = "PO" & "0" & NUM1
+                        ElseIf NUM1 > 9999999 Then : PB(25) = "PO" & NUM1
+                        End If
+                        DN(0) = Val(PA8) : DN(2) = DN(1) * DN(0)
+                        PB(7) = PA9 : PB(11) = PA9 : PB(29) = PA9 : PB(30) = PA9 : PB(31) = PA9 : PB(32) = PA9
+                        ConnOpen()
+                        SQL1 = "INSERT INTO " & 訂單資料表(1) & " (訂單流水號, 年份季度, 客戶訂單號, 形體號, 顏色, 楦型, 訂單數量, 客戶交期, 單價, 總金額, 備註, 生產工廠, 訂單種類, 
+                                                                   工廠回復交期, CFMSPEC, CFMSAMPLE, TRIAL1, TRIAL2, TRIAL3, TRIAL4, 包裝確認時間, 貼標時間, 裁斷時間, 針車時間, 
+                                                                   成型時間, 驗貨時間, 實際離廠日, 資料流水號, 明細建檔, GOODBOX, LEATHER, LEA_Note, 出貨數量, PO_S_Date, Requested_XF,
+                                                                   Confirm_XF, Revised_XF, Special_Packaging, Remarks, 出貨地, TVW, 楦頭號, 材質, 長期試穿, 面料, 副料, 中底, 鞋墊, 大底,
+                                                                   跟, 工廠進度表備註1, 七號模具, 工廠進度表備註2, 國標測試, 客戶包裝確認, 東莞業務備註, 驗貨報告圖片, 工廠確認, 利威確認,
+                                                                   結關日, SMS簽回, FRS簽回, MASTER_SWATCH, 力威訂單號, ProductID, UoM)
+                                VALUES (N'" & PB(0) & "',N'" & PB(1) & "',N'" & PB(2) & "',N'" & PB(4) & "',N'" & PB(5) & "',N'" & PB(6) & "',N'" & DN(0) & "',N'" & PB(7) & "',
+                                        N'" & DN(1) & "',N'" & DN(2) & "',N'" & PB(8) & "',N'" & PB(9) & "',N'" & PB(10) & "',N'" & PB(11) & "',N'" & PB(12) & "',N'" & PB(13) & "',
+                                        N'" & PB(14) & "',N'" & PB(15) & "',N'" & PB(16) & "',N'" & PB(17) & "',N'" & PB(18) & "',N'" & PB(19) & "',N'" & PB(20) & "',N'" & PB(21) & "',
+                                        N'" & PB(22) & "',N'" & PB(23) & "',N'" & PB(24) & "',N'" & PB(25) & "',N'" & BL(0) & "',N'" & PB(26) & "',N'" & PB(27) & "',N'" & PB(28) & "',
+                                        N'" & DN(3) & "',N'" & PB(29) & "',N'" & PB(30) & "',N'" & PB(31) & "',N'" & PB(32) & "',N'" & PB(33) & "',N'" & PB(34) & "',N'" & PB(35) & "',
+                                        N'" & PB(36) & "',N'" & PB(37) & "',N'" & PB(38) & "',N'" & PB(39) & "',N'" & PB(40) & "',N'" & PB(41) & "',N'" & PB(42) & "',N'" & PB(43) & "',
+                                        N'" & PB(44) & "',N'" & PB(45) & "',N'" & PB(46) & "',N'" & PB(47) & "',N'" & PB(48) & "',N'" & BL(1) & "',N'" & PB(49) & "',N'" & PB(50) & "',
+                                        N'" & PB(51) & "',N'" & PB(52) & "',N'" & PB(53) & "',N'" & PB(54) & "',N'" & PB(55) & "',N'" & PB(56) & "',N'" & PB(57) & "',N'" & PB(58) & "',
+                                        N'" & PB(59) & "',N'" & PB(60) & "')"
+                        CmdSet_For_dr() : conn.Close()
+                        MsgBox("訂單拆單完成!!") : For i As Integer = 0 To 60 : PB(i) = "" : Next
+                        返回_bt.PerformClick()
+                    End If
+                End If
+            End If
+        End If
+
+    End Sub
 End Class

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

@@ -1436,12 +1436,12 @@ Public Class 訂單資料比對與修改_力威
         If BB01_lb.Text = "對等" Then
             For I As Integer = 0 To 控制表2_dgv.Rows.Count - 1
                 For II As Integer = 0 To 控制表3_dgv.Rows.Count - 1
-                    If 控制表2_dgv.Rows(I).Cells("形體號").Value = 控制表3_dgv.Rows(II).Cells("形體號").Value And
-                       控制表2_dgv.Rows(I).Cells("楦型").Value = 控制表3_dgv.Rows(II).Cells("楦型").Value And
-                       控制表2_dgv.Rows(I).Cells("ProductID").Value = 控制表3_dgv.Rows(II).Cells("ProductID").Value And
-                       控制表2_dgv.Rows(I).Cells("顏色").Value = 控制表3_dgv.Rows(II).Cells("顏色").Value Then
+                    If 控制表2_dgv.Rows(I).Cells("形體號").Value.ToString = 控制表3_dgv.Rows(II).Cells("形體號").Value.ToString And
+                       控制表2_dgv.Rows(I).Cells("楦型").Value.ToString = 控制表3_dgv.Rows(II).Cells("楦型").Value.ToString And
+                       控制表2_dgv.Rows(I).Cells("ProductID").Value.ToString = 控制表3_dgv.Rows(II).Cells("ProductID").Value.ToString And
+                       控制表2_dgv.Rows(I).Cells("顏色").Value.ToString = 控制表3_dgv.Rows(II).Cells("顏色").Value.ToString Then
                         索引 += 1
-                        控制表3_dgv.Rows(II).Cells("資料流水號").Value = 控制表2_dgv.Rows(II).Cells("資料流水號").Value
+                        控制表3_dgv.Rows(II).Cells("資料流水號").Value = 控制表2_dgv.Rows(II).Cells("資料流水號").Value.ToString
 
                         If 控制表2_dgv.Rows(I).Cells("訂單數量").Value <> 控制表3_dgv.Rows(II).Cells("訂單數量").Value Then
                             控制表3_dgv.Rows(II).Cells("訂單數量").Style.ForeColor = Color.Red : 控制表2_dgv.Rows(I).Cells("訂單數量").Style.ForeColor = Color.Red
@@ -1449,19 +1449,19 @@ Public Class 訂單資料比對與修改_力威
                             控制表3_dgv.Rows(II).Cells("訂單數量").Style.ForeColor = Color.Black : 控制表2_dgv.Rows(I).Cells("訂單數量").Style.ForeColor = Color.Black
                         End If
 
-                        If 控制表2_dgv.Rows(I).Cells("客戶交期").Value <> 控制表3_dgv.Rows(II).Cells("客戶交期").Value Then
+                        If 控制表2_dgv.Rows(I).Cells("客戶交期").Value.ToString <> 控制表3_dgv.Rows(II).Cells("客戶交期").Value.ToString Then
                             控制表3_dgv.Rows(II).Cells("客戶交期").Style.ForeColor = Color.Red : 控制表2_dgv.Rows(I).Cells("客戶交期").Style.ForeColor = Color.Red
                         Else
                             控制表3_dgv.Rows(II).Cells("客戶交期").Style.ForeColor = Color.Black : 控制表2_dgv.Rows(I).Cells("客戶交期").Style.ForeColor = Color.Black
                         End If
 
-                        If 控制表2_dgv.Rows(I).Cells("工廠回復交期").Value <> 控制表3_dgv.Rows(II).Cells("工廠回復交期").Value Then
+                        If 控制表2_dgv.Rows(I).Cells("工廠回復交期").Value.ToString <> 控制表3_dgv.Rows(II).Cells("工廠回復交期").Value.ToString Then
                             控制表3_dgv.Rows(II).Cells("工廠回復交期").Style.ForeColor = Color.Red : 控制表2_dgv.Rows(I).Cells("工廠回復交期").Style.ForeColor = Color.Red
                         Else
                             控制表3_dgv.Rows(II).Cells("工廠回復交期").Style.ForeColor = Color.Black : 控制表2_dgv.Rows(I).Cells("工廠回復交期").Style.ForeColor = Color.Black
                         End If
 
-                        If 控制表2_dgv.Rows(I).Cells("UoM").Value <> 控制表3_dgv.Rows(II).Cells("UoM").Value Then
+                        If 控制表2_dgv.Rows(I).Cells("UoM").Value.ToString <> 控制表3_dgv.Rows(II).Cells("UoM").Value.ToString Then
                             控制表3_dgv.Rows(II).Cells("UoM").Style.ForeColor = Color.Red : 控制表2_dgv.Rows(I).Cells("UoM").Style.ForeColor = Color.Red
                         Else
                             控制表3_dgv.Rows(II).Cells("UoM").Style.ForeColor = Color.Black : 控制表2_dgv.Rows(I).Cells("UoM").Style.ForeColor = Color.Black
@@ -1476,10 +1476,10 @@ Public Class 訂單資料比對與修改_力威
         If BB02_lb.Text = "對等" Then
             For I As Integer = 0 To 明細表2_dgv.Rows.Count - 1
                 For II As Integer = 0 To 明細表3_dgv.Rows.Count - 1
-                    If 明細表2_dgv.Rows(I).Cells("ItemNumber").Value = 明細表3_dgv.Rows(II).Cells("ItemNumber").Value And
-                       明細表2_dgv.Rows(I).Cells("ProductName").Value = 明細表3_dgv.Rows(II).Cells("ProductName").Value And
-                       明細表2_dgv.Rows(I).Cells("Color").Value = 明細表3_dgv.Rows(II).Cells("Color").Value And
-                       明細表2_dgv.Rows(I).Cells("DM").Value = 明細表3_dgv.Rows(II).Cells("DM").Value Then
+                    If 明細表2_dgv.Rows(I).Cells("ItemNumber").Value.ToString = 明細表3_dgv.Rows(II).Cells("ItemNumber").Value.ToString And
+                       明細表2_dgv.Rows(I).Cells("ProductName").Value.ToString = 明細表3_dgv.Rows(II).Cells("ProductName").Value.ToString And
+                       明細表2_dgv.Rows(I).Cells("Color").Value.ToString = 明細表3_dgv.Rows(II).Cells("Color").Value.ToString And
+                       明細表2_dgv.Rows(I).Cells("DM").Value.ToString = 明細表3_dgv.Rows(II).Cells("DM").Value.ToString Then
                         索引 += 1
                         If 明細表2_dgv.Rows(I).Cells("5").Value <> 明細表3_dgv.Rows(II).Cells("5").Value Then
                             明細表3_dgv.Rows(II).Cells("5").Style.ForeColor = Color.Red : 明細表2_dgv.Rows(I).Cells("5").Style.ForeColor = Color.Red : Else
@@ -1562,162 +1562,188 @@ Public Class 訂單資料比對與修改_力威
         If BB03_lb.Text = "對等" Then
             For I As Integer = 0 To 裝箱控制2_dgv.Rows.Count - 1
                 For II As Integer = 0 To 裝箱控制3_dgv.Rows.Count - 1
-                    If 裝箱控制2_dgv.Rows(I).Cells("天盾流水號").Value = 裝箱控制3_dgv.Rows(II).Cells("天盾流水號").Value And
-                       裝箱控制2_dgv.Rows(I).Cells("Item").Value = 裝箱控制3_dgv.Rows(II).Cells("Item").Value And
-                       裝箱控制2_dgv.Rows(I).Cells("Material").Value = 裝箱控制3_dgv.Rows(II).Cells("Material").Value And
-                       裝箱控制2_dgv.Rows(I).Cells("ProductID").Value = 裝箱控制3_dgv.Rows(II).Cells("ProductID").Value Then
+                    If 裝箱控制2_dgv.Rows(I).Cells("天盾流水號").Value.ToString = 裝箱控制3_dgv.Rows(II).Cells("天盾流水號").Value.ToString And
+                       裝箱控制2_dgv.Rows(I).Cells("Item").Value.ToString = 裝箱控制3_dgv.Rows(II).Cells("Item").Value.ToString And
+                       裝箱控制2_dgv.Rows(I).Cells("Material").Value.ToString = 裝箱控制3_dgv.Rows(II).Cells("Material").Value.ToString And
+                       裝箱控制2_dgv.Rows(I).Cells("ProductID").Value.ToString = 裝箱控制3_dgv.Rows(II).Cells("ProductID").Value.ToString Then
                         索引 += 1
-                        If 裝箱控制2_dgv.Rows(I).Cells("MaterialDescription").Value <> 裝箱控制3_dgv.Rows(II).Cells("MaterialDescription").Value Then
+                        If 裝箱控制3_dgv.Rows(II).Cells("MaterialDescription").Value = Nothing Then : 裝箱控制3_dgv.Rows(II).Cells("MaterialDescription").Value = "" : End If
+                        If 裝箱控制2_dgv.Rows(I).Cells("MaterialDescription").Value.ToString <> 裝箱控制3_dgv.Rows(II).Cells("MaterialDescription").Value.ToString Then
                             裝箱控制3_dgv.Rows(II).Cells("MaterialDescription").Style.ForeColor = Color.Red : 裝箱控制2_dgv.Rows(I).Cells("MaterialDescription").Style.ForeColor = Color.Red
                         Else
                             裝箱控制3_dgv.Rows(II).Cells("MaterialDescription").Style.ForeColor = Color.Black : 裝箱控制2_dgv.Rows(I).Cells("MaterialDescription").Style.ForeColor = Color.Black
                         End If
 
-                        If 裝箱控制2_dgv.Rows(I).Cells("Qty").Value <> 裝箱控制3_dgv.Rows(II).Cells("Qty").Value Then
+                        If 裝箱控制3_dgv.Rows(II).Cells("Qty").Value = Nothing Then : 裝箱控制3_dgv.Rows(II).Cells("Qty").Value = "" : End If
+                        If 裝箱控制2_dgv.Rows(I).Cells("Qty").Value.ToString <> 裝箱控制3_dgv.Rows(II).Cells("Qty").Value.ToString Then
                             裝箱控制3_dgv.Rows(II).Cells("Qty").Style.ForeColor = Color.Red : 裝箱控制2_dgv.Rows(I).Cells("Qty").Style.ForeColor = Color.Red
                         Else
                             裝箱控制3_dgv.Rows(II).Cells("Qty").Style.ForeColor = Color.Black : 裝箱控制2_dgv.Rows(I).Cells("Qty").Style.ForeColor = Color.Black
                         End If
 
-                        If 裝箱控制2_dgv.Rows(I).Cells("UoM").Value <> 裝箱控制3_dgv.Rows(II).Cells("UoM").Value Then
+                        If 裝箱控制3_dgv.Rows(II).Cells("UoM").Value = Nothing Then : 裝箱控制3_dgv.Rows(II).Cells("UoM").Value = "" : End If
+                        If 裝箱控制2_dgv.Rows(I).Cells("UoM").Value.ToString <> 裝箱控制3_dgv.Rows(II).Cells("UoM").Value.ToString Then
                             裝箱控制3_dgv.Rows(II).Cells("UoM").Style.ForeColor = Color.Red : 裝箱控制2_dgv.Rows(I).Cells("UoM").Style.ForeColor = Color.Red
                         Else
                             裝箱控制3_dgv.Rows(II).Cells("UoM").Style.ForeColor = Color.Black : 裝箱控制2_dgv.Rows(I).Cells("UoM").Style.ForeColor = Color.Black
                         End If
 
-                        If 裝箱控制2_dgv.Rows(I).Cells("ProductDescription").Value <> 裝箱控制3_dgv.Rows(II).Cells("ProductDescription").Value Then
+                        If 裝箱控制3_dgv.Rows(II).Cells("ProductDescription").Value = Nothing Then : 裝箱控制3_dgv.Rows(II).Cells("ProductDescription").Value = "" : End If
+                        If 裝箱控制2_dgv.Rows(I).Cells("ProductDescription").Value.ToString <> 裝箱控制3_dgv.Rows(II).Cells("ProductDescription").Value.ToString Then
                             裝箱控制3_dgv.Rows(II).Cells("ProductDescription").Style.ForeColor = Color.Red : 裝箱控制2_dgv.Rows(I).Cells("ProductDescription").Style.ForeColor = Color.Red
                         Else
                             裝箱控制3_dgv.Rows(II).Cells("ProductDescription").Style.ForeColor = Color.Black : 裝箱控制2_dgv.Rows(I).Cells("ProductDescription").Style.ForeColor = Color.Black
                         End If
 
-                        If 裝箱控制2_dgv.Rows(I).Cells("IncoTerms").Value <> 裝箱控制3_dgv.Rows(II).Cells("IncoTerms").Value Then
+                        If 裝箱控制3_dgv.Rows(II).Cells("IncoTerms").Value = Nothing Then : 裝箱控制3_dgv.Rows(II).Cells("IncoTerms").Value = "" : End If
+                        If 裝箱控制2_dgv.Rows(I).Cells("IncoTerms").Value.ToString <> 裝箱控制3_dgv.Rows(II).Cells("IncoTerms").Value.ToString Then
                             裝箱控制3_dgv.Rows(II).Cells("IncoTerms").Style.ForeColor = Color.Red : 裝箱控制2_dgv.Rows(I).Cells("IncoTerms").Style.ForeColor = Color.Red
                         Else
                             裝箱控制3_dgv.Rows(II).Cells("IncoTerms").Style.ForeColor = Color.Black : 裝箱控制2_dgv.Rows(I).Cells("IncoTerms").Style.ForeColor = Color.Black
                         End If
 
-                        If 裝箱控制2_dgv.Rows(I).Cells("CustomerData").Value <> 裝箱控制3_dgv.Rows(II).Cells("CustomerData").Value Then
+                        If 裝箱控制3_dgv.Rows(II).Cells("CustomerData").Value = Nothing Then : 裝箱控制3_dgv.Rows(II).Cells("CustomerData").Value = "" : End If
+                        If 裝箱控制2_dgv.Rows(I).Cells("CustomerData").Value.ToString <> 裝箱控制3_dgv.Rows(II).Cells("CustomerData").Value.ToString Then
                             裝箱控制3_dgv.Rows(II).Cells("CustomerData").Style.ForeColor = Color.Red : 裝箱控制2_dgv.Rows(I).Cells("CustomerData").Style.ForeColor = Color.Red
                         Else
                             裝箱控制3_dgv.Rows(II).Cells("CustomerData").Style.ForeColor = Color.Black : 裝箱控制2_dgv.Rows(I).Cells("CustomerData").Style.ForeColor = Color.Black
                         End If
 
-                        If 裝箱控制2_dgv.Rows(I).Cells("Size").Value <> 裝箱控制3_dgv.Rows(II).Cells("Size").Value Then
+                        If 裝箱控制3_dgv.Rows(II).Cells("Size").Value = Nothing Then : 裝箱控制3_dgv.Rows(II).Cells("Size").Value = "" : End If
+                        If 裝箱控制2_dgv.Rows(I).Cells("Size").Value.ToString <> 裝箱控制3_dgv.Rows(II).Cells("Size").Value.ToString Then
                             裝箱控制3_dgv.Rows(II).Cells("Size").Style.ForeColor = Color.Red : 裝箱控制2_dgv.Rows(I).Cells("Size").Style.ForeColor = Color.Red
                         Else
                             裝箱控制3_dgv.Rows(II).Cells("Size").Style.ForeColor = Color.Black : 裝箱控制2_dgv.Rows(I).Cells("Size").Style.ForeColor = Color.Black
                         End If
 
-                        If 裝箱控制2_dgv.Rows(I).Cells("HS").Value <> 裝箱控制3_dgv.Rows(II).Cells("HS").Value Then
+                        If 裝箱控制3_dgv.Rows(II).Cells("HS").Value = Nothing Then : 裝箱控制3_dgv.Rows(II).Cells("HS").Value = "" : End If
+                        If 裝箱控制2_dgv.Rows(I).Cells("HS").Value.ToString <> 裝箱控制3_dgv.Rows(II).Cells("HS").Value.ToString Then
                             裝箱控制3_dgv.Rows(II).Cells("HS").Style.ForeColor = Color.Red : 裝箱控制2_dgv.Rows(I).Cells("HS").Style.ForeColor = Color.Red
                         Else
                             裝箱控制3_dgv.Rows(II).Cells("HS").Style.ForeColor = Color.Black : 裝箱控制2_dgv.Rows(I).Cells("HS").Style.ForeColor = Color.Black
                         End If
 
-                        If 裝箱控制2_dgv.Rows(I).Cells("Units1").Value <> 裝箱控制3_dgv.Rows(II).Cells("Units1").Value Then
+                        If 裝箱控制3_dgv.Rows(II).Cells("Units1").Value = Nothing Then : 裝箱控制3_dgv.Rows(II).Cells("Units1").Value = "" : End If
+                        If 裝箱控制2_dgv.Rows(I).Cells("Units1").Value.ToString <> 裝箱控制3_dgv.Rows(II).Cells("Units1").Value.ToString Then
                             裝箱控制3_dgv.Rows(II).Cells("Units1").Style.ForeColor = Color.Red : 裝箱控制2_dgv.Rows(I).Cells("Units1").Style.ForeColor = Color.Red
                         Else
                             裝箱控制3_dgv.Rows(II).Cells("Units1").Style.ForeColor = Color.Black : 裝箱控制2_dgv.Rows(I).Cells("Units1").Style.ForeColor = Color.Black
                         End If
 
-                        If 裝箱控制2_dgv.Rows(I).Cells("DtyRate").Value <> 裝箱控制3_dgv.Rows(II).Cells("DtyRate").Value Then
+                        If 裝箱控制3_dgv.Rows(II).Cells("DtyRate").Value = Nothing Then : 裝箱控制3_dgv.Rows(II).Cells("DtyRate").Value = "" : End If
+                        If 裝箱控制2_dgv.Rows(I).Cells("DtyRate").Value.ToString <> 裝箱控制3_dgv.Rows(II).Cells("DtyRate").Value.ToString Then
                             裝箱控制3_dgv.Rows(II).Cells("DtyRate").Style.ForeColor = Color.Red : 裝箱控制2_dgv.Rows(I).Cells("DtyRate").Style.ForeColor = Color.Red
                         Else
                             裝箱控制3_dgv.Rows(II).Cells("DtyRate").Style.ForeColor = Color.Black : 裝箱控制2_dgv.Rows(I).Cells("DtyRate").Style.ForeColor = Color.Black
                         End If
 
-                        If 裝箱控制2_dgv.Rows(I).Cells("AddOnDty").Value <> 裝箱控制3_dgv.Rows(II).Cells("AddOnDty").Value Then
+                        If 裝箱控制3_dgv.Rows(II).Cells("AddOnDty").Value = Nothing Then : 裝箱控制3_dgv.Rows(II).Cells("AddOnDty").Value = "" : End If
+                        If 裝箱控制2_dgv.Rows(I).Cells("AddOnDty").Value.ToString <> 裝箱控制3_dgv.Rows(II).Cells("AddOnDty").Value.ToString Then
                             裝箱控制3_dgv.Rows(II).Cells("AddOnDty").Style.ForeColor = Color.Red : 裝箱控制2_dgv.Rows(I).Cells("AddOnDty").Style.ForeColor = Color.Red
                         Else
                             裝箱控制3_dgv.Rows(II).Cells("AddOnDty").Style.ForeColor = Color.Black : 裝箱控制2_dgv.Rows(I).Cells("AddOnDty").Style.ForeColor = Color.Black
                         End If
 
-                        If 裝箱控制2_dgv.Rows(I).Cells("UnitsCtn").Value <> 裝箱控制3_dgv.Rows(II).Cells("UnitsCtn").Value Then
+                        If 裝箱控制3_dgv.Rows(II).Cells("UnitsCtn").Value = Nothing Then : 裝箱控制3_dgv.Rows(II).Cells("UnitsCtn").Value = "" : End If
+                        If 裝箱控制2_dgv.Rows(I).Cells("UnitsCtn").Value.ToString <> 裝箱控制3_dgv.Rows(II).Cells("UnitsCtn").Value.ToString Then
                             裝箱控制3_dgv.Rows(II).Cells("UnitsCtn").Style.ForeColor = Color.Red : 裝箱控制2_dgv.Rows(I).Cells("UnitsCtn").Style.ForeColor = Color.Red
                         Else
                             裝箱控制3_dgv.Rows(II).Cells("UnitsCtn").Style.ForeColor = Color.Black : 裝箱控制2_dgv.Rows(I).Cells("UnitsCtn").Style.ForeColor = Color.Black
                         End If
 
-                        If 裝箱控制2_dgv.Rows(I).Cells("NoCtn").Value <> 裝箱控制3_dgv.Rows(II).Cells("NoCtn").Value Then
+                        If 裝箱控制3_dgv.Rows(II).Cells("NoCtn").Value = Nothing Then : 裝箱控制3_dgv.Rows(II).Cells("NoCtn").Value = "" : End If
+                        If 裝箱控制2_dgv.Rows(I).Cells("NoCtn").Value.ToString <> 裝箱控制3_dgv.Rows(II).Cells("NoCtn").Value.ToString Then
                             裝箱控制3_dgv.Rows(II).Cells("NoCtn").Style.ForeColor = Color.Red : 裝箱控制2_dgv.Rows(I).Cells("NoCtn").Style.ForeColor = Color.Red
                         Else
                             裝箱控制3_dgv.Rows(II).Cells("NoCtn").Style.ForeColor = Color.Black : 裝箱控制2_dgv.Rows(I).Cells("NoCtn").Style.ForeColor = Color.Black
                         End If
 
-                        If 裝箱控制2_dgv.Rows(I).Cells("CtnNo").Value <> 裝箱控制3_dgv.Rows(II).Cells("CtnNo").Value Then
+                        If 裝箱控制3_dgv.Rows(II).Cells("CtnNo").Value = Nothing Then : 裝箱控制3_dgv.Rows(II).Cells("CtnNo").Value = "" : End If
+                        If 裝箱控制2_dgv.Rows(I).Cells("CtnNo").Value.ToString <> 裝箱控制3_dgv.Rows(II).Cells("CtnNo").Value.ToString Then
                             裝箱控制3_dgv.Rows(II).Cells("CtnNo").Style.ForeColor = Color.Red : 裝箱控制2_dgv.Rows(I).Cells("CtnNo").Style.ForeColor = Color.Red
                         Else
                             裝箱控制3_dgv.Rows(II).Cells("CtnNo").Style.ForeColor = Color.Black : 裝箱控制2_dgv.Rows(I).Cells("CtnNo").Style.ForeColor = Color.Black
                         End If
 
-                        If 裝箱控制2_dgv.Rows(I).Cells("Units2").Value <> 裝箱控制3_dgv.Rows(II).Cells("Units2").Value Then
+                        If 裝箱控制3_dgv.Rows(II).Cells("Units2").Value = Nothing Then : 裝箱控制3_dgv.Rows(II).Cells("Units2").Value = "" : End If
+                        If 裝箱控制2_dgv.Rows(I).Cells("Units2").Value.ToString <> 裝箱控制3_dgv.Rows(II).Cells("Units2").Value.ToString Then
                             裝箱控制3_dgv.Rows(II).Cells("Units2").Style.ForeColor = Color.Red : 裝箱控制2_dgv.Rows(I).Cells("Units2").Style.ForeColor = Color.Red
                         Else
                             裝箱控制3_dgv.Rows(II).Cells("Units2").Style.ForeColor = Color.Black : 裝箱控制2_dgv.Rows(I).Cells("Units2").Style.ForeColor = Color.Black
                         End If
 
-                        If 裝箱控制2_dgv.Rows(I).Cells("PLMSeason").Value <> 裝箱控制3_dgv.Rows(II).Cells("PLMSeason").Value Then
+                        If 裝箱控制3_dgv.Rows(II).Cells("PLMSeason").Value = Nothing Then : 裝箱控制3_dgv.Rows(II).Cells("PLMSeason").Value = "" : End If
+                        If 裝箱控制2_dgv.Rows(I).Cells("PLMSeason").Value.ToString <> 裝箱控制3_dgv.Rows(II).Cells("PLMSeason").Value.ToString Then
                             裝箱控制3_dgv.Rows(II).Cells("PLMSeason").Style.ForeColor = Color.Red : 裝箱控制2_dgv.Rows(I).Cells("PLMSeason").Style.ForeColor = Color.Red
                         Else
                             裝箱控制3_dgv.Rows(II).Cells("PLMSeason").Style.ForeColor = Color.Black : 裝箱控制2_dgv.Rows(I).Cells("PLMSeason").Style.ForeColor = Color.Black
                         End If
 
-                        If 裝箱控制2_dgv.Rows(I).Cells("Stock").Value <> 裝箱控制3_dgv.Rows(II).Cells("Stock").Value Then
+                        If 裝箱控制3_dgv.Rows(II).Cells("Stock").Value = Nothing Then : 裝箱控制3_dgv.Rows(II).Cells("Stock").Value = "" : End If
+                        If 裝箱控制2_dgv.Rows(I).Cells("Stock").Value.ToString <> 裝箱控制3_dgv.Rows(II).Cells("Stock").Value.ToString Then
                             裝箱控制3_dgv.Rows(II).Cells("Stock").Style.ForeColor = Color.Red : 裝箱控制2_dgv.Rows(I).Cells("Stock").Style.ForeColor = Color.Red
                         Else
                             裝箱控制3_dgv.Rows(II).Cells("Stock").Style.ForeColor = Color.Black : 裝箱控制2_dgv.Rows(I).Cells("Stock").Style.ForeColor = Color.Black
                         End If
 
-                        If 裝箱控制2_dgv.Rows(I).Cells("StkName").Value <> 裝箱控制3_dgv.Rows(II).Cells("StkName").Value Then
+                        If 裝箱控制3_dgv.Rows(II).Cells("StkName").Value = Nothing Then : 裝箱控制3_dgv.Rows(II).Cells("StkName").Value = "" : End If
+                        If 裝箱控制2_dgv.Rows(I).Cells("StkName").Value.ToString <> 裝箱控制3_dgv.Rows(II).Cells("StkName").Value.ToString Then
                             裝箱控制3_dgv.Rows(II).Cells("StkName").Style.ForeColor = Color.Red : 裝箱控制2_dgv.Rows(I).Cells("StkName").Style.ForeColor = Color.Red
                         Else
                             裝箱控制3_dgv.Rows(II).Cells("StkName").Style.ForeColor = Color.Black : 裝箱控制2_dgv.Rows(I).Cells("StkName").Style.ForeColor = Color.Black
                         End If
 
-                        If 裝箱控制2_dgv.Rows(I).Cells("CustStk").Value <> 裝箱控制3_dgv.Rows(II).Cells("CustStk").Value Then
+                        If 裝箱控制3_dgv.Rows(II).Cells("CustStk").Value = Nothing Then : 裝箱控制3_dgv.Rows(II).Cells("CustStk").Value = "" : End If
+                        If 裝箱控制2_dgv.Rows(I).Cells("CustStk").Value.ToString <> 裝箱控制3_dgv.Rows(II).Cells("CustStk").Value.ToString Then
                             裝箱控制3_dgv.Rows(II).Cells("CustStk").Style.ForeColor = Color.Red : 裝箱控制2_dgv.Rows(I).Cells("CustStk").Style.ForeColor = Color.Red
                         Else
                             裝箱控制3_dgv.Rows(II).Cells("CustStk").Style.ForeColor = Color.Black : 裝箱控制2_dgv.Rows(I).Cells("CustStk").Style.ForeColor = Color.Black
                         End If
 
-                        If 裝箱控制2_dgv.Rows(I).Cells("CustStkName").Value <> 裝箱控制3_dgv.Rows(II).Cells("CustStkName").Value Then
+                        If 裝箱控制3_dgv.Rows(II).Cells("CustStkName").Value = Nothing Then : 裝箱控制3_dgv.Rows(II).Cells("CustStkName").Value = "" : End If
+                        If 裝箱控制2_dgv.Rows(I).Cells("CustStkName").Value.ToString <> 裝箱控制3_dgv.Rows(II).Cells("CustStkName").Value.ToString Then
                             裝箱控制3_dgv.Rows(II).Cells("CustStkName").Style.ForeColor = Color.Red : 裝箱控制2_dgv.Rows(I).Cells("CustStkName").Style.ForeColor = Color.Red
                         Else
                             裝箱控制3_dgv.Rows(II).Cells("CustStkName").Style.ForeColor = Color.Black : 裝箱控制2_dgv.Rows(I).Cells("CustStkName").Style.ForeColor = Color.Black
                         End If
 
-                        If 裝箱控制2_dgv.Rows(I).Cells("CasePack").Value <> 裝箱控制3_dgv.Rows(II).Cells("CasePack").Value Then
+                        If 裝箱控制3_dgv.Rows(II).Cells("CasePack").Value = Nothing Then : 裝箱控制3_dgv.Rows(II).Cells("CasePack").Value = "" : End If
+                        If 裝箱控制2_dgv.Rows(I).Cells("CasePack").Value.ToString <> 裝箱控制3_dgv.Rows(II).Cells("CasePack").Value.ToString Then
                             裝箱控制3_dgv.Rows(II).Cells("CasePack").Style.ForeColor = Color.Red : 裝箱控制2_dgv.Rows(I).Cells("CasePack").Style.ForeColor = Color.Red
                         Else
                             裝箱控制3_dgv.Rows(II).Cells("CasePack").Style.ForeColor = Color.Black : 裝箱控制2_dgv.Rows(I).Cells("CasePack").Style.ForeColor = Color.Black
                         End If
 
-                        If 裝箱控制2_dgv.Rows(I).Cells("Colorway").Value <> 裝箱控制3_dgv.Rows(II).Cells("Colorway").Value Then
+                        If 裝箱控制3_dgv.Rows(II).Cells("Colorway").Value = Nothing Then : 裝箱控制3_dgv.Rows(II).Cells("Colorway").Value = "" : End If
+                        If 裝箱控制2_dgv.Rows(I).Cells("Colorway").Value.ToString <> 裝箱控制3_dgv.Rows(II).Cells("Colorway").Value.ToString Then
                             裝箱控制3_dgv.Rows(II).Cells("Colorway").Style.ForeColor = Color.Red : 裝箱控制2_dgv.Rows(I).Cells("Colorway").Style.ForeColor = Color.Red
                         Else
                             裝箱控制3_dgv.Rows(II).Cells("Colorway").Style.ForeColor = Color.Black : 裝箱控制2_dgv.Rows(I).Cells("Colorway").Style.ForeColor = Color.Black
                         End If
 
-                        If 裝箱控制2_dgv.Rows(I).Cells("OrderColor").Value <> 裝箱控制3_dgv.Rows(II).Cells("OrderColor").Value Then
+                        If 裝箱控制3_dgv.Rows(II).Cells("OrderColor").Value = Nothing Then : 裝箱控制3_dgv.Rows(II).Cells("OrderColor").Value = "" : End If
+                        If 裝箱控制2_dgv.Rows(I).Cells("OrderColor").Value.ToString <> 裝箱控制3_dgv.Rows(II).Cells("OrderColor").Value.ToString Then
                             裝箱控制3_dgv.Rows(II).Cells("OrderColor").Style.ForeColor = Color.Red : 裝箱控制2_dgv.Rows(I).Cells("OrderColor").Style.ForeColor = Color.Red
                         Else
                             裝箱控制3_dgv.Rows(II).Cells("OrderColor").Style.ForeColor = Color.Black : 裝箱控制2_dgv.Rows(I).Cells("OrderColor").Style.ForeColor = Color.Black
                         End If
 
-                        If 裝箱控制2_dgv.Rows(I).Cells("Logo").Value <> 裝箱控制3_dgv.Rows(II).Cells("Logo").Value Then
+                        If 裝箱控制3_dgv.Rows(II).Cells("Logo").Value = Nothing Then : 裝箱控制3_dgv.Rows(II).Cells("Logo").Value = "" : End If
+                        If 裝箱控制2_dgv.Rows(I).Cells("Logo").Value.ToString <> 裝箱控制3_dgv.Rows(II).Cells("Logo").Value.ToString Then
                             裝箱控制3_dgv.Rows(II).Cells("Logo").Style.ForeColor = Color.Red : 裝箱控制2_dgv.Rows(I).Cells("Logo").Style.ForeColor = Color.Red
                         Else
                             裝箱控制3_dgv.Rows(II).Cells("Logo").Style.ForeColor = Color.Black : 裝箱控制2_dgv.Rows(I).Cells("Logo").Style.ForeColor = Color.Black
                         End If
 
-                        If 裝箱控制2_dgv.Rows(I).Cells("POItemText").Value <> 裝箱控制3_dgv.Rows(II).Cells("POItemText").Value Then
+                        If 裝箱控制3_dgv.Rows(II).Cells("POItemText").Value = Nothing Then : 裝箱控制3_dgv.Rows(II).Cells("POItemText").Value = "" : End If
+                        If 裝箱控制2_dgv.Rows(I).Cells("POItemText").Value.ToString <> 裝箱控制3_dgv.Rows(II).Cells("POItemText").Value.ToString Then
                             裝箱控制3_dgv.Rows(II).Cells("POItemText").Style.ForeColor = Color.Red : 裝箱控制2_dgv.Rows(I).Cells("POItemText").Style.ForeColor = Color.Red
                         Else
                             裝箱控制3_dgv.Rows(II).Cells("POItemText").Style.ForeColor = Color.Black : 裝箱控制2_dgv.Rows(I).Cells("POItemText").Style.ForeColor = Color.Black
                         End If
 
-                        If 裝箱控制2_dgv.Rows(I).Cells("FinalCustomerShipTo").Value <> 裝箱控制3_dgv.Rows(II).Cells("FinalCustomerShipTo").Value Then
+                        If 裝箱控制3_dgv.Rows(II).Cells("FinalCustomerShipTo").Value = Nothing Then : 裝箱控制3_dgv.Rows(II).Cells("FinalCustomerShipTo").Value = "" : End If
+                        If 裝箱控制2_dgv.Rows(I).Cells("FinalCustomerShipTo").Value.ToString <> 裝箱控制3_dgv.Rows(II).Cells("FinalCustomerShipTo").Value.ToString Then
                             裝箱控制3_dgv.Rows(II).Cells("FinalCustomerShipTo").Style.ForeColor = Color.Red : 裝箱控制2_dgv.Rows(I).Cells("FinalCustomerShipTo").Style.ForeColor = Color.Red
                         Else
                             裝箱控制3_dgv.Rows(II).Cells("FinalCustomerShipTo").Style.ForeColor = Color.Black : 裝箱控制2_dgv.Rows(I).Cells("FinalCustomerShipTo").Style.ForeColor = Color.Black
@@ -1732,9 +1758,9 @@ Public Class 訂單資料比對與修改_力威
         If BB04_lb.Text = "對等" Then
             For I As Integer = 0 To 裝箱明細2_dgv.Rows.Count - 1
                 For II As Integer = 0 To 裝箱明細3_dgv.Rows.Count - 1
-                    If 裝箱明細2_dgv.Rows(I).Cells("Item").Value = 裝箱明細3_dgv.Rows(II).Cells("Item").Value And
-                       裝箱明細2_dgv.Rows(I).Cells("Material").Value = 裝箱明細3_dgv.Rows(II).Cells("Material").Value And
-                       裝箱明細2_dgv.Rows(I).Cells("DM").Value = 裝箱明細3_dgv.Rows(II).Cells("DM").Value Then
+                    If 裝箱明細2_dgv.Rows(I).Cells("Item").Value.ToString = 裝箱明細3_dgv.Rows(II).Cells("Item").Value.ToString And
+                       裝箱明細2_dgv.Rows(I).Cells("Material").Value.ToString = 裝箱明細3_dgv.Rows(II).Cells("Material").Value.ToString And
+                       裝箱明細2_dgv.Rows(I).Cells("DM").Value.ToString = 裝箱明細3_dgv.Rows(II).Cells("DM").Value.ToString Then
                         索引 += 1
                         If 裝箱明細2_dgv.Rows(I).Cells("5").Value <> 裝箱明細3_dgv.Rows(II).Cells("5").Value Then
                             裝箱明細3_dgv.Rows(II).Cells("5").Style.ForeColor = Color.Red : 裝箱明細2_dgv.Rows(I).Cells("5").Style.ForeColor = Color.Red : Else