20210218

修正unit cmparison因客戶交期資料錯誤造成的計算問提。
修正成本利潤表中表頭 PG/MOQ 。

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

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

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

@@ -106,7 +106,7 @@ Public Class 列印_訂單價格利潤表
         xlSheet.Cells(3, 17) = "Commission Tendenza"
         xlSheet.Cells(3, 18) = "%"
         xlSheet.Cells(3, 19) = "Basic Price(+)"
-        xlSheet.Cells(3, 20) = "Polybag (+)"
+        xlSheet.Cells(3, 20) = "PG/MOQ (+)"
         xlSheet.Cells(3, 21) = "Foot form/ PET form(+)"
         xlSheet.Cells(3, 22) = "Tooling (+)"
         xlSheet.Cells(3, 23) = "Rubber Band(+)"

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

@@ -27,7 +27,7 @@ Partial Class 訂單價格利潤明細表
         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()
-        Me.DataGridView1 = New System.Windows.Forms.DataGridView()
+        Me.利潤表_dgv = New System.Windows.Forms.DataGridView()
         Me.Button35 = New System.Windows.Forms.Button()
         Me.Button34 = New System.Windows.Forms.Button()
         Me.DataGridView2 = New System.Windows.Forms.DataGridView()
@@ -95,32 +95,32 @@ Partial Class 訂單價格利潤明細表
         Me.資料庫選擇1_bt = New System.Windows.Forms.Button()
         Me.Label20 = New System.Windows.Forms.Label()
         Me.GroupBox3 = New System.Windows.Forms.GroupBox()
-        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.利潤表_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.GroupBox1.SuspendLayout()
         Me.GroupBox2.SuspendLayout()
         Me.GroupBox3.SuspendLayout()
         Me.SuspendLayout()
         '
-        'DataGridView1
+        '利潤表_dgv
         '
-        Me.DataGridView1.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
+        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.DataGridView1.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
-        Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.DataGridView1.Location = New System.Drawing.Point(114, 164)
-        Me.DataGridView1.Name = "DataGridView1"
-        Me.DataGridView1.RowHeadersWidth = 5
+        Me.利潤表_dgv.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
+        Me.利潤表_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.利潤表_dgv.Location = New System.Drawing.Point(114, 164)
+        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.DataGridView1.RowsDefaultCellStyle = DataGridViewCellStyle2
-        Me.DataGridView1.RowTemplate.Height = 24
-        Me.DataGridView1.Size = New System.Drawing.Size(1792, 820)
-        Me.DataGridView1.TabIndex = 2
+        Me.利潤表_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
+        Me.利潤表_dgv.RowTemplate.Height = 24
+        Me.利潤表_dgv.Size = New System.Drawing.Size(1792, 820)
+        Me.利潤表_dgv.TabIndex = 2
         '
         'Button35
         '
@@ -800,7 +800,7 @@ Partial Class 訂單價格利潤明細表
         Me.Controls.Add(Me.TextBox2)
         Me.Controls.Add(Me.Label1)
         Me.Controls.Add(Me.DataGridView2)
-        Me.Controls.Add(Me.DataGridView1)
+        Me.Controls.Add(Me.利潤表_dgv)
         Me.Controls.Add(Me.Label11)
         Me.Controls.Add(Me.Label10)
         Me.Controls.Add(Me.Label9)
@@ -808,7 +808,7 @@ Partial Class 訂單價格利潤明細表
         Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.Name = "訂單價格利潤明細表"
         Me.Text = "訂單價格利潤明細表"
-        CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.利潤表_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.DataGridView2, System.ComponentModel.ISupportInitialize).EndInit()
         Me.GroupBox1.ResumeLayout(False)
         Me.GroupBox1.PerformLayout()
@@ -821,7 +821,7 @@ Partial Class 訂單價格利潤明細表
 
     End Sub
 
-    Friend WithEvents DataGridView1 As DataGridView
+    Friend WithEvents 利潤表_dgv As DataGridView
     Friend WithEvents Button35 As Button
     Friend WithEvents Button34 As Button
     Friend WithEvents DataGridView2 As DataGridView

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

@@ -3,14 +3,14 @@ Public Class 訂單價格利潤明細表
     ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet
     ReadOnly BB(3) As Boolean : Dim WW As String : Public 平均數 As Integer : Public 最終數 As Integer = 0 : Public 資料數 As Integer = 0
     Private Sub Set_DGV1載入前設定()
-        DataGridView1.DataSource = Nothing : ds.Clear()
-        DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
-        DataGridView1.ColumnHeadersHeight = 25
-        DataGridView1.AllowUserToAddRows = False
+        利潤表_dgv.DataSource = Nothing : ds.Clear()
+        利潤表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        利潤表_dgv.ColumnHeadersHeight = 25
+        利潤表_dgv.AllowUserToAddRows = False
         ConnOpen()
     End Sub
     Private Sub Set_DGV1載入後設定()
-        CmdSet_For_DGV() : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close()
+        CmdSet_For_DGV() : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds) : 利潤表_dgv.DataSource = ds.Tables(0) : conn.Close()
     End Sub
     Private Sub Set_訂單清單()
         Set_DGV1載入前設定()
@@ -24,7 +24,7 @@ Public Class 訂單價格利潤明細表
                                " & 訂單資料表(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, " & 訂單資料表(7) & ".FOOTformOrPETform AS FOOTorPET, 
+                               " & 訂單資料表(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) & ".審核, 
@@ -44,7 +44,7 @@ Public Class 訂單價格利潤明細表
                                " & 訂單資料表(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, " & 訂單資料表(7) & ".FOOTformOrPETform AS FOOTorPET, 
+                               " & 訂單資料表(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) & ".審核, 
@@ -67,7 +67,7 @@ Public Class 訂單價格利潤明細表
                                " & 訂單資料表(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, " & 訂單資料表(7) & ".FOOTformOrPETform AS FOOTorPET, 
+                               " & 訂單資料表(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) & ".審核, 
@@ -90,7 +90,7 @@ Public Class 訂單價格利潤明細表
                                " & 訂單資料表(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, " & 訂單資料表(7) & ".FOOTformOrPETform AS FOOTorPET, 
+                               " & 訂單資料表(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) & ".審核, 
@@ -101,7 +101,7 @@ Public Class 訂單價格利潤明細表
             End If
             Set_DGV1載入後設定()
         End If
-        TextBox18.Text = Format(DataGridView1.Rows.Count, "#,##0")
+        TextBox18.Text = Format(利潤表_dgv.Rows.Count, "#,##0")
     End Sub
     Private Sub Set_編輯清單()
         Set_DGV1載入前設定()
@@ -111,7 +111,7 @@ Public Class 訂單價格利潤明細表
                        " & 訂單資料表(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, " & 訂單資料表(7) & ".FOOTformOrPETform AS FOOTorPET, 
+                       " & 訂單資料表(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) & ".年份, 
                        訂單價格利潤表暫存檔.利潤表流水號, " & 訂單資料表(1) & ".訂單數量 - " & 訂單資料表(7) & ".Quantity AS 驗證, STYLELIST.ItemNumber, " & 訂單資料表(7) & ".審核, 
@@ -132,7 +132,7 @@ Public Class 訂單價格利潤明細表
         CmdSet_For_dr()
         If dr.Read() Then : NUM2 = Strings.Right(dr("利潤表流水號").ToString, 8) : End If
         conn.Close()
-        For i As Integer = 0 To DataGridView1.Rows.Count - 1
+        For i As Integer = 0 To 利潤表_dgv.Rows.Count - 1
             NUM2 += 1
             If NUM2 < 10 Then : WW = "PR" & "0000000" & NUM2
             ElseIf NUM2 > 9 And NUM2 < 100 Then : WW = "PR" & "000000" & NUM2
@@ -145,7 +145,7 @@ Public Class 訂單價格利潤明細表
             End If
             ConnOpen()
             SQL1 = "INSERT INTO 訂單價格利潤表暫存檔 (資料流水號, 利潤表流水號, 訂單流水號) " &
