20231014備份

TENDEN-MES-SYS/LoginForm1vb.vb

@@ -101,11 +101,18 @@ Public Class LoginForm1vb
             Else
                 MsgBox("天盾伺服器無法連線，自動轉跳測試線路，請聯繫系統管理員!!")
                 ComboBox1.Text = "雲端伺服器"
-                登入人IP = "106.1.48.106,4567" : 登入()
+                登入人IP = "106.1.49.218,2433" : 登入()
                 OK.Enabled = True : Cancel.Enabled = True : CheckBox1.Checked = True
             End If
         ElseIf ComboBox1.Text = "雲端伺服器" Then
-            登入人IP = "106.1.48.106,4567" : 登入()
+            'If SQL_連線狀態模組1.ConnectTest1("120.197.187.122,2433") = True Then
+            '    登入人IP = "120.197.187.122,2433" : 登入()
+            '    OK.Enabled = True : Cancel.Enabled = True : CheckBox1.Checked = True
+            'Else
+            '    登入人IP = "106.1.49.218,2433" : 登入()
+            '    OK.Enabled = True : Cancel.Enabled = True : CheckBox1.Checked = True
+            'End If
+            登入人IP = "106.1.49.218,2433" : 登入()
             OK.Enabled = True : Cancel.Enabled = True : CheckBox1.Checked = True
         End If
         UsernameTextBox.Focus()

TENDEN-MES-SYS/Module/SQL_Module.vb

@@ -43,4 +43,29 @@ Module SQL_Module
             進度條視窗.Text = "Progress Bar Window" : 進度條視窗.Close() : 進度條視窗.ProgressBar1.Value = 0 : 最終數 = 0 : 計算累加 = 0
         End Sub
     End Class
+    Public Sub 查詢DGV中的關鍵字(ByVal dgv As DataGridView, ByVal txtKeyword As TextBox)
+        Dim keyword As String = txtKeyword.Text
+        Dim found As Boolean = False
+        dgv.ClearSelection()        ' 清除先前的选择
+        Dim numColumns As Integer = dgv.Columns.Count        ' 获取 DataGridView 的列数
+        Dim startRowIndex As Integer = If(lastFoundRowIndex = -1, 0, lastFoundRowIndex + 1)
+        For colIndex As Integer = If(lastFoundRowIndex = -1, 0, lastFoundColIndex) To numColumns - 1
+            For rowIndex As Integer = startRowIndex To dgv.Rows.Count - 1
+                Dim cellValue As String
+                If IsNothing(dgv.Rows(rowIndex).Cells(colIndex).Value) Then
+                    cellValue = ""
+                Else
+                    cellValue = dgv.Rows(rowIndex).Cells(colIndex).Value.ToString()
+                End If
+                If cellValue.Contains(keyword) Then
+                    dgv.Rows(rowIndex).Selected = True : dgv.FirstDisplayedScrollingRowIndex = rowIndex : found = True
+                    lastFoundRowIndex = rowIndex : lastFoundColIndex = colIndex : Exit For
+                End If
+            Next : If found Then : Exit For : End If
+        Next
+        If Not found Then
+            lastFoundRowIndex = -1 : lastFoundColIndex = -1 : dgv.FirstDisplayedScrollingRowIndex = 0 : 重新計算 = True : dgv.ClearSelection()
+        Else : 重新計算 = False
+        End If
+    End Sub
 End Module

TENDEN-MES-SYS/Module/SQL_成本系統管理.vb

@@ -138,7 +138,7 @@
                 ORDER BY " & 訂單資料表(1) & ".訂單流水號 DESC"
     End Sub
     Friend Sub SQL_訂單價格利潤明細表4()
-        列印用SQL = "WHERE " & 訂單資料表(7) & ".年份 LIKE '" & 訂單價格利潤明細表.年份_cb.Text & "' AND (" & 訂單資料表(1) & ".CXL IS NULL OR " & 訂單資料表(1) & ".CXL = 0) "
+        列印用SQL = "WHERE " & 訂單資料表(7) & ".年份 LIKE '" & PA25 & "' AND (" & 訂單資料表(1) & ".CXL IS NULL OR " & 訂單資料表(1) & ".CXL = 0) "
         SQL1 = "SELECT " & 訂單資料表(1) & ".訂單流水號, " & 訂單資料表(1) & ".資料流水號, " & 訂單資料表(1) & ".年份季度, " & 訂單資料表(1) & ".力威訂單號, " & 訂單資料表(1) & ".形體號, 
                        " & 訂單資料表(1) & ".顏色, " & 訂單資料表(1) & ".ProductID, " & 訂單資料表(1) & ".楦型, " & 訂單資料表(1) & ".訂單數量 AS 數量, " & 訂單資料表(1) & ".客戶交期, 
                        " & 訂單資料表(1) & ".單價, 
@@ -162,7 +162,7 @@
                             (" & 訂單資料表(1) & ".備註 LIKE '%" & PA & "%') OR (" & 訂單資料表(1) & ".備註 LIKE '%" & PA & "%') OR 
                             (" & 訂單資料表(1) & ".生產工廠 LIKE '%" & PA & "%') OR (" & 訂單資料表(1) & ".訂單種類 LIKE '%" & PA & "%') OR 
                             (" & 訂單資料表(1) & ".力威訂單號 LIKE '%" & PA & "%')) AND " & 訂單資料表(7) & ".天盾訂單號 IS NOT NULL AND 
-                            " & 訂單資料表(7) & ".年份 LIKE '" & 訂單價格利潤明細表.年份_cb.Text & "' AND (" & 訂單資料表(1) & ".CXL IS NULL OR " & 訂單資料表(1) & ".CXL = 0) "
+                            " & 訂單資料表(7) & ".年份 LIKE '" & PA25 & "' AND (" & 訂單資料表(1) & ".CXL IS NULL OR " & 訂單資料表(1) & ".CXL = 0) "
 
         SQL1 = "SELECT " & 訂單資料表(1) & ".訂單流水號, " & 訂單資料表(1) & ".資料流水號, " & 訂單資料表(1) & ".年份季度, " & 訂單資料表(1) & ".力威訂單號, " & 訂單資料表(1) & ".形體號, 
                        " & 訂單資料表(1) & ".顏色, " & 訂單資料表(1) & ".ProductID, " & 訂單資料表(1) & ".楦型, " & 訂單資料表(1) & ".訂單數量 AS 數量, " & 訂單資料表(1) & ".客戶交期, 
@@ -246,6 +246,9 @@
     Friend Sub SQL_查詢最後一筆利潤表流水號()
         ConnOpen() : SQL1 = "SELECT TOP (1) 利潤表流水號 FROM 訂單價格利潤表暫存檔 ORDER BY 利潤表流水號 DESC" : CmdSet_For_dr()
     End Sub
+    Friend Sub SQL_查詢最後一筆利潤表流水號2()
+        ConnOpen() : SQL1 = "SELECT TOP (1) 利潤表流水號 FROM 訂單價格利潤表 ORDER BY 利潤表流水號 DESC" : CmdSet_For_dr()
+    End Sub
     Friend Sub SQL_新增訂單價格利潤表暫存檔1()
         ConnOpen()
         SQL1 = "INSERT INTO 訂單價格利潤表暫存檔 (資料流水號, 利潤表流水號, 訂單流水號) 
@@ -328,4 +331,81 @@
                         WHERE (利潤表流水號 LIKE '" & 利潤表流水號 & "')"
         CmdSet_For_dr()
     End Sub
+    '-----------------出貨銷帳明細表--------------------------------------
+    Friend Sub SQL_訂單價格利潤明細表_ALL()
+        列印用SQL = "WHERE (" & 訂單資料表(7) & ".年份 LIKE '" & PA25 & "' OR " & 訂單資料表(7) & ".年份 LIKE '" & PA26 & "' OR " & 訂單資料表(7) & ".年份 LIKE '" & PA27 & "') AND 
+                           (" & 訂單資料表(1) & ".CXL IS NULL OR " & 訂單資料表(1) & ".CXL = 0) "
+        SQL1 = "SELECT " & 訂單資料表(1) & ".訂單流水號, " & 訂單資料表(1) & ".資料流水號, " & 訂單資料表(1) & ".年份季度, " & 訂單資料表(1) & ".力威訂單號, " & 訂單資料表(1) & ".形體號, 
+                       " & 訂單資料表(1) & ".顏色, " & 訂單資料表(1) & ".ProductID, " & 訂單資料表(1) & ".楦型, " & 訂單資料表(1) & ".訂單數量 AS 數量, " & 訂單資料表(1) & ".客戶交期, 
+                       " & 訂單資料表(1) & ".單價, 
+                       " & 訂單資料表(1) & ".總金額, " & 訂單資料表(1) & ".備註, " & 訂單資料表(1) & ".生產工廠 AS 工廠, " & 訂單資料表(1) & ".訂單種類, " & 訂單資料表(7) & ".Quantity, 
+                       " & 訂單資料表(7) & ".Currency, " & 訂單資料表(7) & ".Exchange, " & 訂單資料表(7) & ".FTYPrice, (" & 訂單資料表(1) & ".單價 - " & 訂單資料表(7) & ".FTYPrice) * 
+                       " & 訂單資料表(7) & ".Quantity AS CommissionTTL, (" & 訂單資料表(1) & ".單價 - " & 訂單資料表(7) & ".FTYPrice) * " & 訂單資料表(7) & ".Quantity / 2 AS CommissionDarren, 
+                      (" & 訂單資料表(1) & ".單價 - " & 訂單資料表(7) & ".FTYPrice) * " & 訂單資料表(7) & ".Quantity / 2 AS CommissionTendenza, (" & 訂單資料表(1) & ".單價 - 
+                       " & 訂單資料表(7) & ".FTYPrice) AS Percentage, " & 訂單資料表(7) & ".BasicPrice, " & 訂單資料表(7) & ".Polybag AS [PG/MOQ], " & 訂單資料表(7) & ".FOOTformOrPETform AS FOOTorPET, 
+                       " & 訂單資料表(7) & ".Tooling, " & 訂單資料表(7) & ".RubberBand, " & 訂單資料表(7) & ".JHOOK, " & 訂單資料表(7) & ".WaterResistant, " & 訂單資料表(7) & ".P16VAT, 
+                       " & 訂單資料表(7) & ".EXWsaving, " & 訂單資料表(7) & ".Quantity * " & 訂單資料表(7) & ".Tooling AS CollectedToolng, " & 訂單資料表(7) & ".年份, 
+                       " & 訂單資料表(7) & ".利潤表流水號, " & 訂單資料表(1) & ".訂單數量 - " & 訂單資料表(7) & ".Quantity AS 驗證, STYLELIST.ItemNumber, " & 訂單資料表(7) & ".審核, 
+                       " & 訂單資料表(1) & ".客戶訂單號  
+                FROM   " & 訂單資料表(1) & " LEFT OUTER JOIN STYLELIST ON " & 訂單資料表(1) & ".形體號 = STYLELIST.ProductName RIGHT OUTER JOIN " & 訂單資料表(7) & " ON 
+                       " & 訂單資料表(1) & ".資料流水號 = " & 訂單資料表(7) & ".資料流水號 " & 列印用SQL & "
+                ORDER BY " & 訂單資料表(1) & ".力威訂單號 DESC"
+    End Sub
+    Friend Sub SQL_訂單流水號查詢()
+        ConnOpen()
+        列印用SQL = " WHERE ((" & 訂單資料表(1) & ".訂單流水號 LIKE '" & PA & "') OR (" & 訂單資料表(1) & ".客戶訂單號 LIKE '" & PA & "')  OR 
+                            (" & 訂單資料表(1) & ".力威訂單號 LIKE '" & PA & "')) AND " & 訂單資料表(7) & ".天盾訂單號 IS NOT NULL AND 
+                            (" & 訂單資料表(1) & ".CXL IS NULL OR " & 訂單資料表(1) & ".CXL = 0) "
+        SQL1 = "SELECT TOP (1) " & 訂單資料表(1) & ".訂單流水號
+                FROM   " & 訂單資料表(1) & " LEFT OUTER JOIN STYLELIST ON " & 訂單資料表(1) & ".形體號 = STYLELIST.ProductName RIGHT OUTER JOIN " & 訂單資料表(7) & " ON 
+                       " & 訂單資料表(1) & ".資料流水號 = " & 訂單資料表(7) & ".資料流水號 " & 列印用SQL & "
+                ORDER BY " & 訂單資料表(1) & ".訂單流水號 DESC"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_銷帳清單()
+        ConnOpen()
+        SQL1 = "SELECT    貨款銷帳明細表.流水號, 貨款銷帳明細表.年份, 貨款銷帳明細表.品牌, 貨款銷帳明細表.工廠, 貨款銷帳明細表.INV, 
+                          貨款銷帳明細表.訂單號, 貨款銷帳明細表.訂單數, 貨款銷帳明細表.出貨數量, 貨款銷帳明細表.已出貨, 
+                          貨款銷帳明細表.已確認, 貨款銷帳明細表.FTY_PRICE, 貨款銷帳明細表.扣關稅or後廠價, 
+                          貨款銷帳明細表.訂單數 AS Amount1, 貨款銷帳明細表.F_銀行扣款, 貨款銷帳明細表.F_文件費, 
+                          貨款銷帳明細表.F_貼標費, 貨款銷帳明細表.利息or扣款 AS F_利息or扣款, 貨款銷帳明細表.F_增加款, 
+                          貨款銷帳明細表.訂單數 AS 實付工廠金額, 貨款銷帳明細表.CUST_Price, 貨款銷帳明細表.訂單數 AS Amount2, 
+                          貨款銷帳明細表.C_文件費, 貨款銷帳明細表.C_貼標費, 貨款銷帳明細表.C_利息or扣款, 
+                          貨款銷帳明細表.訂單數 AS 實際入帳金額, 貨款銷帳明細表.EX_FTY_DATE, 貨款銷帳明細表.Maturity_Date, 
+                          貨款銷帳明細表.FTY_Payment_Date, 貨款銷帳明細表.訂單數 AS 總毛利, 貨款銷帳明細表.Darren佣金, 
+                          貨款銷帳明細表.Betty佣金, 貨款銷帳明細表.扣工廠手續費 AS 其他費用, 貨款銷帳明細表.訂單數 AS 公司毛利, 
+                          貨款銷帳明細表.Remark, QQ.客戶訂單號, 貨款銷帳明細表.已出貨 AS 異動, 貨款銷帳明細表.已出貨 AS 異動1, 貨款銷帳明細表.已出貨 AS 已比對
+                FROM      貨款銷帳明細表 LEFT OUTER JOIN
+                         (SELECT  客戶訂單號, 力威訂單號  FROM  " & 訂單資料表(1) & "  GROUP BY  客戶訂單號, 力威訂單號) AS QQ ON LEFT(貨款銷帳明細表.訂單號, 10) = QQ.力威訂單號
+                WHERE    (貨款銷帳明細表.年份 LIKE '" & PA25 & "')
+                ORDER BY  " & PA30 & ", 貨款銷帳明細表.EX_FTY_DATE DESC"
+        CmdSet_For_DGV()
+    End Sub
+    Friend Sub SQL_銷帳清單_刪除()
+        ConnOpen() : SQL1 = "DELETE FROM 貨款銷帳明細表 WHERE (流水號 LIKE '" & PA3 & "')" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_銷帳清單_存檔()
+        ConnOpen()
+        SQL1 = "UPDATE 貨款銷帳明細表 SET 出貨數量 = N'" & PA70 & "', FTY_PRICE = N'" & PA69 & "', 扣關稅or後廠價 = N'" & PA68 & "', CUST_Price = N'" & PA67 & "', 
+                                          EX_FTY_DATE = N'" & PA66 & "', Maturity_Date = N'" & PA65 & "', FTY_Payment_Date = N'" & PA64 & "', Remark = N'" & PA63 & "', 
+                                          Darren佣金 = N'" & PA62 & "', Betty佣金 = N'" & PA61 & "', 利息or扣款 = N'" & PA60 & "', 扣工廠手續費 = N'" & PA59 & "', 
+                                          已確認 = N'" & PA58 & "', F_銀行扣款 = N'" & PA57 & "', F_文件費 = N'" & PA56 & "', F_貼標費 = N'" & PA55 & "', F_增加款 = N'" & PA54 & "', 
+                                          C_文件費 = N'" & PA53 & "', C_貼標費 = N'" & PA52 & "', C_利息or扣款 = N'" & PA51 & "', 已出貨 = N'" & PA50 & "'  
+                WHERE  (流水號 LIKE '" & PA3 & "')"
+        CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_銷帳清單_流水號()
+        ConnOpen() : SQL1 = "SELECT  TOP (1) 流水號  FROM  貨款銷帳明細表  ORDER BY  流水號 DESC" : CmdSet_For_dr()
+    End Sub
+    Friend Sub SQL_銷帳清單_新增()
+        ConnOpen()
+        SQL1 = "INSERT INTO 貨款銷帳明細表 (流水號, 年份, 品牌, 工廠, INV, 訂單號, 訂單數, 出貨數量, FTY_PRICE, 扣關稅or後廠價, CUST_Price, 
+                            EX_FTY_DATE, Maturity_Date, FTY_Payment_Date, Remark, Darren佣金, Betty佣金, 利息or扣款, 扣工廠手續費, 
+                            已確認, F_銀行扣款, F_文件費, F_貼標費, F_增加款, C_文件費, C_貼標費, C_利息or扣款, 已出貨) 
+                    VALUES (N'" & PA49 & "', N'" & PA48 & "', N'" & PA47 & "', N'" & PA46 & "', N'" & PA45 & "', N'" & PA44 & "', N'" & PA43 & "', N'" & PA70 & "', 
+                            N'" & PA69 & "', N'" & PA68 & "', N'" & PA67 & "', N'" & PA66 & "', N'" & PA65 & "', N'" & PA64 & "', N'" & PA63 & "', N'" & PA62 & "', 
+                            N'" & PA61 & "', N'" & PA60 & "', N'" & PA59 & "', '0', N'" & PA57 & "', N'" & PA56 & "', N'" & PA55 & "', N'" & PA54 & "', 
+                            N'" & PA53 & "', N'" & PA52 & "', N'" & PA51 & "', '0')"
+        CmdSet_For_dr()
+    End Sub
 End Module

TENDEN-MES-SYS/Module/SQL_連線字串.vb

@@ -1,6 +1,10 @@
 Module SQL_連線字串
     Friend Sub SQL_連線字串_測試()
-        ConString = "Data Source=" & 登入人IP & ";Initial Catalog=天盾國際管理系統資料庫;Persist Security Info=True;User ID=b70340;Password=Lee0911274990;Max pool size = 200;Connection Timeout=0"
+        If 登入人IP = "106.1.49.218,2433" Then
+            ConString = "Data Source=" & 登入人IP & ";Initial Catalog=天盾國際管理系統資料庫;Persist Security Info=True;User ID=b70340;Password=Lee0911274990;Max pool size = 200;Connection Timeout=0"
+        Else
+            ConString = "Data Source=" & 登入人IP & ";Initial Catalog=天盾國際管理系統資料庫;Persist Security Info=True;User ID=b70340;Password=0911274990;Max pool size = 200;Connection Timeout=0"
+        End If
     End Sub
     Friend Sub SQL_連線字串_正式()
         ConString = "Data Source=" & 登入人IP & ";Initial Catalog=天盾國際管理系統資料庫;Persist Security Info=True;User ID=b70340;Password=0911274990;Max pool size = 200;Connection Timeout=0"

TENDEN-MES-SYS/Module/SQL_連線狀態模組1.vb