-                   "VALUES ('" & DataGridView1.Rows(i).Cells("資料流水號").Value & "','" & WW & "', '" & DataGridView1.Rows(i).Cells("訂單流水號").Value & "')"
+                   "VALUES ('" & 利潤表_dgv.Rows(i).Cells("資料流水號").Value & "','" & WW & "', '" & 利潤表_dgv.Rows(i).Cells("訂單流水號").Value & "')"
             CmdSet_For_dr() : conn.Close()
         Next i
     End Sub
@@ -167,162 +167,162 @@ Public Class 訂單價格利潤明細表
         CmdSet_For_DGV() : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds1) : DataGridView2.DataSource = ds1.Tables(0) : conn.Close()
     End Sub
     Private Sub Set_grid()
-        DataGridView1.Columns(0).FillWeight = 85 : DataGridView1.Columns(1).Visible = False
-        DataGridView1.Columns(2).FillWeight = 55 : DataGridView1.Columns(3).FillWeight = 110 : DataGridView1.Columns(4).FillWeight = 90
-        DataGridView1.Columns(5).FillWeight = 70 : DataGridView1.Columns(6).FillWeight = 45 : DataGridView1.Columns(7).FillWeight = 45
-        DataGridView1.Columns(7).DefaultCellStyle.Format = "#,##0"
-        DataGridView1.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView1.Columns(8).FillWeight = 75 : DataGridView1.Columns(9).FillWeight = 45 : DataGridView1.Columns(10).FillWeight = 75
+        利潤表_dgv.Columns(0).FillWeight = 85 : 利潤表_dgv.Columns(1).Visible = False
+        利潤表_dgv.Columns(2).FillWeight = 55 : 利潤表_dgv.Columns(3).FillWeight = 110 : 利潤表_dgv.Columns(4).FillWeight = 90
+        利潤表_dgv.Columns(5).FillWeight = 70 : 利潤表_dgv.Columns(6).FillWeight = 45 : 利潤表_dgv.Columns(7).FillWeight = 45
+        利潤表_dgv.Columns(7).DefaultCellStyle.Format = "#,##0"
+        利潤表_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns(8).FillWeight = 75 : 利潤表_dgv.Columns(9).FillWeight = 45 : 利潤表_dgv.Columns(10).FillWeight = 75
 
-        DataGridView1.Columns(9).DefaultCellStyle.Format = "#,##0.00"
-        DataGridView1.Columns(10).DefaultCellStyle.Format = "#,##0.00"
-        DataGridView1.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns(9).DefaultCellStyle.Format = "#,##0.00"
+        利潤表_dgv.Columns(10).DefaultCellStyle.Format = "#,##0.00"
+        利潤表_dgv.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 利潤表_dgv.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
 
-        DataGridView1.Columns(11).FillWeight = 80 : DataGridView1.Columns(12).FillWeight = 40 : DataGridView1.Columns(13).FillWeight = 65
-        DataGridView1.Columns(12).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : DataGridView1.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView1.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns(11).FillWeight = 80 : 利潤表_dgv.Columns(12).FillWeight = 40 : 利潤表_dgv.Columns(13).FillWeight = 65
+        利潤表_dgv.Columns(12).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter : 利潤表_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns(9).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 利潤表_dgv.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
 
-        DataGridView1.Columns(14).FillWeight = 65 : DataGridView1.Columns(15).FillWeight = 65 : DataGridView1.Columns(16).FillWeight = 70
-        DataGridView1.Columns(14).DefaultCellStyle.Format = "#,##0"
-        DataGridView1.Columns(16).DefaultCellStyle.Format = "#,##0.0000"
-        DataGridView1.Columns(14).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(15).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView1.Columns(16).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView1.Columns(14).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(15).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView1.Columns(16).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns(14).FillWeight = 65 : 利潤表_dgv.Columns(15).FillWeight = 65 : 利潤表_dgv.Columns(16).FillWeight = 70
+        利潤表_dgv.Columns(14).DefaultCellStyle.Format = "#,##0"
+        利潤表_dgv.Columns(16).DefaultCellStyle.Format = "#,##0.0000"
+        利潤表_dgv.Columns(14).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 利潤表_dgv.Columns(15).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns(16).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns(14).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 利潤表_dgv.Columns(15).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns(16).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
 
-        DataGridView1.Columns(17).FillWeight = 115 : DataGridView1.Columns(18).FillWeight = 150
-        DataGridView1.Columns(19).FillWeight = 179 : DataGridView1.Columns(20).FillWeight = 179
-        DataGridView1.Columns(21).FillWeight = 120
-        DataGridView1.Columns(17).DefaultCellStyle.Format = "#,##0.00" : DataGridView1.Columns(18).DefaultCellStyle.Format = "#,##0.00"
-        DataGridView1.Columns(19).DefaultCellStyle.Format = "#,##0.00" : DataGridView1.Columns(20).DefaultCellStyle.Format = "#,##0.00"
-        DataGridView1.Columns(21).DefaultCellStyle.Format = "#,##0.00%"
-        DataGridView1.Columns(17).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(18).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView1.Columns(19).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(20).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView1.Columns(21).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView1.Columns(17).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(18).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView1.Columns(19).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(20).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView1.Columns(21).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns(17).FillWeight = 115 : 利潤表_dgv.Columns(18).FillWeight = 150
+        利潤表_dgv.Columns(19).FillWeight = 179 : 利潤表_dgv.Columns(20).FillWeight = 179
+        利潤表_dgv.Columns(21).FillWeight = 120
+        利潤表_dgv.Columns(17).DefaultCellStyle.Format = "#,##0.00" : 利潤表_dgv.Columns(18).DefaultCellStyle.Format = "#,##0.00"
+        利潤表_dgv.Columns(19).DefaultCellStyle.Format = "#,##0.00" : 利潤表_dgv.Columns(20).DefaultCellStyle.Format = "#,##0.00"
+        利潤表_dgv.Columns(21).DefaultCellStyle.Format = "#,##0.00%"
+        利潤表_dgv.Columns(17).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 利潤表_dgv.Columns(18).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns(19).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 利潤表_dgv.Columns(20).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns(21).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns(17).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 利潤表_dgv.Columns(18).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns(19).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 利潤表_dgv.Columns(20).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns(21).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
 
-        DataGridView1.Columns(22).FillWeight = 70 : DataGridView1.Columns(23).FillWeight = 60 : DataGridView1.Columns(24).FillWeight = 78 : DataGridView1.Columns(25).FillWeight = 58
-        DataGridView1.Columns(26).FillWeight = 83 : DataGridView1.Columns(27).FillWeight = 58 : DataGridView1.Columns(28).FillWeight = 95 : DataGridView1.Columns(29).FillWeight = 60
-        DataGridView1.Columns(30).FillWeight = 75 : DataGridView1.Columns(31).FillWeight = 110
-        DataGridView1.Columns(22).DefaultCellStyle.Format = "#,##0.00" : DataGridView1.Columns(23).DefaultCellStyle.Format = "#,##0.00"
-        DataGridView1.Columns(24).DefaultCellStyle.Format = "#,##0.00" : DataGridView1.Columns(25).DefaultCellStyle.Format = "#,##0.00"
-        DataGridView1.Columns(26).DefaultCellStyle.Format = "#,##0.00" : DataGridView1.Columns(27).DefaultCellStyle.Format = "#,##0.00"
-        DataGridView1.Columns(28).DefaultCellStyle.Format = "#,##0.00" : DataGridView1.Columns(29).DefaultCellStyle.Format = "#,##0.00"
-        DataGridView1.Columns(30).DefaultCellStyle.Format = "#,##0.00" : DataGridView1.Columns(31).DefaultCellStyle.Format = "#,##0.00"
-        DataGridView1.Columns(22).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(23).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView1.Columns(24).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(25).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView1.Columns(26).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(27).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView1.Columns(28).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(29).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView1.Columns(30).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : DataGridView1.Columns(31).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
-        DataGridView1.Columns(32).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns(22).FillWeight = 70 : 利潤表_dgv.Columns(23).FillWeight = 60 : 利潤表_dgv.Columns(24).FillWeight = 78 : 利潤表_dgv.Columns(25).FillWeight = 58
+        利潤表_dgv.Columns(26).FillWeight = 83 : 利潤表_dgv.Columns(27).FillWeight = 58 : 利潤表_dgv.Columns(28).FillWeight = 95 : 利潤表_dgv.Columns(29).FillWeight = 60
+        利潤表_dgv.Columns(30).FillWeight = 75 : 利潤表_dgv.Columns(31).FillWeight = 110
+        利潤表_dgv.Columns(22).DefaultCellStyle.Format = "#,##0.00" : 利潤表_dgv.Columns(23).DefaultCellStyle.Format = "#,##0.00"
+        利潤表_dgv.Columns(24).DefaultCellStyle.Format = "#,##0.00" : 利潤表_dgv.Columns(25).DefaultCellStyle.Format = "#,##0.00"
+        利潤表_dgv.Columns(26).DefaultCellStyle.Format = "#,##0.00" : 利潤表_dgv.Columns(27).DefaultCellStyle.Format = "#,##0.00"
+        利潤表_dgv.Columns(28).DefaultCellStyle.Format = "#,##0.00" : 利潤表_dgv.Columns(29).DefaultCellStyle.Format = "#,##0.00"
+        利潤表_dgv.Columns(30).DefaultCellStyle.Format = "#,##0.00" : 利潤表_dgv.Columns(31).DefaultCellStyle.Format = "#,##0.00"
+        利潤表_dgv.Columns(22).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 利潤表_dgv.Columns(23).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns(24).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 利潤表_dgv.Columns(25).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns(26).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 利潤表_dgv.Columns(27).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns(28).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 利潤表_dgv.Columns(29).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns(30).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 利潤表_dgv.Columns(31).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+        利潤表_dgv.Columns(32).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
 
-        DataGridView1.Columns(33).Visible = False
+        利潤表_dgv.Columns(33).Visible = False
         If BB(0) = True And BB(1) = False And BB(2) = False And BB(3) = False Then
-            DataGridView1.Columns(17).Visible = True : DataGridView1.Columns(18).Visible = True : DataGridView1.Columns(19).Visible = True : DataGridView1.Columns(20).Visible = True
-            DataGridView1.Columns(21).Visible = True
+            利潤表_dgv.Columns(17).Visible = True : 利潤表_dgv.Columns(18).Visible = True : 利潤表_dgv.Columns(19).Visible = True : 利潤表_dgv.Columns(20).Visible = True
+            利潤表_dgv.Columns(21).Visible = True
 
-            DataGridView1.Columns(22).Visible = False : DataGridView1.Columns(23).Visible = False : DataGridView1.Columns(24).Visible = False
-            DataGridView1.Columns(25).Visible = False : DataGridView1.Columns(26).Visible = False : DataGridView1.Columns(27).Visible = False : DataGridView1.Columns(28).Visible = False
-            DataGridView1.Columns(29).Visible = False : DataGridView1.Columns(30).Visible = False : DataGridView1.Columns(31).Visible = False : DataGridView1.Columns(34).Visible = False
-            DataGridView1.Columns(35).Visible = False : DataGridView1.Columns(36).Visible = False : DataGridView1.Columns(37).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(34).Visible = False
+            利潤表_dgv.Columns(35).Visible = False : 利潤表_dgv.Columns(36).Visible = False : 利潤表_dgv.Columns(37).Visible = False
         ElseIf BB(0) = False And BB(1) = True And BB(2) = False And BB(3) = False Then
-            DataGridView1.Columns(17).Visible = False : DataGridView1.Columns(18).Visible = False : DataGridView1.Columns(19).Visible = False : DataGridView1.Columns(20).Visible = False
-            DataGridView1.Columns(21).Visible = False
+            利潤表_dgv.Columns(17).Visible = False : 利潤表_dgv.Columns(18).Visible = False : 利潤表_dgv.Columns(19).Visible = False : 利潤表_dgv.Columns(20).Visible = False
+            利潤表_dgv.Columns(21).Visible = False
 
-            DataGridView1.Columns(22).Visible = True : DataGridView1.Columns(23).Visible = True : DataGridView1.Columns(24).Visible = True
-            DataGridView1.Columns(25).Visible = True : DataGridView1.Columns(26).Visible = True : DataGridView1.Columns(27).Visible = True : DataGridView1.Columns(28).Visible = True
-            DataGridView1.Columns(29).Visible = True : DataGridView1.Columns(30).Visible = True : DataGridView1.Columns(31).Visible = True : DataGridView1.Columns(34).Visible = False
-            DataGridView1.Columns(35).Visible = False : DataGridView1.Columns(36).Visible = False : DataGridView1.Columns(37).Visible = False
+            利潤表_dgv.Columns(22).Visible = True : 利潤表_dgv.Columns(23).Visible = True : 利潤表_dgv.Columns(24).Visible = True
+            利潤表_dgv.Columns(25).Visible = True : 利潤表_dgv.Columns(26).Visible = True : 利潤表_dgv.Columns(27).Visible = True : 利潤表_dgv.Columns(28).Visible = True
+            利潤表_dgv.Columns(29).Visible = True : 利潤表_dgv.Columns(30).Visible = True : 利潤表_dgv.Columns(31).Visible = True : 利潤表_dgv.Columns(34).Visible = False
+            利潤表_dgv.Columns(35).Visible = False : 利潤表_dgv.Columns(36).Visible = False : 利潤表_dgv.Columns(37).Visible = False
         ElseIf BB(0) = False And BB(1) = False And BB(2) = True And BB(3) = False Then
-            DataGridView1.Columns(31).Visible = True : DataGridView1.Columns(18).Visible = True : DataGridView1.Columns(19).Visible = True : DataGridView1.Columns(20).Visible = True
-            DataGridView1.Columns(21).Visible = True
+            利潤表_dgv.Columns(31).Visible = True : 利潤表_dgv.Columns(18).Visible = True : 利潤表_dgv.Columns(19).Visible = True : 利潤表_dgv.Columns(20).Visible = True
+            利潤表_dgv.Columns(21).Visible = True
 
-            DataGridView1.Columns(22).Visible = False : DataGridView1.Columns(23).Visible = False : DataGridView1.Columns(24).Visible = False
-            DataGridView1.Columns(25).Visible = False : DataGridView1.Columns(26).Visible = False : DataGridView1.Columns(27).Visible = False : DataGridView1.Columns(28).Visible = False
-            DataGridView1.Columns(29).Visible = False : DataGridView1.Columns(30).Visible = False : DataGridView1.Columns(17).Visible = False : DataGridView1.Columns(34).Visible = False
-            DataGridView1.Columns(35).Visible = False : DataGridView1.Columns(36).Visible = False : DataGridView1.Columns(37).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(17).Visible = False : 利潤表_dgv.Columns(34).Visible = False
+            利潤表_dgv.Columns(35).Visible = False : 利潤表_dgv.Columns(36).Visible = False : 利潤表_dgv.Columns(37).Visible = False
         ElseIf BB(0) = False And BB(1) = False And BB(2) = False And BB(3) = True Then
-            DataGridView1.Columns(31).Visible = False : DataGridView1.Columns(18).Visible = False : DataGridView1.Columns(19).Visible = False : DataGridView1.Columns(20).Visible = False
-            DataGridView1.Columns(21).Visible = False
+            利潤表_dgv.Columns(31).Visible = False : 利潤表_dgv.Columns(18).Visible = False : 利潤表_dgv.Columns(19).Visible = False : 利潤表_dgv.Columns(20).Visible = False
+            利潤表_dgv.Columns(21).Visible = False
 
-            DataGridView1.Columns(22).Visible = False : DataGridView1.Columns(23).Visible = False : DataGridView1.Columns(24).Visible = False
-            DataGridView1.Columns(25).Visible = False : DataGridView1.Columns(26).Visible = False : DataGridView1.Columns(27).Visible = False : DataGridView1.Columns(28).Visible = False
-            DataGridView1.Columns(29).Visible = False : DataGridView1.Columns(30).Visible = False : DataGridView1.Columns(17).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(17).Visible = False
 
-            DataGridView1.Columns(34).Visible = True : DataGridView1.Columns(35).Visible = True : DataGridView1.Columns(36).Visible = True : DataGridView1.Columns(37).Visible = True
+            利潤表_dgv.Columns(34).Visible = True : 利潤表_dgv.Columns(35).Visible = True : 利潤表_dgv.Columns(36).Visible = True : 利潤表_dgv.Columns(37).Visible = True
         End If