@@ -0,0 +1,64 @@
+Module SQL_連線狀態模組1
+#Region "——连接测试：避免等待时间过长——"
+    Dim bConnect As Boolean
+    Dim BgWorker1 As New System.ComponentModel.BackgroundWorker
+    Dim ServerIP As String
+    ''' <summary>
+    ''' 测试连接：True-连接成功，False-连接失败
+    ''' 参数[必选]：服务器IP
+    ''' 参数[可选]：等待超时时间（秒）,默认为1.2秒
+    ''' </summary>
+    ''' <returns></returns>
+    ''' <remarks></remarks>
+    Function ConnectTest1(ByVal varServerIP As String, Optional ByVal varTimeout As Decimal = 1.5) As Boolean
+        AddHandler BgWorker1.DoWork, AddressOf BgWorker1_DoWork
+        Dim g As Integer
+        Dim k As Integer
+        If BgWorker1.CancellationPending Then
+            BgWorker1.CancelAsync()
+            '取消BackgroundWorker執行中的工作
+        End If
+        Try
+            If varServerIP = "" Then
+                Exit Function
+            End If
+            ServerIP = varServerIP
+            If varTimeout <= 0 Then
+                varTimeout = 2
+            End If
+            k = Int(varTimeout * 10)
+            bConnect = False
+            BgWorker1.WorkerSupportsCancellation = True
+            BgWorker1.RunWorkerAsync()
+            For g = 1 To k '1.2s
+                Threading.Thread.Sleep(100)
+                If bConnect = True Then
+                    ConnectTest1 = True
+                    Exit Function
+                End If
+            Next
+            ConnectTest1 = False
+            BgWorker1.CancelAsync()
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+    End Function
+    '--异步动作
+    Private Sub BgWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs)
+        Call ConnectMSSQLServer()
+    End Sub
+    '--连接数据库
+    Private Function ConnectMSSQLServer() As Boolean
+        Dim sqlConTest As Data.SqlClient.SqlConnection ' 连接   
+        sqlConTest = New Data.SqlClient.SqlConnection
+        sqlConTest.ConnectionString = "Data Source=" + ServerIP + ";Initial Catalog=天盾國際管理系統資料庫;Persist Security Info=True;User ID=b70340;Password=0911274990;Max pool size = 200;Connection Timeout=0"
+        Try
+            sqlConTest.Open()
+            sqlConTest.Close()
+        Catch ex As Exception
+        Finally
+            bConnect = True
+        End Try
+    End Function
+#End Region
+End Module

TENDEN-MES-SYS/Module/SQL_量產訂單系統.vb

@@ -374,6 +374,30 @@
                     ORDER BY   貨款匯入出款明細表.訂單流水號 DESC, 貨款匯入出款明細表.形體號, 貨款匯入出款明細表.顏色, 
                             貨款匯入出款明細表.楦型"
     End Sub
+    Friend Sub SQL_出貨明細表_ALL()
+        SQL1 = "SELECT      貨款匯入出款明細表.貨款流水號, 貨款匯入出款明細表.訂單流水號, 貨款匯入出款明細表.年份季度, 
+                            貨款匯入出款明細表.客戶訂單號, 貨款匯入出款明細表.形體號, 貨款匯入出款明細表.顏色, 
+                            貨款匯入出款明細表.楦型, 貨款匯入出款明細表.訂單數量, 貨款匯入出款明細表.出貨數量, 
+                            " & 訂單資料表(1) & ".備註, " & 訂單資料表(1) & ".生產工廠, " & 訂單資料表(1) & ".訂單種類, 
+                            " & 訂單資料表(1) & ".客戶交期, " & 訂單資料表(1) & ".工廠回復交期, 貨款匯入出款明細表.實際離廠日, 
+                            " & 訂單資料表(1) & ".明細建檔, " & 訂單資料表(1) & ".驗貨報告圖片, " & 訂單資料表(1) & ".TVW, " & 訂單資料表(1) & ".驗報圖庫
+                    FROM    貨款匯入出款明細表 INNER JOIN
+                            " & 訂單資料表(1) & " ON 貨款匯入出款明細表.顏色 = " & 訂單資料表(1) & ".顏色 AND 
+                            貨款匯入出款明細表.楦型 = " & 訂單資料表(1) & ".楦型 AND 
+                            貨款匯入出款明細表.形體號 = " & 訂單資料表(1) & ".形體號 AND 
+                            貨款匯入出款明細表.訂單流水號 = " & 訂單資料表(1) & ".訂單流水號 AND 
+                            貨款匯入出款明細表.資料流水號 = " & 訂單資料表(1) & ".資料流水號
+            WHERE          (LEFT(貨款匯入出款明細表.實際離廠日, 4) LIKE '" & PA25 & "') OR
+                           (LEFT(貨款匯入出款明細表.實際離廠日, 4) LIKE '" & PA26 & "') OR
+                           (LEFT(貨款匯入出款明細表.實際離廠日, 4) LIKE '" & PA27 & "')
+                   GROUP BY 貨款匯入出款明細表.貨款流水號, 貨款匯入出款明細表.訂單流水號, 貨款匯入出款明細表.年份季度, 
+                            貨款匯入出款明細表.客戶訂單號, 貨款匯入出款明細表.形體號, 貨款匯入出款明細表.顏色, 
+                            貨款匯入出款明細表.楦型, 貨款匯入出款明細表.訂單數量, 貨款匯入出款明細表.出貨數量, 
+                            " & 訂單資料表(1) & ".備註, " & 訂單資料表(1) & ".生產工廠, " & 訂單資料表(1) & ".訂單種類, 
+                            " & 訂單資料表(1) & ".客戶交期, " & 訂單資料表(1) & ".工廠回復交期, 貨款匯入出款明細表.實際離廠日, 
+                            " & 訂單資料表(1) & ".明細建檔, " & 訂單資料表(1) & ".驗貨報告圖片, " & 訂單資料表(1) & ".TVW, " & 訂單資料表(1) & ".驗報圖庫
+                    ORDER BY   訂單流水號 DESC"
+    End Sub
     Friend Sub SQL_出貨明細表1()
         SQL1 = "SELECT      TOP (1000) 貨款匯入出款明細表.貨款流水號, 貨款匯入出款明細表.訂單流水號, 貨款匯入出款明細表.年份季度, 
                             貨款匯入出款明細表.客戶訂單號, 貨款匯入出款明細表.形體號, 貨款匯入出款明細表.顏色, 

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

@@ -3,14 +3,16 @@
     Public g_conn_type, gUserName, 版本號, Target, Target1, Target2, FTP帳號, FTP密碼, 登入人IP, AA(99), 圖片庫, SQL密碼 As String
     Public CC(99), 登入判斷 As Boolean
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2023060701"
+    Public 版本 As String = "2023100701"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 匯率 As Double
     '----系統用全域變數----------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 圖片傳遞 As Image
     Public 進度條後墜 As String
+    Public 首次開啟, 重新計算 As Boolean
     '--------------整數變數
     Public 比例1, 比例2, 比例3, 分母, 計算累加 As Integer
+    Public lastFoundRowIndex, lastFoundColIndex As Integer
     '--------------雙精變數
     Public 分段1, 分段2, 分段3, 分段4 As Double : Public NU1, DN(3) As Double
     '--------------布林函數

TENDEN-MES-SYS/My Project/Resources.Designer.vb

@@ -240,6 +240,26 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+        '''</summary>
+        Friend ReadOnly Property arrow_down() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("arrow-down", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+        '''</summary>
+        Friend ReadOnly Property arrow_up() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("arrow-up", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
         '''</summary>
@@ -420,6 +440,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+        '''</summary>
+        Friend ReadOnly Property print() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("print", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
         '''</summary>
@@ -440,6 +470,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+        '''</summary>
+        Friend ReadOnly Property Search() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("Search", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
         '''</summary>
@@ -529,5 +569,15 @@ Namespace My.Resources
                 Return CType(obj,System.Drawing.Bitmap)
             End Get
         End Property
+        
+        '''<summary>
+        '''  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+        '''</summary>
+        Friend ReadOnly Property ZOOM01() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("ZOOM01", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
     End Module
 End Namespace

TENDEN-MES-SYS/My Project/Resources.resx

@@ -121,17 +121,11 @@
   <data name="6295116897660148006" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\6295116897660148006.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Add_Image" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片\Add_Image.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="SAVER" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片\SAVER.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="shoe" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\shoe.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Shoes" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片\Shoes.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="PortableComputer" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\PortableComputer.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="62951168976601486" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\62951168976601486.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -139,21 +133,18 @@
   <data name="9572467" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\9572467.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="PortableComputer" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片\PortableComputer.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="Abacus" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\Abacus.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="Shipping5" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\Shipping5.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="Shoe (1)" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\Shoe (1).png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="1440X828" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\1440X828.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="1980X1010" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片\1980X1010.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
   <data name="1366X719" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\1366X719.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -169,9 +160,18 @@
   <data name="Money" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\Money.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="GarbageEmpty" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\GarbageEmpty.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="childish_Tool" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\childish_Tool.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="arrow-down" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\arrow-down.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="arrow-up" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\arrow-up.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="buy" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\buy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
@@ -181,23 +181,29 @@
   <data name="Personnel" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\Personnel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="00110102" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\00110102.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="Sys-Command" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\Sys-Command.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="moving-and-packing-icon-set-03_brown" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\moving-and-packing-icon-set-03_brown.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="1280X956" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\1280X956.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="1601X896" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\1601X896.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
+  <data name="Shoes" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\Shoes.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
   <data name="add-2" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\add-2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="moving-and-packing-icon-set-03_blue" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片\moving-and-packing-icon-set-03_blue.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
-  </data>
-  <data name="business-info" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片\business-info.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="shoe_black" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\shoe_black.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="import" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\import.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -208,26 +214,35 @@
   <data name="document-accept" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\document-accept.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="ShoesInBox" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片\ShoesInBox.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="SAVER" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\SAVER.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="check" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\check.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="1280X956" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片\1280X956.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="ShoesInBox" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\ShoesInBox.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="Payment" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\Payment.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="print" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\print.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  </data>
+  <data name="2019100601" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\2019100601.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="9572466" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\9572466.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Payment" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片\Payment.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="1980X1010" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\1980X1010.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="basket_back" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\basket_back.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="Shipping5" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片\Shipping5.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="Search" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\Search.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="00110101" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\00110101.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -238,14 +253,14 @@
   <data name="Report" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\Report.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="2019100601" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片\2019100601.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="moving-and-packing-icon-set-03_blue" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\moving-and-packing-icon-set-03_blue.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="check-icon" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\check-icon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="00110102" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片\00110102.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="Add_Image" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\Add_Image.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="2020032001" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\2020032001.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -253,10 +268,10 @@
   <data name="pen" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\圖片\pen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="shoe_black" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片\shoe_black.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="business-info" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\business-info.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
-  <data name="GarbageEmpty" type="System.Resources.ResXFileRef, System.Windows.Forms">
-    <value>..\圖片\GarbageEmpty.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
+  <data name="ZOOM01" type="System.Resources.ResXFileRef, System.Windows.Forms">
+    <value>..\圖片\ZOOM01.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
 </root>

TENDEN-MES-SYS/TENDEN_MES_SYS.Designer.vb

@@ -118,6 +118,7 @@ Partial Class TENDEN_MES_SYS
         Me.ToolStripSeparator19 = New System.Windows.Forms.ToolStripSeparator()
         Me.訂單價格利潤明細表_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.未指定單價查詢表_tsm = New System.Windows.Forms.ToolStripMenuItem()
+        Me.ToolStripSeparator27 = New System.Windows.Forms.ToolStripSeparator()
         Me.貨款匯入出款明細表_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.Report_tsm = New System.Windows.Forms.ToolStripMenuItem()
         Me.Report1_tsm = New System.Windows.Forms.ToolStripMenuItem()
@@ -154,7 +155,6 @@ Partial Class TENDEN_MES_SYS
         Me.ToolStripStatusLabel1 = New System.Windows.Forms.ToolStripStatusLabel()
         Me.ToolStripProgressBar1 = New System.Windows.Forms.ToolStripProgressBar()
         Me.合計_TSSL = New System.Windows.Forms.ToolStripStatusLabel()
-        Me.ToolStripSeparator27 = New System.Windows.Forms.ToolStripSeparator()
         Me.MenuStrip.SuspendLayout()
         Me.StatusStrip.SuspendLayout()
         Me.SuspendLayout()
@@ -802,20 +802,20 @@ Partial Class TENDEN_MES_SYS
         Me.成本資料庫管理_tsm.ForeColor = System.Drawing.Color.Blue
         Me.成本資料庫管理_tsm.Image = Global.天盾國際管理系統.My.Resources.Resources.Sys_Command
         Me.成本資料庫管理_tsm.Name = "成本資料庫管理_tsm"
-        Me.成本資料庫管理_tsm.Size = New System.Drawing.Size(187, 22)
+        Me.成本資料庫管理_tsm.Size = New System.Drawing.Size(182, 22)
         Me.成本資料庫管理_tsm.Text = "成本資料庫管理"
         '
         'ToolStripSeparator19
         '
         Me.ToolStripSeparator19.Name = "ToolStripSeparator19"
-        Me.ToolStripSeparator19.Size = New System.Drawing.Size(184, 6)
+        Me.ToolStripSeparator19.Size = New System.Drawing.Size(179, 6)
         '
         '訂單價格利潤明細表_tsm
         '
         Me.訂單價格利潤明細表_tsm.ForeColor = System.Drawing.Color.Blue
         Me.訂單價格利潤明細表_tsm.Image = Global.天盾國際管理系統.My.Resources.Resources.document_accept
         Me.訂單價格利潤明細表_tsm.Name = "訂單價格利潤明細表_tsm"
-        Me.訂單價格利潤明細表_tsm.Size = New System.Drawing.Size(187, 22)
+        Me.訂單價格利潤明細表_tsm.Size = New System.Drawing.Size(182, 22)
         Me.訂單價格利潤明細表_tsm.Text = "訂單價格利潤明細表"
         '
         '未指定單價查詢表_tsm
@@ -823,16 +823,21 @@ Partial Class TENDEN_MES_SYS
         Me.未指定單價查詢表_tsm.ForeColor = System.Drawing.Color.Blue
         Me.未指定單價查詢表_tsm.Image = Global.天盾國際管理系統.My.Resources.Resources.tests
         Me.未指定單價查詢表_tsm.Name = "未指定單價查詢表_tsm"
-        Me.未指定單價查詢表_tsm.Size = New System.Drawing.Size(187, 22)
+        Me.未指定單價查詢表_tsm.Size = New System.Drawing.Size(182, 22)
         Me.未指定單價查詢表_tsm.Text = "未指定單價查詢表"
         '
+        'ToolStripSeparator27
+        '
+        Me.ToolStripSeparator27.Name = "ToolStripSeparator27"
+        Me.ToolStripSeparator27.Size = New System.Drawing.Size(179, 6)
+        '
         '貨款匯入出款明細表_tsm
         '
         Me.貨款匯入出款明細表_tsm.ForeColor = System.Drawing.Color.Blue
         Me.貨款匯入出款明細表_tsm.Image = Global.天盾國際管理系統.My.Resources.Resources.document_accept
         Me.貨款匯入出款明細表_tsm.Name = "貨款匯入出款明細表_tsm"
-        Me.貨款匯入出款明細表_tsm.Size = New System.Drawing.Size(187, 22)
-        Me.貨款匯入出款明細表_tsm.Text = "貨款匯入/出款明細表"
+        Me.貨款匯入出款明細表_tsm.Size = New System.Drawing.Size(182, 22)
+        Me.貨款匯入出款明細表_tsm.Text = "出貨銷帳明細表"
         '
         'Report_tsm
         '
@@ -1089,11 +1094,6 @@ Partial Class TENDEN_MES_SYS
         Me.合計_TSSL.Size = New System.Drawing.Size(47, 17)
         Me.合計_TSSL.Text = "合計 : 0"
         '
-        'ToolStripSeparator27
-        '
-        Me.ToolStripSeparator27.Name = "ToolStripSeparator27"
-        Me.ToolStripSeparator27.Size = New System.Drawing.Size(184, 6)
-        '
         'TENDEN_MES_SYS
         '
         Me.AllowDrop = True

TENDEN-MES-SYS/TENDEN_MES_SYS.vb

@@ -24,7 +24,12 @@
     End Sub
     Private ReadOnly m_ChildFormNumber As Integer
     Private Sub MDIParent1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        Me.Text = Me.Text & "  --  " & g_conn_type & "  --  " & gUserName & "  --  系統版本  :" & 版本
+        If gUserName = "李協叡" Then
+            Me.Text = Me.Text & "  --  " & g_conn_type & "  --  " & gUserName & "  --  系統版本  : " & 版本 & " - " & 登入人IP
+        Else
+            Me.Text = Me.Text & "  --  " & g_conn_type & "  --  " & gUserName & "  --  系統版本  : " & 版本
+        End If
+
         SQL_系統預設值() : If dr.Read() Then : 圖庫限制 = dr("圖片伺服器上限") : End If
 
         Dim screenWidth = Screen.PrimaryScreen.Bounds.Width
@@ -343,10 +348,6 @@
         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
         PA = "" : 保證書出貨統計資料.Show() : 保證書出貨統計資料.BringToFront()
     End Sub
-
-
-
-
     Private Sub 人員ID卡系統配置設定_tsm1_Click(sender As Object, e As EventArgs) Handles 人員ID卡系統配置設定_tsm.Click
         PA = "" : 人員ID卡系統配置設定.ShowDialog()
     End Sub
@@ -397,6 +398,8 @@
         For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
         PA = "" : 包裝資料圖片資料庫.Show() : 包裝資料圖片資料庫.BringToFront()
     End Sub
-
-
+    Private Sub 貨款匯入出款明細表_tsm_Click(sender As Object, e As EventArgs) Handles 貨款匯入出款明細表_tsm.Click
+        For Each ChildForm As Form In Me.MdiChildren : ChildForm.Close() : Next
+        PA = "" : 出貨銷帳明細表.Show() : 出貨銷帳明細表.BringToFront()
+    End Sub
 End Class

TENDEN-MES-SYS/bin/Debug/TENDEN-ERP-SYS.xml

@@ -112,6 +112,16 @@ TENDEN-ERP-SYS
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
 </summary>
 </member>
+<member name="P:天盾國際管理系統.My.Resources.Resources.arrow_down">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="P:天盾國際管理系統.My.Resources.Resources.arrow_up">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
 <member name="P:天盾國際管理系統.My.Resources.Resources.basket_back">
 <summary>
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
@@ -202,6 +212,11 @@ TENDEN-ERP-SYS
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
 </summary>
 </member>
+<member name="P:天盾國際管理系統.My.Resources.Resources.print">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
 <member name="P:天盾國際管理系統.My.Resources.Resources.Report">
 <summary>
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
@@ -212,6 +227,11 @@ TENDEN-ERP-SYS
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
 </summary>
 </member>
+<member name="P:天盾國際管理系統.My.Resources.Resources.Search">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
 <member name="P:天盾國際管理系統.My.Resources.Resources.Shipping5">
 <summary>
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
@@ -257,6 +277,11 @@ TENDEN-ERP-SYS
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
 </summary>
 </member>
+<member name="P:天盾國際管理系統.My.Resources.Resources.ZOOM01">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
 <member name="M:天盾國際管理系統.SQL_連線狀態模組.ConnectTest(System.String,System.Decimal)">
  <summary>
  测试连接：True-连接成功，False-连接失败
@@ -266,5 +291,14 @@ TENDEN-ERP-SYS
  <returns></returns>
  <remarks></remarks>
 </member>
+<member name="M:天盾國際管理系統.SQL_連線狀態模組1.ConnectTest1(System.String,System.Decimal)">
+ <summary>
+ 测试连接：True-连接成功，False-连接失败
+ 参数[必选]：服务器IP
+ 参数[可选]：等待超时时间（秒）,默认为1.2秒
+ </summary>
+ <returns></returns>
+ <remarks></remarks>
+</member>
 </members>
 </doc>

TENDEN-MES-SYS/obj/Debug/TENDEN-ERP-SYS.xml

@@ -112,6 +112,16 @@ TENDEN-ERP-SYS
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
 </summary>
 </member>
+<member name="P:天盾國際管理系統.My.Resources.Resources.arrow_down">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
+<member name="P:天盾國際管理系統.My.Resources.Resources.arrow_up">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
 <member name="P:天盾國際管理系統.My.Resources.Resources.basket_back">
 <summary>
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
@@ -202,6 +212,11 @@ TENDEN-ERP-SYS
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
 </summary>
 </member>
+<member name="P:天盾國際管理系統.My.Resources.Resources.print">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
 <member name="P:天盾國際管理系統.My.Resources.Resources.Report">
 <summary>
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
@@ -212,6 +227,11 @@ TENDEN-ERP-SYS
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
 </summary>
 </member>
+<member name="P:天盾國際管理系統.My.Resources.Resources.Search">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
 <member name="P:天盾國際管理系統.My.Resources.Resources.Shipping5">
 <summary>
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
@@ -257,6 +277,11 @@ TENDEN-ERP-SYS
   查詢類型 System.Drawing.Bitmap 的當地語系化資源。
 </summary>
 </member>
+<member name="P:天盾國際管理系統.My.Resources.Resources.ZOOM01">
+<summary>
+  查詢類型 System.Drawing.Bitmap 的當地語系化資源。
+</summary>
+</member>
 <member name="M:天盾國際管理系統.SQL_連線狀態模組.ConnectTest(System.String,System.Decimal)">
  <summary>
  测试连接：True-连接成功，False-连接失败
@@ -266,5 +291,14 @@ TENDEN-ERP-SYS
  <returns></returns>
  <remarks></remarks>
 </member>
+<member name="M:天盾國際管理系統.SQL_連線狀態模組1.ConnectTest1(System.String,System.Decimal)">
+ <summary>
+ 测试连接：True-连接成功，False-连接失败
+ 参数[必选]：服务器IP
+ 参数[可选]：等待超时时间（秒）,默认为1.2秒
+ </summary>
+ <returns></returns>
+ <remarks></remarks>
+</member>
 </members>
 </doc>

TENDEN-MES-SYS/obj/Debug/天盾系統.vbproj.CoreCompileInputs.cache

@@ -1 +1 @@
-6ff36c54da8b9d62ca4d83d3268858fa7166cfb4
+714815f551cc279498cef0a2b14f2a8111707be0

TENDEN-MES-SYS/obj/Debug/天盾系統.vbproj.FileListAbsolute.txt

@@ -961,3 +961,4 @@ D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\TENDEN-ERP-SYS.exe
 D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\TENDEN-ERP-SYS.xml
 D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\TENDEN-ERP-SYS.pdb
 D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.訂單拆單模組.resources
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.出貨銷帳明細表.resources

TENDEN-MES-SYS/天盾系統.vbproj

@@ -107,6 +107,7 @@
     <Compile Include="Module\SQL_資料庫系統管理.vb" />
     <Compile Include="Module\SQL_連線字串.vb" />
     <Compile Include="Module\SQL_連線狀態模組.vb" />
+    <Compile Include="Module\SQL_連線狀態模組1.vb" />
     <Compile Include="Module\SQL_量產訂單資料庫切換.vb" />
     <Compile Include="Module\SQL_圖片資料庫管理.vb" />
     <Compile Include="Module\SQL_彙總報表管理.vb" />
@@ -145,6 +146,12 @@
     <Compile Include="彙總報表管理\特殊工具\訂單分析比對工具_力威.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="成本系統管理\出貨銷帳明細表.Designer.vb">
+      <DependentUpon>出貨銷帳明細表.vb</DependentUpon>
+    </Compile>
+    <Compile Include="成本系統管理\出貨銷帳明細表.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="成本系統管理\未指定單價查詢表.Designer.vb">
       <DependentUpon>未指定單價查詢表.vb</DependentUpon>
     </Compile>
@@ -816,6 +823,9 @@
     <EmbeddedResource Include="彙總報表管理\特殊工具\訂單分析比對工具_力威.resx">
       <DependentUpon>訂單分析比對工具_力威.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="成本系統管理\出貨銷帳明細表.resx">
+      <DependentUpon>出貨銷帳明細表.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="成本系統管理\未指定單價查詢表.resx">
       <DependentUpon>未指定單價查詢表.vb</DependentUpon>
     </EmbeddedResource>
@@ -1158,6 +1168,11 @@
   </ItemGroup>
   <ItemGroup>
     <Content Include="favicon-20181108114334167.ico" />
+    <None Include="圖片\ZOOM01.png" />
+    <None Include="圖片\print.png" />
+    <None Include="圖片\arrow-down.png" />
+    <None Include="圖片\arrow-up.png" />
+    <None Include="圖片\Search.png" />
     <None Include="圖片\9572465.jpg" />
     <None Include="圖片\9572466.jpg" />
     <None Include="圖片\9572467.jpg" />

TENDEN-MES-SYS/成本系統管理/出貨銷帳明細表.Designer.vb

@@ -0,0 +1,619 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class 出貨銷帳明細表
+    Inherits System.Windows.Forms.Form
+
+    'Form 覆寫 Dispose 以清除元件清單。
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    '為 Windows Form 設計工具的必要項
+    Private components As System.ComponentModel.IContainer
+
+    '注意: 以下為 Windows Form 設計工具所需的程序
+    '可以使用 Windows Form 設計工具進行修改。
+    '請勿使用程式碼編輯器進行修改。
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle23 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle24 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Me.利潤表_dgv = New System.Windows.Forms.DataGridView()
+        Me.資料庫選擇2_bt = New System.Windows.Forms.Button()
+        Me.資料庫選擇1_bt = New System.Windows.Forms.Button()
+        Me.Label20 = New System.Windows.Forms.Label()
+        Me.訂單明細表_dgv = New System.Windows.Forms.DataGridView()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.銷帳_dgv = New System.Windows.Forms.DataGridView()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.品牌標註_lb = New System.Windows.Forms.Label()
+        Me.年份_cb = New System.Windows.Forms.ComboBox()
+        Me.PO號_tb = New System.Windows.Forms.TextBox()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.Label16 = New System.Windows.Forms.Label()
+        Me.INV排序_cb = New System.Windows.Forms.CheckBox()
+        Me.PO排序_cb = New System.Windows.Forms.CheckBox()
+        Me.PO號1_tb = New System.Windows.Forms.TextBox()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.流水號_tb = New System.Windows.Forms.TextBox()
+        Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
+        Me.視窗2_pl = New System.Windows.Forms.Panel()
+        Me.隱藏_bt = New System.Windows.Forms.Button()
+        Me.新增資料_bt = New System.Windows.Forms.Button()
+        Me.Panel3 = New System.Windows.Forms.Panel()
+        Me.控制表1_dgv = New System.Windows.Forms.DataGridView()
+        Me.控制表_dgv = New System.Windows.Forms.DataGridView()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.CanceL2_bt = New System.Windows.Forms.Button()
+        Me.開啟_bt = New System.Windows.Forms.Button()
+        Me.列印_bt = New System.Windows.Forms.Button()
+        Me.刪除_bt = New System.Windows.Forms.Button()
+        Me.存檔_tb = New System.Windows.Forms.Button()
+        Me.比對新增_bt = New System.Windows.Forms.Button()
+        Me.差異_下_bt = New System.Windows.Forms.Button()
+        Me.差異_上_bt = New System.Windows.Forms.Button()
+        Me.比對關鍵字_bt = New System.Windows.Forms.Button()
+        Me.訂單拆分_bt = New System.Windows.Forms.Button()
+        CType(Me.利潤表_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.訂單明細表_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.銷帳_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.視窗2_pl.SuspendLayout()
+        Me.Panel3.SuspendLayout()
+        CType(Me.控制表1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.控制表_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        '利潤表_dgv
+        '
+        Me.利潤表_dgv.Anchor = CType(((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.BackgroundColor = System.Drawing.Color.White
+        DataGridViewCellStyle17.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle17.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle17.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle17.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle17.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle17.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.利潤表_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle17
+        Me.利潤表_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.利潤表_dgv.Location = New System.Drawing.Point(4, 309)
+        Me.利潤表_dgv.Name = "利潤表_dgv"
+        Me.利潤表_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle18.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.利潤表_dgv.RowsDefaultCellStyle = DataGridViewCellStyle18
+        Me.利潤表_dgv.RowTemplate.Height = 24
+        Me.利潤表_dgv.Size = New System.Drawing.Size(1586, 176)
+        Me.利潤表_dgv.TabIndex = 3
+        '
+        '資料庫選擇2_bt
+        '
+        Me.資料庫選擇2_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.資料庫選擇2_bt.Location = New System.Drawing.Point(1515, 0)
+        Me.資料庫選擇2_bt.Name = "資料庫選擇2_bt"
+        Me.資料庫選擇2_bt.Size = New System.Drawing.Size(75, 35)
+        Me.資料庫選擇2_bt.TabIndex = 565
+        Me.資料庫選擇2_bt.Text = "DRS/ LIF"
+        Me.資料庫選擇2_bt.UseVisualStyleBackColor = True
+        '
+        '資料庫選擇1_bt
+        '
+        Me.資料庫選擇1_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.資料庫選擇1_bt.Location = New System.Drawing.Point(1440, 0)
+        Me.資料庫選擇1_bt.Name = "資料庫選擇1_bt"
+        Me.資料庫選擇1_bt.Size = New System.Drawing.Size(75, 35)
+        Me.資料庫選擇1_bt.TabIndex = 564
+        Me.資料庫選擇1_bt.Text = "VIONIC"
+        Me.資料庫選擇1_bt.UseVisualStyleBackColor = True
+        '
+        'Label20
+        '
+        Me.Label20.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label20.AutoSize = True
+        Me.Label20.Location = New System.Drawing.Point(1272, 10)
+        Me.Label20.Name = "Label20"
+        Me.Label20.Size = New System.Drawing.Size(88, 16)
+        Me.Label20.TabIndex = 563
+        Me.Label20.Text = "目前選擇品牌 : "
+        '
+        '訂單明細表_dgv
+        '
+        Me.訂單明細表_dgv.Anchor = CType(((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.BackgroundColor = System.Drawing.Color.White
+        Me.訂單明細表_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.訂單明細表_dgv.Location = New System.Drawing.Point(4, 500)
+        Me.訂單明細表_dgv.Name = "訂單明細表_dgv"
+        Me.訂單明細表_dgv.RowHeadersWidth = 5
+        Me.訂單明細表_dgv.RowTemplate.Height = 24
+        Me.訂單明細表_dgv.Size = New System.Drawing.Size(1586, 176)
+        Me.訂單明細表_dgv.TabIndex = 566
+        '
+        'Label1
+        '
+        Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(6, 293)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(67, 16)
+        Me.Label1.TabIndex = 567
+        Me.Label1.Text = "成本明細表"
+        '
+        'Label2
+        '
+        Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(6, 485)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(67, 16)
+        Me.Label2.TabIndex = 568
+        Me.Label2.Text = "出貨明細表"
+        '
+        '銷帳_dgv
+        '
+        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.BackgroundColor = System.Drawing.Color.White
+        DataGridViewCellStyle19.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle19.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle19.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle19.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle19.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle19.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.銷帳_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle19
+        Me.銷帳_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.銷帳_dgv.Location = New System.Drawing.Point(4, 35)
+        Me.銷帳_dgv.Name = "銷帳_dgv"
+        Me.銷帳_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle20.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.銷帳_dgv.RowsDefaultCellStyle = DataGridViewCellStyle20
+        Me.銷帳_dgv.RowTemplate.Height = 24
+        Me.銷帳_dgv.Size = New System.Drawing.Size(1586, 256)
+        Me.銷帳_dgv.TabIndex = 569
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Location = New System.Drawing.Point(6, 19)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(67, 16)
+        Me.Label3.TabIndex = 570
+        Me.Label3.Text = "銷帳明細表"
+        '
+        '品牌標註_lb
+        '
+        Me.品牌標註_lb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.品牌標註_lb.AutoSize = True
+        Me.品牌標註_lb.ForeColor = System.Drawing.Color.Red
+        Me.品牌標註_lb.Location = New System.Drawing.Point(1366, 10)
+        Me.品牌標註_lb.Name = "品牌標註_lb"
+        Me.品牌標註_lb.Size = New System.Drawing.Size(57, 16)
+        Me.品牌標註_lb.TabIndex = 570
+        Me.品牌標註_lb.Text = "__________"
+        '
+        '年份_cb
+        '
+        Me.年份_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
+        Me.年份_cb.FormattingEnabled = True
+        Me.年份_cb.Items.AddRange(New Object() {"2026", "2025", "2024", "2023", "2022", "2021", "2020", "2019", "2018", "2017", "2016", "2015", "2014", "2013"})
+        Me.年份_cb.Location = New System.Drawing.Point(153, 5)
+        Me.年份_cb.Name = "年份_cb"
+        Me.年份_cb.Size = New System.Drawing.Size(92, 24)
+        Me.年份_cb.TabIndex = 573
+        '
+        'PO號_tb
+        '
+        Me.PO號_tb.BackColor = System.Drawing.Color.White
+        Me.PO號_tb.Location = New System.Drawing.Point(289, 6)
+        Me.PO號_tb.Name = "PO號_tb"
+        Me.PO號_tb.Size = New System.Drawing.Size(97, 23)
+        Me.PO號_tb.TabIndex = 571
+        Me.PO號_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Location = New System.Drawing.Point(251, 9)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(32, 16)
+        Me.Label4.TabIndex = 572
+        Me.Label4.Text = "PO#"
+        '
+        'Label16
+        '
+        Me.Label16.AutoSize = True
+        Me.Label16.Location = New System.Drawing.Point(116, 9)
+        Me.Label16.Name = "Label16"
+        Me.Label16.Size = New System.Drawing.Size(31, 16)
+        Me.Label16.TabIndex = 574
+        Me.Label16.Text = "年份"
+        '
+        'INV排序_cb
+        '
+        Me.INV排序_cb.AutoSize = True
+        Me.INV排序_cb.Checked = True
+        Me.INV排序_cb.CheckState = System.Windows.Forms.CheckState.Checked
+        Me.INV排序_cb.Location = New System.Drawing.Point(529, 8)
+        Me.INV排序_cb.Name = "INV排序_cb"
+        Me.INV排序_cb.Size = New System.Drawing.Size(71, 20)
+        Me.INV排序_cb.TabIndex = 1376
+        Me.INV排序_cb.Text = "INV排序"
+        Me.INV排序_cb.UseVisualStyleBackColor = True
+        '
+        'PO排序_cb
+        '
+        Me.PO排序_cb.AutoSize = True
+        Me.PO排序_cb.Location = New System.Drawing.Point(607, 8)
+        Me.PO排序_cb.Name = "PO排序_cb"
+        Me.PO排序_cb.Size = New System.Drawing.Size(67, 20)
+        Me.PO排序_cb.TabIndex = 1377
+        Me.PO排序_cb.Text = "PO排序"
+        Me.PO排序_cb.UseVisualStyleBackColor = True
+        '
+        'PO號1_tb
+        '
+        Me.PO號1_tb.BackColor = System.Drawing.Color.White
+        Me.PO號1_tb.Location = New System.Drawing.Point(389, 6)
+        Me.PO號1_tb.Name = "PO號1_tb"
+        Me.PO號1_tb.Size = New System.Drawing.Size(97, 23)
+        Me.PO號1_tb.TabIndex = 1378
+        Me.PO號1_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label5
+        '
+        Me.Label5.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Label5.AutoSize = True
+        Me.Label5.Location = New System.Drawing.Point(1107, 10)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(88, 16)
+        Me.Label5.TabIndex = 1381
+        Me.Label5.Text = "異動資料查詢 : "
+        '
+        '流水號_tb
+        '
+        Me.流水號_tb.BackColor = System.Drawing.Color.White
+        Me.流水號_tb.Location = New System.Drawing.Point(674, 6)
+        Me.流水號_tb.Name = "流水號_tb"
+        Me.流水號_tb.Size = New System.Drawing.Size(99, 23)
+        Me.流水號_tb.TabIndex = 1385
+        Me.流水號_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'OpenFileDialog1
+        '
+        Me.OpenFileDialog1.FileName = "OpenFileDialog1"
+        '
+        '視窗2_pl
+        '
+        Me.視窗2_pl.BackColor = System.Drawing.Color.White
+        Me.視窗2_pl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.視窗2_pl.Controls.Add(Me.隱藏_bt)
+        Me.視窗2_pl.Controls.Add(Me.新增資料_bt)
+        Me.視窗2_pl.Controls.Add(Me.Panel3)
+        Me.視窗2_pl.Controls.Add(Me.Label6)
+        Me.視窗2_pl.Controls.Add(Me.CanceL2_bt)
+        Me.視窗2_pl.Location = New System.Drawing.Point(9, 246)
+        Me.視窗2_pl.Name = "視窗2_pl"
+        Me.視窗2_pl.Size = New System.Drawing.Size(1545, 408)
+        Me.視窗2_pl.TabIndex = 1403
+        '
+        '隱藏_bt
+        '
+        Me.隱藏_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.隱藏_bt.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.隱藏_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.隱藏_bt.ForeColor = System.Drawing.Color.Black
+        Me.隱藏_bt.Location = New System.Drawing.Point(1485, 2)
+        Me.隱藏_bt.Name = "隱藏_bt"
+        Me.隱藏_bt.Size = New System.Drawing.Size(26, 26)
+        Me.隱藏_bt.TabIndex = 1377
+        Me.隱藏_bt.Text = "一"
+        Me.隱藏_bt.UseVisualStyleBackColor = False
+        '
+        '新增資料_bt
+        '
+        Me.新增資料_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.新增資料_bt.Location = New System.Drawing.Point(1407, 2)
+        Me.新增資料_bt.Name = "新增資料_bt"
+        Me.新增資料_bt.Size = New System.Drawing.Size(75, 26)
+        Me.新增資料_bt.TabIndex = 1376
+        Me.新增資料_bt.Text = "新增資料"
+        Me.新增資料_bt.UseVisualStyleBackColor = True
+        '
+        'Panel3
+        '
+        Me.Panel3.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.Panel3.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        Me.Panel3.Controls.Add(Me.控制表1_dgv)
+        Me.Panel3.Controls.Add(Me.控制表_dgv)
+        Me.Panel3.Location = New System.Drawing.Point(3, 28)
+        Me.Panel3.Name = "Panel3"
+        Me.Panel3.Size = New System.Drawing.Size(1538, 376)
+        Me.Panel3.TabIndex = 1367
+        '
+        '控制表1_dgv
+        '
+        Me.控制表1_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.控制表1_dgv.BackgroundColor = System.Drawing.Color.White
+        DataGridViewCellStyle21.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle21.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle21.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle21.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle21.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle21.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.控制表1_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle21
+        Me.控制表1_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.控制表1_dgv.Location = New System.Drawing.Point(2, 185)
+        Me.控制表1_dgv.Name = "控制表1_dgv"
+        Me.控制表1_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle22.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.控制表1_dgv.RowsDefaultCellStyle = DataGridViewCellStyle22
+        Me.控制表1_dgv.RowTemplate.Height = 24
+        Me.控制表1_dgv.Size = New System.Drawing.Size(1529, 185)
+        Me.控制表1_dgv.TabIndex = 571
+        '
+        '控制表_dgv
+        '
+        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.BackgroundColor = System.Drawing.Color.White
+        DataGridViewCellStyle23.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle23.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle23.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle23.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle23.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle23.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.控制表_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle23
+        Me.控制表_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.控制表_dgv.Location = New System.Drawing.Point(2, 1)
+        Me.控制表_dgv.Name = "控制表_dgv"
+        Me.控制表_dgv.RowHeadersWidth = 5
+        DataGridViewCellStyle24.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.控制表_dgv.RowsDefaultCellStyle = DataGridViewCellStyle24
+        Me.控制表_dgv.RowTemplate.Height = 24
+        Me.控制表_dgv.Size = New System.Drawing.Size(1529, 185)
+        Me.控制表_dgv.TabIndex = 570
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(5, 7)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(317, 16)
+        Me.Label6.TabIndex = 1375
+        Me.Label6.Text = "出貨明細表比對新增項 - 跳出讀取完成之前請不要動電腦 !!"
+        '
+        'CanceL2_bt
+        '
+        Me.CanceL2_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.CanceL2_bt.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.CanceL2_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.CanceL2_bt.ForeColor = System.Drawing.Color.Black
+        Me.CanceL2_bt.Location = New System.Drawing.Point(1513, 2)
+        Me.CanceL2_bt.Name = "CanceL2_bt"
+        Me.CanceL2_bt.Size = New System.Drawing.Size(26, 26)
+        Me.CanceL2_bt.TabIndex = 1374
+        Me.CanceL2_bt.Text = "X"
+        Me.CanceL2_bt.UseVisualStyleBackColor = False
+        '
+        '開啟_bt
+        '
+        Me.開啟_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.開啟_bt.BackgroundImage = Global.天盾國際管理系統.My.Resources.Resources.ZOOM01
+        Me.開啟_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.開啟_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.開啟_bt.ForeColor = System.Drawing.Color.Blue
+        Me.開啟_bt.Location = New System.Drawing.Point(962, 0)
+        Me.開啟_bt.Name = "開啟_bt"
+        Me.開啟_bt.Size = New System.Drawing.Size(35, 35)
+        Me.開啟_bt.TabIndex = 1404
+        Me.開啟_bt.UseVisualStyleBackColor = True
+        '
+        '列印_bt
+        '
+        Me.列印_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.列印_bt.BackgroundImage = Global.天盾國際管理系統.My.Resources.Resources.print
+        Me.列印_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.列印_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.列印_bt.ForeColor = System.Drawing.Color.Blue
+        Me.列印_bt.Location = New System.Drawing.Point(1067, 0)
+        Me.列印_bt.Name = "列印_bt"
+        Me.列印_bt.Size = New System.Drawing.Size(35, 35)
+        Me.列印_bt.TabIndex = 1386
+        Me.列印_bt.UseVisualStyleBackColor = True
+        '
+        '刪除_bt
+        '
+        Me.刪除_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.刪除_bt.BackgroundImage = Global.天盾國際管理系統.My.Resources.Resources.GarbageEmpty
+        Me.刪除_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.刪除_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.刪除_bt.ForeColor = System.Drawing.Color.Blue
+        Me.刪除_bt.Location = New System.Drawing.Point(1032, 0)
+        Me.刪除_bt.Name = "刪除_bt"
+        Me.刪除_bt.Size = New System.Drawing.Size(35, 35)
+        Me.刪除_bt.TabIndex = 1384
+        Me.刪除_bt.UseVisualStyleBackColor = True
+        '
+        '存檔_tb
+        '
+        Me.存檔_tb.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.存檔_tb.BackgroundImage = Global.天盾國際管理系統.My.Resources.Resources.SAVER
+        Me.存檔_tb.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.存檔_tb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.存檔_tb.ForeColor = System.Drawing.Color.Blue
+        Me.存檔_tb.Location = New System.Drawing.Point(997, 0)
+        Me.存檔_tb.Name = "存檔_tb"
+        Me.存檔_tb.Size = New System.Drawing.Size(35, 35)
+        Me.存檔_tb.TabIndex = 1383
+        Me.存檔_tb.UseVisualStyleBackColor = True
+        '
+        '比對新增_bt
+        '
+        Me.比對新增_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.比對新增_bt.BackgroundImage = Global.天盾國際管理系統.My.Resources.Resources.add_2
+        Me.比對新增_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.比對新增_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.比對新增_bt.ForeColor = System.Drawing.Color.Blue
+        Me.比對新增_bt.Location = New System.Drawing.Point(927, 0)
+        Me.比對新增_bt.Name = "比對新增_bt"
+        Me.比對新增_bt.Size = New System.Drawing.Size(35, 35)
+        Me.比對新增_bt.TabIndex = 1382
+        Me.比對新增_bt.UseVisualStyleBackColor = True
+        '
+        '差異_下_bt
+        '
+        Me.差異_下_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.差異_下_bt.BackgroundImage = Global.天盾國際管理系統.My.Resources.Resources.arrow_down
+        Me.差異_下_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.差異_下_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.差異_下_bt.ForeColor = System.Drawing.Color.Blue
+        Me.差異_下_bt.Location = New System.Drawing.Point(1230, 0)
+        Me.差異_下_bt.Name = "差異_下_bt"
+        Me.差異_下_bt.Size = New System.Drawing.Size(35, 35)
+        Me.差異_下_bt.TabIndex = 1380
+        Me.差異_下_bt.UseVisualStyleBackColor = True
+        '
+        '差異_上_bt
+        '
+        Me.差異_上_bt.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.差異_上_bt.BackgroundImage = Global.天盾國際管理系統.My.Resources.Resources.arrow_up
+        Me.差異_上_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.差異_上_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.差異_上_bt.ForeColor = System.Drawing.Color.Blue
+        Me.差異_上_bt.Location = New System.Drawing.Point(1195, 0)
+        Me.差異_上_bt.Name = "差異_上_bt"
+        Me.差異_上_bt.Size = New System.Drawing.Size(35, 35)
+        Me.差異_上_bt.TabIndex = 1379
+        Me.差異_上_bt.UseVisualStyleBackColor = True
+        '
+        '比對關鍵字_bt
+        '
+        Me.比對關鍵字_bt.BackgroundImage = Global.天盾國際管理系統.My.Resources.Resources.Search
+        Me.比對關鍵字_bt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.比對關鍵字_bt.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.比對關鍵字_bt.ForeColor = System.Drawing.Color.Blue
+        Me.比對關鍵字_bt.Location = New System.Drawing.Point(488, 0)
+        Me.比對關鍵字_bt.Name = "比對關鍵字_bt"
+        Me.比對關鍵字_bt.Size = New System.Drawing.Size(35, 35)
+        Me.比對關鍵字_bt.TabIndex = 1375
+        Me.比對關鍵字_bt.UseVisualStyleBackColor = True
+        '
+        '訂單拆分_bt
+        '
+        Me.訂單拆分_bt.ForeColor = System.Drawing.Color.Green
+        Me.訂單拆分_bt.Location = New System.Drawing.Point(774, 0)
+        Me.訂單拆分_bt.Name = "訂單拆分_bt"
+        Me.訂單拆分_bt.Size = New System.Drawing.Size(80, 35)
+        Me.訂單拆分_bt.TabIndex = 1837
+        Me.訂單拆分_bt.Text = "訂單拆分"
+        Me.訂單拆分_bt.UseVisualStyleBackColor = True
+        '
+        '出貨銷帳明細表
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1593, 679)
+        Me.Controls.Add(Me.訂單拆分_bt)
+        Me.Controls.Add(Me.開啟_bt)
+        Me.Controls.Add(Me.視窗2_pl)
+        Me.Controls.Add(Me.列印_bt)
+        Me.Controls.Add(Me.流水號_tb)
+        Me.Controls.Add(Me.銷帳_dgv)
+        Me.Controls.Add(Me.Label3)
+        Me.Controls.Add(Me.刪除_bt)
+        Me.Controls.Add(Me.訂單明細表_dgv)
+        Me.Controls.Add(Me.存檔_tb)
+        Me.Controls.Add(Me.利潤表_dgv)
+        Me.Controls.Add(Me.比對新增_bt)
+        Me.Controls.Add(Me.Label1)
+        Me.Controls.Add(Me.Label5)
+        Me.Controls.Add(Me.Label2)
+        Me.Controls.Add(Me.差異_下_bt)
+        Me.Controls.Add(Me.差異_上_bt)
+        Me.Controls.Add(Me.PO號1_tb)
+        Me.Controls.Add(Me.PO排序_cb)
+        Me.Controls.Add(Me.INV排序_cb)
+        Me.Controls.Add(Me.比對關鍵字_bt)
+        Me.Controls.Add(Me.年份_cb)
+        Me.Controls.Add(Me.PO號_tb)
+        Me.Controls.Add(Me.Label4)
+        Me.Controls.Add(Me.Label16)
+        Me.Controls.Add(Me.Label20)
+        Me.Controls.Add(Me.品牌標註_lb)
+        Me.Controls.Add(Me.資料庫選擇2_bt)
+        Me.Controls.Add(Me.資料庫選擇1_bt)
+        Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.Margin = New System.Windows.Forms.Padding(4)
+        Me.Name = "出貨銷帳明細表"
+        Me.Text = "出貨銷帳明細表"
+        CType(Me.利潤表_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.訂單明細表_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.銷帳_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.視窗2_pl.ResumeLayout(False)
+        Me.視窗2_pl.PerformLayout()
+        Me.Panel3.ResumeLayout(False)
+        CType(Me.控制表1_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.控制表_dgv, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+        Me.PerformLayout()
+
+    End Sub
+
+    Friend WithEvents 利潤表_dgv As DataGridView
+    Friend WithEvents 資料庫選擇2_bt As Button
+    Friend WithEvents 資料庫選擇1_bt As Button
+    Friend WithEvents Label20 As Label
+    Friend WithEvents 訂單明細表_dgv As DataGridView
+    Friend WithEvents Label1 As Label
+    Friend WithEvents Label2 As Label
+    Friend WithEvents 品牌標註_lb As Label
+    Friend WithEvents 銷帳_dgv As DataGridView
+    Friend WithEvents Label3 As Label
+    Friend WithEvents 年份_cb As ComboBox
+    Friend WithEvents PO號_tb As TextBox
+    Friend WithEvents Label4 As Label
+    Friend WithEvents Label16 As Label
+    Friend WithEvents 比對關鍵字_bt As Button
+    Friend WithEvents INV排序_cb As CheckBox
+    Friend WithEvents PO排序_cb As CheckBox
+    Friend WithEvents PO號1_tb As TextBox
+    Friend WithEvents 差異_上_bt As Button
+    Friend WithEvents 差異_下_bt As Button
+    Friend WithEvents Label5 As Label
+    Friend WithEvents 比對新增_bt As Button
+    Friend WithEvents 存檔_tb As Button
+    Friend WithEvents 刪除_bt As Button
+    Friend WithEvents 流水號_tb As TextBox
+    Friend WithEvents 列印_bt As Button
+    Friend WithEvents OpenFileDialog1 As OpenFileDialog
+    Friend WithEvents 視窗2_pl As Panel
+    Friend WithEvents Panel3 As Panel
+    Friend WithEvents Label6 As Label
+    Friend WithEvents CanceL2_bt As Button
+    Friend WithEvents 控制表_dgv As DataGridView
+    Friend WithEvents 控制表1_dgv As DataGridView
+    Friend WithEvents 新增資料_bt As Button
+    Friend WithEvents 隱藏_bt As Button
+    Friend WithEvents 開啟_bt As Button
+    Friend WithEvents 訂單拆分_bt As Button
+End Class

TENDEN-MES-SYS/成本系統管理/出貨銷帳明細表.resx

@@ -0,0 +1,126 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>15, 7</value>
+  </metadata>
+  <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>34</value>
+  </metadata>
+</root>

TENDEN-MES-SYS/成本系統管理/出貨銷帳明細表.vb

@@ -0,0 +1,909 @@
+Option Strict Off
+Imports Microsoft.Office.Interop.Excel.XlUnderlineStyle
+Imports Microsoft.Office.Interop.Excel.Constants
+Imports Microsoft.Office.Interop.Excel.XlBordersIndex
+Imports Microsoft.Office.Interop.Excel.XlLineStyle
+Imports Microsoft.Office.Interop.Excel.XlBorderWeight
+Imports Microsoft.Office.Interop.Excel.XlThemeFont
+Imports Microsoft.Office.Interop.Excel.XlThemeColor
+Imports Microsoft.Office.Interop.Excel.XlWindowState
+Public Class 出貨銷帳明細表
+    Dim 目前選擇項 As Integer : Dim file_name As String = ""
+    Dim xlApp As Microsoft.Office.Interop.Excel.Application
+    Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
+    Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
+    Private Sub Set_訂單清單()
+        Dim ds As New DataSet
+        利潤表_dgv.DataSource = Nothing : ds.Clear()
+        利潤表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        利潤表_dgv.ColumnHeadersHeight = 25 : 利潤表_dgv.RowTemplate.Height = 20
+        利潤表_dgv.AllowUserToAddRows = False
+        ConnOpen()
+        PA = "" : PA25 = 年份_cb.Text : PA26 = CInt(PA25) - 1 : PA27 = CInt(PA25) + 1 : SQL_訂單價格利潤明細表_ALL()
+        CmdSet_For_DGV() : da.Fill(ds) : 利潤表_dgv.DataSource = ds.Tables(0) : conn.Close()
+
+        利潤表_dgv.Columns("訂單流水號").FillWeight = 80 : 利潤表_dgv.Columns("資料流水號").Visible = False : 利潤表_dgv.Columns("年份季度").FillWeight = 55
+        利潤表_dgv.Columns("力威訂單號").FillWeight = 100 : 利潤表_dgv.Columns("形體號").FillWeight = 90 : 利潤表_dgv.Columns("顏色").FillWeight = 70
+        利潤表_dgv.Columns("力威訂單號").FillWeight = 100 : 利潤表_dgv.Columns("楦型").FillWeight = 45 : 利潤表_dgv.Columns("數量").FillWeight = 45
+        利潤表_dgv.Columns("ProductID").FillWeight = 120
+        利潤表_dgv.Columns("單價").FillWeight = 45 : 利潤表_dgv.Columns("總金額").FillWeight = 75 : 利潤表_dgv.Columns("備註").FillWeight = 80
+        利潤表_dgv.Columns("工廠").FillWeight = 40 : 利潤表_dgv.Columns("訂單種類").FillWeight = 65 : 利潤表_dgv.Columns("Quantity").FillWeight = 65
+        利潤表_dgv.Columns("Currency").FillWeight = 65 : 利潤表_dgv.Columns("Exchange").FillWeight = 70 : 利潤表_dgv.Columns("FTYPrice").FillWeight = 80
+        利潤表_dgv.Columns("CommissionTTL").FillWeight = 150 : 利潤表_dgv.Columns("CommissionDarren").FillWeight = 100 : 利潤表_dgv.Columns("CommissionTendenza").FillWeight = 179
+        利潤表_dgv.Columns("Percentage").FillWeight = 120 : 利潤表_dgv.Columns("BasicPrice").FillWeight = 70 : 利潤表_dgv.Columns("PG/MOQ").FillWeight = 60
+        利潤表_dgv.Columns("FOOTorPET").FillWeight = 78 : 利潤表_dgv.Columns("Tooling").FillWeight = 58 : 利潤表_dgv.Columns("RubberBand").FillWeight = 83
+        利潤表_dgv.Columns("JHOOK").FillWeight = 58 : 利潤表_dgv.Columns("WaterResistant").FillWeight = 95 : 利潤表_dgv.Columns("P16VAT").FillWeight = 60
+        利潤表_dgv.Columns("EXWsaving").FillWeight = 75 : 利潤表_dgv.Columns("CollectedToolng").FillWeight = 110
+
+        利潤表_dgv.Columns("數量").DefaultCellStyle.Format = "#,##0" : 利潤表_dgv.Columns("數量").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("單價").DefaultCellStyle.Format = "#,##0.00" : 利潤表_dgv.Columns("單價").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("總金額").DefaultCellStyle.Format = "#,##0.00" : 利潤表_dgv.Columns("總金額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("Quantity").DefaultCellStyle.Format = "#,##0" : 利潤表_dgv.Columns("Quantity").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("Exchange").DefaultCellStyle.Format = "#,##0.0000" : 利潤表_dgv.Columns("Exchange").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("FTYPrice").DefaultCellStyle.Format = "#,##0.00" : 利潤表_dgv.Columns("FTYPrice").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("CommissionTTL").DefaultCellStyle.Format = "#,##0.00" : 利潤表_dgv.Columns("CommissionTTL").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("CommissionDarren").DefaultCellStyle.Format = "#,##0.00" : 利潤表_dgv.Columns("CommissionDarren").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("CommissionTendenza").DefaultCellStyle.Format = "#,##0.00" : 利潤表_dgv.Columns("CommissionTendenza").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("Percentage").DefaultCellStyle.Format = "#,##0.00%" : 利潤表_dgv.Columns("Percentage").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("BasicPrice").DefaultCellStyle.Format = "#,##0.00" : 利潤表_dgv.Columns("BasicPrice").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("PG/MOQ").DefaultCellStyle.Format = "#,##0.00" : 利潤表_dgv.Columns("PG/MOQ").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("FOOTorPET").DefaultCellStyle.Format = "#,##0.00" : 利潤表_dgv.Columns("FOOTorPET").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("Tooling").DefaultCellStyle.Format = "#,##0.00" : 利潤表_dgv.Columns("Tooling").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("RubberBand").DefaultCellStyle.Format = "#,##0.00" : 利潤表_dgv.Columns("RubberBand").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("JHOOK").DefaultCellStyle.Format = "#,##0.00" : 利潤表_dgv.Columns("JHOOK").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("WaterResistant").DefaultCellStyle.Format = "#,##0.00" : 利潤表_dgv.Columns("WaterResistant").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("P16VAT").DefaultCellStyle.Format = "#,##0.00" : 利潤表_dgv.Columns("P16VAT").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("EXWsaving").DefaultCellStyle.Format = "#,##0.00" : 利潤表_dgv.Columns("EXWsaving").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("CollectedToolng").DefaultCellStyle.Format = "#,##0.00" : 利潤表_dgv.Columns("CollectedToolng").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+
+        利潤表_dgv.Columns("工廠").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        利潤表_dgv.Columns("數量").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("單價").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("總金額").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("Currency").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("Quantity").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("Currency").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("Exchange").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("FTYPrice").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("CommissionTTL").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("CommissionDarren").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("CommissionTendenza").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("Percentage").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("年份").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+
+        利潤表_dgv.Columns(1).Visible = False : 利潤表_dgv.Columns(2).Visible = False : 利潤表_dgv.Columns(6).Visible = False : 利潤表_dgv.Columns(19).Visible = False
+        利潤表_dgv.Columns(12).Visible = False : 利潤表_dgv.Columns(14).Visible = False : 利潤表_dgv.Columns(15).Visible = False : 利潤表_dgv.Columns(16).Visible = False
+        利潤表_dgv.Columns(17).Visible = False : 利潤表_dgv.Columns(21).Visible = False : 利潤表_dgv.Columns(22).Visible = False : 利潤表_dgv.Columns(23).Visible = False
+        利潤表_dgv.Columns(24).Visible = False : 利潤表_dgv.Columns(25).Visible = False : 利潤表_dgv.Columns(26).Visible = False : 利潤表_dgv.Columns(27).Visible = False
+        利潤表_dgv.Columns(28).Visible = False : 利潤表_dgv.Columns(29).Visible = False : 利潤表_dgv.Columns(30).Visible = False : 利潤表_dgv.Columns(31).Visible = False
+        利潤表_dgv.Columns(32).Visible = False : 利潤表_dgv.Columns(34).Visible = False : 利潤表_dgv.Columns(37).Visible = False : 利潤表_dgv.Columns(38).Visible = False
+        利潤表_dgv.Columns(36).Visible = False
+
+        Dim 金額加總(9) As Double : Dim EU(11) As Double
+        For i As Integer = 0 To 利潤表_dgv.Rows.Count - 1
+            If 利潤表_dgv("BasicPrice", i).Value.ToString = "" Then : EU(0) = 0 : Else : EU(0) = Double.Parse(利潤表_dgv("BasicPrice", i).Value.ToString) : End If
+            If 利潤表_dgv("PG/MOQ", i).Value.ToString = "" Then : EU(1) = 0 : Else : EU(1) = Double.Parse(利潤表_dgv("PG/MOQ", i).Value.ToString) : End If
+            If 利潤表_dgv("FOOTorPET", i).Value.ToString = "" Then : EU(2) = 0 : Else : EU(2) = Double.Parse(利潤表_dgv("FOOTorPET", i).Value.ToString) : End If
+            If 利潤表_dgv("Tooling", i).Value.ToString = "" Then : EU(3) = 0 : Else : EU(3) = Double.Parse(利潤表_dgv("Tooling", i).Value.ToString) : End If
+            If 利潤表_dgv("RubberBand", i).Value.ToString = "" Then : EU(4) = 0 : Else : EU(4) = Double.Parse(利潤表_dgv("RubberBand", i).Value.ToString) : End If
+            If 利潤表_dgv("JHOOK", i).Value.ToString = "" Then : EU(5) = 0 : Else : EU(5) = Double.Parse(利潤表_dgv("JHOOK", i).Value.ToString) : End If
+            If 利潤表_dgv("WaterResistant", i).Value.ToString = "" Then : EU(6) = 0 : Else : EU(6) = Double.Parse(利潤表_dgv("WaterResistant", i).Value.ToString) : End If
+            If 利潤表_dgv("P16VAT", i).Value.ToString = "" Then : EU(7) = 0 : Else : EU(7) = Double.Parse(利潤表_dgv("P16VAT", i).Value.ToString) : End If
+            If 利潤表_dgv("EXWsaving", i).Value.ToString = "" Then : EU(8) = 0 : Else : EU(8) = Double.Parse(利潤表_dgv("EXWsaving", i).Value.ToString) : End If
+            If 利潤表_dgv("Quantity", i).Value.ToString = "" Then : EU(9) = 0 : Else : EU(9) = Double.Parse(利潤表_dgv("Quantity", i).Value.ToString) : End If
+            If 利潤表_dgv("FTYPrice", i).Value.ToString = "" Then : EU(10) = 0 : Else : EU(10) = Double.Parse(利潤表_dgv("FTYPrice", i).Value.ToString) : End If
+            If 利潤表_dgv("Exchange", i).Value.ToString = "" Then : EU(11) = 1 : Else : EU(11) = Double.Parse(利潤表_dgv("Exchange", i).Value.ToString) : End If
+            利潤表_dgv.Rows(i).Cells("單價").Value = EU(0) + EU(1) + EU(2) + EU(3) + EU(4) + EU(5) + EU(6) + EU(7) / EU(11) - EU(8)
+            利潤表_dgv.Rows(i).Cells("CollectedToolng").Value = EU(9) * EU(3)
+            利潤表_dgv.Rows(i).Cells("CommissionTTL").Value = ((EU(0) + EU(1) + EU(2) + EU(3) + EU(4) + EU(5) + EU(6) + EU(7) / EU(11) - EU(8)) - EU(10)) * EU(9)
+            利潤表_dgv.Rows(i).Cells("CommissionDarren").Value = ((EU(0) + EU(1) + EU(2) + EU(3) + EU(4) + EU(5) + EU(6) + EU(7) / EU(11) - EU(8)) - EU(10)) * EU(9) / 2
+            利潤表_dgv.Rows(i).Cells("CommissionTendenza").Value = ((EU(0) + EU(1) + EU(2) + EU(3) + EU(4) + EU(5) + EU(6) + EU(7) / EU(11) - EU(8)) - EU(10)) * EU(9) / 2
+            If (EU(0) + EU(1) + EU(2) + EU(3) + EU(4) + EU(5) + EU(6) + EU(7) - EU(8)) = 0 Or EU(9) = 0 Then
+                利潤表_dgv.Rows(i).Cells("Percentage").Value = 0
+            Else
+                利潤表_dgv.Rows(i).Cells("Percentage").Value = ((EU(0) + EU(1) + EU(2) + EU(3) + EU(4) + EU(5) + EU(6) + EU(7) / EU(11) - EU(8)) * EU(9) - EU(10) * EU(9)) /
+                                                            ((EU(0) + EU(1) + EU(2) + EU(3) + EU(4) + EU(5) + EU(6) + EU(7) / EU(11) - EU(8)) * EU(9))
+            End If
+            利潤表_dgv.Rows(i).Cells("總金額").Value = (EU(0) + EU(1) + EU(2) + EU(3) + EU(4) + EU(5) + EU(6) + EU(7) / EU(11) - EU(8)) * EU(9)
+            If 利潤表_dgv.RowCount = 0 Then : 金額加總(0) = "0.00" : Else : 金額加總(0) += 利潤表_dgv.Rows(i).Cells("總金額").Value : End If
+            利潤表_dgv.Rows(i).Cells(33).Value = Strings.Left(利潤表_dgv("客戶交期", i).Value.ToString, 4)
+        Next i
+        '5100518650
+    End Sub
+    Private Sub Set_出貨清單()
+        Dim ds As New DataSet
+        訂單明細表_dgv.DataSource = Nothing : ds.Clear()
+        訂單明細表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        訂單明細表_dgv.ColumnHeadersHeight = 25 : 訂單明細表_dgv.AllowUserToAddRows = False : 訂單明細表_dgv.RowTemplate.Height = 20
+        ConnOpen() : PA = "" : PA25 = 年份_cb.Text : PA26 = CInt(PA25) - 1 : PA27 = CInt(PA25) + 1 : SQL_出貨明細表_ALL() : 列印用SQL = SQL1 : CmdSet_For_DGV()
+        da.Fill(ds) : 訂單明細表_dgv.DataSource = ds.Tables(0) : conn.Close()
+
+        訂單明細表_dgv.Columns(0).Visible = False : 訂單明細表_dgv.Columns(1).FillWeight = 75 : 訂單明細表_dgv.Columns(2).FillWeight = 60 : 訂單明細表_dgv.Columns(3).FillWeight = 120
+        訂單明細表_dgv.Columns(4).FillWeight = 150 : 訂單明細表_dgv.Columns(5).FillWeight = 130 : 訂單明細表_dgv.Columns(6).FillWeight = 60
+
+        訂單明細表_dgv.Columns(7).FillWeight = 80 : 訂單明細表_dgv.Columns(8).FillWeight = 80
+        訂單明細表_dgv.Columns(7).DefaultCellStyle.Format = "#,##0"
+        訂單明細表_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        訂單明細表_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        訂單明細表_dgv.Columns(8).DefaultCellStyle.Format = "#,##0"
+        訂單明細表_dgv.Columns(8).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        訂單明細表_dgv.Columns(8).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+
+        訂單明細表_dgv.Columns(9).Visible = False : 訂單明細表_dgv.Columns(10).FillWeight = 80 : 訂單明細表_dgv.Columns(11).FillWeight = 80 : 訂單明細表_dgv.Columns(12).FillWeight = 80
+        訂單明細表_dgv.Columns(13).FillWeight = 80 : 訂單明細表_dgv.Columns(14).FillWeight = 80 : 訂單明細表_dgv.Columns(15).Visible = False
+        訂單明細表_dgv.Columns(16).Visible = False : 訂單明細表_dgv.Columns(17).Visible = False : 訂單明細表_dgv.Columns(18).Visible = False
+    End Sub
+    Private Sub Set_銷帳清單()
+        Dim ds As New DataSet
+        銷帳_dgv.DataSource = Nothing : ds.Clear()
+        銷帳_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        銷帳_dgv.ColumnHeadersHeight = 40 : 銷帳_dgv.AllowUserToAddRows = False
+        PA25 = 年份_cb.Text : If INV排序_cb.Checked = True Then : PA30 = "貨款銷帳明細表.INV DESC" : Else : PA30 = "貨款銷帳明細表.訂單號 DESC" : End If
+        SQL_銷帳清單()
+        da.Fill(ds) : 銷帳_dgv.DataSource = ds.Tables(0) : conn.Close()
+
+        銷帳_dgv.Columns(0).Visible = False : 銷帳_dgv.Columns(1).Visible = False : 銷帳_dgv.Columns(34).Visible = False : 銷帳_dgv.Columns(35).Visible = False
+        銷帳_dgv.Columns(36).Visible = False : 銷帳_dgv.Columns(37).Visible = False
+        銷帳_dgv.Columns(9).Frozen = True : 銷帳_dgv.EditMode = DataGridViewEditMode.EditOnEnter
+        銷帳_dgv.Columns(6).DefaultCellStyle.Format = "#,##0" : 銷帳_dgv.Columns(7).DefaultCellStyle.Format = "#,##0"
+        銷帳_dgv.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        銷帳_dgv.Columns(6).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        銷帳_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        銷帳_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        銷帳_dgv.Columns(6).Width = 70 : 銷帳_dgv.Columns(7).Width = 70 : 銷帳_dgv.Columns(8).Width = 40 : 銷帳_dgv.Columns(9).Width = 40 : 銷帳_dgv.Columns(33).Width = 300
+        銷帳_dgv.Columns(35).Width = 40 : 銷帳_dgv.Columns(36).Width = 40
+        For I As Integer = 2 To 9 : 銷帳_dgv.Columns(I).ReadOnly = True : Next : 銷帳_dgv.Columns(7).ReadOnly = False
+        銷帳_dgv.Columns(12).ReadOnly = True : 銷帳_dgv.Columns(18).ReadOnly = True : 銷帳_dgv.Columns(20).ReadOnly = True : 銷帳_dgv.Columns(24).ReadOnly = True
+        銷帳_dgv.Columns(28).ReadOnly = True : 銷帳_dgv.Columns(32).ReadOnly = True
+        For I As Integer = 10 To 24
+            銷帳_dgv.Columns(I).DefaultCellStyle.Format = "#,##0.00"
+            銷帳_dgv.Columns(I).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+            銷帳_dgv.Columns(I).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        Next
+        For I As Integer = 28 To 32
+            銷帳_dgv.Columns(I).DefaultCellStyle.Format = "#,##0.00"
+            銷帳_dgv.Columns(I).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+            銷帳_dgv.Columns(I).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        Next
+        For I As Integer = 0 To 銷帳_dgv.Rows.Count - 1
+            銷帳_dgv(12, I).Value = 0 : 銷帳_dgv(18, I).Value = 0 : 銷帳_dgv(20, I).Value = 0 : 銷帳_dgv(24, I).Value = 0 : 銷帳_dgv(28, I).Value = 0 : 銷帳_dgv(32, I).Value = 0
+            銷帳_dgv(35, I).Value = False : 銷帳_dgv(36, I).Value = False : 銷帳_dgv(37, I).Value = False
+            '--------------比對利潤明細表-------------------------------------------------------------------------------------------------------------------------------
+            For II As Integer = 0 To 利潤表_dgv.Rows.Count - 1
+                If 銷帳_dgv(5, I).Value.ToString.Replace(" ", "") = 利潤表_dgv("力威訂單號", II).Value.ToString Then
+                    If CInt(銷帳_dgv(7, I).Value.ToString) = CInt(利潤表_dgv("數量", II).Value.ToString) Then
+                        If 銷帳_dgv(29, I).Value = 0 Then
+                            銷帳_dgv(29, I).Value = 利潤表_dgv(20, II).Value
+                        Else
+                            Dim DF1 As Integer = CInt(銷帳_dgv(29, I).Value) : Dim DF2 As Integer = CInt(利潤表_dgv(20, II).Value)
+                            If DF1 - DF2 < 2 And DF1 - DF2 > -2 Then
+                                銷帳_dgv(35, I).Value = False
+                            Else
+                                銷帳_dgv(35, I).Value = True
+                            End If
+                        End If : Exit For
+                    End If
+                End If
+            Next
+            '--------------比對出貨明細表-------------------------------------------------------------------------------------------------------------------------------
+            For II As Integer = 0 To 訂單明細表_dgv.Rows.Count - 1
+                If 銷帳_dgv(34, I).Value.ToString = 訂單明細表_dgv(3, II).Value.ToString Then
+                    If CInt(銷帳_dgv(7, I).Value.ToString) = CInt(訂單明細表_dgv(8, II).Value.ToString) Then
+                        銷帳_dgv(8, I).Value = True : Exit For
+                    End If
+                End If
+            Next
+            If 銷帳_dgv(8, I).Value = True Then
+                If 銷帳_dgv(11, I).Value = 0 Then
+                    銷帳_dgv(12, I).Value = 銷帳_dgv(7, I).Value * 銷帳_dgv(10, I).Value
+                Else
+                    銷帳_dgv(12, I).Value = 銷帳_dgv(7, I).Value * 銷帳_dgv(11, I).Value
+                End If
+                銷帳_dgv(18, I).Value = 銷帳_dgv(12, I).Value - 銷帳_dgv(13, I).Value - 銷帳_dgv(14, I).Value - 銷帳_dgv(15, I).Value - 銷帳_dgv(16, I).Value + 銷帳_dgv(17, I).Value
+                銷帳_dgv(20, I).Value = 銷帳_dgv(7, I).Value * 銷帳_dgv(19, I).Value
+                銷帳_dgv(24, I).Value = 銷帳_dgv(20, I).Value - 銷帳_dgv(21, I).Value - 銷帳_dgv(22, I).Value - 銷帳_dgv(23, I).Value
+                銷帳_dgv(28, I).Value = 銷帳_dgv(24, I).Value - 銷帳_dgv(18, I).Value
+                銷帳_dgv(32, I).Value = 銷帳_dgv(28, I).Value - 銷帳_dgv(29, I).Value - 銷帳_dgv(30, I).Value - 銷帳_dgv(31, I).Value
+            End If
+            If 銷帳_dgv(9, I).Value = True Then : 銷帳_dgv(7, I).ReadOnly = True : 銷帳_dgv(8, I).ReadOnly = True : 銷帳_dgv(19, I).ReadOnly = True
+                For II As Integer = 10 To 11 : 銷帳_dgv(II, I).ReadOnly = True : Next : For II As Integer = 13 To 17 : 銷帳_dgv(II, I).ReadOnly = True : Next
+                For II As Integer = 21 To 23 : 銷帳_dgv(II, I).ReadOnly = True : Next : For II As Integer = 25 To 27 : 銷帳_dgv(II, I).ReadOnly = True : Next
+                For II As Integer = 29 To 31 : 銷帳_dgv(II, I).ReadOnly = True : Next
+            Else : 銷帳_dgv(7, I).ReadOnly = False : 銷帳_dgv(8, I).ReadOnly = False : 銷帳_dgv(19, I).ReadOnly = False
+                For II As Integer = 10 To 11 : 銷帳_dgv(II, I).ReadOnly = False : Next : For II As Integer = 13 To 17 : 銷帳_dgv(II, I).ReadOnly = False : Next
+                For II As Integer = 21 To 23 : 銷帳_dgv(II, I).ReadOnly = False : Next : For II As Integer = 25 To 27 : 銷帳_dgv(II, I).ReadOnly = False : Next
+                For II As Integer = 29 To 31 : 銷帳_dgv(II, I).ReadOnly = False : Next
+            End If
+            '--------------色彩管理-------------------------------------------------------------------------------------------------------------------------------
+            If 銷帳_dgv(35, I).Value = True Then
+                For II As Integer = 2 To 7 : 銷帳_dgv.Rows(I).Cells(II).Style.BackColor = Color.LightPink : Next
+                For II As Integer = 10 To 18 : 銷帳_dgv.Rows(I).Cells(II).Style.BackColor = Color.LightPink : Next
+                For II As Integer = 19 To 24 : 銷帳_dgv.Rows(I).Cells(II).Style.BackColor = Color.LightPink : Next
+                For II As Integer = 25 To 33 : 銷帳_dgv.Rows(I).Cells(II).Style.BackColor = Color.LightPink : Next
+            ElseIf 銷帳_dgv(8, I).Value = False Then
+                For II As Integer = 2 To 7 : 銷帳_dgv.Rows(I).Cells(II).Style.BackColor = Color.White : Next
+                For II As Integer = 10 To 18 : 銷帳_dgv.Rows(I).Cells(II).Style.BackColor = Color.White : Next
+                For II As Integer = 19 To 24 : 銷帳_dgv.Rows(I).Cells(II).Style.BackColor = Color.White : Next
+                For II As Integer = 25 To 33 : 銷帳_dgv.Rows(I).Cells(II).Style.BackColor = Color.White : Next
+            Else
+                For II As Integer = 2 To 7 : 銷帳_dgv.Rows(I).Cells(II).Style.BackColor = Color.LightCyan : Next
+                For II As Integer = 10 To 18 : 銷帳_dgv.Rows(I).Cells(II).Style.BackColor = Color.Cornsilk : Next
+                For II As Integer = 19 To 24 : 銷帳_dgv.Rows(I).Cells(II).Style.BackColor = Color.LavenderBlush : Next
+                For II As Integer = 25 To 33 : 銷帳_dgv.Rows(I).Cells(II).Style.BackColor = Color.Beige : Next
+            End If
+        Next
+    End Sub
+    Private Sub 重新讀取1()
+        PA25 = 年份_cb.Text : Set_訂單清單() : Set_出貨清單() : Set_銷帳清單()
+    End Sub
+    Private Sub 出貨銷帳明細表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        TENDEN_MES_SYS.WindowState = 2 : 視窗2_pl.Visible = False
+        Me.MdiParent = TENDEN_MES_SYS : Me.WindowState = 2 : Me.AutoScroll = True : 首次開啟 = True
+        訂單資料庫選擇.ShowDialog() : If 品牌V_R判斷 = "V" Then : 品牌標註_lb.Text = "VIONIC" : Else : 品牌標註_lb.Text = "DRS/ LIF" : End If
+
+        年份_cb.Text = Year(Today)
+        銷帳_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
+        利潤表_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
+        訂單明細表_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
+    End Sub
+    Private Sub 出貨銷帳明細表_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
+        Dim DB01 As New DataGridViewTextBoxColumn : Dim DB02 As New DataGridViewTextBoxColumn : Dim DB03 As New DataGridViewTextBoxColumn : Dim DB04 As New DataGridViewTextBoxColumn
+        Dim DB05 As New DataGridViewTextBoxColumn : Dim DB06 As New DataGridViewTextBoxColumn : Dim DB07 As New DataGridViewTextBoxColumn : Dim DB08 As New DataGridViewTextBoxColumn
+        Dim DB09 As New DataGridViewTextBoxColumn : Dim DB10 As New DataGridViewTextBoxColumn : Dim DB11 As New DataGridViewTextBoxColumn : Dim DB12 As New DataGridViewTextBoxColumn
+        Dim DB13 As New DataGridViewTextBoxColumn : Dim DB14 As New DataGridViewTextBoxColumn
+        DB01.HeaderText = "流水號" : DB01.Name = "流水號" : 控制表_dgv.Columns.Insert(0, DB01)
+        DB02.HeaderText = "品牌" : DB02.Name = "品牌" : 控制表_dgv.Columns.Insert(1, DB02)
+        DB03.HeaderText = "工廠" : DB03.Name = "工廠" : 控制表_dgv.Columns.Insert(2, DB03)
+        DB04.HeaderText = "INV" : DB04.Name = "INV" : 控制表_dgv.Columns.Insert(3, DB04)
+        DB05.HeaderText = "訂單號" : DB05.Name = "訂單號" : 控制表_dgv.Columns.Insert(4, DB05)
+        DB06.HeaderText = "訂單數" : DB06.Name = "訂單數" : 控制表_dgv.Columns.Insert(5, DB06)
+        DB07.HeaderText = "出貨數量" : DB07.Name = "出貨數量" : 控制表_dgv.Columns.Insert(6, DB07)
+        DB08.HeaderText = "FTY_PRICE" : DB08.Name = "FTY_PRICE" : 控制表_dgv.Columns.Insert(7, DB08)
+        DB09.HeaderText = "扣關稅or後廠價" : DB09.Name = "扣關稅or後廠價" : 控制表_dgv.Columns.Insert(8, DB09)
+        DB10.HeaderText = "CUST_Price" : DB10.Name = "CUST_Price" : 控制表_dgv.Columns.Insert(9, DB10)
+        DB11.HeaderText = "EX_FTY_DATE" : DB11.Name = "EX_FTY_DATE" : 控制表_dgv.Columns.Insert(10, DB11)
+        DB12.HeaderText = "Maturity_Date" : DB12.Name = "Maturity_Date" : 控制表_dgv.Columns.Insert(11, DB12)
+        DB13.HeaderText = "FTY_Payment_Date" : DB13.Name = "FTY_Payment_Date" : 控制表_dgv.Columns.Insert(12, DB13)
+        DB14.HeaderText = "Remark" : DB14.Name = "Remark" : 控制表_dgv.Columns.Insert(13, DB14)
+
+        Dim CB01 As New DataGridViewTextBoxColumn : Dim CB02 As New DataGridViewTextBoxColumn : Dim CB03 As New DataGridViewTextBoxColumn : Dim CB04 As New DataGridViewTextBoxColumn
+        Dim CB05 As New DataGridViewTextBoxColumn : Dim CB06 As New DataGridViewTextBoxColumn : Dim CB07 As New DataGridViewTextBoxColumn : Dim CB08 As New DataGridViewTextBoxColumn
+        Dim CB09 As New DataGridViewTextBoxColumn : Dim CB10 As New DataGridViewTextBoxColumn : Dim CB11 As New DataGridViewTextBoxColumn : Dim CB12 As New DataGridViewTextBoxColumn
+        Dim CB13 As New DataGridViewTextBoxColumn : Dim CB14 As New DataGridViewTextBoxColumn : Dim CB15 As New DataGridViewCheckBoxColumn
+        CB01.HeaderText = "流水號" : CB01.Name = "流水號" : 控制表1_dgv.Columns.Insert(0, CB01)
+        CB02.HeaderText = "品牌" : CB02.Name = "品牌" : 控制表1_dgv.Columns.Insert(1, CB02)
+        CB03.HeaderText = "工廠" : CB03.Name = "工廠" : 控制表1_dgv.Columns.Insert(2, CB03)
+        CB04.HeaderText = "INV" : CB04.Name = "INV" : 控制表1_dgv.Columns.Insert(3, CB04)
+        CB05.HeaderText = "訂單號" : CB05.Name = "訂單號" : 控制表1_dgv.Columns.Insert(4, CB05)
+        CB06.HeaderText = "訂單數" : CB06.Name = "訂單數" : 控制表1_dgv.Columns.Insert(5, CB06)
+        CB07.HeaderText = "出貨數量" : CB07.Name = "出貨數量" : 控制表1_dgv.Columns.Insert(6, CB07)
+        CB08.HeaderText = "FTY_PRICE" : CB08.Name = "FTY_PRICE" : 控制表1_dgv.Columns.Insert(7, CB08)
+        CB09.HeaderText = "扣關稅or後廠價" : CB09.Name = "扣關稅or後廠價" : 控制表1_dgv.Columns.Insert(8, CB09)
+        CB10.HeaderText = "CUST_Price" : CB10.Name = "CUST_Price" : 控制表1_dgv.Columns.Insert(9, CB10)
+        CB11.HeaderText = "EX_FTY_DATE" : CB11.Name = "EX_FTY_DATE" : 控制表1_dgv.Columns.Insert(10, CB11)
+        CB12.HeaderText = "Maturity_Date" : CB12.Name = "Maturity_Date" : 控制表1_dgv.Columns.Insert(11, CB12)
+        CB13.HeaderText = "FTY_Payment_Date" : CB13.Name = "FTY_Payment_Date" : 控制表1_dgv.Columns.Insert(12, CB13)
+        CB14.HeaderText = "Remark" : CB14.Name = "Remark" : 控制表1_dgv.Columns.Insert(13, CB14)
+        CB15.HeaderText = "確認新增" : CB15.Name = "確認新增" : 控制表1_dgv.Columns.Insert(14, CB15)
+        重新讀取1() : 首次開啟 = False
+    End Sub
+    Private Sub 銷帳_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 銷帳_dgv.RowPostPaint
+        Dim linePen As New Pen(Color.Blue, 1.5)
+        If e.RowIndex = 銷帳_dgv.Rows.Count - 1 Then
+            Exit Sub
+        Else
+            If INV排序_cb.Checked = True Then
+                If 銷帳_dgv(4, e.RowIndex).Value.ToString <> 銷帳_dgv(4, e.RowIndex + 1).Value.ToString Then
+                    Dim startX As Integer = IIf(銷帳_dgv.RowHeadersVisible, 銷帳_dgv.RowHeadersWidth, 0)
+                    Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
+                    Dim endX As Integer = startX + 銷帳_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 銷帳_dgv.HorizontalScrollingOffset
+                    e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
+                    Exit Sub
+                End If
+            Else
+                If 銷帳_dgv(5, e.RowIndex).Value.ToString <> 銷帳_dgv(5, e.RowIndex + 1).Value.ToString Then
+                    Dim startX As Integer = IIf(銷帳_dgv.RowHeadersVisible, 銷帳_dgv.RowHeadersWidth, 0)
+                    Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
+                    Dim endX As Integer = startX + 銷帳_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 銷帳_dgv.HorizontalScrollingOffset
+                    e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
+                    Exit Sub
+                End If
+            End If
+        End If
+    End Sub
+    Private Sub 利潤表_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 利潤表_dgv.RowPostPaint
+        Dim linePen As New Pen(Color.Blue, 1.5)
+        If e.RowIndex = 利潤表_dgv.Rows.Count - 1 Then
+            Exit Sub
+        Else
+            If 利潤表_dgv("訂單流水號", e.RowIndex).Value.ToString <> 利潤表_dgv("訂單流水號", e.RowIndex + 1).Value.ToString Then
+                Dim startX As Integer = IIf(利潤表_dgv.RowHeadersVisible, 利潤表_dgv.RowHeadersWidth, 0)
+                Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
+                Dim endX As Integer = startX + 利潤表_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 利潤表_dgv.HorizontalScrollingOffset
+                e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
+                Exit Sub
+            End If
+        End If
+    End Sub
+    Private Sub 訂單明細表_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 訂單明細表_dgv.RowPostPaint
+        Dim linePen As New Pen(Color.Blue, 1.5)
+        If e.RowIndex = 訂單明細表_dgv.Rows.Count - 1 Then
+            Exit Sub
+        Else
+            If 訂單明細表_dgv("客戶訂單號", e.RowIndex).Value.ToString <> 訂單明細表_dgv("客戶訂單號", e.RowIndex + 1).Value.ToString Then
+                Dim startX As Integer = IIf(訂單明細表_dgv.RowHeadersVisible, 訂單明細表_dgv.RowHeadersWidth, 0)
+                Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
+                Dim endX As Integer = startX + 訂單明細表_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 訂單明細表_dgv.HorizontalScrollingOffset
+                e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
+                Exit Sub
+            End If
+        End If
+    End Sub
+    Private Sub 銷帳_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 銷帳_dgv.MouseUp
+        'If 清單_dgv.SelectedCells.Count = 1 Then : MsgBox(清單_dgv.SelectedCells(0).ColumnIndex & "  " & 清單_dgv.SelectedCells(0).RowIndex) : End If
+        If 銷帳_dgv.SelectedCells.Count > 0 Then
+            If 銷帳_dgv.SelectedCells(0).ColumnIndex = 8 And 銷帳_dgv.Rows(銷帳_dgv.SelectedCells(0).RowIndex).Cells(9).Value = False Then
+                If 銷帳_dgv.Rows(銷帳_dgv.SelectedCells(0).RowIndex).Cells(8).Value = False Then
+                    銷帳_dgv.Rows(銷帳_dgv.SelectedCells(0).RowIndex).Cells(8).Value = True
+                Else
+                    銷帳_dgv.Rows(銷帳_dgv.SelectedCells(0).RowIndex).Cells(8).Value = False
+                End If
+                銷帳_dgv(12, 銷帳_dgv.SelectedCells(0).RowIndex).Value = 0 : 銷帳_dgv(18, 銷帳_dgv.SelectedCells(0).RowIndex).Value = 0
+                銷帳_dgv(20, 銷帳_dgv.SelectedCells(0).RowIndex).Value = 0 : 銷帳_dgv(24, 銷帳_dgv.SelectedCells(0).RowIndex).Value = 0
+                銷帳_dgv(28, 銷帳_dgv.SelectedCells(0).RowIndex).Value = 0 : 銷帳_dgv(32, 銷帳_dgv.SelectedCells(0).RowIndex).Value = 0
+
+                For II As Integer = 0 To 利潤表_dgv.Rows.Count - 1
+                    If 銷帳_dgv(5, 銷帳_dgv.SelectedCells(0).RowIndex).Value.ToString.Replace(" ", "") = 利潤表_dgv("力威訂單號", II).Value.ToString Then
+                        If CInt(銷帳_dgv(7, 銷帳_dgv.SelectedCells(0).RowIndex).Value.ToString) = CInt(利潤表_dgv("數量", II).Value.ToString) Then
+                            If 銷帳_dgv(29, 銷帳_dgv.SelectedCells(0).RowIndex).Value = 0 Then
+                                銷帳_dgv(29, 銷帳_dgv.SelectedCells(0).RowIndex).Value = 利潤表_dgv(20, II).Value
+                            Else
+                                Dim DF1 As Integer = CInt(銷帳_dgv(29, 銷帳_dgv.SelectedCells(0).RowIndex).Value) : Dim DF2 As Integer = CInt(利潤表_dgv(20, II).Value)
+                                If DF1 - DF2 < 2 And DF1 - DF2 > -2 Then
+                                    銷帳_dgv(35, 銷帳_dgv.SelectedCells(0).RowIndex).Value = False
+                                Else
+                                    銷帳_dgv(35, 銷帳_dgv.SelectedCells(0).RowIndex).Value = True
+                                End If
+                            End If : Exit For
+                        End If
+                    End If
+                Next
+                If 銷帳_dgv(35, 銷帳_dgv.SelectedCells(0).RowIndex).Value = True Then
+                    銷帳_dgv.Rows(銷帳_dgv.SelectedCells(0).RowIndex).DefaultCellStyle.BackColor = Color.LightPink
+                    For II As Integer = 2 To 7 : 銷帳_dgv.Rows(銷帳_dgv.SelectedCells(0).RowIndex).Cells(II).Style.BackColor = Color.LightPink : Next
+                    For II As Integer = 10 To 18 : 銷帳_dgv.Rows(銷帳_dgv.SelectedCells(0).RowIndex).Cells(II).Style.BackColor = Color.LightPink : Next
+                    For II As Integer = 19 To 24 : 銷帳_dgv.Rows(銷帳_dgv.SelectedCells(0).RowIndex).Cells(II).Style.BackColor = Color.LightPink : Next
+                    For II As Integer = 25 To 33 : 銷帳_dgv.Rows(銷帳_dgv.SelectedCells(0).RowIndex).Cells(II).Style.BackColor = Color.LightPink : Next
+                End If
+
+                If 銷帳_dgv(8, 銷帳_dgv.SelectedCells(0).RowIndex).Value = True Then
+                    If 銷帳_dgv(11, 銷帳_dgv.SelectedCells(0).RowIndex).Value = 0 Then
+                        銷帳_dgv(12, 銷帳_dgv.SelectedCells(0).RowIndex).Value = 銷帳_dgv(7, 銷帳_dgv.SelectedCells(0).RowIndex).Value * 銷帳_dgv(10, 銷帳_dgv.SelectedCells(0).RowIndex).Value
+                    Else
+                        銷帳_dgv(12, 銷帳_dgv.SelectedCells(0).RowIndex).Value = 銷帳_dgv(7, 銷帳_dgv.SelectedCells(0).RowIndex).Value * 銷帳_dgv(11, 銷帳_dgv.SelectedCells(0).RowIndex).Value
+                    End If
+                    銷帳_dgv(18, 銷帳_dgv.SelectedCells(0).RowIndex).Value = 銷帳_dgv(12, 銷帳_dgv.SelectedCells(0).RowIndex).Value - 銷帳_dgv(13, 銷帳_dgv.SelectedCells(0).RowIndex).Value -
+                                                                             銷帳_dgv(14, 銷帳_dgv.SelectedCells(0).RowIndex).Value - 銷帳_dgv(15, 銷帳_dgv.SelectedCells(0).RowIndex).Value -
+                                                                             銷帳_dgv(16, 銷帳_dgv.SelectedCells(0).RowIndex).Value + 銷帳_dgv(17, 銷帳_dgv.SelectedCells(0).RowIndex).Value
+                    銷帳_dgv(20, 銷帳_dgv.SelectedCells(0).RowIndex).Value = 銷帳_dgv(7, 銷帳_dgv.SelectedCells(0).RowIndex).Value * 銷帳_dgv(19, 銷帳_dgv.SelectedCells(0).RowIndex).Value
+                    銷帳_dgv(24, 銷帳_dgv.SelectedCells(0).RowIndex).Value = 銷帳_dgv(20, 銷帳_dgv.SelectedCells(0).RowIndex).Value - 銷帳_dgv(21, 銷帳_dgv.SelectedCells(0).RowIndex).Value -
+                                                                             銷帳_dgv(22, 銷帳_dgv.SelectedCells(0).RowIndex).Value - 銷帳_dgv(23, 銷帳_dgv.SelectedCells(0).RowIndex).Value
+                    銷帳_dgv(28, 銷帳_dgv.SelectedCells(0).RowIndex).Value = 銷帳_dgv(24, 銷帳_dgv.SelectedCells(0).RowIndex).Value - 銷帳_dgv(18, 銷帳_dgv.SelectedCells(0).RowIndex).Value
+                    銷帳_dgv(32, 銷帳_dgv.SelectedCells(0).RowIndex).Value = 銷帳_dgv(28, 銷帳_dgv.SelectedCells(0).RowIndex).Value - 銷帳_dgv(29, 銷帳_dgv.SelectedCells(0).RowIndex).Value -
+                                                                             銷帳_dgv(30, 銷帳_dgv.SelectedCells(0).RowIndex).Value - 銷帳_dgv(31, 銷帳_dgv.SelectedCells(0).RowIndex).Value
+                End If
+                銷帳_dgv.CurrentCell = 銷帳_dgv.Rows(銷帳_dgv.SelectedCells(0).RowIndex).Cells(7)
+            ElseIf 銷帳_dgv.SelectedCells(0).ColumnIndex = 9 Then
+                If 銷帳_dgv.Rows(銷帳_dgv.SelectedCells(0).RowIndex).Cells(9).Value = False Then
+                    銷帳_dgv.Rows(銷帳_dgv.SelectedCells(0).RowIndex).Cells(9).Value = True
+                Else
+                    銷帳_dgv.Rows(銷帳_dgv.SelectedCells(0).RowIndex).Cells(9).Value = False
+                End If
+                If 銷帳_dgv(9, 銷帳_dgv.SelectedCells(0).RowIndex).Value = True Then
+                    銷帳_dgv(7, 銷帳_dgv.SelectedCells(0).RowIndex).ReadOnly = True
+                    銷帳_dgv(8, 銷帳_dgv.SelectedCells(0).RowIndex).ReadOnly = True
+                    銷帳_dgv(19, 銷帳_dgv.SelectedCells(0).RowIndex).ReadOnly = True
+                    For II As Integer = 10 To 11 : 銷帳_dgv(II, 銷帳_dgv.SelectedCells(0).RowIndex).ReadOnly = True : Next
+                    For II As Integer = 13 To 17 : 銷帳_dgv(II, 銷帳_dgv.SelectedCells(0).RowIndex).ReadOnly = True : Next
+                    For II As Integer = 21 To 23 : 銷帳_dgv(II, 銷帳_dgv.SelectedCells(0).RowIndex).ReadOnly = True : Next
+                    For II As Integer = 25 To 27 : 銷帳_dgv(II, 銷帳_dgv.SelectedCells(0).RowIndex).ReadOnly = True : Next
+                    For II As Integer = 29 To 31 : 銷帳_dgv(II, 銷帳_dgv.SelectedCells(0).RowIndex).ReadOnly = True : Next
+                Else
+                    銷帳_dgv(7, 銷帳_dgv.SelectedCells(0).RowIndex).ReadOnly = False
+                    銷帳_dgv(8, 銷帳_dgv.SelectedCells(0).RowIndex).ReadOnly = False
+                    銷帳_dgv(19, 銷帳_dgv.SelectedCells(0).RowIndex).ReadOnly = False
+                    For II As Integer = 10 To 11 : 銷帳_dgv(II, 銷帳_dgv.SelectedCells(0).RowIndex).ReadOnly = False : Next
+                    For II As Integer = 13 To 17 : 銷帳_dgv(II, 銷帳_dgv.SelectedCells(0).RowIndex).ReadOnly = False : Next
+                    For II As Integer = 21 To 23 : 銷帳_dgv(II, 銷帳_dgv.SelectedCells(0).RowIndex).ReadOnly = False : Next
+                    For II As Integer = 25 To 27 : 銷帳_dgv(II, 銷帳_dgv.SelectedCells(0).RowIndex).ReadOnly = False : Next
+                    For II As Integer = 29 To 31 : 銷帳_dgv(II, 銷帳_dgv.SelectedCells(0).RowIndex).ReadOnly = False : Next
+                End If
+                銷帳_dgv.CurrentCell = 銷帳_dgv.Rows(銷帳_dgv.SelectedCells(0).RowIndex).Cells(7)
+            ElseIf 銷帳_dgv.SelectedCells(0).ColumnIndex = 5 Then
+                PO號_tb.Text = 銷帳_dgv.Rows(銷帳_dgv.SelectedCells(0).RowIndex).Cells(5).Value.Replace(" ", "")
+            End If
+        End If
+    End Sub
+    Private Sub 銷帳_dgv_CellContentCl(sender As Object, e As DataGridViewCellEventArgs) Handles 銷帳_dgv.CellEndEdit
+        If 首次開啟 = False Then
+            銷帳_dgv(12, e.RowIndex).Value = 0 : 銷帳_dgv(18, e.RowIndex).Value = 0 : 銷帳_dgv(20, e.RowIndex).Value = 0 : 銷帳_dgv(24, e.RowIndex).Value = 0
+            銷帳_dgv(28, e.RowIndex).Value = 0 : 銷帳_dgv(32, e.RowIndex).Value = 0
+
+            For II As Integer = 0 To 訂單明細表_dgv.Rows.Count - 1
+                If 銷帳_dgv(34, e.RowIndex).Value.ToString = 訂單明細表_dgv(3, II).Value.ToString Then
+                    If CInt(銷帳_dgv(7, e.RowIndex).Value.ToString) = CInt(訂單明細表_dgv(8, II).Value.ToString) Then
+                        銷帳_dgv(8, e.RowIndex).Value = True : Exit For
+                    End If
+                End If
+            Next
+            For II As Integer = 0 To 利潤表_dgv.Rows.Count - 1
+                If Strings.Left(銷帳_dgv(5, e.RowIndex).Value.ToString, 10) = 利潤表_dgv("力威訂單號", II).Value.ToString Then
+                    If CInt(銷帳_dgv(7, e.RowIndex).Value.ToString) = CInt(利潤表_dgv("數量", II).Value.ToString) Then
+                        If 銷帳_dgv(29, e.RowIndex).Value = 0 Then
+                            銷帳_dgv(29, e.RowIndex).Value = 利潤表_dgv(20, II).Value
+                        Else
+                            Dim DF1 As Integer = CInt(銷帳_dgv(29, e.RowIndex).Value) : Dim DF2 As Integer = CInt(利潤表_dgv(20, II).Value)
+                            If DF1 - DF2 < 2 And DF1 - DF2 > -2 Then
+                                銷帳_dgv(35, e.RowIndex).Value = False
+                            Else
+                                銷帳_dgv(35, e.RowIndex).Value = True : Exit For
+                            End If
+                        End If
+                    End If
+                End If
+            Next
+            If 銷帳_dgv(35, e.RowIndex).Value = True Then
+                For I As Integer = 2 To 7 : 銷帳_dgv.Rows(e.RowIndex).Cells(I).Style.BackColor = Color.LightPink : Next
+                For I As Integer = 10 To 18 : 銷帳_dgv.Rows(e.RowIndex).Cells(I).Style.BackColor = Color.LightPink : Next
+                For I As Integer = 19 To 24 : 銷帳_dgv.Rows(e.RowIndex).Cells(I).Style.BackColor = Color.LightPink : Next
+                For I As Integer = 25 To 33 : 銷帳_dgv.Rows(e.RowIndex).Cells(I).Style.BackColor = Color.LightPink : Next
+            ElseIf 銷帳_dgv(8, e.RowIndex).Value = False Then
+                For I As Integer = 2 To 7 : 銷帳_dgv.Rows(e.RowIndex).Cells(I).Style.BackColor = Color.White : Next
+                For I As Integer = 10 To 18 : 銷帳_dgv.Rows(e.RowIndex).Cells(I).Style.BackColor = Color.White : Next
+                For I As Integer = 19 To 24 : 銷帳_dgv.Rows(e.RowIndex).Cells(I).Style.BackColor = Color.White : Next
+                For I As Integer = 25 To 33 : 銷帳_dgv.Rows(e.RowIndex).Cells(I).Style.BackColor = Color.White : Next
+            Else
+                For I As Integer = 2 To 7 : 銷帳_dgv.Rows(e.RowIndex).Cells(I).Style.BackColor = Color.LightCyan : Next
+                For I As Integer = 10 To 18 : 銷帳_dgv.Rows(e.RowIndex).Cells(I).Style.BackColor = Color.Cornsilk : Next
+                For I As Integer = 19 To 24 : 銷帳_dgv.Rows(e.RowIndex).Cells(I).Style.BackColor = Color.LavenderBlush : Next
+                For I As Integer = 25 To 33 : 銷帳_dgv.Rows(e.RowIndex).Cells(I).Style.BackColor = Color.Beige : Next
+            End If
+
+            If 銷帳_dgv(8, e.RowIndex).Value = True Then
+                If 銷帳_dgv(11, e.RowIndex).Value = 0 Then
+                    銷帳_dgv(12, e.RowIndex).Value = 銷帳_dgv(7, e.RowIndex).Value * 銷帳_dgv(10, e.RowIndex).Value
+                Else
+                    銷帳_dgv(12, e.RowIndex).Value = 銷帳_dgv(7, e.RowIndex).Value * 銷帳_dgv(11, e.RowIndex).Value
+                End If
+                銷帳_dgv(18, e.RowIndex).Value = 銷帳_dgv(12, e.RowIndex).Value - 銷帳_dgv(13, e.RowIndex).Value - 銷帳_dgv(14, e.RowIndex).Value - 銷帳_dgv(15, e.RowIndex).Value -
+                                                 銷帳_dgv(16, e.RowIndex).Value + 銷帳_dgv(17, e.RowIndex).Value
+                銷帳_dgv(20, e.RowIndex).Value = 銷帳_dgv(7, e.RowIndex).Value * 銷帳_dgv(19, e.RowIndex).Value
+                銷帳_dgv(24, e.RowIndex).Value = 銷帳_dgv(20, e.RowIndex).Value - 銷帳_dgv(21, e.RowIndex).Value - 銷帳_dgv(22, e.RowIndex).Value - 銷帳_dgv(23, e.RowIndex).Value
+                銷帳_dgv(28, e.RowIndex).Value = 銷帳_dgv(24, e.RowIndex).Value - 銷帳_dgv(18, e.RowIndex).Value
+                銷帳_dgv(32, e.RowIndex).Value = 銷帳_dgv(28, e.RowIndex).Value - 銷帳_dgv(29, e.RowIndex).Value - 銷帳_dgv(30, e.RowIndex).Value - 銷帳_dgv(31, e.RowIndex).Value
+            End If
+        End If
+    End Sub
+    Private Sub 控制表1_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 控制表1_dgv.MouseUp
+        'If 清單_dgv.SelectedCells.Count = 1 Then : MsgBox(清單_dgv.SelectedCells(0).ColumnIndex & "  " & 清單_dgv.SelectedCells(0).RowIndex) : End If
+        If 控制表1_dgv.SelectedCells.Count > 0 Then
+            If 控制表1_dgv.SelectedCells(0).ColumnIndex = 4 Then
+                PO號_tb.Text = 控制表1_dgv.Rows(控制表1_dgv.SelectedCells(0).RowIndex).Cells("訂單號").Value.ToString.Replace(" ", "")
+            ElseIf 控制表1_dgv.SelectedCells(0).ColumnIndex = 14 Then
+                If 控制表1_dgv.Rows(控制表1_dgv.SelectedCells(0).RowIndex).Cells(14).Value = False Then
+                    控制表1_dgv.Rows(控制表1_dgv.SelectedCells(0).RowIndex).Cells(14).Value = True
+                    控制表1_dgv.Rows(控制表1_dgv.SelectedCells(0).RowIndex).DefaultCellStyle.BackColor = Color.LightGreen
+                    控制表1_dgv.CurrentCell = 控制表1_dgv.Rows(控制表1_dgv.SelectedCells(0).RowIndex).Cells(0)
+                Else
+                    控制表1_dgv.Rows(控制表1_dgv.SelectedCells(0).RowIndex).Cells(14).Value = False
+                    控制表1_dgv.Rows(控制表1_dgv.SelectedCells(0).RowIndex).DefaultCellStyle.BackColor = Color.White
+                    控制表1_dgv.CurrentCell = 控制表1_dgv.Rows(控制表1_dgv.SelectedCells(0).RowIndex).Cells(0)
+                End If
+            End If
+        End If
+    End Sub
+    Private Sub 銷帳_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 銷帳_dgv.CellClick
+        If e.RowIndex = -1 Then : Else : 目前選擇項 = e.RowIndex
+            流水號_tb.Text = 銷帳_dgv.Rows(e.RowIndex).Cells(0).Value.ToString
+        End If
+    End Sub
+    Private Sub 年份_cb_SelectedIndexChanged_1(sender As Object, e As EventArgs) Handles 年份_cb.SelectedIndexChanged
+        If 首次開啟 = False Then : 重新讀取1() : End If
+    End Sub
+    Private Sub 資料庫選擇1_bt_Click(sender As Object, e As EventArgs) Handles 資料庫選擇1_bt.Click
+        SQL_訂單資料表選擇_VIONIC() : 重新讀取1()
+    End Sub
+    Private Sub 資料庫選擇2_bt_Click(sender As Object, e As EventArgs) Handles 資料庫選擇2_bt.Click
+        SQL_訂單資料表選擇_非VIONIC() : 重新讀取1()
+    End Sub
+    Private Sub INV排序_cb_Click(sender As Object, e As EventArgs) Handles INV排序_cb.Click
+        INV排序_cb.Checked = True : PO排序_cb.Checked = False : If 首次開啟 = False Then : 重新讀取1() : End If
+    End Sub
+    Private Sub PO排序_cb_Click(sender As Object, e As EventArgs) Handles PO排序_cb.Click
+        INV排序_cb.Checked = False : PO排序_cb.Checked = True : If 首次開啟 = False Then : 重新讀取1() : End If
+    End Sub
+    Private Sub 比對關鍵字_bt_Click(sender As Object, e As EventArgs) Handles 比對關鍵字_bt.Click
+        PA = PO號_tb.Text : SQL_訂單流水號查詢()
+        If dr.Read Then : PO號1_tb.Text = dr("訂單流水號").ToString : Else : PO號1_tb.Text = "" : End If
+        lastFoundRowIndex = -1 : lastFoundColIndex = -1 : 查詢DGV中的關鍵字(利潤表_dgv, PO號_tb)
+        lastFoundRowIndex = -1 : lastFoundColIndex = -1 : 查詢DGV中的關鍵字(控制表_dgv, PO號_tb)
+        If PO號1_tb.Text = "" Then
+            lastFoundRowIndex = -1 : lastFoundColIndex = -1 : 查詢DGV中的關鍵字(訂單明細表_dgv, PO號_tb)
+        Else
+            lastFoundRowIndex = -1 : lastFoundColIndex = -1 : 查詢DGV中的關鍵字(訂單明細表_dgv, PO號1_tb)
+        End If
+        lastFoundRowIndex = -1 : lastFoundColIndex = -1 : 查詢DGV中的關鍵字(控制表_dgv, PO號_tb)
+        lastFoundRowIndex = -1 : lastFoundColIndex = -1 : 查詢DGV中的關鍵字(控制表1_dgv, PO號_tb)
+        lastFoundRowIndex = -1 : lastFoundColIndex = -1 : 查詢DGV中的關鍵字(銷帳_dgv, PO號_tb)
+    End Sub
+    Private Sub PO號_tb_TextChanged(sender As Object, e As EventArgs) Handles PO號_tb.TextChanged
+        PA = PO號_tb.Text : SQL_訂單流水號查詢()
+        If dr.Read Then : PO號1_tb.Text = dr("訂單流水號").ToString : Else : PO號1_tb.Text = "" : End If
+        lastFoundRowIndex = -1 : lastFoundColIndex = -1 : 查詢DGV中的關鍵字(利潤表_dgv, PO號_tb)
+        lastFoundRowIndex = -1 : lastFoundColIndex = -1 : 查詢DGV中的關鍵字(控制表_dgv, PO號_tb)
+        If PO號1_tb.Text = "" Then
+            lastFoundRowIndex = -1 : lastFoundColIndex = -1 : 查詢DGV中的關鍵字(訂單明細表_dgv, PO號_tb)
+        Else
+            lastFoundRowIndex = -1 : lastFoundColIndex = -1 : 查詢DGV中的關鍵字(訂單明細表_dgv, PO號1_tb)
+        End If
+        lastFoundRowIndex = -1 : lastFoundColIndex = -1 : 查詢DGV中的關鍵字(控制表_dgv, PO號_tb)
+        lastFoundRowIndex = -1 : lastFoundColIndex = -1 : 查詢DGV中的關鍵字(控制表1_dgv, PO號_tb)
+    End Sub
+
+    Private currentRowIndex As Integer = -1 ' 用于跟踪当前选定的行索引
+    Private Sub 差異_下_bt_Click(sender As Object, e As EventArgs) Handles 差異_下_bt.Click
+        For rowIndex As Integer = currentRowIndex + 1 To 銷帳_dgv.Rows.Count - 1        ' 从当前选定行的下一行开始搜索
+            Dim cellValue As Boolean = DirectCast(銷帳_dgv.Rows(rowIndex).Cells("異動").Value, Boolean)
+            Dim cellValue1 As Boolean = DirectCast(銷帳_dgv.Rows(rowIndex).Cells("異動1").Value, Boolean)
+            If cellValue = True Or cellValue1 = True Then                ' 找到差异为1的数据行
+                銷帳_dgv.CurrentCell = 銷帳_dgv.Rows(rowIndex).Cells(29) ' 将焦点移到该行
+                currentRowIndex = rowIndex ' 更新当前选定的行索引
+                Exit Sub
+            End If
+        Next : MessageBox.Show("已經到達最後一筆有差異的資料。")        ' 如果没有更多的匹配项，可以显示消息或采取其他操作
+    End Sub
+    Private Sub 差異_上_bt_Click(sender As Object, e As EventArgs) Handles 差異_上_bt.Click
+        For rowIndex As Integer = currentRowIndex - 1 To 0 Step -1        ' 从当前选定行的上一行开始搜索
+            Dim cellValue As Boolean = DirectCast(銷帳_dgv.Rows(rowIndex).Cells("異動").Value, Boolean)
+            Dim cellValue1 As Boolean = DirectCast(銷帳_dgv.Rows(rowIndex).Cells("異動1").Value, Boolean)
+            If cellValue = True Or cellValue1 = True Then                ' 找到差异为1的数据行
+                銷帳_dgv.CurrentCell = 銷帳_dgv.Rows(rowIndex).Cells(29) ' 将焦点移到该行
+                currentRowIndex = rowIndex ' 更新当前选定的行索引
+                Exit Sub
+            End If
+        Next : MessageBox.Show("已經到達第一筆有差異的資料。")        ' 如果没有更多的匹配项，可以显示消息或采取其他操作
+    End Sub
+    Private Sub 刪除_bt_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
+        If 流水號_tb.Text = "" Then : MsgBox("沒有選擇要刪除的資料!!") : Else
+            If 銷帳_dgv.Rows(目前選擇項).Cells("已確認").Value = False Then
+                Dim aa As MsgBoxResult = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
+                If aa = MsgBoxResult.Ok Then
+                    PA15 = InputBox("請輸入[YES]來執行刪除動作!!")
+                    If PA15 = "YES" Then
+                        PA3 = 流水號_tb.Text : SQL_銷帳清單_刪除() : MsgBox("刪除完成") : Set_銷帳清單()
+                        If 目前選擇項 = 0 Then : 銷帳_dgv.CurrentCell = 銷帳_dgv.Rows(目前選擇項).Cells(2)
+                        Else : 銷帳_dgv.CurrentCell = 銷帳_dgv.Rows(目前選擇項 - 1).Cells(2) : End If
+                    End If
+                End If
+            Else : MsgBox("資料已經鎖定，無法刪除!!") : End If
+        End If
+    End Sub
+    Private Sub 存檔_tb_Click(sender As Object, e As EventArgs) Handles 存檔_tb.Click
+        Dim aa As MsgBoxResult = MsgBox("如果要整體存檔請按 [確認]" & vbCrLf & "如果只存檔當前修改的單筆資料修改的請按 [取消]", MsgBoxStyle.OkCancel)
+        If aa = MsgBoxResult.Ok Then
+            Dim aa1 As MsgBoxResult = MsgBox("要存檔資料筆數為 " & 銷帳_dgv.Rows.Count & " 筆，確認後將開始執行!!  [需要時較長時間，請耐心等待統完成提示]", MsgBoxStyle.OkCancel)
+            If aa1 = MsgBoxResult.Ok Then : 資料數 = 銷帳_dgv.Rows.Count
+                For i As Integer = 0 To 銷帳_dgv.Rows.Count - 1 : MyModule1.進度條()
+                    PA3 = 銷帳_dgv.Rows(i).Cells("流水號").Value.ToString
+                    PA70 = 銷帳_dgv.Rows(i).Cells("出貨數量").Value.ToString : PA69 = 銷帳_dgv.Rows(i).Cells("FTY_PRICE").Value.ToString
+                    PA68 = 銷帳_dgv.Rows(i).Cells("扣關稅or後廠價").Value.ToString : PA67 = 銷帳_dgv.Rows(i).Cells("CUST_Price").Value.ToString
+                    PA66 = 銷帳_dgv.Rows(i).Cells("EX_FTY_DATE").Value.ToString : PA65 = 銷帳_dgv.Rows(i).Cells("Maturity_Date").Value.ToString
+                    PA64 = 銷帳_dgv.Rows(i).Cells("FTY_Payment_Date").Value.ToString : PA63 = 銷帳_dgv.Rows(i).Cells("Remark").Value.ToString
+                    PA62 = 銷帳_dgv.Rows(i).Cells("Darren佣金").Value.ToString : PA61 = 銷帳_dgv.Rows(i).Cells("Betty佣金").Value.ToString
+                    PA60 = 銷帳_dgv.Rows(i).Cells("F_利息or扣款").Value.ToString : PA59 = 銷帳_dgv.Rows(i).Cells("其他費用").Value.ToString
+                    PA58 = 銷帳_dgv.Rows(i).Cells("已確認").Value.ToString : PA57 = 銷帳_dgv.Rows(i).Cells("F_銀行扣款").Value.ToString
+                    PA56 = 銷帳_dgv.Rows(i).Cells("F_文件費").Value.ToString : PA55 = 銷帳_dgv.Rows(i).Cells("F_貼標費").Value.ToString
+                    PA54 = 銷帳_dgv.Rows(i).Cells("F_增加款").Value.ToString : PA53 = 銷帳_dgv.Rows(i).Cells("C_文件費").Value.ToString
+                    PA52 = 銷帳_dgv.Rows(i).Cells("C_貼標費").Value.ToString : PA51 = 銷帳_dgv.Rows(i).Cells("C_利息or扣款").Value.ToString
+                    PA50 = 銷帳_dgv.Rows(i).Cells("已出貨").Value.ToString : SQL_銷帳清單_存檔()
+                Next : TENDEN_MES_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 : MsgBox("整體存檔完成")
+            End If
+        Else
+            If 流水號_tb.Text = "" Then : MsgBox("沒有選擇要存檔的資料!!") : Else : PA3 = 流水號_tb.Text
+                PA70 = 銷帳_dgv.Rows(目前選擇項).Cells("出貨數量").Value.ToString : PA69 = 銷帳_dgv.Rows(目前選擇項).Cells("FTY_PRICE").Value.ToString
+                PA68 = 銷帳_dgv.Rows(目前選擇項).Cells("扣關稅or後廠價").Value.ToString : PA67 = 銷帳_dgv.Rows(目前選擇項).Cells("CUST_Price").Value.ToString
+                PA66 = 銷帳_dgv.Rows(目前選擇項).Cells("EX_FTY_DATE").Value.ToString : PA65 = 銷帳_dgv.Rows(目前選擇項).Cells("Maturity_Date").Value.ToString
+                PA64 = 銷帳_dgv.Rows(目前選擇項).Cells("FTY_Payment_Date").Value.ToString : PA63 = 銷帳_dgv.Rows(目前選擇項).Cells("Remark").Value.ToString
+                PA62 = 銷帳_dgv.Rows(目前選擇項).Cells("Darren佣金").Value.ToString : PA61 = 銷帳_dgv.Rows(目前選擇項).Cells("Betty佣金").Value.ToString
+                PA60 = 銷帳_dgv.Rows(目前選擇項).Cells("F_利息or扣款").Value.ToString : PA59 = 銷帳_dgv.Rows(目前選擇項).Cells("其他費用").Value.ToString
+                PA58 = 銷帳_dgv.Rows(目前選擇項).Cells("已確認").Value.ToString : PA57 = 銷帳_dgv.Rows(目前選擇項).Cells("F_銀行扣款").Value.ToString
+                PA56 = 銷帳_dgv.Rows(目前選擇項).Cells("F_文件費").Value.ToString : PA55 = 銷帳_dgv.Rows(目前選擇項).Cells("F_貼標費").Value.ToString
+                PA54 = 銷帳_dgv.Rows(目前選擇項).Cells("F_增加款").Value.ToString : PA53 = 銷帳_dgv.Rows(目前選擇項).Cells("C_文件費").Value.ToString
+                PA52 = 銷帳_dgv.Rows(目前選擇項).Cells("C_貼標費").Value.ToString : PA51 = 銷帳_dgv.Rows(目前選擇項).Cells("C_利息or扣款").Value.ToString
+                PA50 = 銷帳_dgv.Rows(目前選擇項).Cells("已出貨").Value.ToString : SQL_銷帳清單_存檔() : MsgBox("單筆存檔完成")
+            End If
+        End If
+    End Sub
+    Private Sub 比對新增_bt_Click(sender As Object, e As EventArgs) Handles 比對新增_bt.Click
+        Dim aa As MsgBoxResult = MsgBox("1、請注意要將出貨明細表中要導入的資料表另存新檔!!" & vbCrLf &
+                                        "2、要注意檢查一下資料表中的 [訂單數]、[出貨數量]、[FTY_PRICE]、[扣關稅or後廠價]、[CUST_Price] 這五個資料表中不要有文字!!" & vbCrLf &
+                                        "3、開啟檔案時不要開錯，開錯當按會造成系統錯誤!!" & vbCrLf &
+                                        "   如果已經準備好上述的條件請按下 [確認] 繼續運雄系統!!", MsgBoxStyle.OkCancel)
+        If aa = MsgBoxResult.Ok Then
+            If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
+                視窗2_pl.Location = New System.Drawing.Point((Me.Size.Width - 視窗2_pl.Size.Width) / 2, (Me.Size.Height - 視窗2_pl.Size.Height) / 2)
+                視窗2_pl.Visible = True : 視窗2_pl.BringToFront() : 控制表_dgv.BringToFront()
+                Dim 差異數, 新增數 As Integer : 差異數 = 0 : 新增數 = 0
+                file_name = OpenFileDialog1.FileName
+                xlApp = CreateObject("Excel.Application")
+                xlApp.DisplayAlerts = False
+                xlApp.Visible = True
+                xlApp.Workbooks.Open(file_name)
+                xlSheet = xlApp.Worksheets(1)
+                xlSheet.Activate()
+                xlApp.Visible = False
+
+                Dim INT1 As String : Dim D1 As String : Dim D2 As String : Dim D3 As String : Dim D4 As String : Dim 流水 As String = "TD00000001" : SQL_銷帳清單_流水號()
+                If dr.Read Then : 流水 = dr("流水號").ToString : End If : 資料數 = 銷帳_dgv.Rows.Count + 100
+                For I As Integer = 0 To 銷帳_dgv.Rows.Count - 1 : 銷帳_dgv(37, I).Value = False : Next
+                For I As Integer = 0 To 5000 : MyModule1.進度條()
+                    D1 = xlSheet.Cells(I + 2, 1).value : D2 = xlSheet.Cells(I + 2, 2).value : D3 = xlSheet.Cells(I + 2, 3).value : D4 = xlSheet.Cells(I + 2, 4).value
+                    If D1 = "" And D2 = "" And D3 = "" And D4 = "" Then : Exit For : Else
+                        控制表_dgv.Rows.Insert(0)
+                        控制表_dgv.Rows(0).Cells("流水號").Value = I + 1
+                        控制表_dgv.Rows(0).Cells("品牌").Value = xlSheet.Cells(I + 2, 1).value
+                        控制表_dgv.Rows(0).Cells("工廠").Value = xlSheet.Cells(I + 2, 2).value
+                        控制表_dgv.Rows(0).Cells("INV").Value = xlSheet.Cells(I + 2, 3).value
+                        控制表_dgv.Rows(0).Cells("訂單號").Value = xlSheet.Cells(I + 2, 4).value
+                        INT1 = xlSheet.Cells(I + 2, 5).value
+                        If IsNumeric(INT1) Then : 控制表_dgv.Rows(0).Cells("訂單數").Value = xlSheet.Cells(I + 2, 5).value
+                        Else : 控制表_dgv.Rows(0).Cells("訂單數").Value = "0" : End If
+                        INT1 = xlSheet.Cells(I + 2, 6).value
+                        If IsNumeric(INT1) Then : 控制表_dgv.Rows(0).Cells("出貨數量").Value = xlSheet.Cells(I + 2, 6).value
+                        Else : 控制表_dgv.Rows(0).Cells("出貨數量").Value = "0" : End If
+                        INT1 = xlSheet.Cells(I + 2, 7).value
+                        If IsNumeric(INT1) Then : 控制表_dgv.Rows(0).Cells("FTY_PRICE").Value = xlSheet.Cells(I + 2, 7).value
+                        Else : 控制表_dgv.Rows(0).Cells("FTY_PRICE").Value = "0" : End If
+                        INT1 = xlSheet.Cells(I + 2, 8).value
+                        If IsNumeric(INT1) Then : 控制表_dgv.Rows(0).Cells("扣關稅or後廠價").Value = xlSheet.Cells(I + 2, 8).value
+                        Else : 控制表_dgv.Rows(0).Cells("扣關稅or後廠價").Value = "0" : End If
+                        INT1 = xlSheet.Cells(I + 2, 9).value
+                        If IsNumeric(INT1) Then : 控制表_dgv.Rows(0).Cells("CUST_Price").Value = xlSheet.Cells(I + 2, 9).value
+                        Else : 控制表_dgv.Rows(0).Cells("CUST_Price").Value = "0" : End If
+                        控制表_dgv.Rows(0).Cells("EX_FTY_DATE").Value = xlSheet.Cells(I + 2, 10).value
+                        控制表_dgv.Rows(0).Cells("Maturity_Date").Value = xlSheet.Cells(I + 2, 11).value
+                        控制表_dgv.Rows(0).Cells("FTY_Payment_Date").Value = xlSheet.Cells(I + 2, 12).value
+                        控制表_dgv.Rows(0).Cells("Remark").Value = xlSheet.Cells(I + 2, 13).value
+                    End If
+                    Dim 新資料 As Boolean = True : Dim SX1, SX2 As Integer
+                    For II As Integer = 0 To 銷帳_dgv.Rows.Count - 1
+                        If 銷帳_dgv(37, I).Value = True Then : Else
+                            If 控制表_dgv.Rows(0).Cells("INV").Value.ToString.Replace(" ", "") = 銷帳_dgv.Rows(II).Cells("INV").Value.ToString.Replace(" ", "") And
+                            控制表_dgv.Rows(0).Cells("訂單號").Value.ToString.Replace(" ", "") = 銷帳_dgv.Rows(II).Cells("訂單號").Value.ToString.Replace(" ", "") Then
+                                If CInt(控制表_dgv.Rows(0).Cells("訂單數").Value.ToString) = CInt(銷帳_dgv.Rows(II).Cells("訂單數").Value.ToString) Then
+                                    If CInt(控制表_dgv.Rows(0).Cells("出貨數量").Value.ToString) = CInt(銷帳_dgv.Rows(II).Cells("出貨數量").Value.ToString) Then
+                                        '-------------舊資料比對差異--------------------------------------------------------------------------------------
+                                        新資料 = False : 銷帳_dgv(37, I).Value = True
+                                        SX1 = CInt(控制表_dgv.Rows(0).Cells("FTY_PRICE").Value.ToString) : SX2 = CInt(銷帳_dgv.Rows(II).Cells("FTY_PRICE").Value.ToString)
+                                        If SX1 <> SX2 Then
+                                            銷帳_dgv(35, II).Value = True : 差異數 += 1
+                                            For III As Integer = 2 To 7 : 銷帳_dgv.Rows(II).Cells(III).Style.BackColor = Color.LightPink : Next
+                                            For III As Integer = 10 To 18 : 銷帳_dgv.Rows(II).Cells(III).Style.BackColor = Color.LightPink : Next
+                                            For III As Integer = 19 To 24 : 銷帳_dgv.Rows(II).Cells(III).Style.BackColor = Color.LightPink : Next
+                                            For III As Integer = 25 To 33 : 銷帳_dgv.Rows(II).Cells(III).Style.BackColor = Color.LightPink : Next
+                                        End If
+                                        SX1 = CInt(控制表_dgv.Rows(0).Cells("扣關稅or後廠價").Value.ToString) : SX2 = CInt(銷帳_dgv.Rows(II).Cells("扣關稅or後廠價").Value.ToString)
+                                        If SX1 <> SX2 Then
+                                            銷帳_dgv(35, II).Value = True : 差異數 += 1
+                                            For III As Integer = 2 To 7 : 銷帳_dgv.Rows(II).Cells(III).Style.BackColor = Color.LightPink : Next
+                                            For III As Integer = 10 To 18 : 銷帳_dgv.Rows(II).Cells(III).Style.BackColor = Color.LightPink : Next
+                                            For III As Integer = 19 To 24 : 銷帳_dgv.Rows(II).Cells(III).Style.BackColor = Color.LightPink : Next
+                                            For III As Integer = 25 To 33 : 銷帳_dgv.Rows(II).Cells(III).Style.BackColor = Color.LightPink : Next
+                                        End If
+                                        SX1 = CInt(控制表_dgv.Rows(0).Cells("CUST_Price").Value.ToString) : SX2 = CInt(銷帳_dgv.Rows(II).Cells("CUST_Price").Value.ToString)
+                                        If SX1 <> SX2 Then
+                                            銷帳_dgv(35, II).Value = True : 差異數 += 1
+                                            For III As Integer = 2 To 7 : 銷帳_dgv.Rows(II).Cells(III).Style.BackColor = Color.LightPink : Next
+                                            For III As Integer = 10 To 18 : 銷帳_dgv.Rows(II).Cells(III).Style.BackColor = Color.LightPink : Next
+                                            For III As Integer = 19 To 24 : 銷帳_dgv.Rows(II).Cells(III).Style.BackColor = Color.LightPink : Next
+                                            For III As Integer = 25 To 33 : 銷帳_dgv.Rows(II).Cells(III).Style.BackColor = Color.LightPink : Next
+                                        End If : Exit For
+                                    End If
+                                End If
+                            End If
+
+                        End If
+                    Next
+                    '-------------新資料準備寫入--------------------------------------------------------------------------------------
+                    If 新資料 = True Then
+                        Dim NUM1 As Integer : 新增數 += 1
+                        NUM1 = Double.Parse(Strings.Right(流水, 8)) + 1
+                        If NUM1 < 10 Then : 流水 = "TD" & "0000000" & NUM1
+                        ElseIf NUM1 > 9 And NUM1 < 100 Then : 流水 = "TD" & "000000" & NUM1
+                        ElseIf NUM1 > 99 And NUM1 < 1000 Then : 流水 = "TD" & "00000" & NUM1
+                        ElseIf NUM1 > 999 And NUM1 < 10000 Then : 流水 = "TD" & "0000" & NUM1
+                        ElseIf NUM1 > 9999 And NUM1 < 100000 Then : 流水 = "TD" & "000" & NUM1
+                        ElseIf NUM1 > 99999 And NUM1 < 100000 Then : 流水 = "TD" & "00" & NUM1
+                        ElseIf NUM1 > 999999 And NUM1 < 1000000 Then : 流水 = "TD" & "0" & NUM1
+                        ElseIf NUM1 > 9999999 Then : 流水 = "TD" & NUM1 + 1 : End If
+                        控制表1_dgv.Rows.Insert(0)
+                        控制表1_dgv.Rows(0).Cells("流水號").Value = 流水
+                        控制表1_dgv.Rows(0).Cells("品牌").Value = xlSheet.Cells(I + 2, 1).value
+                        控制表1_dgv.Rows(0).Cells("工廠").Value = xlSheet.Cells(I + 2, 2).value
+                        控制表1_dgv.Rows(0).Cells("INV").Value = xlSheet.Cells(I + 2, 3).value
+                        控制表1_dgv.Rows(0).Cells("訂單號").Value = xlSheet.Cells(I + 2, 4).value
+                        INT1 = xlSheet.Cells(I + 2, 5).value
+                        If IsNumeric(INT1) Then : 控制表1_dgv.Rows(0).Cells("訂單數").Value = xlSheet.Cells(I + 2, 5).value
+                        Else : 控制表1_dgv.Rows(0).Cells("訂單數").Value = "0" : End If
+                        INT1 = xlSheet.Cells(I + 2, 6).value
+                        If IsNumeric(INT1) Then : 控制表1_dgv.Rows(0).Cells("出貨數量").Value = xlSheet.Cells(I + 2, 6).value
+                        Else : 控制表_dgv.Rows(0).Cells("出貨數量").Value = "0" : End If
+                        INT1 = xlSheet.Cells(I + 2, 7).value
+                        If IsNumeric(INT1) Then : 控制表1_dgv.Rows(0).Cells("FTY_PRICE").Value = xlSheet.Cells(I + 2, 7).value
+                        Else : 控制表1_dgv.Rows(0).Cells("FTY_PRICE").Value = "0" : End If
+                        INT1 = xlSheet.Cells(I + 2, 8).value
+                        If IsNumeric(INT1) Then : 控制表1_dgv.Rows(0).Cells("扣關稅or後廠價").Value = xlSheet.Cells(I + 2, 8).value
+                        Else : 控制表1_dgv.Rows(0).Cells("扣關稅or後廠價").Value = "0" : End If
+                        INT1 = xlSheet.Cells(I + 2, 9).value
+                        If IsNumeric(INT1) Then : 控制表1_dgv.Rows(0).Cells("CUST_Price").Value = xlSheet.Cells(I + 2, 9).value
+                        Else : 控制表1_dgv.Rows(0).Cells("CUST_Price").Value = "0" : End If
+                        控制表1_dgv.Rows(0).Cells("EX_FTY_DATE").Value = xlSheet.Cells(I + 2, 10).value
+                        控制表1_dgv.Rows(0).Cells("Maturity_Date").Value = xlSheet.Cells(I + 2, 11).value
+                        控制表1_dgv.Rows(0).Cells("FTY_Payment_Date").Value = xlSheet.Cells(I + 2, 12).value
+                        控制表1_dgv.Rows(0).Cells("Remark").Value = xlSheet.Cells(I + 2, 13).value
+                        控制表1_dgv.Rows(0).Cells("確認新增").Value = False
+                    End If
+                Next : TENDEN_MES_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
+                xlApp.Visible = True : xlApp.Quit() : xlApp = Nothing
+                MsgBox("讀取EXCEL完成, 共比對出 " & 差異數 & " 比差異!!" & vbCrLf & "可能需要新增的資料有 " & 新增數 & " 筆，如有需要加入新資料，請再點選核對後按下 [新增資料] ")
+                控制表1_dgv.BringToFront()
+            ElseIf OpenFileDialog1.ShowDialog = DialogResult.No Then : 視窗2_pl.Visible = False : End If
+        End If
+    End Sub
+    Private Sub CanceL2_bt_Click(sender As Object, e As EventArgs) Handles CanceL2_bt.Click
+        視窗2_pl.Visible = False : Dim 數量 As Integer
+        數量 = 控制表_dgv.Rows.Count
+        If 數量 > 1 Then : For i As Integer = 0 To 數量 - 2 : 控制表_dgv.EndEdit(0) : 控制表_dgv.Rows.RemoveAt(0) : Next : End If
+        控制表_dgv.Rows(0).Cells("流水號").Value = "" : 控制表_dgv.Rows(0).Cells("品牌").Value = "" : 控制表_dgv.Rows(0).Cells("工廠").Value = ""
+        控制表_dgv.Rows(0).Cells("INV").Value = "" : 控制表_dgv.Rows(0).Cells("訂單號").Value = "" : 控制表_dgv.Rows(0).Cells("訂單數").Value = ""
+        控制表_dgv.Rows(0).Cells("出貨數量").Value = "" : 控制表_dgv.Rows(0).Cells("FTY_PRICE").Value = "" : 控制表_dgv.Rows(0).Cells("扣關稅or後廠價").Value = ""
+        控制表_dgv.Rows(0).Cells("CUST_Price").Value = "" : 控制表_dgv.Rows(0).Cells("EX_FTY_DATE").Value = "" : 控制表_dgv.Rows(0).Cells("Maturity_Date").Value = ""
+        控制表_dgv.Rows(0).Cells("FTY_Payment_Date").Value = "" : 控制表_dgv.Rows(0).Cells("Remark").Value = ""
+
+        數量 = 控制表1_dgv.Rows.Count
+        If 數量 > 1 Then : For i As Integer = 0 To 數量 - 2 : 控制表1_dgv.EndEdit(0) : 控制表1_dgv.Rows.RemoveAt(0) : Next : End If
+        控制表1_dgv.Rows(0).Cells("流水號").Value = "" : 控制表1_dgv.Rows(0).Cells("品牌").Value = "" : 控制表1_dgv.Rows(0).Cells("工廠").Value = ""
+        控制表1_dgv.Rows(0).Cells("INV").Value = "" : 控制表1_dgv.Rows(0).Cells("訂單號").Value = "" : 控制表1_dgv.Rows(0).Cells("訂單數").Value = ""
+        控制表1_dgv.Rows(0).Cells("出貨數量").Value = "" : 控制表1_dgv.Rows(0).Cells("FTY_PRICE").Value = "" : 控制表1_dgv.Rows(0).Cells("扣關稅or後廠價").Value = ""
+        控制表1_dgv.Rows(0).Cells("CUST_Price").Value = "" : 控制表1_dgv.Rows(0).Cells("EX_FTY_DATE").Value = "" : 控制表1_dgv.Rows(0).Cells("Maturity_Date").Value = ""
+        控制表1_dgv.Rows(0).Cells("FTY_Payment_Date").Value = "" : 控制表1_dgv.Rows(0).Cells("Remark").Value = ""
+    End Sub
+    Private Sub 隱藏_bt_Click(sender As Object, e As EventArgs) Handles 隱藏_bt.Click
+        視窗2_pl.Visible = False
+    End Sub
+    Private Sub 開啟_bt_Click(sender As Object, e As EventArgs) Handles 開啟_bt.Click
+        視窗2_pl.Visible = True
+    End Sub
+    Private Sub 訂單拆分_bt_Click(sender As Object, e As EventArgs) Handles 訂單拆分_bt.Click
+        If PO號1_tb.Text = "" Then : MsgBox("請先選擇訂單!!!") : Else
+            PA = PO號1_tb.Text : 訂單拆單模組.ShowDialog() : PA = "" : Set_訂單清單()
+        End If
+    End Sub
+    Private Sub 新增資料_bt_Click(sender As Object, e As EventArgs) Handles 新增資料_bt.Click
+        For i As Integer = 0 To 控制表1_dgv.Rows.Count - 1
+            If 控制表1_dgv.Rows(i).Cells("確認新增").Value = True Then
+                PA49 = 控制表1_dgv.Rows(i).Cells("流水號").Value.ToString : PA48 = 年份_cb.Text : PA57 = "0" : PA62 = "0" : PA61 = "0" : PA60 = "0" : PA59 = "0"
+                PA56 = "0" : PA55 = "0" : PA54 = "0" : PA53 = "0" : PA52 = "0" : PA51 = "0"
+                If IsNothing(控制表1_dgv.Rows(i).Cells("品牌").Value) Then : PA47 = "" : Else : PA47 = 控制表1_dgv.Rows(i).Cells("品牌").Value.ToString : End If
+                If IsNothing(控制表1_dgv.Rows(i).Cells("工廠").Value) Then : PA46 = "" : Else : PA46 = 控制表1_dgv.Rows(i).Cells("工廠").Value.ToString : End If
+                If IsNothing(控制表1_dgv.Rows(i).Cells("INV").Value) Then : PA45 = "" : Else : PA45 = 控制表1_dgv.Rows(i).Cells("INV").Value.ToString : End If
+                If IsNothing(控制表1_dgv.Rows(i).Cells("訂單號").Value) Then : PA44 = "" : Else : PA44 = 控制表1_dgv.Rows(i).Cells("訂單號").Value.ToString : End If
+                If IsNothing(控制表1_dgv.Rows(i).Cells("訂單數").Value) Then : PA43 = "" : Else : PA43 = 控制表1_dgv.Rows(i).Cells("訂單數").Value.ToString : End If
+                If IsNothing(控制表1_dgv.Rows(i).Cells("出貨數量").Value) Then : PA70 = "" : Else : PA70 = 控制表1_dgv.Rows(i).Cells("出貨數量").Value.ToString : End If
+                If IsNothing(控制表1_dgv.Rows(i).Cells("FTY_PRICE").Value) Then : PA69 = "" : Else : PA69 = 控制表1_dgv.Rows(i).Cells("FTY_PRICE").Value.ToString : End If
+                If IsNothing(控制表1_dgv.Rows(i).Cells("扣關稅or後廠價").Value) Then : PA68 = "" : Else : PA68 = 控制表1_dgv.Rows(i).Cells("扣關稅or後廠價").Value.ToString : End If
+                If IsNothing(控制表1_dgv.Rows(i).Cells("CUST_Price").Value) Then : PA67 = "" : Else : PA67 = 控制表1_dgv.Rows(i).Cells("CUST_Price").Value.ToString : End If
+                If IsNothing(控制表1_dgv.Rows(i).Cells("EX_FTY_DATE").Value) Then : PA66 = "" : Else : PA66 = 控制表1_dgv.Rows(i).Cells("EX_FTY_DATE").Value.ToString : End If
+                If IsNothing(控制表1_dgv.Rows(i).Cells("Maturity_Date").Value) Then : PA65 = "" : Else : PA65 = 控制表1_dgv.Rows(i).Cells("Maturity_Date").Value.ToString : End If
+                If IsNothing(控制表1_dgv.Rows(i).Cells("FTY_Payment_Date").Value) Then : PA64 = "" : Else : PA64 = 控制表1_dgv.Rows(i).Cells("FTY_Payment_Date").Value.ToString : End If
+                If IsNothing(控制表1_dgv.Rows(i).Cells("Remark").Value) Then : PA63 = "" : Else : PA63 = 控制表1_dgv.Rows(i).Cells("Remark").Value.ToString : End If
+                SQL_銷帳清單_新增()
+            End If
+        Next : Set_銷帳清單() : MsgBox("資料新增完成!!")
+    End Sub
+    Private Sub 列印_bt_Click(sender As Object, e As EventArgs) Handles 列印_bt.Click
+        xlApp = CType(CreateObject("Excel.Application"), Microsoft.Office.Interop.Excel.Application)
+        xlBook = xlApp.Workbooks.Add
+        xlApp.DisplayAlerts = True
+        xlBook.Activate()
+        xlSheet = NewMethod(xlBook)
+        xlSheet.Activate()
+        xlApp.Visible = True
+        xlApp.Application.WindowState = xlMaximized
+
+        xlSheet.Cells(1, 1) = "BRAND" : xlSheet.Cells(1, 2) = "FTY" : xlSheet.Cells(1, 3) = "INV" : xlSheet.Cells(1, 4) = "PO#"
+        xlSheet.Cells(1, 5) = "PAIRS" : xlSheet.Cells(1, 6) = "出貨數量" : xlSheet.Cells(1, 7) = "FTY PRICE " : xlSheet.Cells(1, 8) = "扣關稅4% or 2%"
+        xlSheet.Cells(1, 9) = "ＡＭＯＵＮＴ" : xlSheet.Cells(1, 10) = "銀行扣款" : xlSheet.Cells(1, 11) = "利威扣帳文件費(每套$50元)" : xlSheet.Cells(1, 12) = "利威扣帳貼標費(0.07*箱數)"
+        xlSheet.Cells(1, 13) = "Cash Pro 利息or扣款" : xlSheet.Cells(1, 14) = "增加款" : xlSheet.Cells(1, 15) = "实付工厂金額" : xlSheet.Cells(1, 16) = "CUST PRICE"
+        xlSheet.Cells(1, 17) = "ＡＭＯＵＮＴ" : xlSheet.Cells(1, 18) = "利威扣帳文件費(每套$50元)" : xlSheet.Cells(1, 19) = "利威扣帳貼標費(0.07*箱數)"
+        xlSheet.Cells(1, 20) = "Cash pro 利息or扣款" : xlSheet.Cells(1, 21) = "實際入帳金額" : xlSheet.Cells(1, 22) = "XF DATE" : xlSheet.Cells(1, 23) = "入帳"
+        xlSheet.Cells(1, 24) = "匯款日" : xlSheet.Cells(1, 25) = "總毛利" : xlSheet.Cells(1, 26) = "Darren佣金" : xlSheet.Cells(1, 27) = "BETTY佣金" : xlSheet.Cells(1, 28) = "其他費用"
+        xlSheet.Cells(1, 29) = "公司毛利" : xlSheet.Cells(1, 30) = "Remark"
+        For i As Integer = 0 To 銷帳_dgv.Rows.Count - 1
+            xlSheet.Cells(i + 2, 1) = 銷帳_dgv.Rows(i).Cells("品牌").Value.ToString : xlSheet.Cells(i + 2, 2) = 銷帳_dgv.Rows(i).Cells("工廠").Value.ToString
+            xlSheet.Cells(i + 2, 3) = 銷帳_dgv.Rows(i).Cells("INV").Value.ToString : xlSheet.Cells(i + 2, 4) = 銷帳_dgv.Rows(i).Cells("訂單號").Value.ToString
+            xlSheet.Cells(i + 2, 5) = 銷帳_dgv.Rows(i).Cells("訂單數").Value.ToString : xlSheet.Cells(i + 2, 6) = 銷帳_dgv.Rows(i).Cells("出貨數量").Value.ToString
+            xlSheet.Cells(i + 2, 7) = 銷帳_dgv.Rows(i).Cells("FTY_PRICE").Value.ToString : xlSheet.Cells(i + 2, 8) = 銷帳_dgv.Rows(i).Cells("扣關稅or後廠價").Value.ToString
+            xlSheet.Cells(i + 2, 9) = 銷帳_dgv.Rows(i).Cells("Amount1").Value.ToString : xlSheet.Cells(i + 2, 10) = 銷帳_dgv.Rows(i).Cells("F_銀行扣款").Value.ToString
+            xlSheet.Cells(i + 2, 11) = 銷帳_dgv.Rows(i).Cells("F_文件費").Value.ToString : xlSheet.Cells(i + 2, 12) = 銷帳_dgv.Rows(i).Cells("F_貼標費").Value.ToString
+            xlSheet.Cells(i + 2, 13) = 銷帳_dgv.Rows(i).Cells("F_利息or扣款").Value.ToString : xlSheet.Cells(i + 2, 14) = 銷帳_dgv.Rows(i).Cells("F_增加款").Value.ToString
+            xlSheet.Cells(i + 2, 15) = 銷帳_dgv.Rows(i).Cells("實付工廠金額").Value.ToString : xlSheet.Cells(i + 2, 16) = 銷帳_dgv.Rows(i).Cells("CUST_Price").Value.ToString
+            xlSheet.Cells(i + 2, 17) = 銷帳_dgv.Rows(i).Cells("Amount2").Value.ToString : xlSheet.Cells(i + 2, 18) = 銷帳_dgv.Rows(i).Cells("C_文件費").Value.ToString
+            xlSheet.Cells(i + 2, 19) = 銷帳_dgv.Rows(i).Cells("C_貼標費").Value.ToString : xlSheet.Cells(i + 2, 20) = 銷帳_dgv.Rows(i).Cells("C_利息or扣款").Value.ToString
+            xlSheet.Cells(i + 2, 21) = 銷帳_dgv.Rows(i).Cells("實際入帳金額").Value.ToString : xlSheet.Cells(i + 2, 22) = 銷帳_dgv.Rows(i).Cells("EX_FTY_DATE").Value.ToString
+            xlSheet.Cells(i + 2, 23) = 銷帳_dgv.Rows(i).Cells("Maturity_Date").Value.ToString : xlSheet.Cells(i + 2, 24) = 銷帳_dgv.Rows(i).Cells("FTY_Payment_Date").Value.ToString
+            xlSheet.Cells(i + 2, 25) = 銷帳_dgv.Rows(i).Cells("總毛利").Value.ToString : xlSheet.Cells(i + 2, 26) = 銷帳_dgv.Rows(i).Cells("Darren佣金").Value.ToString
+            xlSheet.Cells(i + 2, 27) = 銷帳_dgv.Rows(i).Cells("Betty佣金").Value.ToString : xlSheet.Cells(i + 2, 28) = 銷帳_dgv.Rows(i).Cells("其他費用").Value.ToString
+            xlSheet.Cells(i + 2, 29) = 銷帳_dgv.Rows(i).Cells("公司毛利").Value.ToString : xlSheet.Cells(i + 2, 30) = 銷帳_dgv.Rows(i).Cells("Remark").Value.ToString
+        Next : BB(xlApp, xlSheet)
+        xlSheet.PageSetup.PrintArea = ""
+        xlApp.Cells.Select()
+        xlSheet.Range("B1").Select()
+        xlApp.Application.WindowState = xlMinimized
+        MsgBox("列印完成")
+    End Sub
+    Private Shared Function NewMethod(xlBook As Microsoft.Office.Interop.Excel.Workbook) As Microsoft.Office.Interop.Excel.Worksheet
+        Return CType(xlBook.Worksheets.Add, Microsoft.Office.Interop.Excel.Worksheet)
+    End Function
+    Private Sub BB(ByVal myExcel As Microsoft.Office.Interop.Excel.Application, ByVal xlSheet As Microsoft.Office.Interop.Excel.Worksheet)
+        xlSheet.Cells.Select()
+        With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 10 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False
+            .Shadow = False : .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
+        xlSheet.Rows("1:1").Select : myExcel.Selection.RowHeight = 45 : myExcel.Selection.AutoFilter
+        With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlTop : .WrapText = True : .Orientation = 0 : .AddIndent = False
+            .IndentLevel = 0 : .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With
+        xlSheet.Rows("2:2").Select : myExcel.ActiveWindow.FreezePanes = True
+
+        xlSheet.Range("A1:F1").Select()
+        With myExcel.Selection.Interior : .Pattern = xlSolid : .PatternColorIndex = xlAutomatic : .ThemeColor = xlThemeColorAccent1 : .TintAndShade = 0.799981688894314
+            .PatternTintAndShade = 0 : End With
+        xlSheet.Range("G1:O1").Select()
+        With myExcel.Selection.Interior : .Pattern = xlSolid : .PatternColorIndex = xlAutomatic : .ThemeColor = xlThemeColorAccent2 : .TintAndShade = 0.799981688894314
+            .PatternTintAndShade = 0 : End With
+        xlSheet.Range("P1:U1").Select()
+        With myExcel.Selection.Interior : .Pattern = xlSolid : .PatternColorIndex = xlAutomatic : .ThemeColor = xlThemeColorAccent6 : .TintAndShade = 0.799981688894314
+            .PatternTintAndShade = 0 : End With
+        xlSheet.Range("V1:AD1").Select()
+        With myExcel.Selection.Interior : .Pattern = xlSolid : .PatternColorIndex = xlAutomatic : .ThemeColor = xlThemeColorAccent4 : .TintAndShade = 0.799981688894314
+            .PatternTintAndShade = 0 : End With
+
+        xlSheet.Columns("B:B").Select : myExcel.Selection.ColumnWidth = 5
+        xlSheet.Columns("C:C").Select : myExcel.Selection.ColumnWidth = 17
+        xlSheet.Columns("E:F").Select : myExcel.Selection.NumberFormatLocal = "#,##0_ ;-#,##0 "
+        xlSheet.Columns("G:U").Select : myExcel.Selection.NumberFormatLocal = "_-* #,##0.00_-;-* #,##0.00_-;_-* ""-""??_-;_-@_-"
+        xlSheet.Columns("Y:AC").Select : myExcel.Selection.NumberFormatLocal = "_-* #,##0.00_-;-* #,##0.00_-;_-* ""-""??_-;_-@_-"
+
+        xlSheet.Columns("AD:AD").Select : myExcel.Selection.ColumnWidth = 100
+
+        xlSheet.Range("A1:AD" & 銷帳_dgv.Rows.Count + 1).Select()
+        myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
+        With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlEdgeBottom) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlEdgeRight) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
+        xlSheet.Columns("V:X").Select : xlSheet.Columns("V:X").EntireColumn.AutoFit
+    End Sub
+    '----------------------自創視窗滑鼠拖曳功能---------------------------------------------------------------------------------------------------------
+    Dim OldX, OldY As Long : Dim drag As Boolean
+    Private Sub 視窗2_pl_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗2_pl.MouseDown
+        If e.Button = MouseButtons.Left Then : OldX = e.X : OldY = e.Y : drag = True : End If
+    End Sub
+    Private Sub 視窗2_pl_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗2_pl.MouseMove
+        If drag Then : 視窗2_pl.Left = 視窗2_pl.Left + e.X - OldX : 視窗2_pl.Top = 視窗2_pl.Top + e.Y - OldY : End If
+    End Sub
+    Private Sub 視窗2_pl_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗2_pl.MouseUp
+        drag = False
+    End Sub
+End Class

TENDEN-MES-SYS/成本系統管理/訂單價格利潤明細表.Designer.vb

@@ -23,10 +23,10 @@ Partial Class 訂單價格利潤明細表
     <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 DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        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 DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle6 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()
         Me.利潤表_dgv = New System.Windows.Forms.DataGridView()
         Me.利潤拆分_bt = New System.Windows.Forms.Button()
         Me.成本組成_bt = New System.Windows.Forms.Button()
@@ -98,6 +98,7 @@ Partial Class 訂單價格利潤明細表
         Me.ZOOM_tb = New System.Windows.Forms.Button()
         Me.空間2 = New System.Windows.Forms.Panel()
         Me.空間1 = New System.Windows.Forms.Panel()
+        Me.Panel1 = New System.Windows.Forms.Panel()
         CType(Me.利潤表_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.訂單流水號_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.GroupBox1.SuspendLayout()
@@ -105,6 +106,7 @@ Partial Class 訂單價格利潤明細表
         Me.GroupBox3.SuspendLayout()
         Me.空間2.SuspendLayout()
         Me.空間1.SuspendLayout()
+        Me.Panel1.SuspendLayout()
         Me.SuspendLayout()
         '
         '利潤表_dgv
@@ -113,19 +115,19 @@ Partial Class 訂單價格利潤明細表
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.利潤表_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
-        DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle1.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.利潤表_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
+        DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle5.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.利潤表_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle5
         Me.利潤表_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.利潤表_dgv.Location = New System.Drawing.Point(3, 142)
         Me.利潤表_dgv.Name = "利潤表_dgv"
         Me.利潤表_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle2.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.利潤表_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
+        DataGridViewCellStyle6.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.利潤表_dgv.RowsDefaultCellStyle = DataGridViewCellStyle6
         Me.利潤表_dgv.RowTemplate.Height = 24
         Me.利潤表_dgv.Size = New System.Drawing.Size(1792, 813)
         Me.利潤表_dgv.TabIndex = 2
@@ -152,18 +154,18 @@ 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
+        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), System.Windows.Forms.AnchorStyles)
         Me.訂單流水號_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
-        DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle4.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.訂單流水號_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4
+        DataGridViewCellStyle8.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle8.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        DataGridViewCellStyle8.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        Me.訂單流水號_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle8
         Me.訂單流水號_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.訂單流水號_dgv.Location = New System.Drawing.Point(2, 1)
         Me.訂單流水號_dgv.Name = "訂單流水號_dgv"
@@ -199,7 +201,7 @@ Partial Class 訂單價格利潤明細表
         '
         '總金額_tb
         '
-        Me.總金額_tb.Location = New System.Drawing.Point(648, 113)
+        Me.總金額_tb.Location = New System.Drawing.Point(468, 115)
         Me.總金額_tb.Name = "總金額_tb"
         Me.總金額_tb.Size = New System.Drawing.Size(121, 23)
         Me.總金額_tb.TabIndex = 341
@@ -208,7 +210,7 @@ Partial Class 訂單價格利潤明細表
         'Label3
         '
         Me.Label3.AutoSize = True
-        Me.Label3.Location = New System.Drawing.Point(598, 117)
+        Me.Label3.Location = New System.Drawing.Point(418, 119)
         Me.Label3.Name = "Label3"
         Me.Label3.Size = New System.Drawing.Size(43, 16)
         Me.Label3.TabIndex = 342
@@ -337,7 +339,7 @@ Partial Class 訂單價格利潤明細表
         Me.Label47.AutoSize = True
         Me.Label47.Font = New System.Drawing.Font("微軟正黑體", 15.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Label47.ForeColor = System.Drawing.Color.Red
-        Me.Label47.Location = New System.Drawing.Point(775, 110)
+        Me.Label47.Location = New System.Drawing.Point(595, 112)
         Me.Label47.Name = "Label47"
         Me.Label47.Size = New System.Drawing.Size(138, 26)
         Me.Label47.TabIndex = 452
@@ -551,7 +553,7 @@ Partial Class 訂單價格利潤明細表
         '
         '拆分一筆資料_bt
         '
-        Me.拆分一筆資料_bt.Location = New System.Drawing.Point(6, 20)
+        Me.拆分一筆資料_bt.Location = New System.Drawing.Point(3, 3)
         Me.拆分一筆資料_bt.Name = "拆分一筆資料_bt"
         Me.拆分一筆資料_bt.Size = New System.Drawing.Size(95, 40)
         Me.拆分一筆資料_bt.TabIndex = 475
@@ -562,7 +564,7 @@ Partial Class 訂單價格利潤明細表
         '
         Me.年份_cb.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.年份_cb.FormattingEnabled = True
-        Me.年份_cb.Items.AddRange(New Object() {"2023", "2022", "2021", "2020", "2019", "2018"})
+        Me.年份_cb.Items.AddRange(New Object() {"2026", "2025", "2024", "2023", "2022", "2021", "2020", "2019", "2018", "2017", "2016", "2015", "2014", "2013"})
         Me.年份_cb.Location = New System.Drawing.Point(319, 53)
         Me.年份_cb.Name = "年份_cb"
         Me.年份_cb.Size = New System.Drawing.Size(153, 24)
@@ -633,7 +635,7 @@ Partial Class 訂單價格利潤明細表
         '
         '刪除拆分資料_bt
         '
-        Me.刪除拆分資料_bt.Location = New System.Drawing.Point(6, 64)
+        Me.刪除拆分資料_bt.Location = New System.Drawing.Point(3, 47)
         Me.刪除拆分資料_bt.Name = "刪除拆分資料_bt"
         Me.刪除拆分資料_bt.Size = New System.Drawing.Size(95, 40)
         Me.刪除拆分資料_bt.TabIndex = 485
@@ -695,22 +697,21 @@ Partial Class 訂單價格利潤明細表
         '
         'GroupBox2
         '
-        Me.GroupBox2.Controls.Add(Me.Label19)
+        Me.GroupBox2.Controls.Add(Me.ZOOM_tb)
         Me.GroupBox2.Controls.Add(Me.資料庫選擇2_bt)
         Me.GroupBox2.Controls.Add(Me.資料庫選擇1_bt)
         Me.GroupBox2.Controls.Add(Me.Label20)
         Me.GroupBox2.Controls.Add(Me.ProgressBar1)
-        Me.GroupBox2.Controls.Add(Me.拆分一筆資料_bt)
         Me.GroupBox2.Controls.Add(Me.Label18)
         Me.GroupBox2.Controls.Add(Me.等於訂單數_bt)
         Me.GroupBox2.Controls.Add(Me.資料筆數_tb)
         Me.GroupBox2.Controls.Add(Me.等於零_bt)
         Me.GroupBox2.Controls.Add(Me.匯率為1_bt)
-        Me.GroupBox2.Controls.Add(Me.刪除拆分資料_bt)
         Me.GroupBox2.Controls.Add(Me.Currency_cb)
         Me.GroupBox2.Controls.Add(Me.年份_cb)
         Me.GroupBox2.Controls.Add(Me.Label17)
         Me.GroupBox2.Controls.Add(Me.Label16)
+        Me.GroupBox2.Controls.Add(Me.Label19)
         Me.GroupBox2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.GroupBox2.Location = New System.Drawing.Point(418, 0)
         Me.GroupBox2.Name = "GroupBox2"
@@ -722,7 +723,7 @@ Partial Class 訂單價格利潤明細表
         'Label19
         '
         Me.Label19.AutoSize = True
-        Me.Label19.Location = New System.Drawing.Point(480, 57)
+        Me.Label19.Location = New System.Drawing.Point(478, 57)
         Me.Label19.Name = "Label19"
         Me.Label19.Size = New System.Drawing.Size(55, 16)
         Me.Label19.TabIndex = 563
@@ -788,9 +789,9 @@ Partial Class 訂單價格利潤明細表
         '
         'ZOOM_tb
         '
-        Me.ZOOM_tb.Location = New System.Drawing.Point(418, 111)
+        Me.ZOOM_tb.Location = New System.Drawing.Point(2, 21)
         Me.ZOOM_tb.Name = "ZOOM_tb"
-        Me.ZOOM_tb.Size = New System.Drawing.Size(174, 29)
+        Me.ZOOM_tb.Size = New System.Drawing.Size(98, 83)
         Me.ZOOM_tb.TabIndex = 495
         Me.ZOOM_tb.Text = "未指定單價清單"
         Me.ZOOM_tb.UseVisualStyleBackColor = True
@@ -802,7 +803,7 @@ Partial Class 訂單價格利潤明細表
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.空間2.BackColor = System.Drawing.SystemColors.Control
         Me.空間2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.空間2.Controls.Add(Me.ZOOM_tb)
+        Me.空間2.Controls.Add(Me.Panel1)
         Me.空間2.Controls.Add(Me.GroupBox3)
         Me.空間2.Controls.Add(Me.Label9)
         Me.空間2.Controls.Add(Me.利潤表流水號_tb)
@@ -846,6 +847,15 @@ Partial Class 訂單價格利潤明細表
         Me.空間1.Size = New System.Drawing.Size(108, 959)
         Me.空間1.TabIndex = 493
         '
+        'Panel1
+        '
+        Me.Panel1.Controls.Add(Me.拆分一筆資料_bt)
+        Me.Panel1.Controls.Add(Me.刪除拆分資料_bt)
+        Me.Panel1.Location = New System.Drawing.Point(406, 235)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(200, 100)
+        Me.Panel1.TabIndex = 496
+        '
         '訂單價格利潤明細表
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
@@ -869,6 +879,7 @@ Partial Class 訂單價格利潤明細表
         Me.空間2.ResumeLayout(False)
         Me.空間2.PerformLayout()
         Me.空間1.ResumeLayout(False)
+        Me.Panel1.ResumeLayout(False)
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -945,5 +956,6 @@ Partial Class 訂單價格利潤明細表
     Friend WithEvents ZOOM_tb As Button
     Friend WithEvents 空間2 As Panel
     Friend WithEvents 空間1 As Panel
+    Friend WithEvents Panel1 As Panel
 End Class
 

TENDEN-MES-SYS/成本系統管理/訂單價格利潤明細表.vb

@@ -4,312 +4,256 @@ Public Class 訂單價格利潤明細表
     ReadOnly BB(3) As Boolean : Public 平均數 As Integer : Public 最終數 As Integer = 0 : Public 資料數 As Integer = 0
     Dim A1, A2, A3, B1, B2, B3 As Integer
     Private Sub 利潤表載入前設定()
-        Try
-            利潤表_dgv.DataSource = Nothing : ds.Clear()
-            利潤表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-            利潤表_dgv.ColumnHeadersHeight = 25
-            利潤表_dgv.AllowUserToAddRows = False
-            ConnOpen()
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        利潤表_dgv.DataSource = Nothing : ds.Clear()
+        利潤表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        利潤表_dgv.ColumnHeadersHeight = 25
+        利潤表_dgv.AllowUserToAddRows = False
+        ConnOpen()
     End Sub
     Private Sub 利潤表載入後設定()
         CmdSet_For_DGV() :: da.Fill(ds) : 利潤表_dgv.DataSource = ds.Tables(0) : conn.Close()
     End Sub
     Private Sub Set_訂單清單()
-        Try
-            利潤表載入前設定()
-            If 未建檔_cb.Checked = True Then
-                Timer1.Enabled = True : 存檔_bt.Enabled = True : 刪除_bt.Enabled = False : 修改_bt.Enabled = False
-                等於訂單數_bt.Enabled = True : 等於零_bt.Enabled = True : 匯率為1_bt.Enabled = True
-                If 天盾流水號_tb.Text = "" Then
-                    SQL_訂單價格利潤明細表2()
-                Else
-                    SQL_訂單價格利潤明細表3()
-                End If
-                利潤表載入後設定() : Set_自動彙總1()
-                Set_grid() : Set_暫存資料設定() ': Set_編輯清單() : Set_grid() : Set_自動彙總1()
-            ElseIf 未建檔_cb.Checked = False Then
-                Timer1.Enabled = False : Label47.Visible = False : 存檔_bt.Enabled = False : 刪除_bt.Enabled = True : 修改_bt.Enabled = True
-                等於訂單數_bt.Enabled = False : 等於零_bt.Enabled = False : 匯率為1_bt.Enabled = False
-                If PA = "" Then
-                    SQL_訂單價格利潤明細表4()
-                Else
-                    SQL_訂單價格利潤明細表5()
-                End If
-                利潤表載入後設定()
+        利潤表載入前設定()
+        If 未建檔_cb.Checked = True Then
+            Timer1.Enabled = True : 存檔_bt.Enabled = True : 刪除_bt.Enabled = False : 修改_bt.Enabled = False
+            等於訂單數_bt.Enabled = True : 等於零_bt.Enabled = True : 匯率為1_bt.Enabled = True
+            If 天盾流水號_tb.Text = "" Then
+                SQL_訂單價格利潤明細表2()
+            Else
+                SQL_訂單價格利潤明細表3()
+            End If
+            利潤表載入後設定() : Set_自動彙總1()
+            Set_grid() : Set_暫存資料設定() ': Set_編輯清單() : Set_grid() : Set_自動彙總1()
+        ElseIf 未建檔_cb.Checked = False Then
+            Timer1.Enabled = False : Label47.Visible = False : 存檔_bt.Enabled = False : 刪除_bt.Enabled = True : 修改_bt.Enabled = True
+            等於訂單數_bt.Enabled = False : 等於零_bt.Enabled = False : 匯率為1_bt.Enabled = False
+            If PA = "" Then
+                PA25 = 年份_cb.Text : SQL_訂單價格利潤明細表4()
+            Else
+                PA25 = 年份_cb.Text : SQL_訂單價格利潤明細表5()
             End If
-            資料筆數_tb.Text = Format(利潤表_dgv.Rows.Count, "#,##0")
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+            利潤表載入後設定()
+        End If
+        資料筆數_tb.Text = Format(利潤表_dgv.Rows.Count, "#,##0")
     End Sub
     Private Sub Set_編輯清單()
-        Try
-            利潤表載入前設定() : SQL_訂單價格利潤明細表1() : 利潤表載入後設定()
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        利潤表載入前設定() : SQL_訂單價格利潤明細表1() : 利潤表載入後設定()
     End Sub
     Private Sub Set_暫存資料設定()
-        Try
-            SQL_刪除訂單價格利潤表暫存檔() : conn.Close()
-            Dim NUM2 As Integer
-            SQL_查詢利潤表流水號()
-            If dr.Read() Then : NUM2 = Strings.Right(dr("利潤表流水號").ToString, 8) : End If
-            conn.Close()
-            For i As Integer = 0 To 利潤表_dgv.Rows.Count - 1
-                NUM2 += 1
-                If NUM2 < 10 Then : 利潤表流水號 = "PR" & "0000000" & NUM2
-                ElseIf NUM2 > 9 And NUM2 < 100 Then : 利潤表流水號 = "PR" & "000000" & NUM2
-                ElseIf NUM2 > 99 And NUM2 < 1000 Then : 利潤表流水號 = "PR" & "00000" & NUM2
-                ElseIf NUM2 > 999 And NUM2 < 10000 Then : 利潤表流水號 = "PR" & "0000" & NUM2
-                ElseIf NUM2 > 9999 And NUM2 < 100000 Then : 利潤表流水號 = "PR" & "000" & NUM2
-                ElseIf NUM2 > 99999 And NUM2 < 100000 Then : 利潤表流水號 = "PR" & "00" & NUM2
-                ElseIf NUM2 > 999999 And NUM2 < 1000000 Then : 利潤表流水號 = "PR" & "0" & NUM2
-                ElseIf NUM2 > 9999999 Then : 利潤表流水號 = "PR" & NUM2
-                End If
-                PA = 利潤表_dgv.Rows(i).Cells("資料流水號").Value.ToString : PA1 = 利潤表_dgv.Rows(i).Cells("訂單流水號").Value.ToString
-                SQL_新增訂單價格利潤表暫存檔() : conn.Close()
-            Next i
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        SQL_刪除訂單價格利潤表暫存檔() : conn.Close()
+        Dim NUM2 As Integer
+        SQL_查詢利潤表流水號()
+        If dr.Read() Then : NUM2 = Strings.Right(dr("利潤表流水號").ToString, 8) : End If
+        conn.Close()
+        For i As Integer = 0 To 利潤表_dgv.Rows.Count - 1
+            NUM2 += 1
+            If NUM2 < 10 Then : 利潤表流水號 = "PR" & "0000000" & NUM2
+            ElseIf NUM2 > 9 And NUM2 < 100 Then : 利潤表流水號 = "PR" & "000000" & NUM2
+            ElseIf NUM2 > 99 And NUM2 < 1000 Then : 利潤表流水號 = "PR" & "00000" & NUM2
+            ElseIf NUM2 > 999 And NUM2 < 10000 Then : 利潤表流水號 = "PR" & "0000" & NUM2
+            ElseIf NUM2 > 9999 And NUM2 < 100000 Then : 利潤表流水號 = "PR" & "000" & NUM2
+            ElseIf NUM2 > 99999 And NUM2 < 100000 Then : 利潤表流水號 = "PR" & "00" & NUM2
+            ElseIf NUM2 > 999999 And NUM2 < 1000000 Then : 利潤表流水號 = "PR" & "0" & NUM2
+            ElseIf NUM2 > 9999999 Then : 利潤表流水號 = "PR" & NUM2
+            End If
+            PA = 利潤表_dgv.Rows(i).Cells("資料流水號").Value.ToString : PA1 = 利潤表_dgv.Rows(i).Cells("訂單流水號").Value.ToString
+            SQL_新增訂單價格利潤表暫存檔() : conn.Close()
+        Next i
     End Sub
     Private Sub Set_未建檔清單()
-        Try
-            訂單流水號_dgv.DataSource = Nothing : ds1.Clear()
-            訂單流水號_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-            訂單流水號_dgv.ColumnHeadersHeight = 25
-            訂單流水號_dgv.AllowUserToAddRows = False
-            SQL_訂單流水號()
-            da.Fill(ds1) : 訂單流水號_dgv.DataSource = ds1.Tables(0) : conn.Close()
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        訂單流水號_dgv.DataSource = Nothing : ds1.Clear()
+        訂單流水號_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        訂單流水號_dgv.ColumnHeadersHeight = 25
+        訂單流水號_dgv.AllowUserToAddRows = False
+        SQL_訂單流水號()
+        da.Fill(ds1) : 訂單流水號_dgv.DataSource = ds1.Tables(0) : conn.Close()
     End Sub
     Private Sub Set_grid()
-        Try
-            利潤表_dgv.Columns("訂單流水號").FillWeight = 80 : 利潤表_dgv.Columns("資料流水號").Visible = False : 利潤表_dgv.Columns("年份季度").FillWeight = 55
-            利潤表_dgv.Columns("力威訂單號").FillWeight = 100 : 利潤表_dgv.Columns("形體號").FillWeight = 90 : 利潤表_dgv.Columns("顏色").FillWeight = 70
-            利潤表_dgv.Columns("力威訂單號").FillWeight = 100 : 利潤表_dgv.Columns("楦型").FillWeight = 45 : 利潤表_dgv.Columns("數量").FillWeight = 45
-            利潤表_dgv.Columns("ProductID").FillWeight = 120
-            利潤表_dgv.Columns("單價").FillWeight = 45 : 利潤表_dgv.Columns("總金額").FillWeight = 75 : 利潤表_dgv.Columns("備註").FillWeight = 80
-            利潤表_dgv.Columns("工廠").FillWeight = 40 : 利潤表_dgv.Columns("訂單種類").FillWeight = 65 : 利潤表_dgv.Columns("Quantity").FillWeight = 65
-            利潤表_dgv.Columns("Currency").FillWeight = 65 : 利潤表_dgv.Columns("Exchange").FillWeight = 70 : 利潤表_dgv.Columns("FTYPrice").FillWeight = 115
-            利潤表_dgv.Columns("CommissionTTL").FillWeight = 150 : 利潤表_dgv.Columns("CommissionDarren").FillWeight = 179 : 利潤表_dgv.Columns("CommissionTendenza").FillWeight = 179
-            利潤表_dgv.Columns("Percentage").FillWeight = 120 : 利潤表_dgv.Columns("BasicPrice").FillWeight = 70 : 利潤表_dgv.Columns("PG/MOQ").FillWeight = 60
-            利潤表_dgv.Columns("FOOTorPET").FillWeight = 78 : 利潤表_dgv.Columns("Tooling").FillWeight = 58 : 利潤表_dgv.Columns("RubberBand").FillWeight = 83
-            利潤表_dgv.Columns("JHOOK").FillWeight = 58 : 利潤表_dgv.Columns("WaterResistant").FillWeight = 95 : 利潤表_dgv.Columns("P16VAT").FillWeight = 60
-            利潤表_dgv.Columns("EXWsaving").FillWeight = 75 : 利潤表_dgv.Columns("CollectedToolng").FillWeight = 110
+        利潤表_dgv.Columns("訂單流水號").FillWeight = 80 : 利潤表_dgv.Columns("資料流水號").Visible = False : 利潤表_dgv.Columns("年份季度").FillWeight = 55
+        利潤表_dgv.Columns("力威訂單號").FillWeight = 100 : 利潤表_dgv.Columns("形體號").FillWeight = 90 : 利潤表_dgv.Columns("顏色").FillWeight = 70
+        利潤表_dgv.Columns("力威訂單號").FillWeight = 100 : 利潤表_dgv.Columns("楦型").FillWeight = 45 : 利潤表_dgv.Columns("數量").FillWeight = 45
+        利潤表_dgv.Columns("ProductID").FillWeight = 120
+        利潤表_dgv.Columns("單價").FillWeight = 45 : 利潤表_dgv.Columns("總金額").FillWeight = 75 : 利潤表_dgv.Columns("備註").FillWeight = 80
+        利潤表_dgv.Columns("工廠").FillWeight = 40 : 利潤表_dgv.Columns("訂單種類").FillWeight = 65 : 利潤表_dgv.Columns("Quantity").FillWeight = 65
+        利潤表_dgv.Columns("Currency").FillWeight = 65 : 利潤表_dgv.Columns("Exchange").FillWeight = 70 : 利潤表_dgv.Columns("FTYPrice").FillWeight = 115
+        利潤表_dgv.Columns("CommissionTTL").FillWeight = 150 : 利潤表_dgv.Columns("CommissionDarren").FillWeight = 179 : 利潤表_dgv.Columns("CommissionTendenza").FillWeight = 179
+        利潤表_dgv.Columns("Percentage").FillWeight = 120 : 利潤表_dgv.Columns("BasicPrice").FillWeight = 70 : 利潤表_dgv.Columns("PG/MOQ").FillWeight = 60
+        利潤表_dgv.Columns("FOOTorPET").FillWeight = 78 : 利潤表_dgv.Columns("Tooling").FillWeight = 58 : 利潤表_dgv.Columns("RubberBand").FillWeight = 83
+        利潤表_dgv.Columns("JHOOK").FillWeight = 58 : 利潤表_dgv.Columns("WaterResistant").FillWeight = 95 : 利潤表_dgv.Columns("P16VAT").FillWeight = 60
+        利潤表_dgv.Columns("EXWsaving").FillWeight = 75 : 利潤表_dgv.Columns("CollectedToolng").FillWeight = 110
 
-            利潤表_dgv.Columns("數量").DefaultCellStyle.Format = "#,##0"
-            利潤表_dgv.Columns("數量").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-            利潤表_dgv.Columns("單價").DefaultCellStyle.Format = "#,##0.00"
-            利潤表_dgv.Columns("單價").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-            利潤表_dgv.Columns("總金額").DefaultCellStyle.Format = "#,##0.00"
-            利潤表_dgv.Columns("總金額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-            利潤表_dgv.Columns("Quantity").DefaultCellStyle.Format = "#,##0"
-            利潤表_dgv.Columns("Quantity").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-            利潤表_dgv.Columns("Exchange").DefaultCellStyle.Format = "#,##0.0000"
-            利潤表_dgv.Columns("Exchange").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-            利潤表_dgv.Columns("FTYPrice").DefaultCellStyle.Format = "#,##0.00"
-            利潤表_dgv.Columns("FTYPrice").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-            利潤表_dgv.Columns("CommissionTTL").DefaultCellStyle.Format = "#,##0.00"
-            利潤表_dgv.Columns("CommissionTTL").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-            利潤表_dgv.Columns("CommissionDarren").DefaultCellStyle.Format = "#,##0.00"
-            利潤表_dgv.Columns("CommissionDarren").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-            利潤表_dgv.Columns("CommissionTendenza").DefaultCellStyle.Format = "#,##0.00"
-            利潤表_dgv.Columns("CommissionTendenza").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-            利潤表_dgv.Columns("Percentage").DefaultCellStyle.Format = "#,##0.00%"
-            利潤表_dgv.Columns("Percentage").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-            利潤表_dgv.Columns("BasicPrice").DefaultCellStyle.Format = "#,##0.00"
-            利潤表_dgv.Columns("BasicPrice").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-            利潤表_dgv.Columns("PG/MOQ").DefaultCellStyle.Format = "#,##0.00"
-            利潤表_dgv.Columns("PG/MOQ").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-            利潤表_dgv.Columns("FOOTorPET").DefaultCellStyle.Format = "#,##0.00"
-            利潤表_dgv.Columns("FOOTorPET").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-            利潤表_dgv.Columns("Tooling").DefaultCellStyle.Format = "#,##0.00"
-            利潤表_dgv.Columns("Tooling").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-            利潤表_dgv.Columns("RubberBand").DefaultCellStyle.Format = "#,##0.00"
-            利潤表_dgv.Columns("RubberBand").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-            利潤表_dgv.Columns("JHOOK").DefaultCellStyle.Format = "#,##0.00"
-            利潤表_dgv.Columns("JHOOK").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-            利潤表_dgv.Columns("WaterResistant").DefaultCellStyle.Format = "#,##0.00"
-            利潤表_dgv.Columns("WaterResistant").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-            利潤表_dgv.Columns("P16VAT").DefaultCellStyle.Format = "#,##0.00"
-            利潤表_dgv.Columns("P16VAT").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-            利潤表_dgv.Columns("EXWsaving").DefaultCellStyle.Format = "#,##0.00"
-            利潤表_dgv.Columns("EXWsaving").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-            利潤表_dgv.Columns("CollectedToolng").DefaultCellStyle.Format = "#,##0.00"
-            利潤表_dgv.Columns("CollectedToolng").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("數量").DefaultCellStyle.Format = "#,##0" : 利潤表_dgv.Columns("數量").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("單價").DefaultCellStyle.Format = "#,##0.00" : 利潤表_dgv.Columns("單價").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("總金額").DefaultCellStyle.Format = "#,##0.00" : 利潤表_dgv.Columns("總金額").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("Quantity").DefaultCellStyle.Format = "#,##0" : 利潤表_dgv.Columns("Quantity").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("Exchange").DefaultCellStyle.Format = "#,##0.0000" : 利潤表_dgv.Columns("Exchange").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("FTYPrice").DefaultCellStyle.Format = "#,##0.00" : 利潤表_dgv.Columns("FTYPrice").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("CommissionTTL").DefaultCellStyle.Format = "#,##0.00" : 利潤表_dgv.Columns("CommissionTTL").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("CommissionDarren").DefaultCellStyle.Format = "#,##0.00" : 利潤表_dgv.Columns("CommissionDarren").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("CommissionTendenza").DefaultCellStyle.Format = "#,##0.00" : 利潤表_dgv.Columns("CommissionTendenza").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("Percentage").DefaultCellStyle.Format = "#,##0.00%" : 利潤表_dgv.Columns("Percentage").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("BasicPrice").DefaultCellStyle.Format = "#,##0.00" : 利潤表_dgv.Columns("BasicPrice").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("PG/MOQ").DefaultCellStyle.Format = "#,##0.00" : 利潤表_dgv.Columns("PG/MOQ").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("FOOTorPET").DefaultCellStyle.Format = "#,##0.00" : 利潤表_dgv.Columns("FOOTorPET").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("Tooling").DefaultCellStyle.Format = "#,##0.00" : 利潤表_dgv.Columns("Tooling").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("RubberBand").DefaultCellStyle.Format = "#,##0.00" : 利潤表_dgv.Columns("RubberBand").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("JHOOK").DefaultCellStyle.Format = "#,##0.00" : 利潤表_dgv.Columns("JHOOK").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("WaterResistant").DefaultCellStyle.Format = "#,##0.00" : 利潤表_dgv.Columns("WaterResistant").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("P16VAT").DefaultCellStyle.Format = "#,##0.00" : 利潤表_dgv.Columns("P16VAT").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("EXWsaving").DefaultCellStyle.Format = "#,##0.00" : 利潤表_dgv.Columns("EXWsaving").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("CollectedToolng").DefaultCellStyle.Format = "#,##0.00" : 利潤表_dgv.Columns("CollectedToolng").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
 
-            利潤表_dgv.Columns("工廠").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
-            利潤表_dgv.Columns("數量").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-            利潤表_dgv.Columns("單價").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-            利潤表_dgv.Columns("總金額").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-            利潤表_dgv.Columns("Currency").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-            利潤表_dgv.Columns("Quantity").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-            利潤表_dgv.Columns("Currency").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-            利潤表_dgv.Columns("Exchange").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-            利潤表_dgv.Columns("FTYPrice").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-            利潤表_dgv.Columns("CommissionTTL").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-            利潤表_dgv.Columns("CommissionDarren").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-            利潤表_dgv.Columns("CommissionTendenza").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-            利潤表_dgv.Columns("Percentage").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-            利潤表_dgv.Columns("年份").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("工廠").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+        利潤表_dgv.Columns("數量").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("單價").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("總金額").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("Currency").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("Quantity").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("Currency").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("Exchange").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("FTYPrice").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("CommissionTTL").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("CommissionDarren").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("CommissionTendenza").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("Percentage").HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns("年份").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
 
-            利潤表_dgv.Columns("利潤表流水號").Visible = False
-            If BB(0) = True And BB(1) = False And BB(2) = False And BB(3) = False Then
-                利潤表_dgv.Columns("FTYPrice").Visible = True : 利潤表_dgv.Columns("CommissionTTL").Visible = True
-                利潤表_dgv.Columns("CommissionDarren").Visible = True : 利潤表_dgv.Columns("CommissionTendenza").Visible = True
-                利潤表_dgv.Columns("Percentage").Visible = True
+        利潤表_dgv.Columns("利潤表流水號").Visible = False
+        If BB(0) = True And BB(1) = False And BB(2) = False And BB(3) = False Then
+            利潤表_dgv.Columns("FTYPrice").Visible = True : 利潤表_dgv.Columns("CommissionTTL").Visible = True
+            利潤表_dgv.Columns("CommissionDarren").Visible = True : 利潤表_dgv.Columns("CommissionTendenza").Visible = True
+            利潤表_dgv.Columns("Percentage").Visible = True
 
-                利潤表_dgv.Columns("BasicPrice").Visible = False : 利潤表_dgv.Columns("PG/MOQ").Visible = False : 利潤表_dgv.Columns("FOOTorPET").Visible = False
-                利潤表_dgv.Columns("Tooling").Visible = False : 利潤表_dgv.Columns("RubberBand").Visible = False : 利潤表_dgv.Columns("JHOOK").Visible = False
-                利潤表_dgv.Columns("WaterResistant").Visible = False : 利潤表_dgv.Columns("P16VAT").Visible = False : 利潤表_dgv.Columns("EXWsaving").Visible = False
-                利潤表_dgv.Columns("CollectedToolng").Visible = False : 利潤表_dgv.Columns("驗證").Visible = False
-                利潤表_dgv.Columns("ItemNumber").Visible = False : 利潤表_dgv.Columns("審核").Visible = False : 利潤表_dgv.Columns("客戶訂單號").Visible = False
-            ElseIf BB(0) = False And BB(1) = True And BB(2) = False And BB(3) = False Then
-                利潤表_dgv.Columns("FTYPrice").Visible = False : 利潤表_dgv.Columns("CommissionTTL").Visible = False
-                利潤表_dgv.Columns("CommissionDarren").Visible = False : 利潤表_dgv.Columns("CommissionTendenza").Visible = False
-                利潤表_dgv.Columns("Percentage").Visible = False
+            利潤表_dgv.Columns("BasicPrice").Visible = False : 利潤表_dgv.Columns("PG/MOQ").Visible = False : 利潤表_dgv.Columns("FOOTorPET").Visible = False
+            利潤表_dgv.Columns("Tooling").Visible = False : 利潤表_dgv.Columns("RubberBand").Visible = False : 利潤表_dgv.Columns("JHOOK").Visible = False
+            利潤表_dgv.Columns("WaterResistant").Visible = False : 利潤表_dgv.Columns("P16VAT").Visible = False : 利潤表_dgv.Columns("EXWsaving").Visible = False
+            利潤表_dgv.Columns("CollectedToolng").Visible = False : 利潤表_dgv.Columns("驗證").Visible = False
+            利潤表_dgv.Columns("ItemNumber").Visible = False : 利潤表_dgv.Columns("審核").Visible = False : 利潤表_dgv.Columns("客戶訂單號").Visible = False
+        ElseIf BB(0) = False And BB(1) = True And BB(2) = False And BB(3) = False Then
+            利潤表_dgv.Columns("FTYPrice").Visible = False : 利潤表_dgv.Columns("CommissionTTL").Visible = False
+            利潤表_dgv.Columns("CommissionDarren").Visible = False : 利潤表_dgv.Columns("CommissionTendenza").Visible = False
+            利潤表_dgv.Columns("Percentage").Visible = False
 
-                利潤表_dgv.Columns("BasicPrice").Visible = True : 利潤表_dgv.Columns("PG/MOQ").Visible = True : 利潤表_dgv.Columns("FOOTorPET").Visible = True
-                利潤表_dgv.Columns("Tooling").Visible = True : 利潤表_dgv.Columns("RubberBand").Visible = True : 利潤表_dgv.Columns("JHOOK").Visible = True
-                利潤表_dgv.Columns("WaterResistant").Visible = True : 利潤表_dgv.Columns("P16VAT").Visible = True : 利潤表_dgv.Columns("EXWsaving").Visible = True
-                利潤表_dgv.Columns("CollectedToolng").Visible = True : 利潤表_dgv.Columns("驗證").Visible = False
-                利潤表_dgv.Columns("ItemNumber").Visible = False : 利潤表_dgv.Columns("審核").Visible = False : 利潤表_dgv.Columns("客戶訂單號").Visible = False
-            ElseIf BB(0) = False And BB(1) = False And BB(2) = True And BB(3) = False Then
-                利潤表_dgv.Columns("CollectedToolng").Visible = True : 利潤表_dgv.Columns("CommissionTTL").Visible = True
-                利潤表_dgv.Columns("CommissionDarren").Visible = True : 利潤表_dgv.Columns("CommissionTendenza").Visible = True
-                利潤表_dgv.Columns("Percentage").Visible = True
+            利潤表_dgv.Columns("BasicPrice").Visible = True : 利潤表_dgv.Columns("PG/MOQ").Visible = True : 利潤表_dgv.Columns("FOOTorPET").Visible = True
+            利潤表_dgv.Columns("Tooling").Visible = True : 利潤表_dgv.Columns("RubberBand").Visible = True : 利潤表_dgv.Columns("JHOOK").Visible = True
+            利潤表_dgv.Columns("WaterResistant").Visible = True : 利潤表_dgv.Columns("P16VAT").Visible = True : 利潤表_dgv.Columns("EXWsaving").Visible = True
+            利潤表_dgv.Columns("CollectedToolng").Visible = True : 利潤表_dgv.Columns("驗證").Visible = False
+            利潤表_dgv.Columns("ItemNumber").Visible = False : 利潤表_dgv.Columns("審核").Visible = False : 利潤表_dgv.Columns("客戶訂單號").Visible = False
+        ElseIf BB(0) = False And BB(1) = False And BB(2) = True And BB(3) = False Then
+            利潤表_dgv.Columns("CollectedToolng").Visible = True : 利潤表_dgv.Columns("CommissionTTL").Visible = True
+            利潤表_dgv.Columns("CommissionDarren").Visible = True : 利潤表_dgv.Columns("CommissionTendenza").Visible = True
+            利潤表_dgv.Columns("Percentage").Visible = True
 
-                利潤表_dgv.Columns("BasicPrice").Visible = False : 利潤表_dgv.Columns("PG/MOQ").Visible = False : 利潤表_dgv.Columns("FOOTorPET").Visible = False
-                利潤表_dgv.Columns("Tooling").Visible = False : 利潤表_dgv.Columns("RubberBand").Visible = False : 利潤表_dgv.Columns("JHOOK").Visible = False
-                利潤表_dgv.Columns("WaterResistant").Visible = False : 利潤表_dgv.Columns("P16VAT").Visible = False : 利潤表_dgv.Columns("EXWsaving").Visible = False
-                利潤表_dgv.Columns("FTYPrice").Visible = False : 利潤表_dgv.Columns("驗證").Visible = False
-                利潤表_dgv.Columns("ItemNumber").Visible = False : 利潤表_dgv.Columns("審核").Visible = False : 利潤表_dgv.Columns("客戶訂單號").Visible = False
-            ElseIf BB(0) = False And BB(1) = False And BB(2) = False And BB(3) = True Then
-                利潤表_dgv.Columns("CollectedToolng").Visible = False : 利潤表_dgv.Columns("CommissionTTL").Visible = False
-                利潤表_dgv.Columns("CommissionDarren").Visible = False : 利潤表_dgv.Columns("CommissionTendenza").Visible = False
-                利潤表_dgv.Columns("Percentage").Visible = False
+            利潤表_dgv.Columns("BasicPrice").Visible = False : 利潤表_dgv.Columns("PG/MOQ").Visible = False : 利潤表_dgv.Columns("FOOTorPET").Visible = False
+            利潤表_dgv.Columns("Tooling").Visible = False : 利潤表_dgv.Columns("RubberBand").Visible = False : 利潤表_dgv.Columns("JHOOK").Visible = False
+            利潤表_dgv.Columns("WaterResistant").Visible = False : 利潤表_dgv.Columns("P16VAT").Visible = False : 利潤表_dgv.Columns("EXWsaving").Visible = False
+            利潤表_dgv.Columns("FTYPrice").Visible = False : 利潤表_dgv.Columns("驗證").Visible = False
+            利潤表_dgv.Columns("ItemNumber").Visible = False : 利潤表_dgv.Columns("審核").Visible = False : 利潤表_dgv.Columns("客戶訂單號").Visible = False
+        ElseIf BB(0) = False And BB(1) = False And BB(2) = False And BB(3) = True Then
+            利潤表_dgv.Columns("CollectedToolng").Visible = False : 利潤表_dgv.Columns("CommissionTTL").Visible = False
+            利潤表_dgv.Columns("CommissionDarren").Visible = False : 利潤表_dgv.Columns("CommissionTendenza").Visible = False
+            利潤表_dgv.Columns("Percentage").Visible = False
 
-                利潤表_dgv.Columns("BasicPrice").Visible = False : 利潤表_dgv.Columns("PG/MOQ").Visible = False : 利潤表_dgv.Columns("FOOTorPET").Visible = False
-                利潤表_dgv.Columns("Tooling").Visible = False : 利潤表_dgv.Columns("RubberBand").Visible = False : 利潤表_dgv.Columns("JHOOK").Visible = False
-                利潤表_dgv.Columns("WaterResistant").Visible = False : 利潤表_dgv.Columns("P16VAT").Visible = False : 利潤表_dgv.Columns("EXWsaving").Visible = False
-                利潤表_dgv.Columns("FTYPrice").Visible = False
+            利潤表_dgv.Columns("BasicPrice").Visible = False : 利潤表_dgv.Columns("PG/MOQ").Visible = False : 利潤表_dgv.Columns("FOOTorPET").Visible = False
+            利潤表_dgv.Columns("Tooling").Visible = False : 利潤表_dgv.Columns("RubberBand").Visible = False : 利潤表_dgv.Columns("JHOOK").Visible = False
+            利潤表_dgv.Columns("WaterResistant").Visible = False : 利潤表_dgv.Columns("P16VAT").Visible = False : 利潤表_dgv.Columns("EXWsaving").Visible = False
+            利潤表_dgv.Columns("FTYPrice").Visible = False
 
-                利潤表_dgv.Columns("驗證").Visible = True : 利潤表_dgv.Columns("ItemNumber").Visible = True : 利潤表_dgv.Columns("審核").Visible = True
-                利潤表_dgv.Columns("客戶訂單號").Visible = True
-            End If
-            利潤表_dgv.Columns("年份").FillWeight = 50 : 利潤表_dgv.Columns("驗證").FillWeight = 50 : 利潤表_dgv.Columns("審核").FillWeight = 50
-            利潤表_dgv.Columns("Quantity").DefaultCellStyle.BackColor = Color.MistyRose : 利潤表_dgv.Columns("FTYPrice").DefaultCellStyle.BackColor = Color.MistyRose
-            利潤表_dgv.Columns("BasicPrice").DefaultCellStyle.BackColor = Color.MistyRose : 利潤表_dgv.Columns("PG/MOQ").DefaultCellStyle.BackColor = Color.MistyRose
-            利潤表_dgv.Columns("FOOTorPET").DefaultCellStyle.BackColor = Color.MistyRose : 利潤表_dgv.Columns("Tooling").DefaultCellStyle.BackColor = Color.MistyRose
-            利潤表_dgv.Columns("RubberBand").DefaultCellStyle.BackColor = Color.MistyRose : 利潤表_dgv.Columns("JHOOK").DefaultCellStyle.BackColor = Color.MistyRose
-            利潤表_dgv.Columns("WaterResistant").DefaultCellStyle.BackColor = Color.MistyRose : 利潤表_dgv.Columns("P16VAT").DefaultCellStyle.BackColor = Color.MistyRose
-            利潤表_dgv.Columns("EXWsaving").DefaultCellStyle.BackColor = Color.MistyRose : 利潤表_dgv.Columns("Exchange").DefaultCellStyle.BackColor = Color.MistyRose
-            利潤表_dgv.EditMode = DataGridViewEditMode.EditOnEnter
+            利潤表_dgv.Columns("驗證").Visible = True : 利潤表_dgv.Columns("ItemNumber").Visible = True : 利潤表_dgv.Columns("審核").Visible = True
+            利潤表_dgv.Columns("客戶訂單號").Visible = True
+        End If
+        利潤表_dgv.Columns("年份").FillWeight = 50 : 利潤表_dgv.Columns("驗證").FillWeight = 50 : 利潤表_dgv.Columns("審核").FillWeight = 50
+        利潤表_dgv.Columns("Quantity").DefaultCellStyle.BackColor = Color.MistyRose : 利潤表_dgv.Columns("FTYPrice").DefaultCellStyle.BackColor = Color.MistyRose
+        利潤表_dgv.Columns("BasicPrice").DefaultCellStyle.BackColor = Color.MistyRose : 利潤表_dgv.Columns("PG/MOQ").DefaultCellStyle.BackColor = Color.MistyRose
+        利潤表_dgv.Columns("FOOTorPET").DefaultCellStyle.BackColor = Color.MistyRose : 利潤表_dgv.Columns("Tooling").DefaultCellStyle.BackColor = Color.MistyRose
+        利潤表_dgv.Columns("RubberBand").DefaultCellStyle.BackColor = Color.MistyRose : 利潤表_dgv.Columns("JHOOK").DefaultCellStyle.BackColor = Color.MistyRose
+        利潤表_dgv.Columns("WaterResistant").DefaultCellStyle.BackColor = Color.MistyRose : 利潤表_dgv.Columns("P16VAT").DefaultCellStyle.BackColor = Color.MistyRose
+        利潤表_dgv.Columns("EXWsaving").DefaultCellStyle.BackColor = Color.MistyRose : 利潤表_dgv.Columns("Exchange").DefaultCellStyle.BackColor = Color.MistyRose
+        利潤表_dgv.EditMode = DataGridViewEditMode.EditOnEnter
 
-            利潤表_dgv.Columns("單價").DefaultCellStyle.ForeColor = Color.Red : 利潤表_dgv.Columns("總金額").DefaultCellStyle.ForeColor = Color.Red
-            利潤表_dgv.Columns("CommissionTTL").DefaultCellStyle.ForeColor = Color.Red : 利潤表_dgv.Columns("CommissionDarren").DefaultCellStyle.ForeColor = Color.Red
-            利潤表_dgv.Columns("CommissionTendenza").DefaultCellStyle.ForeColor = Color.Red : 利潤表_dgv.Columns("Percentage").DefaultCellStyle.ForeColor = Color.Red
-            利潤表_dgv.Columns("CollectedToolng").DefaultCellStyle.ForeColor = Color.Red : 利潤表_dgv.Columns("年份").DefaultCellStyle.ForeColor = Color.Red
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        利潤表_dgv.Columns("單價").DefaultCellStyle.ForeColor = Color.Red : 利潤表_dgv.Columns("總金額").DefaultCellStyle.ForeColor = Color.Red
+        利潤表_dgv.Columns("CommissionTTL").DefaultCellStyle.ForeColor = Color.Red : 利潤表_dgv.Columns("CommissionDarren").DefaultCellStyle.ForeColor = Color.Red
+        利潤表_dgv.Columns("CommissionTendenza").DefaultCellStyle.ForeColor = Color.Red : 利潤表_dgv.Columns("Percentage").DefaultCellStyle.ForeColor = Color.Red
+        利潤表_dgv.Columns("CollectedToolng").DefaultCellStyle.ForeColor = Color.Red : 利潤表_dgv.Columns("年份").DefaultCellStyle.ForeColor = Color.Red
     End Sub
     Private Sub Set_grid1()
         訂單流水號_dgv.Columns(0).FillWeight = 90
     End Sub
     Private Sub Set_自動彙總1()
-        Try
-            Dim 金額加總(9) As Double : Dim EU(11) As Double
-            For i As Integer = 0 To 利潤表_dgv.Rows.Count - 1
-                If 利潤表_dgv("BasicPrice", i).Value.ToString = "" Then : EU(0) = 0 : Else : EU(0) = Double.Parse(利潤表_dgv("BasicPrice", i).Value.ToString) : End If
-                If 利潤表_dgv("PG/MOQ", i).Value.ToString = "" Then : EU(1) = 0 : Else : EU(1) = Double.Parse(利潤表_dgv("PG/MOQ", i).Value.ToString) : End If
-                If 利潤表_dgv("FOOTorPET", i).Value.ToString = "" Then : EU(2) = 0 : Else : EU(2) = Double.Parse(利潤表_dgv("FOOTorPET", i).Value.ToString) : End If
-                If 利潤表_dgv("Tooling", i).Value.ToString = "" Then : EU(3) = 0 : Else : EU(3) = Double.Parse(利潤表_dgv("Tooling", i).Value.ToString) : End If
-                If 利潤表_dgv("RubberBand", i).Value.ToString = "" Then : EU(4) = 0 : Else : EU(4) = Double.Parse(利潤表_dgv("RubberBand", i).Value.ToString) : End If
-                If 利潤表_dgv("JHOOK", i).Value.ToString = "" Then : EU(5) = 0 : Else : EU(5) = Double.Parse(利潤表_dgv("JHOOK", i).Value.ToString) : End If
-                If 利潤表_dgv("WaterResistant", i).Value.ToString = "" Then : EU(6) = 0 : Else : EU(6) = Double.Parse(利潤表_dgv("WaterResistant", i).Value.ToString) : End If
-                If 利潤表_dgv("P16VAT", i).Value.ToString = "" Then : EU(7) = 0 : Else : EU(7) = Double.Parse(利潤表_dgv("P16VAT", i).Value.ToString) : End If
-                If 利潤表_dgv("EXWsaving", i).Value.ToString = "" Then : EU(8) = 0 : Else : EU(8) = Double.Parse(利潤表_dgv("EXWsaving", i).Value.ToString) : End If
-                If 利潤表_dgv("Quantity", i).Value.ToString = "" Then : EU(9) = 0 : Else : EU(9) = Double.Parse(利潤表_dgv("Quantity", i).Value.ToString) : End If
-                If 利潤表_dgv("FTYPrice", i).Value.ToString = "" Then : EU(10) = 0 : Else : EU(10) = Double.Parse(利潤表_dgv("FTYPrice", i).Value.ToString) : End If
-                If 利潤表_dgv("Exchange", i).Value.ToString = "" Then : EU(11) = 1 : Else : EU(11) = Double.Parse(利潤表_dgv("Exchange", i).Value.ToString) : End If
-                利潤表_dgv.Rows(i).Cells("單價").Value = EU(0) + EU(1) + EU(2) + EU(3) + EU(4) + EU(5) + EU(6) + EU(7) / EU(11) - EU(8)
-                利潤表_dgv.Rows(i).Cells("CollectedToolng").Value = EU(9) * EU(3)
-                利潤表_dgv.Rows(i).Cells("CommissionTTL").Value = ((EU(0) + EU(1) + EU(2) + EU(3) + EU(4) + EU(5) + EU(6) + EU(7) / EU(11) - EU(8)) - EU(10)) * EU(9)
-                利潤表_dgv.Rows(i).Cells("CommissionDarren").Value = ((EU(0) + EU(1) + EU(2) + EU(3) + EU(4) + EU(5) + EU(6) + EU(7) / EU(11) - EU(8)) - EU(10)) * EU(9) / 2
-                利潤表_dgv.Rows(i).Cells("CommissionTendenza").Value = ((EU(0) + EU(1) + EU(2) + EU(3) + EU(4) + EU(5) + EU(6) + EU(7) / EU(11) - EU(8)) - EU(10)) * EU(9) / 2
-                If (EU(0) + EU(1) + EU(2) + EU(3) + EU(4) + EU(5) + EU(6) + EU(7) - EU(8)) = 0 Or EU(9) = 0 Then
-                    利潤表_dgv.Rows(i).Cells("Percentage").Value = 0
-                Else
-                    利潤表_dgv.Rows(i).Cells("Percentage").Value = ((EU(0) + EU(1) + EU(2) + EU(3) + EU(4) + EU(5) + EU(6) + EU(7) / EU(11) - EU(8)) * EU(9) - EU(10) * EU(9)) /
+        Dim 金額加總(9) As Double : Dim EU(11) As Double
+        For i As Integer = 0 To 利潤表_dgv.Rows.Count - 1
+            If 利潤表_dgv("BasicPrice", i).Value.ToString = "" Then : EU(0) = 0 : Else : EU(0) = Double.Parse(利潤表_dgv("BasicPrice", i).Value.ToString) : End If
+            If 利潤表_dgv("PG/MOQ", i).Value.ToString = "" Then : EU(1) = 0 : Else : EU(1) = Double.Parse(利潤表_dgv("PG/MOQ", i).Value.ToString) : End If
+            If 利潤表_dgv("FOOTorPET", i).Value.ToString = "" Then : EU(2) = 0 : Else : EU(2) = Double.Parse(利潤表_dgv("FOOTorPET", i).Value.ToString) : End If
+            If 利潤表_dgv("Tooling", i).Value.ToString = "" Then : EU(3) = 0 : Else : EU(3) = Double.Parse(利潤表_dgv("Tooling", i).Value.ToString) : End If
+            If 利潤表_dgv("RubberBand", i).Value.ToString = "" Then : EU(4) = 0 : Else : EU(4) = Double.Parse(利潤表_dgv("RubberBand", i).Value.ToString) : End If
+            If 利潤表_dgv("JHOOK", i).Value.ToString = "" Then : EU(5) = 0 : Else : EU(5) = Double.Parse(利潤表_dgv("JHOOK", i).Value.ToString) : End If
+            If 利潤表_dgv("WaterResistant", i).Value.ToString = "" Then : EU(6) = 0 : Else : EU(6) = Double.Parse(利潤表_dgv("WaterResistant", i).Value.ToString) : End If
+            If 利潤表_dgv("P16VAT", i).Value.ToString = "" Then : EU(7) = 0 : Else : EU(7) = Double.Parse(利潤表_dgv("P16VAT", i).Value.ToString) : End If
+            If 利潤表_dgv("EXWsaving", i).Value.ToString = "" Then : EU(8) = 0 : Else : EU(8) = Double.Parse(利潤表_dgv("EXWsaving", i).Value.ToString) : End If
+            If 利潤表_dgv("Quantity", i).Value.ToString = "" Then : EU(9) = 0 : Else : EU(9) = Double.Parse(利潤表_dgv("Quantity", i).Value.ToString) : End If
+            If 利潤表_dgv("FTYPrice", i).Value.ToString = "" Then : EU(10) = 0 : Else : EU(10) = Double.Parse(利潤表_dgv("FTYPrice", i).Value.ToString) : End If
+            If 利潤表_dgv("Exchange", i).Value.ToString = "" Then : EU(11) = 1 : Else : EU(11) = Double.Parse(利潤表_dgv("Exchange", i).Value.ToString) : End If
+            利潤表_dgv.Rows(i).Cells("單價").Value = EU(0) + EU(1) + EU(2) + EU(3) + EU(4) + EU(5) + EU(6) + EU(7) / EU(11) - EU(8)
+            利潤表_dgv.Rows(i).Cells("CollectedToolng").Value = EU(9) * EU(3)
+            利潤表_dgv.Rows(i).Cells("CommissionTTL").Value = ((EU(0) + EU(1) + EU(2) + EU(3) + EU(4) + EU(5) + EU(6) + EU(7) / EU(11) - EU(8)) - EU(10)) * EU(9)
+            利潤表_dgv.Rows(i).Cells("CommissionDarren").Value = ((EU(0) + EU(1) + EU(2) + EU(3) + EU(4) + EU(5) + EU(6) + EU(7) / EU(11) - EU(8)) - EU(10)) * EU(9) / 2
+            利潤表_dgv.Rows(i).Cells("CommissionTendenza").Value = ((EU(0) + EU(1) + EU(2) + EU(3) + EU(4) + EU(5) + EU(6) + EU(7) / EU(11) - EU(8)) - EU(10)) * EU(9) / 2
+            If (EU(0) + EU(1) + EU(2) + EU(3) + EU(4) + EU(5) + EU(6) + EU(7) - EU(8)) = 0 Or EU(9) = 0 Then
+                利潤表_dgv.Rows(i).Cells("Percentage").Value = 0
+            Else
+                利潤表_dgv.Rows(i).Cells("Percentage").Value = ((EU(0) + EU(1) + EU(2) + EU(3) + EU(4) + EU(5) + EU(6) + EU(7) / EU(11) - EU(8)) * EU(9) - EU(10) * EU(9)) /
                                                             ((EU(0) + EU(1) + EU(2) + EU(3) + EU(4) + EU(5) + EU(6) + EU(7) / EU(11) - EU(8)) * EU(9))
-                End If
-                利潤表_dgv.Rows(i).Cells("總金額").Value = (EU(0) + EU(1) + EU(2) + EU(3) + EU(4) + EU(5) + EU(6) + EU(7) / EU(11) - EU(8)) * EU(9)
-                If 利潤表_dgv.RowCount = 0 Then : 金額加總(0) = "0.00" : Else : 金額加總(0) += 利潤表_dgv.Rows(i).Cells("總金額").Value : End If
-                If 利潤表_dgv.RowCount = 0 Then
-                    金額加總(1) = "0.00"
-                Else
-                    TextBox6.Text = 利潤表_dgv("CommissionTTL", i).Value.ToString
-                    If TextBox6.Text = "" Then : 金額加總(1) += 0 : Else : 金額加總(1) += 利潤表_dgv.Rows(i).Cells("CommissionTTL").Value : End If
-                End If
-                If 利潤表_dgv.RowCount = 0 Then
-                    金額加總(2) = "0.00"
-                Else
-                    TextBox7.Text = 利潤表_dgv("CommissionDarren", i).Value.ToString
-                    If TextBox7.Text = "" Then : 金額加總(2) += 0 : Else : 金額加總(2) += 利潤表_dgv.Rows(i).Cells("CommissionDarren").Value : End If
-                End If
-                If 利潤表_dgv.RowCount = 0 Then
-                    金額加總(3) = "0.00"
-                Else
-                    TextBox8.Text = 利潤表_dgv("CommissionTendenza", i).Value.ToString
-                    If TextBox8.Text = "" Then : 金額加總(3) += 0 : Else : 金額加總(3) += 利潤表_dgv.Rows(i).Cells("CommissionTendenza").Value : End If
-                End If
-                If 利潤表_dgv.RowCount = 0 Then
-                    金額加總(4) = "0.00"
-                Else
-                    TextBox10.Text = 利潤表_dgv("CommissionTendenza", i).Value.ToString
-                    If TextBox10.Text = "" Then : 金額加總(4) += 0 : Else : 金額加總(4) += 利潤表_dgv.Rows(i).Cells("CollectedToolng").Value : End If
-                End If
-                利潤表_dgv.Rows(i).Cells(33).Value = Strings.Left(利潤表_dgv("客戶交期", i).Value.ToString, 4)
-            Next i
-            總金額_tb.Text = Format(Val(金額加總(0)), "#,##0.00") : Total_TTL_tb.Text = Format(Val(金額加總(1)), "#,##0.00")
-            Total_Darren_tb.Text = Format(Val(金額加總(2)), "#,##0.00") : Total_Tendenza_tb.Text = Format(Val(金額加總(3)), "#,##0.00")
-            TotalTTL_CollectedToolng_tb.Text = Format(Val(金額加總(4)), "#,##0.00")
-            If 金額加總(0) = 0 Then : Total_Percentage_tb.Text = "0.00%" : Else : Total_Percentage_tb.Text = Format(Val(金額加總(1) / 金額加總(0)), "#,##0.00%") : End If
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+            End If
+            利潤表_dgv.Rows(i).Cells("總金額").Value = (EU(0) + EU(1) + EU(2) + EU(3) + EU(4) + EU(5) + EU(6) + EU(7) / EU(11) - EU(8)) * EU(9)
+            If 利潤表_dgv.RowCount = 0 Then : 金額加總(0) = "0.00" : Else : 金額加總(0) += 利潤表_dgv.Rows(i).Cells("總金額").Value : End If
+            If 利潤表_dgv.RowCount = 0 Then
+                金額加總(1) = "0.00"
+            Else
+                TextBox6.Text = 利潤表_dgv("CommissionTTL", i).Value.ToString
+                If TextBox6.Text = "" Then : 金額加總(1) += 0 : Else : 金額加總(1) += 利潤表_dgv.Rows(i).Cells("CommissionTTL").Value : End If
+            End If
+            If 利潤表_dgv.RowCount = 0 Then
+                金額加總(2) = "0.00"
+            Else
+                TextBox7.Text = 利潤表_dgv("CommissionDarren", i).Value.ToString
+                If TextBox7.Text = "" Then : 金額加總(2) += 0 : Else : 金額加總(2) += 利潤表_dgv.Rows(i).Cells("CommissionDarren").Value : End If
+            End If
+            If 利潤表_dgv.RowCount = 0 Then
+                金額加總(3) = "0.00"
+            Else
+                TextBox8.Text = 利潤表_dgv("CommissionTendenza", i).Value.ToString
+                If TextBox8.Text = "" Then : 金額加總(3) += 0 : Else : 金額加總(3) += 利潤表_dgv.Rows(i).Cells("CommissionTendenza").Value : End If
+            End If
+            If 利潤表_dgv.RowCount = 0 Then
+                金額加總(4) = "0.00"
+            Else
+                TextBox10.Text = 利潤表_dgv("CommissionTendenza", i).Value.ToString
+                If TextBox10.Text = "" Then : 金額加總(4) += 0 : Else : 金額加總(4) += 利潤表_dgv.Rows(i).Cells("CollectedToolng").Value : End If
+            End If
+            利潤表_dgv.Rows(i).Cells(33).Value = Strings.Left(利潤表_dgv("客戶交期", i).Value.ToString, 4)
+        Next i
+        總金額_tb.Text = Format(Val(金額加總(0)), "#,##0.00") : Total_TTL_tb.Text = Format(Val(金額加總(1)), "#,##0.00")
+        Total_Darren_tb.Text = Format(Val(金額加總(2)), "#,##0.00") : Total_Tendenza_tb.Text = Format(Val(金額加總(3)), "#,##0.00")
+        TotalTTL_CollectedToolng_tb.Text = Format(Val(金額加總(4)), "#,##0.00")
+        If 金額加總(0) = 0 Then : Total_Percentage_tb.Text = "0.00%" : Else : Total_Percentage_tb.Text = Format(Val(金額加總(1) / 金額加總(0)), "#,##0.00%") : End If
     End Sub
     Private Sub Set_格式()
-        Try
-            天盾流水號_tb.Enabled = False : 客戶訂單號_tb.Enabled = False : 形體號_tb.Enabled = False : 顏色_tb.Enabled = False : 楦型_tb.Enabled = False
-            存檔_bt.Enabled = False : Timer1.Enabled = False : Label47.Visible = False : 刪除_bt.Enabled = True : 修改_bt.Enabled = True
-            等於訂單數_bt.Enabled = False : 等於零_bt.Enabled = False : 匯率為1_bt.Enabled = False
-            TextBox6.Visible = False : TextBox7.Visible = False : TextBox8.Visible = False : TextBox10.Visible = False : 資料流水號_tb.Visible = False : 利潤表流水號_tb.Visible = False
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        天盾流水號_tb.Enabled = False : 客戶訂單號_tb.Enabled = False : 形體號_tb.Enabled = False : 顏色_tb.Enabled = False : 楦型_tb.Enabled = False
+        存檔_bt.Enabled = False : Timer1.Enabled = False : Label47.Visible = False : 刪除_bt.Enabled = True : 修改_bt.Enabled = True
+        等於訂單數_bt.Enabled = False : 等於零_bt.Enabled = False : 匯率為1_bt.Enabled = False
+        TextBox6.Visible = False : TextBox7.Visible = False : TextBox8.Visible = False : TextBox10.Visible = False : 資料流水號_tb.Visible = False : 利潤表流水號_tb.Visible = False
     End Sub
     Private Sub 訂單價格利潤明細表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        Try
-            TENDEN_MES_SYS.WindowState = 2
-            Me.MdiParent = TENDEN_MES_SYS : Me.WindowState = 2 : Me.AutoScroll = True
-            訂單資料庫選擇.ShowDialog()
+        TENDEN_MES_SYS.WindowState = 2 : Panel1.SendToBack()
+        Me.MdiParent = TENDEN_MES_SYS : Me.WindowState = 2 : Me.AutoScroll = True
+        訂單資料庫選擇.ShowDialog()
 
-            年份_cb.Text = Year(Today)
-            BB(0) = False : BB(1) = True : BB(2) = False : BB(3) = False
-            成本組成_bt.Enabled = False
-            Set_訂單清單() : Set_grid() : Set_未建檔清單() : Set_grid1() : Set_自動彙總1() : Set_格式()
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        年份_cb.Text = Year(Today)
+        BB(0) = False : BB(1) = True : BB(2) = False : BB(3) = False
+        成本組成_bt.Enabled = False
+        Set_訂單清單() : Set_grid() : Set_未建檔清單() : Set_grid1() : Set_自動彙總1() : Set_格式()
         A1 = 空間1.Location.X : A2 = 空間2.Location.X : B2 = 空間2.Location.Y : A3 = 空間2.Size.Width : B3 = 空間2.Size.Height
     End Sub
     Private Sub 訂單價格利潤明細表_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
@@ -330,53 +274,31 @@ Public Class 訂單價格利潤明細表
         Set_自動彙總1()
     End Sub
     Private Sub 利潤表_dgv_CellClick(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles 利潤表_dgv.CellClick
-        Try
-            If e.RowIndex = -1 Then : Else
-                天盾流水號_tb.Text = 利潤表_dgv("訂單流水號", e.RowIndex).Value.ToString : 客戶訂單號_tb.Text = 利潤表_dgv("力威訂單號", e.RowIndex).Value.ToString
-                形體號_tb.Text = 利潤表_dgv("形體號", e.RowIndex).Value.ToString : 顏色_tb.Text = 利潤表_dgv("顏色", e.RowIndex).Value.ToString
-                楦型_tb.Text = 利潤表_dgv("楦型", e.RowIndex).Value.ToString : 資料流水號_tb.Text = 利潤表_dgv("資料流水號", e.RowIndex).Value.ToString
-                年份_cb.Text = 利潤表_dgv("年份", e.RowIndex).Value.ToString : Currency_cb.Text = 利潤表_dgv("Currency", e.RowIndex).Value.ToString
-                利潤表流水號_tb.Text = 利潤表_dgv("利潤表流水號", e.RowIndex).Value.ToString
-                If 已建檔_bt.Checked = True Then
-                    If 利潤表_dgv("利潤表流水號", e.RowIndex).Value.ToString = "" Then : MsgBox("該筆資料有問題，請提供給系統管理員，修正後再繼續作業!!") : End If
-                End If
+        If e.RowIndex = -1 Then : Else
+            天盾流水號_tb.Text = 利潤表_dgv("訂單流水號", e.RowIndex).Value.ToString : 客戶訂單號_tb.Text = 利潤表_dgv("力威訂單號", e.RowIndex).Value.ToString
+            形體號_tb.Text = 利潤表_dgv("形體號", e.RowIndex).Value.ToString : 顏色_tb.Text = 利潤表_dgv("顏色", e.RowIndex).Value.ToString
+            楦型_tb.Text = 利潤表_dgv("楦型", e.RowIndex).Value.ToString : 資料流水號_tb.Text = 利潤表_dgv("資料流水號", e.RowIndex).Value.ToString
+            年份_cb.Text = 利潤表_dgv("年份", e.RowIndex).Value.ToString : Currency_cb.Text = 利潤表_dgv("Currency", e.RowIndex).Value.ToString
+            利潤表流水號_tb.Text = 利潤表_dgv("利潤表流水號", e.RowIndex).Value.ToString
+            If 已建檔_bt.Checked = True Then
+                If 利潤表_dgv("利潤表流水號", e.RowIndex).Value.ToString = "" Then : MsgBox("該筆資料有問題，請提供給系統管理員，修正後再繼續作業!!") : End If
             End If
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        End If
     End Sub
     Private Sub 訂單流水號_dgv2_CellClick(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles 訂單流水號_dgv.CellClick
-        Try
-            If e.RowIndex = -1 Then : Else
-                天盾流水號_tb.Text = 訂單流水號_dgv(0, e.RowIndex).Value.ToString
-                Timer1.Enabled = True : 存檔_bt.Enabled = True : 未建檔_cb.Checked = True : 已建檔_bt.Checked = False : 刪除_bt.Enabled = False : 修改_bt.Enabled = False
-                等於訂單數_bt.Enabled = True : 等於零_bt.Enabled = True : 匯率為1_bt.Enabled = True
-                Set_訂單清單()
-            End If
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        If e.RowIndex = -1 Then : Else
+            天盾流水號_tb.Text = 訂單流水號_dgv(0, e.RowIndex).Value.ToString
+            Timer1.Enabled = True : 存檔_bt.Enabled = True : 未建檔_cb.Checked = True : 已建檔_bt.Checked = False : 刪除_bt.Enabled = False : 修改_bt.Enabled = False
+            等於訂單數_bt.Enabled = True : 等於零_bt.Enabled = True : 匯率為1_bt.Enabled = True
+            Set_訂單清單()
+        End If
     End Sub
     Private Sub 拆分一筆資料_bt_Click(sender As Object, e As EventArgs) Handles 拆分一筆資料_bt.Click
-        Try
-            If 未建檔_cb.Checked = True Then
-                If 資料流水號_tb.Text = "" Or 天盾流水號_tb.Text = "" Then
-                    MsgBox("沒有選擇將要拆分的資料")
-                Else
-                    Dim NUM2 As Integer : SQL_查詢最後一筆利潤表流水號()
-                    If dr.Read() Then : NUM2 = Strings.Right(dr("利潤表流水號").ToString, 8) : End If : conn.Close() : NUM2 += 1
-                    If NUM2 < 10 Then : 利潤表流水號 = "PR" & "0000000" & NUM2
-                    ElseIf NUM2 > 9 And NUM2 < 100 Then : 利潤表流水號 = "PR" & "000000" & NUM2
-                    ElseIf NUM2 > 99 And NUM2 < 1000 Then : 利潤表流水號 = "PR" & "00000" & NUM2
-                    ElseIf NUM2 > 999 And NUM2 < 10000 Then : 利潤表流水號 = "PR" & "0000" & NUM2
-                    ElseIf NUM2 > 9999 And NUM2 < 100000 Then : 利潤表流水號 = "PR" & "000" & NUM2
-                    ElseIf NUM2 > 99999 And NUM2 < 100000 Then : 利潤表流水號 = "PR" & "00" & NUM2
-                    ElseIf NUM2 > 999999 And NUM2 < 1000000 Then : 利潤表流水號 = "PR" & "0" & NUM2
-                    ElseIf NUM2 > 9999999 Then : 利潤表流水號 = "PR" & NUM2 : End If
-                    SQL_新增訂單價格利潤表暫存檔1() : conn.Close() : Set_編輯清單() : Set_grid() : Set_自動彙總1()
-                End If
-            ElseIf 未建檔_cb.Checked = False Then
-                Dim NUM2 As Integer : SQL_查詢最後一筆利潤表流水號1()
+        If 未建檔_cb.Checked = True Then
+            If 資料流水號_tb.Text = "" Or 天盾流水號_tb.Text = "" Then
+                MsgBox("沒有選擇將要拆分的資料")
+            Else
+                Dim NUM2 As Integer : SQL_查詢最後一筆利潤表流水號()
                 If dr.Read() Then : NUM2 = Strings.Right(dr("利潤表流水號").ToString, 8) : End If : conn.Close() : NUM2 += 1
                 If NUM2 < 10 Then : 利潤表流水號 = "PR" & "0000000" & NUM2
                 ElseIf NUM2 > 9 And NUM2 < 100 Then : 利潤表流水號 = "PR" & "000000" & NUM2
@@ -386,97 +308,75 @@ Public Class 訂單價格利潤明細表
                 ElseIf NUM2 > 99999 And NUM2 < 100000 Then : 利潤表流水號 = "PR" & "00" & NUM2
                 ElseIf NUM2 > 999999 And NUM2 < 1000000 Then : 利潤表流水號 = "PR" & "0" & NUM2
                 ElseIf NUM2 > 9999999 Then : 利潤表流水號 = "PR" & NUM2 : End If
-                SQL_新增訂單資料表() : conn.Close() : Set_訂單清單() : Set_grid() : Set_自動彙總1()
+                SQL_新增訂單價格利潤表暫存檔1() : conn.Close() : Set_編輯清單() : Set_grid() : Set_自動彙總1()
             End If
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        ElseIf 未建檔_cb.Checked = False Then
+            Dim NUM2 As Integer : SQL_查詢最後一筆利潤表流水號1()
+            If dr.Read() Then : NUM2 = Strings.Right(dr("利潤表流水號").ToString, 8) : End If : conn.Close() : NUM2 += 1
+            If NUM2 < 10 Then : 利潤表流水號 = "PR" & "0000000" & NUM2
+            ElseIf NUM2 > 9 And NUM2 < 100 Then : 利潤表流水號 = "PR" & "000000" & NUM2
+            ElseIf NUM2 > 99 And NUM2 < 1000 Then : 利潤表流水號 = "PR" & "00000" & NUM2
+            ElseIf NUM2 > 999 And NUM2 < 10000 Then : 利潤表流水號 = "PR" & "0000" & NUM2
+            ElseIf NUM2 > 9999 And NUM2 < 100000 Then : 利潤表流水號 = "PR" & "000" & NUM2
+            ElseIf NUM2 > 99999 And NUM2 < 100000 Then : 利潤表流水號 = "PR" & "00" & NUM2
+            ElseIf NUM2 > 999999 And NUM2 < 1000000 Then : 利潤表流水號 = "PR" & "0" & NUM2
+            ElseIf NUM2 > 9999999 Then : 利潤表流水號 = "PR" & NUM2 : End If
+            SQL_新增訂單資料表() : conn.Close() : Set_訂單清單() : Set_grid() : Set_自動彙總1()
+        End If
     End Sub
     Private Sub 刪除拆分資料_bt_Click(sender As Object, e As EventArgs) Handles 刪除拆分資料_bt.Click
-        Try
-            If 未建檔_cb.Checked = True Then
-                SQL_刪除訂單價格利潤表暫存檔1() : conn.Close() : Set_編輯清單() : Set_grid() : Set_自動彙總1()
-            ElseIf 未建檔_cb.Checked = False Then
-                SQL_刪除訂單價格利潤表暫存檔2() : conn.Close() : Set_訂單清單() : Set_grid() : Set_自動彙總1()
-            End If
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        If 未建檔_cb.Checked = True Then
+            SQL_刪除訂單價格利潤表暫存檔1() : conn.Close() : Set_編輯清單() : Set_grid() : Set_自動彙總1()
+        ElseIf 未建檔_cb.Checked = False Then
+            SQL_刪除訂單價格利潤表暫存檔2() : conn.Close() : Set_訂單清單() : Set_grid() : Set_自動彙總1()
+        End If
     End Sub
     Private Sub 利潤表_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 利潤表_dgv.RowPostPaint
-        Try
-            Dim linePen As New Pen(Color.Blue, 2)
-            If e.RowIndex = 利潤表_dgv.Rows.Count - 1 Then
+        Dim linePen As New Pen(Color.Blue, 2)
+        If e.RowIndex = 利潤表_dgv.Rows.Count - 1 Then
+            Exit Sub
+        Else
+            If 利潤表_dgv("訂單流水號", e.RowIndex).Value.ToString <> 利潤表_dgv("訂單流水號", e.RowIndex + 1).Value.ToString Then
+                Dim startX As Integer = IIf(利潤表_dgv.RowHeadersVisible, 利潤表_dgv.RowHeadersWidth, 0)
+                Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
+                Dim endX As Integer = startX + 利潤表_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 利潤表_dgv.HorizontalScrollingOffset
+                e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
                 Exit Sub
-            Else
-                If 利潤表_dgv("訂單流水號", e.RowIndex).Value.ToString <> 利潤表_dgv("訂單流水號", e.RowIndex + 1).Value.ToString Then
-                    Dim startX As Integer = IIf(利潤表_dgv.RowHeadersVisible, 利潤表_dgv.RowHeadersWidth, 0)
-                    Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
-                    Dim endX As Integer = startX + 利潤表_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 利潤表_dgv.HorizontalScrollingOffset
-                    e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
-                    Exit Sub
-                End If
             End If
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        End If
     End Sub
     Private Sub 返回_bt_Click(sender As Object, e As EventArgs) Handles 返回_bt.Click
-        Try
-            PA = ""
-            未建檔_cb.Checked = False : 已建檔_bt.Checked = True : 天盾流水號_tb.Text = ""
-            Timer1.Enabled = False : Label47.Visible = False : 存檔_bt.Enabled = False : 刪除_bt.Enabled = True : 修改_bt.Enabled = True
-            等於訂單數_bt.Enabled = False : 等於零_bt.Enabled = False : 匯率為1_bt.Enabled = False
-            Set_訂單清單() : Set_grid() : Set_未建檔清單() : Set_grid1() : Set_自動彙總1()
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        PA = ""
+        未建檔_cb.Checked = False : 已建檔_bt.Checked = True : 天盾流水號_tb.Text = ""
+        Timer1.Enabled = False : Label47.Visible = False : 存檔_bt.Enabled = False : 刪除_bt.Enabled = True : 修改_bt.Enabled = True
+        等於訂單數_bt.Enabled = False : 等於零_bt.Enabled = False : 匯率為1_bt.Enabled = False
+        Set_訂單清單() : Set_grid() : Set_未建檔清單() : Set_grid1() : Set_自動彙總1()
     End Sub
     Private Sub 成本組成_bt_Click(sender As Object, e As EventArgs) Handles 成本組成_bt.Click
-        Try
-            TextBox6.Visible = False : TextBox7.Visible = False : TextBox8.Visible = False : TextBox10.Visible = False
-            成本組成_bt.Enabled = False : 利潤拆分_bt.Enabled = True : 匯總分頁_bt.Enabled = True : 驗證分頁_bt.Enabled = True
-            BB(0) = False : BB(1) = True : BB(2) = False : BB(3) = False
-            Set_grid()
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        TextBox6.Visible = False : TextBox7.Visible = False : TextBox8.Visible = False : TextBox10.Visible = False
+        成本組成_bt.Enabled = False : 利潤拆分_bt.Enabled = True : 匯總分頁_bt.Enabled = True : 驗證分頁_bt.Enabled = True
+        BB(0) = False : BB(1) = True : BB(2) = False : BB(3) = False
+        Set_grid()
     End Sub
     Private Sub 利潤拆分_bt_Click(sender As Object, e As EventArgs) Handles 利潤拆分_bt.Click
-        Try
-            成本組成_bt.Enabled = True : 利潤拆分_bt.Enabled = False : 匯總分頁_bt.Enabled = True : 驗證分頁_bt.Enabled = True
-            BB(0) = True : BB(1) = False : BB(2) = False : BB(3) = False
-            Set_grid()
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        成本組成_bt.Enabled = True : 利潤拆分_bt.Enabled = False : 匯總分頁_bt.Enabled = True : 驗證分頁_bt.Enabled = True
+        BB(0) = True : BB(1) = False : BB(2) = False : BB(3) = False
+        Set_grid()
     End Sub
     Private Sub 匯總分頁_bt_Click(sender As Object, e As EventArgs) Handles 匯總分頁_bt.Click
-        Try
-            成本組成_bt.Enabled = True : 利潤拆分_bt.Enabled = True : 匯總分頁_bt.Enabled = False : 驗證分頁_bt.Enabled = True
-            BB(0) = False : BB(1) = False : BB(2) = True : BB(3) = False
-            Set_grid()
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        成本組成_bt.Enabled = True : 利潤拆分_bt.Enabled = True : 匯總分頁_bt.Enabled = False : 驗證分頁_bt.Enabled = True
+        BB(0) = False : BB(1) = False : BB(2) = True : BB(3) = False
+        Set_grid()
     End Sub
     Private Sub 驗證分頁_bt_Click(sender As Object, e As EventArgs) Handles 驗證分頁_bt.Click
-        Try
-            TextBox6.Visible = False : TextBox7.Visible = False : TextBox8.Visible = False : TextBox10.Visible = False
-            成本組成_bt.Enabled = True : 利潤拆分_bt.Enabled = True : 匯總分頁_bt.Enabled = True : 驗證分頁_bt.Enabled = False
-            BB(0) = False : BB(1) = False : BB(2) = False : BB(3) = True
-            Set_grid()
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        TextBox6.Visible = False : TextBox7.Visible = False : TextBox8.Visible = False : TextBox10.Visible = False
+        成本組成_bt.Enabled = True : 利潤拆分_bt.Enabled = True : 匯總分頁_bt.Enabled = True : 驗證分頁_bt.Enabled = False
+        BB(0) = False : BB(1) = False : BB(2) = False : BB(3) = True
+        Set_grid()
     End Sub
     Private Sub 關鍵字查詢_bt_Click(sender As Object, e As EventArgs) Handles 關鍵字查詢_bt.Click
-        Try
-            PA = InputBox("請輸入要查詢的資料") : 天盾流水號_tb.Text = ""
-            Set_訂單清單() : Set_grid() : Set_自動彙總1()
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        PA = InputBox("請輸入要查詢的資料") : 天盾流水號_tb.Text = ""
+        Set_訂單清單() : Set_grid() : Set_自動彙總1()
     End Sub
     Private Sub 未建檔_cb_CheckedChanged(sender As Object, e As EventArgs) Handles 未建檔_cb.Click
         未建檔_cb.Checked = True : 已建檔_bt.Checked = False
@@ -488,59 +388,55 @@ Public Class 訂單價格利潤明細表
         Set_未建檔清單() : Set_grid1()
     End Sub
     Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
-        Try
-            Dim NUM2 As Integer
-            If 年份_cb.Text = "" Or Currency_cb.Text = "" Then
-                MsgBox("年份或幣別沒有選擇")
-            Else
-                For i As Integer = 0 To 利潤表_dgv.Rows.Count - 1
-                    PA = 利潤表_dgv.Rows(i).Cells("資料流水號").Value : SQL_查閱利潤表流水號()
-                    If dr.Read() Then
-                        If 利潤表_dgv.Rows(i).Cells("利潤表流水號").Value.ToString = "" Then
-                            MsgBox("利潤表流水號為空值，嚴重錯誤，請停止操作通知系統管理員!!") : conn.Close() : Exit Sub
-                        End If
-                    Else
-                        conn.Close()
-                        SQL_查閱編輯次數()
-                        If dr.Read() Then : NUM2 = dr("編輯次數").ToString : End If
-                        conn.Close()
-                        NUM2 += 1
-                        ConnOpen()
-                        SQL_新增訂單控制表修改紀錄() : conn.Close()
-                        '--------------------------------------------------------------
-                        PA = 利潤表_dgv.Rows(i).Cells("資料流水號").Value.ToString : PA1 = 利潤表_dgv.Rows(i).Cells("單價").Value.ToString
-                        PA2 = 利潤表_dgv.Rows(i).Cells("總金額").Value.ToString
-                        SQL_修改訂單控制表() : conn.Close()
-                        '--------------------------------------------------------------------------------------
-                        PA1 = 利潤表_dgv.Rows(i).Cells("訂單流水號").Value.ToString
-                        PA2 = 利潤表_dgv.Rows(i).Cells("客戶訂單號").Value.ToString : PA3 = 利潤表_dgv.Rows(i).Cells("FTYPrice").Value.ToString
-                        PA4 = 利潤表_dgv.Rows(i).Cells("BasicPrice").Value.ToString : PA5 = 利潤表_dgv.Rows(i).Cells("PG/MOQ").Value.ToString
-                        PA6 = 利潤表_dgv.Rows(i).Cells("FOOTorPET").Value.ToString : PA7 = 利潤表_dgv.Rows(i).Cells("Tooling").Value.ToString
-                        PA8 = 利潤表_dgv.Rows(i).Cells("RubberBand").Value.ToString : PA9 = 利潤表_dgv.Rows(i).Cells("JHOOK").Value.ToString
-                        PA10 = 利潤表_dgv.Rows(i).Cells("WaterResistant").Value.ToString : PA11 = 利潤表_dgv.Rows(i).Cells("P16VAT").Value.ToString
-                        PA12 = 利潤表_dgv.Rows(i).Cells("EXWsaving").Value.ToString : PA13 = 利潤表_dgv.Rows(i).Cells("Exchange").Value.ToString
-                        PA14 = 利潤表_dgv.Rows(i).Cells("年份").Value.ToString : PA15 = 利潤表_dgv.Rows(i).Cells("Quantity").Value.ToString
-                        利潤表流水號 = 利潤表_dgv.Rows(i).Cells("利潤表流水號").Value.ToString : PA17 = 利潤表_dgv.Rows(i).Cells("審核").Value.ToString
-                        SQL_查詢最後一筆利潤表流水號()
-                        If dr.Read() Then : NUM2 = Strings.Right(dr("利潤表流水號").ToString, 8) : End If : conn.Close() : NUM2 += 1
-                        If NUM2 < 10 Then : 利潤表流水號 = "PR" & "0000000" & NUM2
-                        ElseIf NUM2 > 9 And NUM2 < 100 Then : 利潤表流水號 = "PR" & "000000" & NUM2
-                        ElseIf NUM2 > 99 And NUM2 < 1000 Then : 利潤表流水號 = "PR" & "00000" & NUM2
-                        ElseIf NUM2 > 999 And NUM2 < 10000 Then : 利潤表流水號 = "PR" & "0000" & NUM2
-                        ElseIf NUM2 > 9999 And NUM2 < 100000 Then : 利潤表流水號 = "PR" & "000" & NUM2
-                        ElseIf NUM2 > 99999 And NUM2 < 100000 Then : 利潤表流水號 = "PR" & "00" & NUM2
-                        ElseIf NUM2 > 999999 And NUM2 < 1000000 Then : 利潤表流水號 = "PR" & "0" & NUM2
-                        ElseIf NUM2 > 9999999 Then : 利潤表流水號 = "PR" & NUM2 : End If
-                        SQL_新增訂單控制表修改紀錄1() : conn.Close()
+        Dim NUM2 As Integer
+        If 年份_cb.Text = "" Or Currency_cb.Text = "" Then
+            MsgBox("年份或幣別沒有選擇")
+        Else
+            For i As Integer = 0 To 利潤表_dgv.Rows.Count - 1
+                PA = 利潤表_dgv.Rows(i).Cells("資料流水號").Value : SQL_查閱利潤表流水號()
+                If dr.Read() Then
+                    If 利潤表_dgv.Rows(i).Cells("利潤表流水號").Value.ToString = "" Then
+                        MsgBox("利潤表流水號為空值，嚴重錯誤，請停止操作通知系統管理員!!") : conn.Close() : Exit Sub
                     End If
-                Next i
-                MsgBox("存檔完成")
-                未建檔_cb.Checked = False : 已建檔_bt.Checked = True
-                Set_訂單清單() : Set_grid() : Set_未建檔清單() : Set_grid1() : Set_自動彙總1() : Set_格式()
-            End If
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+                Else
+                    conn.Close()
+                    SQL_查閱編輯次數()
+                    If dr.Read() Then : NUM2 = dr("編輯次數").ToString : End If
+                    conn.Close()
+                    NUM2 += 1
+                    ConnOpen()
+                    SQL_新增訂單控制表修改紀錄() : conn.Close()
+                    '--------------------------------------------------------------
+                    PA = 利潤表_dgv.Rows(i).Cells("資料流水號").Value.ToString : PA1 = 利潤表_dgv.Rows(i).Cells("單價").Value.ToString
+                    PA2 = 利潤表_dgv.Rows(i).Cells("總金額").Value.ToString
+                    SQL_修改訂單控制表() : conn.Close()
+                    '--------------------------------------------------------------------------------------
+                    PA1 = 利潤表_dgv.Rows(i).Cells("訂單流水號").Value.ToString
+                    PA2 = 利潤表_dgv.Rows(i).Cells("客戶訂單號").Value.ToString : PA3 = 利潤表_dgv.Rows(i).Cells("FTYPrice").Value.ToString
+                    PA4 = 利潤表_dgv.Rows(i).Cells("BasicPrice").Value.ToString : PA5 = 利潤表_dgv.Rows(i).Cells("PG/MOQ").Value.ToString
+                    PA6 = 利潤表_dgv.Rows(i).Cells("FOOTorPET").Value.ToString : PA7 = 利潤表_dgv.Rows(i).Cells("Tooling").Value.ToString
+                    PA8 = 利潤表_dgv.Rows(i).Cells("RubberBand").Value.ToString : PA9 = 利潤表_dgv.Rows(i).Cells("JHOOK").Value.ToString
+                    PA10 = 利潤表_dgv.Rows(i).Cells("WaterResistant").Value.ToString : PA11 = 利潤表_dgv.Rows(i).Cells("P16VAT").Value.ToString
+                    PA12 = 利潤表_dgv.Rows(i).Cells("EXWsaving").Value.ToString : PA13 = 利潤表_dgv.Rows(i).Cells("Exchange").Value.ToString
+                    PA14 = 利潤表_dgv.Rows(i).Cells("年份").Value.ToString : PA15 = 利潤表_dgv.Rows(i).Cells("Quantity").Value.ToString
+                    利潤表流水號 = 利潤表_dgv.Rows(i).Cells("利潤表流水號").Value.ToString : PA17 = 利潤表_dgv.Rows(i).Cells("審核").Value.ToString
+                    SQL_查詢最後一筆利潤表流水號()
+                    If dr.Read() Then : NUM2 = Strings.Right(dr("利潤表流水號").ToString, 8) : End If : conn.Close() : NUM2 += 1
+                    If NUM2 < 10 Then : 利潤表流水號 = "PR" & "0000000" & NUM2
+                    ElseIf NUM2 > 9 And NUM2 < 100 Then : 利潤表流水號 = "PR" & "000000" & NUM2
+                    ElseIf NUM2 > 99 And NUM2 < 1000 Then : 利潤表流水號 = "PR" & "00000" & NUM2
+                    ElseIf NUM2 > 999 And NUM2 < 10000 Then : 利潤表流水號 = "PR" & "0000" & NUM2
+                    ElseIf NUM2 > 9999 And NUM2 < 100000 Then : 利潤表流水號 = "PR" & "000" & NUM2
+                    ElseIf NUM2 > 99999 And NUM2 < 100000 Then : 利潤表流水號 = "PR" & "00" & NUM2
+                    ElseIf NUM2 > 999999 And NUM2 < 1000000 Then : 利潤表流水號 = "PR" & "0" & NUM2
+                    ElseIf NUM2 > 9999999 Then : 利潤表流水號 = "PR" & NUM2 : End If
+                    SQL_新增訂單控制表修改紀錄1() : conn.Close()
+                End If
+            Next i
+            MsgBox("存檔完成")
+            未建檔_cb.Checked = False : 已建檔_bt.Checked = True
+            Set_訂單清單() : Set_grid() : Set_未建檔清單() : Set_grid1() : Set_自動彙總1() : Set_格式()
+        End If
     End Sub
     Private Sub 進度條()
         平均數 = 10000 / 資料數
@@ -582,33 +478,25 @@ Public Class 訂單價格利潤明細表
         End If
     End Sub
     Private Sub 刪除_bt_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
-        Try
-            If 天盾流水號_tb.Text = "" Then
-                MsgBox("請選擇要刪除的資料")
-            Else
-                Dim aa As MsgBoxResult
-                aa = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
-                If aa = MsgBoxResult.Ok Then
-                    ConnOpen()
-                    SQL1 = "UPDATE " & 訂單資料表(1) & " SET  單價 = '0.00', 總金額 = '0.00' WHERE (訂單流水號 LIKE '" & 天盾流水號_tb.Text & "')"
-                    CmdSet_For_dr() : conn.Close()
-                    ConnOpen()
-                    SQL1 = "DELETE FROM " & 訂單資料表(7) & " WHERE (天盾訂單號 = '" & 天盾流水號_tb.Text & "')"
-                    CmdSet_For_dr() : conn.Close()
-                    MsgBox("刪除完成")
-                End If
+        If 天盾流水號_tb.Text = "" Then
+            MsgBox("請選擇要刪除的資料")
+        Else
+            Dim aa As MsgBoxResult
+            aa = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
+            If aa = MsgBoxResult.Ok Then
+                ConnOpen()
+                SQL1 = "UPDATE " & 訂單資料表(1) & " SET  單價 = '0.00', 總金額 = '0.00' WHERE (訂單流水號 LIKE '" & 天盾流水號_tb.Text & "')"
+                CmdSet_For_dr() : conn.Close()
+                ConnOpen()
+                SQL1 = "DELETE FROM " & 訂單資料表(7) & " WHERE (天盾訂單號 = '" & 天盾流水號_tb.Text & "')"
+                CmdSet_For_dr() : conn.Close()
+                MsgBox("刪除完成")
             End If
-            Set_訂單清單() : Set_grid() : Set_未建檔清單() : Set_grid1() : Set_自動彙總1() : Set_格式()
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        End If
+        Set_訂單清單() : Set_grid() : Set_未建檔清單() : Set_grid1() : Set_自動彙總1() : Set_格式()
     End Sub
     Private Sub 列印_bt_Click(sender As Object, e As EventArgs) Handles 列印_bt.Click
-        Try
-            If 列印用SQL = "" Then : MsgBox("請先搜尋資料後再行列印") : Else : 列印_訂單價格利潤表.Show() : End If
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        If 列印用SQL = "" Then : MsgBox("請先搜尋資料後再行列印") : Else : 列印_訂單價格利潤表.Show() : End If
     End Sub
     Private Sub ZOOM_tb_Click(sender As Object, e As EventArgs) Handles ZOOM_tb.Click
         If 空間1.Visible = True Then
@@ -619,44 +507,24 @@ Public Class 訂單價格利潤明細表
         End If
     End Sub
     Private Sub 等於零_bt_Click(sender As Object, e As EventArgs) Handles 等於零_bt.Click
-        Try
-            For i As Integer = 0 To 利潤表_dgv.Rows.Count - 1
-                利潤表_dgv.Rows(i).Cells("Quantity").Value = 0
-            Next i
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        For i As Integer = 0 To 利潤表_dgv.Rows.Count - 1
+            利潤表_dgv.Rows(i).Cells("Quantity").Value = 0
+        Next i
     End Sub
     Private Sub 等於訂單數_bt_Click(sender As Object, e As EventArgs) Handles 等於訂單數_bt.Click
-        Try
-            For i As Integer = 0 To 利潤表_dgv.Rows.Count - 1
-                利潤表_dgv.Rows(i).Cells("Quantity").Value = 利潤表_dgv.Rows(i).Cells("數量").Value
-            Next i
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        For i As Integer = 0 To 利潤表_dgv.Rows.Count - 1
+            利潤表_dgv.Rows(i).Cells("Quantity").Value = 利潤表_dgv.Rows(i).Cells("數量").Value
+        Next i
     End Sub
     Private Sub 匯率為1_bt_Click(sender As Object, e As EventArgs) Handles 匯率為1_bt.Click
-        Try
-            For i As Integer = 0 To 利潤表_dgv.Rows.Count - 1
-                利潤表_dgv.Rows(i).Cells("Exchange").Value = 1
-            Next i
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        For i As Integer = 0 To 利潤表_dgv.Rows.Count - 1
+            利潤表_dgv.Rows(i).Cells("Exchange").Value = 1
+        Next i
     End Sub
     Private Sub 資料庫選擇1_bt_Click(sender As Object, e As EventArgs) Handles 資料庫選擇1_bt.Click
-        Try
-            SQL_訂單資料表選擇_VIONIC() : Set_訂單清單() : Set_grid() : Set_未建檔清單() : Set_grid1() : Set_自動彙總1() : Set_格式()
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        SQL_訂單資料表選擇_VIONIC() : Set_訂單清單() : Set_grid() : Set_未建檔清單() : Set_grid1() : Set_自動彙總1() : Set_格式()
     End Sub
     Private Sub 資料庫選擇2_bt_Click(sender As Object, e As EventArgs) Handles 資料庫選擇2_bt.Click
-        Try
-            SQL_訂單資料表選擇_非VIONIC() : Set_訂單清單() : Set_grid() : Set_未建檔清單() : Set_grid1() : Set_自動彙總1() : Set_格式()
-        Catch ex As Exception
-            MsgBox(ex.Message)
-        End Try
+        SQL_訂單資料表選擇_非VIONIC() : Set_訂單清單() : Set_grid() : Set_未建檔清單() : Set_grid1() : Set_自動彙總1() : Set_格式()
     End Sub
 End Class

TENDEN-MES-SYS/量產訂單管理/系統列印介面/列印_周進度表.vb

@@ -95,9 +95,9 @@ Public Class 列印_周進度表
     End Sub
     Private Sub Button11_Click(sender As Object, e As EventArgs) Handles 確認列印_bt.Click
         Try
-            If 訂單資料庫選擇.品牌V_R判斷 = "V" Then
+            If 品牌V_R判斷 = "V" Then
                 PID = "VIONIC and VOLIN'L"
-            ElseIf 訂單資料庫選擇.品牌V_R判斷 = "R" Then
+            ElseIf 品牌V_R判斷 = "R" Then
                 PID = "DRS / LIF"
             End If
             If 品牌V_R判斷 = "V" Then

TENDEN-MES-SYS/量產訂單管理/系統列印介面/列印_周進度表T1_T4.vb

@@ -101,9 +101,9 @@ Public Class 列印_周進度表T1_T4
     End Sub
     Private Sub Button11_Click(sender As Object, e As EventArgs) Handles 確認列印_bt.Click
         Try
-            If 訂單資料庫選擇.品牌V_R判斷 = "V" Then
+            If 品牌V_R判斷 = "V" Then
                 PID = "VIONIC and VOLIN'L"
-            ElseIf 訂單資料庫選擇.品牌V_R判斷 = "R" Then
+            ElseIf 品牌V_R判斷 = "R" Then
                 PID = "DRS / LIF"
             End If
             If 品牌V_R判斷 = "V" Then

TENDEN-MES-SYS/量產訂單管理/系統列印介面/列印_生產進度表.vb

@@ -61,9 +61,9 @@ Public Class 列印_生產進度表
     Private Sub 列印_生產進度表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         FormBorderStyle = FormBorderStyle.SizableToolWindow : ControlBox = False
         Set_格式設定()
-        If 訂單資料庫選擇.品牌V_R判斷 = "V" Then
+        If 品牌V_R判斷 = "V" Then
             PID = "VIONIC and VOLIN'L"
-        ElseIf 訂單資料庫選擇.品牌V_R判斷 = "R" Then
+        ElseIf 品牌V_R判斷 = "R" Then
             PID = "DRS / LIF"
         End If
         If 品牌V_R判斷 = "V" Then

TENDEN-MES-SYS/量產訂單管理/訂單控制功能/訂單資料庫選擇.vb

@@ -1,5 +1,4 @@
 Public Class 訂單資料庫選擇
-    Public 品牌V_R判斷 As String = ""
     Private Sub 訂單資料庫選擇_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         FormBorderStyle = FormBorderStyle.SizableToolWindow
     End Sub

TENDEN-MES-SYS/量產訂單管理/量產訂單系統/訂單拆單模組.vb

@@ -295,7 +295,7 @@
             SQL_出貨表新增()
         Else : MsgBox("這筆資料處於異常狀態無法存檔，請截圖給系統管理員處理!!") : Exit Sub : End If
         If 成本表_dgv.Rows.Count = 0 Then : ElseIf 成本表_dgv.Rows.Count = 控制表_dgv.Rows.Count Then
-            SQL_查詢最後一筆利潤表流水號()
+            SQL_查詢利潤表流水號()
             If dr.Read() Then : NUM2 = Strings.Right(dr("利潤表流水號").ToString, 8) : End If : conn.Close() : NUM2 += 1
             If NUM2 < 10 Then : 利潤表流水號 = "PR" & "0000000" & NUM2 : ElseIf NUM2 > 9 And NUM2 < 100 Then : 利潤表流水號 = "PR" & "000000" & NUM2
             ElseIf NUM2 > 99 And NUM2 < 1000 Then : 利潤表流水號 = "PR" & "00000" & NUM2 : ElseIf NUM2 > 999 And NUM2 < 10000 Then : 利潤表流水號 = "PR" & "0000" & NUM2