-        DataGridView1.Columns(32).FillWeight = 50 : DataGridView1.Columns(34).FillWeight = 50 : DataGridView1.Columns(36).FillWeight = 50
-        DataGridView1.Columns(14).DefaultCellStyle.BackColor = Color.MistyRose : DataGridView1.Columns(17).DefaultCellStyle.BackColor = Color.MistyRose
-        DataGridView1.Columns(22).DefaultCellStyle.BackColor = Color.MistyRose : DataGridView1.Columns(23).DefaultCellStyle.BackColor = Color.MistyRose
-        DataGridView1.Columns(24).DefaultCellStyle.BackColor = Color.MistyRose : DataGridView1.Columns(25).DefaultCellStyle.BackColor = Color.MistyRose
-        DataGridView1.Columns(26).DefaultCellStyle.BackColor = Color.MistyRose : DataGridView1.Columns(27).DefaultCellStyle.BackColor = Color.MistyRose
-        DataGridView1.Columns(28).DefaultCellStyle.BackColor = Color.MistyRose : DataGridView1.Columns(29).DefaultCellStyle.BackColor = Color.MistyRose
-        DataGridView1.Columns(30).DefaultCellStyle.BackColor = Color.MistyRose : DataGridView1.Columns(16).DefaultCellStyle.BackColor = Color.MistyRose
-        DataGridView1.EditMode = DataGridViewEditMode.EditOnEnter
+        利潤表_dgv.Columns(32).FillWeight = 50 : 利潤表_dgv.Columns(34).FillWeight = 50 : 利潤表_dgv.Columns(36).FillWeight = 50
+        利潤表_dgv.Columns(14).DefaultCellStyle.BackColor = Color.MistyRose : 利潤表_dgv.Columns(17).DefaultCellStyle.BackColor = Color.MistyRose
+        利潤表_dgv.Columns(22).DefaultCellStyle.BackColor = Color.MistyRose : 利潤表_dgv.Columns(23).DefaultCellStyle.BackColor = Color.MistyRose
+        利潤表_dgv.Columns(24).DefaultCellStyle.BackColor = Color.MistyRose : 利潤表_dgv.Columns(25).DefaultCellStyle.BackColor = Color.MistyRose
+        利潤表_dgv.Columns(26).DefaultCellStyle.BackColor = Color.MistyRose : 利潤表_dgv.Columns(27).DefaultCellStyle.BackColor = Color.MistyRose
+        利潤表_dgv.Columns(28).DefaultCellStyle.BackColor = Color.MistyRose : 利潤表_dgv.Columns(29).DefaultCellStyle.BackColor = Color.MistyRose
+        利潤表_dgv.Columns(30).DefaultCellStyle.BackColor = Color.MistyRose : 利潤表_dgv.Columns(16).DefaultCellStyle.BackColor = Color.MistyRose
+        利潤表_dgv.EditMode = DataGridViewEditMode.EditOnEnter
 
-        DataGridView1.Columns(9).DefaultCellStyle.ForeColor = Color.Red : DataGridView1.Columns(10).DefaultCellStyle.ForeColor = Color.Red
-        DataGridView1.Columns(18).DefaultCellStyle.ForeColor = Color.Red : DataGridView1.Columns(19).DefaultCellStyle.ForeColor = Color.Red
-        DataGridView1.Columns(20).DefaultCellStyle.ForeColor = Color.Red : DataGridView1.Columns(21).DefaultCellStyle.ForeColor = Color.Red
-        DataGridView1.Columns(31).DefaultCellStyle.ForeColor = Color.Red : DataGridView1.Columns(32).DefaultCellStyle.ForeColor = Color.Red
+        利潤表_dgv.Columns(9).DefaultCellStyle.ForeColor = Color.Red : 利潤表_dgv.Columns(10).DefaultCellStyle.ForeColor = Color.Red
+        利潤表_dgv.Columns(18).DefaultCellStyle.ForeColor = Color.Red : 利潤表_dgv.Columns(19).DefaultCellStyle.ForeColor = Color.Red
+        利潤表_dgv.Columns(20).DefaultCellStyle.ForeColor = Color.Red : 利潤表_dgv.Columns(21).DefaultCellStyle.ForeColor = Color.Red
+        利潤表_dgv.Columns(31).DefaultCellStyle.ForeColor = Color.Red : 利潤表_dgv.Columns(32).DefaultCellStyle.ForeColor = Color.Red
     End Sub
     Private Sub Set_grid1()
         DataGridView2.Columns(0).FillWeight = 90
     End Sub
     Private Sub Set_自動彙總1()
         Dim 金額加總(9) As Double : Dim EU(11) As Double
-        For i As Integer = 0 To DataGridView1.Rows.Count - 1
-            If DataGridView1(22, i).Value.ToString = "" Then : EU(0) = 0 : Else : EU(0) = Double.Parse(DataGridView1(22, i).Value.ToString) : End If
-            If DataGridView1(23, i).Value.ToString = "" Then : EU(1) = 0 : Else : EU(1) = Double.Parse(DataGridView1(23, i).Value.ToString) : End If
-            If DataGridView1(24, i).Value.ToString = "" Then : EU(2) = 0 : Else : EU(2) = Double.Parse(DataGridView1(24, i).Value.ToString) : End If
-            If DataGridView1(25, i).Value.ToString = "" Then : EU(3) = 0 : Else : EU(3) = Double.Parse(DataGridView1(25, i).Value.ToString) : End If
-            If DataGridView1(26, i).Value.ToString = "" Then : EU(4) = 0 : Else : EU(4) = Double.Parse(DataGridView1(26, i).Value.ToString) : End If
-            If DataGridView1(27, i).Value.ToString = "" Then : EU(5) = 0 : Else : EU(5) = Double.Parse(DataGridView1(27, i).Value.ToString) : End If
-            If DataGridView1(28, i).Value.ToString = "" Then : EU(6) = 0 : Else : EU(6) = Double.Parse(DataGridView1(28, i).Value.ToString) : End If
-            If DataGridView1(29, i).Value.ToString = "" Then : EU(7) = 0 : Else : EU(7) = Double.Parse(DataGridView1(29, i).Value.ToString) : End If
-            If DataGridView1(30, i).Value.ToString = "" Then : EU(8) = 0 : Else : EU(8) = Double.Parse(DataGridView1(30, i).Value.ToString) : End If
-            If DataGridView1(14, i).Value.ToString = "" Then : EU(9) = 0 : Else : EU(9) = Double.Parse(DataGridView1(14, i).Value.ToString) : End If
-            If DataGridView1(17, i).Value.ToString = "" Then : EU(10) = 0 : Else : EU(10) = Double.Parse(DataGridView1(17, i).Value.ToString) : End If
-            If DataGridView1(16, i).Value.ToString = "" Then : EU(11) = 1 : Else : EU(11) = Double.Parse(DataGridView1(16, i).Value.ToString) : End If
-            DataGridView1.Rows(i).Cells(9).Value = EU(0) + EU(1) + EU(2) + EU(3) + EU(4) + EU(5) + EU(6) + EU(7) / EU(11) - EU(8)
-            DataGridView1.Rows(i).Cells(31).Value = EU(9) * EU(3)
-            DataGridView1.Rows(i).Cells(18).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)
-            DataGridView1.Rows(i).Cells(19).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
-            DataGridView1.Rows(i).Cells(20).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
+        For i As Integer = 0 To 利潤表_dgv.Rows.Count - 1
+            If 利潤表_dgv(22, i).Value.ToString = "" Then : EU(0) = 0 : Else : EU(0) = Double.Parse(利潤表_dgv(22, i).Value.ToString) : End If
+            If 利潤表_dgv(23, i).Value.ToString = "" Then : EU(1) = 0 : Else : EU(1) = Double.Parse(利潤表_dgv(23, i).Value.ToString) : End If
+            If 利潤表_dgv(24, i).Value.ToString = "" Then : EU(2) = 0 : Else : EU(2) = Double.Parse(利潤表_dgv(24, i).Value.ToString) : End If
+            If 利潤表_dgv(25, i).Value.ToString = "" Then : EU(3) = 0 : Else : EU(3) = Double.Parse(利潤表_dgv(25, i).Value.ToString) : End If
+            If 利潤表_dgv(26, i).Value.ToString = "" Then : EU(4) = 0 : Else : EU(4) = Double.Parse(利潤表_dgv(26, i).Value.ToString) : End If
+            If 利潤表_dgv(27, i).Value.ToString = "" Then : EU(5) = 0 : Else : EU(5) = Double.Parse(利潤表_dgv(27, i).Value.ToString) : End If
+            If 利潤表_dgv(28, i).Value.ToString = "" Then : EU(6) = 0 : Else : EU(6) = Double.Parse(利潤表_dgv(28, i).Value.ToString) : End If
+            If 利潤表_dgv(29, i).Value.ToString = "" Then : EU(7) = 0 : Else : EU(7) = Double.Parse(利潤表_dgv(29, i).Value.ToString) : End If
+            If 利潤表_dgv(30, i).Value.ToString = "" Then : EU(8) = 0 : Else : EU(8) = Double.Parse(利潤表_dgv(30, i).Value.ToString) : End If
+            If 利潤表_dgv(14, i).Value.ToString = "" Then : EU(9) = 0 : Else : EU(9) = Double.Parse(利潤表_dgv(14, i).Value.ToString) : End If
+            If 利潤表_dgv(17, i).Value.ToString = "" Then : EU(10) = 0 : Else : EU(10) = Double.Parse(利潤表_dgv(17, i).Value.ToString) : End If
+            If 利潤表_dgv(16, i).Value.ToString = "" Then : EU(11) = 1 : Else : EU(11) = Double.Parse(利潤表_dgv(16, i).Value.ToString) : End If
+            利潤表_dgv.Rows(i).Cells(9).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(31).Value = EU(9) * EU(3)
+            利潤表_dgv.Rows(i).Cells(18).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(19).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(20).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
-                DataGridView1.Rows(i).Cells(21).Value = 0
+                利潤表_dgv.Rows(i).Cells(21).Value = 0
             Else
-                DataGridView1.Rows(i).Cells(21).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)) /
+                利潤表_dgv.Rows(i).Cells(21).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
-            DataGridView1.Rows(i).Cells(10).Value = (EU(0) + EU(1) + EU(2) + EU(3) + EU(4) + EU(5) + EU(6) + EU(7) / EU(11) - EU(8)) * EU(9)
-            If DataGridView1.RowCount = 0 Then : 金額加總(0) = "0.00" : Else : 金額加總(0) += DataGridView1.Rows(i).Cells("總金額").Value : End If
-            If DataGridView1.RowCount = 0 Then
+            利潤表_dgv.Rows(i).Cells(10).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 = DataGridView1(18, i).Value.ToString
-                If TextBox6.Text = "" Then : 金額加總(1) += 0 : Else : 金額加總(1) += DataGridView1.Rows(i).Cells("CommissionTTL").Value : End If
+                TextBox6.Text = 利潤表_dgv(18, i).Value.ToString
+                If TextBox6.Text = "" Then : 金額加總(1) += 0 : Else : 金額加總(1) += 利潤表_dgv.Rows(i).Cells("CommissionTTL").Value : End If
             End If
-            If DataGridView1.RowCount = 0 Then
+            If 利潤表_dgv.RowCount = 0 Then
                 金額加總(2) = "0.00"
             Else
-                TextBox7.Text = DataGridView1(19, i).Value.ToString
-                If TextBox7.Text = "" Then : 金額加總(2) += 0 : Else : 金額加總(2) += DataGridView1.Rows(i).Cells("CommissionDarren").Value : End If
+                TextBox7.Text = 利潤表_dgv(19, i).Value.ToString
+                If TextBox7.Text = "" Then : 金額加總(2) += 0 : Else : 金額加總(2) += 利潤表_dgv.Rows(i).Cells("CommissionDarren").Value : End If
             End If
-            If DataGridView1.RowCount = 0 Then
+            If 利潤表_dgv.RowCount = 0 Then
                 金額加總(3) = "0.00"
             Else
-                TextBox8.Text = DataGridView1(20, i).Value.ToString
-                If TextBox8.Text = "" Then : 金額加總(3) += 0 : Else : 金額加總(3) += DataGridView1.Rows(i).Cells("CommissionTendenza").Value : End If
+                TextBox8.Text = 利潤表_dgv(20, i).Value.ToString
+                If TextBox8.Text = "" Then : 金額加總(3) += 0 : Else : 金額加總(3) += 利潤表_dgv.Rows(i).Cells("CommissionTendenza").Value : End If
             End If
-            If DataGridView1.RowCount = 0 Then
+            If 利潤表_dgv.RowCount = 0 Then
                 金額加總(4) = "0.00"
             Else
-                TextBox10.Text = DataGridView1(20, i).Value.ToString
-                If TextBox10.Text = "" Then : 金額加總(4) += 0 : Else : 金額加總(4) += DataGridView1.Rows(i).Cells("CollectedToolng").Value : End If
+                TextBox10.Text = 利潤表_dgv(20, i).Value.ToString
+                If TextBox10.Text = "" Then : 金額加總(4) += 0 : Else : 金額加總(4) += 利潤表_dgv.Rows(i).Cells("CollectedToolng").Value : End If
             End If
-            DataGridView1.Rows(i).Cells(32).Value = Strings.Left(DataGridView1(8, i).Value.ToString, 4)
+            利潤表_dgv.Rows(i).Cells(32).Value = Strings.Left(利潤表_dgv(8, i).Value.ToString, 4)
         Next i
         TextBox2.Text = Format(Val(金額加總(0)), "#,##0.00") : TextBox3.Text = Format(Val(金額加總(1)), "#,##0.00")
         TextBox4.Text = Format(Val(金額加總(2)), "#,##0.00") : TextBox5.Text = Format(Val(金額加總(3)), "#,##0.00")
@@ -349,16 +349,16 @@ Public Class 訂單價格利潤明細表
     Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
         If Label47.Visible = True Then : Label47.Visible = False : Else : Label47.Visible = True : End If
     End Sub
-    Private Sub DataGridView1_CellEndEdit(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit
+    Private Sub DataGridView1_CellEndEdit(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles 利潤表_dgv.CellEndEdit
         Set_自動彙總1()
     End Sub
-    Private Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
+    Private Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles 利潤表_dgv.CellClick
         If e.RowIndex = -1 Then : Else
-            TextBox1.Text = DataGridView1(0, e.RowIndex).Value.ToString : TextBox12.Text = DataGridView1(3, e.RowIndex).Value.ToString
-            TextBox13.Text = DataGridView1(4, e.RowIndex).Value.ToString : TextBox14.Text = DataGridView1(5, e.RowIndex).Value.ToString
-            TextBox15.Text = DataGridView1(6, e.RowIndex).Value.ToString : TextBox16.Text = DataGridView1(1, e.RowIndex).Value.ToString
-            ComboBox1.Text = DataGridView1(32, e.RowIndex).Value.ToString : ComboBox2.Text = DataGridView1(15, e.RowIndex).Value.ToString
-            TextBox17.Text = DataGridView1(33, e.RowIndex).Value.ToString
+            TextBox1.Text = 利潤表_dgv(0, e.RowIndex).Value.ToString : TextBox12.Text = 利潤表_dgv(3, e.RowIndex).Value.ToString
+            TextBox13.Text = 利潤表_dgv(4, e.RowIndex).Value.ToString : TextBox14.Text = 利潤表_dgv(5, e.RowIndex).Value.ToString
+            TextBox15.Text = 利潤表_dgv(6, e.RowIndex).Value.ToString : TextBox16.Text = 利潤表_dgv(1, e.RowIndex).Value.ToString
+            ComboBox1.Text = 利潤表_dgv(32, e.RowIndex).Value.ToString : ComboBox2.Text = 利潤表_dgv(15, e.RowIndex).Value.ToString
+            TextBox17.Text = 利潤表_dgv(33, e.RowIndex).Value.ToString
         End If
     End Sub
     Private Sub DataGridView2_CellClick(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles DataGridView2.CellClick
@@ -435,15 +435,15 @@ Public Class 訂單價格利潤明細表
             Set_訂單清單() : Set_grid() : Set_自動彙總1()
         End If
     End Sub
-    Private Sub DataGridView1_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles DataGridView1.RowPostPaint
+    Private Sub DataGridView1_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 利潤表_dgv.RowPostPaint
         Dim linePen As New Pen(Color.Blue, 2)
-        If e.RowIndex = DataGridView1.Rows.Count - 1 Then
+        If e.RowIndex = 利潤表_dgv.Rows.Count - 1 Then
             Exit Sub
         Else
-            If DataGridView1(0, e.RowIndex).Value.ToString <> DataGridView1(0, e.RowIndex + 1).Value.ToString Then
-                Dim startX As Integer = IIf(DataGridView1.RowHeadersVisible, DataGridView1.RowHeadersWidth, 0)
+            If 利潤表_dgv(0, e.RowIndex).Value.ToString <> 利潤表_dgv(0, 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 + DataGridView1.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - DataGridView1.HorizontalScrollingOffset
+                Dim endX As Integer = startX + 利潤表_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 利潤表_dgv.HorizontalScrollingOffset
                 e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
                 Exit Sub
             End If
@@ -510,41 +510,41 @@ Public Class 訂單價格利潤明細表
         If ComboBox1.Text = "" Or ComboBox2.Text = "" Then
             MsgBox("年份或幣別沒有選擇")
         Else
-            For i As Integer = 0 To DataGridView1.Rows.Count - 1
+            For i As Integer = 0 To 利潤表_dgv.Rows.Count - 1
                 ConnOpen()
-                SQL1 = "SELECT 利潤表流水號 FROM " & 訂單資料表(7) & " WHERE (資料流水號 LIKE '" & DataGridView1.Rows(i).Cells("資料流水號").Value & "')"
+                SQL1 = "SELECT 利潤表流水號 FROM " & 訂單資料表(7) & " WHERE (資料流水號 LIKE '" & 利潤表_dgv.Rows(i).Cells("資料流水號").Value & "')"
                 CmdSet_For_dr()
                 If dr.Read() Then
                     conn.Close()
                 Else
                     conn.Close()
                     ConnOpen()
-                    SQL1 = "SELECT TOP (1) 編輯次數 FROM 訂單控制表修改紀錄 WHERE (流水號 LIKE '" & DataGridView1.Rows(i).Cells("資料流水號").Value & "') ORDER BY 編輯次數 DESC"
+                    SQL1 = "SELECT TOP (1) 編輯次數 FROM 訂單控制表修改紀錄 WHERE (流水號 LIKE '" & 利潤表_dgv.Rows(i).Cells("資料流水號").Value & "') ORDER BY 編輯次數 DESC"
                     CmdSet_For_dr()
                     If dr.Read() Then : NUM2 = dr("編輯次數").ToString : End If
                     conn.Close()
                     NUM2 += 1
                     ConnOpen()
                     SQL1 = "INSERT INTO 訂單控制表修改紀錄 (流水號, 編輯者, 編輯時間, 編輯次數) " &
-                       "VALUES ('" & DataGridView1.Rows(i).Cells("資料流水號").Value & "','" & gUserName & "','" & Format(Today, "yyyy/MM/dd") & "','" & NUM2 & "')"
+                       "VALUES ('" & 利潤表_dgv.Rows(i).Cells("資料流水號").Value & "','" & gUserName & "','" & Format(Today, "yyyy/MM/dd") & "','" & NUM2 & "')"
                     CmdSet_For_dr() : conn.Close()
 
                     ConnOpen()
-                    SQL1 = "UPDATE " & 訂單資料表(1) & " SET  單價 = '" & DataGridView1.Rows(i).Cells("單價").Value & "', 總金額 = '" & DataGridView1.Rows(i).Cells("總金額").Value & "' " &
-                       "WHERE (資料流水號 LIKE '" & DataGridView1.Rows(i).Cells("資料流水號").Value & "')"
+                    SQL1 = "UPDATE " & 訂單資料表(1) & " SET  單價 = '" & 利潤表_dgv.Rows(i).Cells("單價").Value & "', 總金額 = '" & 利潤表_dgv.Rows(i).Cells("總金額").Value & "' " &
+                       "WHERE (資料流水號 LIKE '" & 利潤表_dgv.Rows(i).Cells("資料流水號").Value & "')"
                     CmdSet_For_dr() : conn.Close()
                     ConnOpen()
                     SQL1 = "INSERT INTO " & 訂單資料表(7) & " (資料流水號, 天盾訂單號, 客戶流水號, FTYPrice, BasicPrice, Polybag, FOOTformOrPETform, Tooling, RubberBand, JHOOK, WaterResistant, 
                                                                P16VAT, EXWsaving, Currency, Exchange, 年份, Quantity, 利潤表流水號, 審核) 
-                            VALUES ('" & DataGridView1.Rows(i).Cells("資料流水號").Value & "', '" & DataGridView1.Rows(i).Cells("訂單流水號").Value & "', 
-                                    '" & DataGridView1.Rows(i).Cells("客戶訂單號").Value & "', '" & DataGridView1.Rows(i).Cells("FTYPrice").Value & "', 
-                                    '" & DataGridView1.Rows(i).Cells("BasicPrice").Value & "', '" & DataGridView1.Rows(i).Cells("Polybag").Value & "', 
-                                    '" & DataGridView1.Rows(i).Cells("FOOTorPET").Value & "', '" & DataGridView1.Rows(i).Cells("Tooling").Value & "', 
-                                    '" & DataGridView1.Rows(i).Cells("RubberBand").Value & "', '" & DataGridView1.Rows(i).Cells("JHOOK").Value & "', 
-                                    '" & DataGridView1.Rows(i).Cells("WaterResistant").Value & "', '" & DataGridView1.Rows(i).Cells("P16VAT").Value & "', 
-                                    '" & DataGridView1.Rows(i).Cells("EXWsaving").Value & "', '" & ComboBox2.Text & "', '" & DataGridView1.Rows(i).Cells("Exchange").Value & "', 
-                                    '" & DataGridView1.Rows(i).Cells("年份").Value & "', '" & DataGridView1.Rows(i).Cells("Quantity").Value & "', 
-                                    '" & DataGridView1.Rows(i).Cells("利潤表流水號").Value & "', '" & DataGridView1.Rows(i).Cells("審核").Value & "')"
+                            VALUES ('" & 利潤表_dgv.Rows(i).Cells("資料流水號").Value & "', '" & 利潤表_dgv.Rows(i).Cells("訂單流水號").Value & "', 
+                                    '" & 利潤表_dgv.Rows(i).Cells("客戶訂單號").Value & "', '" & 利潤表_dgv.Rows(i).Cells("FTYPrice").Value & "', 
+                                    '" & 利潤表_dgv.Rows(i).Cells("BasicPrice").Value & "', '" & 利潤表_dgv.Rows(i).Cells("PG/MOQ").Value & "', 
+                                    '" & 利潤表_dgv.Rows(i).Cells("FOOTorPET").Value & "', '" & 利潤表_dgv.Rows(i).Cells("Tooling").Value & "', 
+                                    '" & 利潤表_dgv.Rows(i).Cells("RubberBand").Value & "', '" & 利潤表_dgv.Rows(i).Cells("JHOOK").Value & "', 
+                                    '" & 利潤表_dgv.Rows(i).Cells("WaterResistant").Value & "', '" & 利潤表_dgv.Rows(i).Cells("P16VAT").Value & "', 
+                                    '" & 利潤表_dgv.Rows(i).Cells("EXWsaving").Value & "', '" & ComboBox2.Text & "', '" & 利潤表_dgv.Rows(i).Cells("Exchange").Value & "', 
+                                    '" & 利潤表_dgv.Rows(i).Cells("年份").Value & "', '" & 利潤表_dgv.Rows(i).Cells("Quantity").Value & "', 
+                                    '" & 利潤表_dgv.Rows(i).Cells("利潤表流水號").Value & "', '" & 利潤表_dgv.Rows(i).Cells("審核").Value & "')"
                     CmdSet_For_dr() : conn.Close()
                 End If
             Next i
@@ -564,33 +564,33 @@ Public Class 訂單價格利潤明細表
         If ComboBox1.Text = "" Or ComboBox2.Text = "" Then
             MsgBox("年份或幣別沒有選擇")
         Else
-            For i As Integer = 0 To DataGridView1.Rows.Count - 1
-                資料數 = DataGridView1.Rows.Count : 進度條()
+            For i As Integer = 0 To 利潤表_dgv.Rows.Count - 1
+                資料數 = 利潤表_dgv.Rows.Count : 進度條()
                 ConnOpen()
-                SQL1 = "SELECT TOP (1) 編輯次數 FROM 訂單控制表修改紀錄 WHERE (流水號 LIKE '" & DataGridView1.Rows(i).Cells("資料流水號").Value & "') ORDER BY 編輯次數 DESC"
+                SQL1 = "SELECT TOP (1) 編輯次數 FROM 訂單控制表修改紀錄 WHERE (流水號 LIKE '" & 利潤表_dgv.Rows(i).Cells("資料流水號").Value & "') ORDER BY 編輯次數 DESC"
                 CmdSet_For_dr()
                 If dr.Read() Then : NUM2 = dr("編輯次數").ToString : End If
                 conn.Close()
                 NUM2 += 1
                 ConnOpen()
                 SQL1 = "INSERT INTO 訂單控制表修改紀錄 (流水號, 編輯者, 編輯時間, 編輯次數) " &
-                       "VALUES ('" & DataGridView1.Rows(i).Cells("資料流水號").Value & "','" & gUserName & "','" & Format(Today, "yyyy/MM/dd") & "','" & NUM2 & "')"
+                       "VALUES ('" & 利潤表_dgv.Rows(i).Cells("資料流水號").Value & "','" & gUserName & "','" & Format(Today, "yyyy/MM/dd") & "','" & NUM2 & "')"
                 CmdSet_For_dr() : conn.Close()
 
                 ConnOpen()
-                SQL1 = "UPDATE " & 訂單資料表(1) & " SET  單價 = '" & DataGridView1.Rows(i).Cells("單價").Value & "', 總金額 = '" & DataGridView1.Rows(i).Cells("總金額").Value & "' " &
-                       "WHERE (資料流水號 LIKE '" & DataGridView1.Rows(i).Cells("資料流水號").Value & "')"
+                SQL1 = "UPDATE " & 訂單資料表(1) & " SET  單價 = '" & 利潤表_dgv.Rows(i).Cells("單價").Value & "', 總金額 = '" & 利潤表_dgv.Rows(i).Cells("總金額").Value & "' " &
+                       "WHERE (資料流水號 LIKE '" & 利潤表_dgv.Rows(i).Cells("資料流水號").Value & "')"
                 CmdSet_For_dr() : conn.Close()
                 ConnOpen()
-                SQL1 = "UPDATE " & 訂單資料表(7) & " SET  FTYPrice = '" & DataGridView1.Rows(i).Cells("FTYPrice").Value & "', BasicPrice = '" & DataGridView1.Rows(i).Cells("BasicPrice").Value & "', " &
-                                                      "Polybag = '" & DataGridView1.Rows(i).Cells("Polybag").Value & "', FOOTformOrPETform = '" & DataGridView1.Rows(i).Cells("FOOTorPET").Value & "', " &
-                                                      "Tooling = '" & DataGridView1.Rows(i).Cells("Tooling").Value & "', RubberBand = '" & DataGridView1.Rows(i).Cells("RubberBand").Value & "', " &
-                                                      "JHOOK = '" & DataGridView1.Rows(i).Cells("JHOOK").Value & "', WaterResistant = '" & DataGridView1.Rows(i).Cells("WaterResistant").Value & "', " &
-                                                      "P16VAT = '" & DataGridView1.Rows(i).Cells("P16VAT").Value & "', EXWsaving = '" & DataGridView1.Rows(i).Cells("EXWsaving").Value & "', " &
-                                                      "Currency = '" & ComboBox2.Text & "', Exchange = '" & DataGridView1.Rows(i).Cells("Exchange").Value & "', " &
-                                                      "年份 = '" & DataGridView1.Rows(i).Cells("年份").Value & "', Quantity = '" & DataGridView1.Rows(i).Cells("Quantity").Value & "', " &
-                                                      "審核 = '" & DataGridView1.Rows(i).Cells("審核").Value & "' " &
-                       "WHERE (利潤表流水號 LIKE '" & DataGridView1.Rows(i).Cells("利潤表流水號").Value & "')"
+                SQL1 = "UPDATE " & 訂單資料表(7) & " SET  FTYPrice = '" & 利潤表_dgv.Rows(i).Cells("FTYPrice").Value & "', BasicPrice = '" & 利潤表_dgv.Rows(i).Cells("BasicPrice").Value & "', " &
+                                                      "Polybag = '" & 利潤表_dgv.Rows(i).Cells("PG/MOQ").Value & "', FOOTformOrPETform = '" & 利潤表_dgv.Rows(i).Cells("FOOTorPET").Value & "', " &
+                                                      "Tooling = '" & 利潤表_dgv.Rows(i).Cells("Tooling").Value & "', RubberBand = '" & 利潤表_dgv.Rows(i).Cells("RubberBand").Value & "', " &
+                                                      "JHOOK = '" & 利潤表_dgv.Rows(i).Cells("JHOOK").Value & "', WaterResistant = '" & 利潤表_dgv.Rows(i).Cells("WaterResistant").Value & "', " &
+                                                      "P16VAT = '" & 利潤表_dgv.Rows(i).Cells("P16VAT").Value & "', EXWsaving = '" & 利潤表_dgv.Rows(i).Cells("EXWsaving").Value & "', " &
+                                                      "Currency = '" & ComboBox2.Text & "', Exchange = '" & 利潤表_dgv.Rows(i).Cells("Exchange").Value & "', " &
+                                                      "年份 = '" & 利潤表_dgv.Rows(i).Cells("年份").Value & "', Quantity = '" & 利潤表_dgv.Rows(i).Cells("Quantity").Value & "', " &
+                                                      "審核 = '" & 利潤表_dgv.Rows(i).Cells("審核").Value & "' " &
+                       "WHERE (利潤表流水號 LIKE '" & 利潤表_dgv.Rows(i).Cells("利潤表流水號").Value & "')"
                 CmdSet_For_dr() : conn.Close()
             Next i : ProgressBar1.Value = 0 : 最終數 = 0
             MsgBox("修改完成")
@@ -621,18 +621,18 @@ Public Class 訂單價格利潤明細表
         If 列印用SQL = "" Then : MsgBox("請先搜尋資料後再行列印") : Else : 列印_訂單價格利潤表.Show() : End If
     End Sub
     Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
-        For i As Integer = 0 To DataGridView1.Rows.Count - 1
-            DataGridView1.Rows(i).Cells(14).Value = 0
+        For i As Integer = 0 To 利潤表_dgv.Rows.Count - 1
+            利潤表_dgv.Rows(i).Cells(14).Value = 0
         Next i
     End Sub
     Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
-        For i As Integer = 0 To DataGridView1.Rows.Count - 1
-            DataGridView1.Rows(i).Cells(14).Value = DataGridView1.Rows(i).Cells(7).Value
+        For i As Integer = 0 To 利潤表_dgv.Rows.Count - 1
+            利潤表_dgv.Rows(i).Cells(14).Value = 利潤表_dgv.Rows(i).Cells(7).Value
         Next i
     End Sub
     Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
-        For i As Integer = 0 To DataGridView1.Rows.Count - 1
-            DataGridView1.Rows(i).Cells(16).Value = 1
+        For i As Integer = 0 To 利潤表_dgv.Rows.Count - 1
+            利潤表_dgv.Rows(i).Cells(16).Value = 1
         Next i
     End Sub
     Private Sub 資料庫選擇1_bt_Click(sender As Object, e As EventArgs) Handles 資料庫選擇1_bt.Click

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

@@ -28,6 +28,7 @@ Partial Class 訂單控制表
         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()
         Me.控制表_dgv = New System.Windows.Forms.DataGridView()
         Me.Label5 = New System.Windows.Forms.Label()
         Me.客戶訂單號_tb = New System.Windows.Forms.TextBox()
@@ -182,6 +183,7 @@ Partial Class 訂單控制表
         Me.AA8_lb = New System.Windows.Forms.Label()
         Me.Brand_tb = New System.Windows.Forms.TextBox()
         Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
+        Me.除錯_dgv = New System.Windows.Forms.DataGridView()
         Me.資訊_gb = New System.Windows.Forms.GroupBox()
         Me.TT23_lb = New System.Windows.Forms.TextBox()
         Me.Label49 = New System.Windows.Forms.Label()
@@ -251,6 +253,7 @@ Partial Class 訂單控制表
         Me.SplitContainer1.Panel1.SuspendLayout()
         Me.SplitContainer1.Panel2.SuspendLayout()
         Me.SplitContainer1.SuspendLayout()
+        CType(Me.除錯_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.資訊_gb.SuspendLayout()
         CType(Me.裝箱控制表_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.明細表_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -1683,6 +1686,7 @@ Partial Class 訂單控制表
         'SplitContainer1.Panel1
         '
         Me.SplitContainer1.Panel1.AutoScroll = True
+        Me.SplitContainer1.Panel1.Controls.Add(Me.除錯_dgv)
         Me.SplitContainer1.Panel1.Controls.Add(Me.控制表_dgv)
         '
         'SplitContainer1.Panel2
@@ -1696,6 +1700,19 @@ Partial Class 訂單控制表
         Me.SplitContainer1.SplitterDistance = 454
         Me.SplitContainer1.TabIndex = 753
         '
+        '除錯_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
+        Me.除錯_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.除錯_dgv.Location = New System.Drawing.Point(48, 36)
+        Me.除錯_dgv.Name = "除錯_dgv"
+        Me.除錯_dgv.RowHeadersWidth = 5
+        Me.除錯_dgv.RowTemplate.Height = 24
+        Me.除錯_dgv.Size = New System.Drawing.Size(306, 274)
+        Me.除錯_dgv.TabIndex = 757
+        Me.除錯_dgv.Visible = False
+        '
         '資訊_gb
         '
         Me.資訊_gb.Controls.Add(Me.TT23_lb)
@@ -2223,8 +2240,8 @@ Partial Class 訂單控制表
         '
         '裝箱控制表_dgv
         '
-        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.裝箱控制表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
+        DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.裝箱控制表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
         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
@@ -2238,8 +2255,8 @@ Partial Class 訂單控制表
         '
         '明細表_dgv
         '
-        DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.明細表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
+        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.明細表_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
         Me.明細表_dgv.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
             Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -2254,8 +2271,8 @@ Partial Class 訂單控制表
         '
         '裝箱明細_dgv
         '
-        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.裝箱明細_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
+        DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer))
+        Me.裝箱明細_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
         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)
@@ -2464,6 +2481,7 @@ Partial Class 訂單控制表
         Me.SplitContainer1.Panel2.ResumeLayout(False)
         CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.SplitContainer1.ResumeLayout(False)
+        CType(Me.除錯_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         Me.資訊_gb.ResumeLayout(False)
         Me.資訊_gb.PerformLayout()
         CType(Me.裝箱控制表_dgv, System.ComponentModel.ISupportInitialize).EndInit()
@@ -2687,5 +2705,6 @@ Partial Class 訂單控制表
     Friend WithEvents TT22_lb As TextBox
     Friend WithEvents TT23_lb As TextBox
     Friend WithEvents Label49 As Label
+    Friend WithEvents 除錯_dgv As DataGridView
 End Class
 

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

@@ -1,7 +1,7 @@
 Option Strict Off
 Imports System.IO
 Public Class 訂單控制表
-    ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet : ReadOnly ds3 As New DataSet : ReadOnly ds4 As New DataSet
+    ReadOnly ds As New DataSet : ReadOnly ds1 As New DataSet : ReadOnly ds2 As New DataSet : ReadOnly ds3 As New DataSet : ReadOnly ds4 As New DataSet : ReadOnly ds5 As New DataSet
     Dim 訂單數量 As Double : Dim 單價 As Double : Dim 總金額 As Double
     '-----------------------------------------0-----------------------1-------------------------2------------------3-----------------4----------------------5-------------------------6
     '                                訂單流水號,               年份季度,               客戶訂單號,            形體號,             顏色,                  楦型,                 訂單數量
@@ -847,6 +847,17 @@ Public Class 訂單控制表
         裝箱明細_dgv.Columns(19).DefaultCellStyle.Format = "#,##0" : 裝箱明細_dgv.Columns(20).DefaultCellStyle.Format = "#,##0" : 裝箱明細_dgv.Columns(21).DefaultCellStyle.Format = "#,##0"
         裝箱明細_dgv.Columns(22).DefaultCellStyle.Format = "#,##0" : 裝箱明細_dgv.Columns(23).DefaultCellStyle.Format = "#,##0"
     End Sub
+    Private Sub Set_客戶交期除錯()
+        除錯_dgv.DataSource = Nothing : ds5.Clear()
+        除錯_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
+        除錯_dgv.ColumnHeadersHeight = 25
+        除錯_dgv.AllowUserToAddRows = False
+        ConnOpen()
+        SQL1 = "SELECT          LEFT(客戶交期, 4) AS 前段, SUBSTRING(客戶交期, 6, 10) AS 後段, 資料流水號, 客戶交期
+                FROM            訂單控制表
+                WHERE          (LEN(客戶交期) < 10)"
+        CmdSet_For_DGV() : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds5) : 除錯_dgv.DataSource = ds5.Tables(0) : conn.Close()
+    End Sub
     Private Sub ComboBox1下拉表單資料載入()
         conn1.Close()
         If conn1.State = ConnectionState.Closed Then : conn1.ConnectionString = ConString : conn1.Open() : End If
@@ -992,8 +1003,27 @@ Public Class 訂單控制表
             Button28.Enabled = False
         End If
         Set_格式設定() : Set_訂單清單() : Set_自動彙總1() : Set_grid()
-
         ComboBox1下拉表單資料載入() : ComboBox2下拉表單資料載入() : ComboBox3下拉表單資料載入() : ComboBox4下拉表單資料載入() : ComboBox5下拉表單資料載入() : ComboBox6下拉表單資料載入()
+
+        Set_客戶交期除錯()
+        If 除錯_dgv.Rows.Count > 0 Then
+            For I As Integer = 0 To 除錯_dgv.Rows.Count - 1
+                If IsNumeric(Strings.Left(除錯_dgv("後段", I).Value.ToString, 2)) = False And IsNumeric(Strings.Right(除錯_dgv("後段", I).Value.ToString, 2)) = False Then
+                    除錯_dgv("後段", I).Value = 除錯_dgv("前段", I).Value.ToString & "/" & "0" & Strings.Left(除錯_dgv("後段", I).Value.ToString, 1) & "/0" &
+                        Strings.Right(除錯_dgv("後段", I).Value.ToString, 1)
+                ElseIf IsNumeric(Strings.Left(除錯_dgv("後段", I).Value.ToString, 2)) = True And IsNumeric(Strings.Right(除錯_dgv("後段", I).Value.ToString, 2)) = False Then
+                    除錯_dgv("後段", I).Value = 除錯_dgv("前段", I).Value.ToString & "/" & Strings.Left(除錯_dgv("後段", I).Value.ToString, 2) & "/0" &
+                        Strings.Right(除錯_dgv("後段", I).Value.ToString, 1)
+                    除錯_dgv("後段", I).Value = "2021/" & Strings.Left(除錯_dgv("前段", I).Value.ToString, 2) & "/0" & Strings.Right(除錯_dgv("前段", I).Value.ToString, 1)
+                ElseIf IsNumeric(Strings.Left(除錯_dgv("後段", I).Value.ToString, 2)) = False And IsNumeric(Strings.Right(除錯_dgv("後段", I).Value.ToString, 2)) = True Then
+                    除錯_dgv("後段", I).Value = 除錯_dgv("前段", I).Value.ToString & "/" & "0" & Strings.Left(除錯_dgv("後段", I).Value.ToString, 1) & "/" &
+                        Strings.Right(除錯_dgv("後段", I).Value.ToString, 2)
+                End If
+                ConnOpen()
+                SQL1 = "UPDATE 訂單控制表 SET 客戶交期 = '" & 除錯_dgv("後段", I).Value.ToString & "' WHERE (資料流水號 = '" & 除錯_dgv("資料流水號", I).Value.ToString & "')"
+                CmdSet_For_dr() : conn.Close()
+            Next
+        End If
     End Sub
     Private Sub 訂單控制表_Unload(sender As Object, e As EventArgs) Handles MyBase.Closing
         frmOpenFlag = False