20220917備份

SHENKANG-MES-SYS/MyModule/全域變數.vb

@@ -7,7 +7,7 @@
                                  CC51, CC52, CC53, CC54, CC55, CC56, CC57, CC58, CC59, CC60, CC61, CC62, CC63, CC64, CC65, CC66, CC67, CC68, CC69, CC70, CC71, CC72, CC73, CC74, CC75, CC76, CC77, CC78, 
                                  CC79, CC80, CC81, CC82, CC83, CC84, CC85, CC86, CC87, CC88, CC89, CC90, CC91, CC92, CC93, CC94, CC95 FROM"
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2022083001"
+    Public 版本 As String = "2022090701"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public PA, PA1, PA2, PA3, PA4, PA5, PA6, PA7, PA8, PA9, PA10, PA11, PA12, PA13, PA14, PA15, PA16, PA17, PA18, PA19, PA20, PA21, PA22, PA23, PA24, PA25, PA26, PA27, PA28, PA29, PA30, PA31,
            PA32, PA33 As String

SHENKANG-MES-SYS/bin/Debug/WINPROFIT-ERP-SYS.application

@@ -14,7 +14,7 @@
           <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
         </dsig:Transforms>
         <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
-        <dsig:DigestValue>VWde6u6lJxnIdJqouHfCz5/funMx0iqpxaTAEcWr+N4=</dsig:DigestValue>
+        <dsig:DigestValue>AbqFOE3SwHROS1aqXvGmkyFUQHAO/A5oQ0n3t5euvkU=</dsig:DigestValue>
       </hash>
     </dependentAssembly>
   </dependency>

SHENKANG-MES-SYS/bin/Debug/WINPROFIT-ERP-SYS.exe.manifest

@@ -43,14 +43,14 @@
     </dependentAssembly>
   </dependency>
   <dependency>
-    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="WINPROFIT-ERP-SYS.exe" size="5658112">
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="WINPROFIT-ERP-SYS.exe" size="5659136">
       <assemblyIdentity name="WINPROFIT-ERP-SYS" version="1.1.0.0" language="neutral" processorArchitecture="msil" />
       <hash>
         <dsig:Transforms>
           <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
         </dsig:Transforms>
         <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
-        <dsig:DigestValue>jIGFELVJJ1w/KNItfoTU6nZ80AbXiDosKwcYe6XyYOs=</dsig:DigestValue>
+        <dsig:DigestValue>2zv4eFsWSle7YYSvD3vz23v2+dFvgzkphtOxYCBKb7Y=</dsig:DigestValue>
       </hash>
     </dependentAssembly>
   </dependency>

SHENKANG-MES-SYS/obj/Debug/WINPROFIT-ERP-SYS.application

@@ -14,7 +14,7 @@
           <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
         </dsig:Transforms>
         <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
-        <dsig:DigestValue>VWde6u6lJxnIdJqouHfCz5/funMx0iqpxaTAEcWr+N4=</dsig:DigestValue>
+        <dsig:DigestValue>AbqFOE3SwHROS1aqXvGmkyFUQHAO/A5oQ0n3t5euvkU=</dsig:DigestValue>
       </hash>
     </dependentAssembly>
   </dependency>

SHENKANG-MES-SYS/obj/Debug/WINPROFIT-ERP-SYS.exe.manifest

@@ -43,14 +43,14 @@
     </dependentAssembly>
   </dependency>
   <dependency>
-    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="WINPROFIT-ERP-SYS.exe" size="5658112">
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="WINPROFIT-ERP-SYS.exe" size="5659136">
       <assemblyIdentity name="WINPROFIT-ERP-SYS" version="1.1.0.0" language="neutral" processorArchitecture="msil" />
       <hash>
         <dsig:Transforms>
           <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
         </dsig:Transforms>
         <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
-        <dsig:DigestValue>jIGFELVJJ1w/KNItfoTU6nZ80AbXiDosKwcYe6XyYOs=</dsig:DigestValue>
+        <dsig:DigestValue>2zv4eFsWSle7YYSvD3vz23v2+dFvgzkphtOxYCBKb7Y=</dsig:DigestValue>
       </hash>
     </dependentAssembly>
   </dependency>

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

@@ -80,12 +80,16 @@ Partial Class 量產訂單控制表
         Me.PictureBox1 = New System.Windows.Forms.PictureBox()
         Me.選取加總_lb = New System.Windows.Forms.Label()
         Me.加總_tb = New System.Windows.Forms.TextBox()
+        Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.DGV位置2 = New System.Windows.Forms.NumericUpDown()
         CType(Me.控制表_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.GroupBox2.SuspendLayout()
         Me.GroupBox1.SuspendLayout()
         CType(Me.表單2_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.Panel1.SuspendLayout()
+        CType(Me.DGV位置2, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         '控制表_dgv
@@ -129,7 +133,7 @@ Partial Class 量產訂單控制表
         Me.訂單流水號_lb.ForeColor = System.Drawing.Color.Red
         Me.訂單流水號_lb.Location = New System.Drawing.Point(12, 12)
         Me.訂單流水號_lb.Name = "訂單流水號_lb"
-        Me.訂單流水號_lb.Size = New System.Drawing.Size(68, 16)
+        Me.訂單流水號_lb.Size = New System.Drawing.Size(67, 16)
         Me.訂單流水號_lb.TabIndex = 870
         Me.訂單流水號_lb.Text = "訂單流水號"
         '
@@ -163,7 +167,7 @@ Partial Class 量產訂單控制表
         Me.整張訂單CXL_ch.CheckState = System.Windows.Forms.CheckState.Checked
         Me.整張訂單CXL_ch.Location = New System.Drawing.Point(22, 22)
         Me.整張訂單CXL_ch.Name = "整張訂單CXL_ch"
-        Me.整張訂單CXL_ch.Size = New System.Drawing.Size(97, 20)
+        Me.整張訂單CXL_ch.Size = New System.Drawing.Size(96, 20)
         Me.整張訂單CXL_ch.TabIndex = 337
         Me.整張訂單CXL_ch.Text = "整張訂單CXL"
         Me.整張訂單CXL_ch.UseVisualStyleBackColor = True
@@ -173,7 +177,7 @@ Partial Class 量產訂單控制表
         Me.單筆資料CXL_ch.AutoSize = True
         Me.單筆資料CXL_ch.Location = New System.Drawing.Point(22, 44)
         Me.單筆資料CXL_ch.Name = "單筆資料CXL_ch"
-        Me.單筆資料CXL_ch.Size = New System.Drawing.Size(97, 20)
+        Me.單筆資料CXL_ch.Size = New System.Drawing.Size(96, 20)
         Me.單筆資料CXL_ch.TabIndex = 338
         Me.單筆資料CXL_ch.Text = "單筆資料CXL"
         Me.單筆資料CXL_ch.UseVisualStyleBackColor = True
@@ -216,7 +220,7 @@ Partial Class 量產訂單控制表
         Me.啟用批量出貨_ch.AutoSize = True
         Me.啟用批量出貨_ch.Location = New System.Drawing.Point(276, 38)
         Me.啟用批量出貨_ch.Name = "啟用批量出貨_ch"
-        Me.啟用批量出貨_ch.Size = New System.Drawing.Size(99, 20)
+        Me.啟用批量出貨_ch.Size = New System.Drawing.Size(98, 20)
         Me.啟用批量出貨_ch.TabIndex = 1090
         Me.啟用批量出貨_ch.Text = "啟用批量出貨"
         Me.啟用批量出貨_ch.UseVisualStyleBackColor = True
@@ -237,7 +241,7 @@ Partial Class 量產訂單控制表
         Me.文字提醒_lb.ForeColor = System.Drawing.Color.Red
         Me.文字提醒_lb.Location = New System.Drawing.Point(6, 15)
         Me.文字提醒_lb.Name = "文字提醒_lb"
-        Me.文字提醒_lb.Size = New System.Drawing.Size(367, 16)
+        Me.文字提醒_lb.Size = New System.Drawing.Size(366, 16)
         Me.文字提醒_lb.TabIndex = 1088
         Me.文字提醒_lb.Text = "注意 : 先打勾 [啟用量出貨] 按鈕在選資料，系統讀取速度會比較快。"
         '
@@ -255,7 +259,7 @@ Partial Class 量產訂單控制表
         Me.可出貨數量_lb.AutoSize = True
         Me.可出貨數量_lb.Location = New System.Drawing.Point(102, 70)
         Me.可出貨數量_lb.Name = "可出貨數量_lb"
-        Me.可出貨數量_lb.Size = New System.Drawing.Size(68, 16)
+        Me.可出貨數量_lb.Size = New System.Drawing.Size(67, 16)
         Me.可出貨數量_lb.TabIndex = 878
         Me.可出貨數量_lb.Text = "可出貨數量"
         '
@@ -264,7 +268,7 @@ Partial Class 量產訂單控制表
         Me.出貨數量_lb.AutoSize = True
         Me.出貨數量_lb.Location = New System.Drawing.Point(114, 99)
         Me.出貨數量_lb.Name = "出貨數量_lb"
-        Me.出貨數量_lb.Size = New System.Drawing.Size(56, 16)
+        Me.出貨數量_lb.Size = New System.Drawing.Size(55, 16)
         Me.出貨數量_lb.TabIndex = 344
         Me.出貨數量_lb.Text = "出貨數量"
         '
@@ -302,7 +306,7 @@ Partial Class 量產訂單控制表
         Me.ACTUAL_lb.AutoSize = True
         Me.ACTUAL_lb.Location = New System.Drawing.Point(10, 39)
         Me.ACTUAL_lb.Name = "ACTUAL_lb"
-        Me.ACTUAL_lb.Size = New System.Drawing.Size(89, 16)
+        Me.ACTUAL_lb.Size = New System.Drawing.Size(88, 16)
         Me.ACTUAL_lb.TabIndex = 269
         Me.ACTUAL_lb.Text = "ACTUAL ex-fty"
         '
@@ -311,7 +315,7 @@ Partial Class 量產訂單控制表
         Me.拆單出貨_ch.AutoSize = True
         Me.拆單出貨_ch.Location = New System.Drawing.Point(11, 98)
         Me.拆單出貨_ch.Name = "拆單出貨_ch"
-        Me.拆單出貨_ch.Size = New System.Drawing.Size(75, 20)
+        Me.拆單出貨_ch.Size = New System.Drawing.Size(74, 20)
         Me.拆單出貨_ch.TabIndex = 341
         Me.拆單出貨_ch.Text = "拆單出貨"
         Me.拆單出貨_ch.UseVisualStyleBackColor = True
@@ -331,7 +335,7 @@ Partial Class 量產訂單控制表
         Me.整單出貨_ch.CheckState = System.Windows.Forms.CheckState.Checked
         Me.整單出貨_ch.Location = New System.Drawing.Point(11, 69)
         Me.整單出貨_ch.Name = "整單出貨_ch"
-        Me.整單出貨_ch.Size = New System.Drawing.Size(75, 20)
+        Me.整單出貨_ch.Size = New System.Drawing.Size(74, 20)
         Me.整單出貨_ch.TabIndex = 340
         Me.整單出貨_ch.Text = "整單出貨"
         Me.整單出貨_ch.UseVisualStyleBackColor = True
@@ -341,7 +345,7 @@ Partial Class 量產訂單控制表
         Me.由_lb.AutoSize = True
         Me.由_lb.Location = New System.Drawing.Point(97, 39)
         Me.由_lb.Name = "由_lb"
-        Me.由_lb.Size = New System.Drawing.Size(20, 16)
+        Me.由_lb.Size = New System.Drawing.Size(19, 16)
         Me.由_lb.TabIndex = 271
         Me.由_lb.Text = "由"
         '
@@ -350,11 +354,11 @@ Partial Class 量產訂單控制表
         DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
         Me.表單2_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
         Me.表單2_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.表單2_dgv.Location = New System.Drawing.Point(53, 173)
+        Me.表單2_dgv.Location = New System.Drawing.Point(3, 3)
         Me.表單2_dgv.Name = "表單2_dgv"
         Me.表單2_dgv.RowHeadersWidth = 5
         Me.表單2_dgv.RowTemplate.Height = 24
-        Me.表單2_dgv.Size = New System.Drawing.Size(15, 22)
+        Me.表單2_dgv.Size = New System.Drawing.Size(66, 92)
         Me.表單2_dgv.TabIndex = 877
         '
         '關鍵字查詢_bt
@@ -381,7 +385,7 @@ Partial Class 量產訂單控制表
         Me.資料流水號_lb.ForeColor = System.Drawing.Color.Red
         Me.資料流水號_lb.Location = New System.Drawing.Point(12, 41)
         Me.資料流水號_lb.Name = "資料流水號_lb"
-        Me.資料流水號_lb.Size = New System.Drawing.Size(68, 16)
+        Me.資料流水號_lb.Size = New System.Drawing.Size(67, 16)
         Me.資料流水號_lb.TabIndex = 876
         Me.資料流水號_lb.Text = "資料流水號"
         '
@@ -466,7 +470,7 @@ Partial Class 量產訂單控制表
         Me.訂單屬性_lb.ForeColor = System.Drawing.Color.Green
         Me.訂單屬性_lb.Location = New System.Drawing.Point(230, 12)
         Me.訂單屬性_lb.Name = "訂單屬性_lb"
-        Me.訂單屬性_lb.Size = New System.Drawing.Size(56, 16)
+        Me.訂單屬性_lb.Size = New System.Drawing.Size(55, 16)
         Me.訂單屬性_lb.TabIndex = 990
         Me.訂單屬性_lb.Text = "訂單屬性"
         '
@@ -475,7 +479,7 @@ Partial Class 量產訂單控制表
         Me.firstcost_lb.AutoSize = True
         Me.firstcost_lb.Location = New System.Drawing.Point(230, 88)
         Me.firstcost_lb.Name = "firstcost_lb"
-        Me.firstcost_lb.Size = New System.Drawing.Size(119, 16)
+        Me.firstcost_lb.Size = New System.Drawing.Size(118, 16)
         Me.firstcost_lb.TabIndex = 1005
         Me.firstcost_lb.Text = "FIRST                COST"
         '
@@ -484,7 +488,7 @@ Partial Class 量產訂單控制表
         Me.LANDEDBRANDED_lb.AutoSize = True
         Me.LANDEDBRANDED_lb.Location = New System.Drawing.Point(230, 60)
         Me.LANDEDBRANDED_lb.Name = "LANDEDBRANDED_lb"
-        Me.LANDEDBRANDED_lb.Size = New System.Drawing.Size(118, 16)
+        Me.LANDEDBRANDED_lb.Size = New System.Drawing.Size(117, 16)
         Me.LANDEDBRANDED_lb.TabIndex = 1004
         Me.LANDEDBRANDED_lb.Text = "LANDED BRANDED"
         '
@@ -502,7 +506,7 @@ Partial Class 量產訂單控制表
         Me.總銷售_lb.AutoSize = True
         Me.總銷售_lb.Location = New System.Drawing.Point(426, 38)
         Me.總銷售_lb.Name = "總銷售_lb"
-        Me.總銷售_lb.Size = New System.Drawing.Size(44, 16)
+        Me.總銷售_lb.Size = New System.Drawing.Size(43, 16)
         Me.總銷售_lb.TabIndex = 1008
         Me.總銷售_lb.Text = "總銷售"
         '
@@ -520,7 +524,7 @@ Partial Class 量產訂單控制表
         Me.總雙數_lb.AutoSize = True
         Me.總雙數_lb.Location = New System.Drawing.Point(347, 38)
         Me.總雙數_lb.Name = "總雙數_lb"
-        Me.總雙數_lb.Size = New System.Drawing.Size(44, 16)
+        Me.總雙數_lb.Size = New System.Drawing.Size(43, 16)
         Me.總雙數_lb.TabIndex = 1006
         Me.總雙數_lb.Text = "總雙數"
         '
@@ -529,7 +533,7 @@ Partial Class 量產訂單控制表
         Me.合計_lb.AutoSize = True
         Me.合計_lb.Location = New System.Drawing.Point(230, 117)
         Me.合計_lb.Name = "合計_lb"
-        Me.合計_lb.Size = New System.Drawing.Size(119, 16)
+        Me.合計_lb.Size = New System.Drawing.Size(118, 16)
         Me.合計_lb.TabIndex = 1076
         Me.合計_lb.Text = "合                             計"
         '
@@ -650,11 +654,31 @@ Partial Class 量產訂單控制表
         Me.加總_tb.TabIndex = 1089
         Me.加總_tb.Visible = False
         '
+        'Panel1
+        '
+        Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel1.Controls.Add(Me.DGV位置2)
+        Me.Panel1.Controls.Add(Me.表單2_dgv)
+        Me.Panel1.Location = New System.Drawing.Point(1035, 196)
+        Me.Panel1.Name = "Panel1"
+        Me.Panel1.Size = New System.Drawing.Size(243, 100)
+        Me.Panel1.TabIndex = 1090
+        Me.Panel1.Visible = False
+        '
+        'DGV位置2
+        '
+        Me.DGV位置2.Location = New System.Drawing.Point(75, 3)
+        Me.DGV位置2.Maximum = New Decimal(New Integer() {100000, 0, 0, 0})
+        Me.DGV位置2.Name = "DGV位置2"
+        Me.DGV位置2.Size = New System.Drawing.Size(66, 23)
+        Me.DGV位置2.TabIndex = 878
+        '
         '量產訂單控制表
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1914, 971)
+        Me.Controls.Add(Me.Panel1)
         Me.Controls.Add(Me.加總_tb)
         Me.Controls.Add(Me.選取加總_lb)
         Me.Controls.Add(Me.列印_bt)
@@ -678,7 +702,6 @@ Partial Class 量產訂單控制表
         Me.Controls.Add(Me.Cost總雙數_tb)
         Me.Controls.Add(Me.垂直翻轉_bt)
         Me.Controls.Add(Me.水平翻轉_bt)
-        Me.Controls.Add(Me.表單2_dgv)
         Me.Controls.Add(Me.逆時鐘90度旋轉_bt)
         Me.Controls.Add(Me.順時鐘90度旋轉_bt)
         Me.Controls.Add(Me.驗貨報告大圖_bt)
@@ -707,6 +730,8 @@ Partial Class 量產訂單控制表
         CType(Me.表單2_dgv, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.Panel1.ResumeLayout(False)
+        CType(Me.DGV位置2, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -768,4 +793,6 @@ Partial Class 量產訂單控制表
     Friend WithEvents 文字提醒_lb As Label
     Friend WithEvents 選取加總_lb As Label
     Friend WithEvents 加總_tb As TextBox
+    Friend WithEvents Panel1 As Panel
+    Friend WithEvents DGV位置2 As NumericUpDown
 End Class

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

@@ -38,6 +38,7 @@ Public Class 量產訂單控制表
         控制表_dgv.Columns(32).FillWeight = 120 : 控制表_dgv.Columns(33).FillWeight = 120 : 控制表_dgv.Columns(34).FillWeight = 120 : 控制表_dgv.Columns(35).FillWeight = 120
         控制表_dgv.Columns(36).FillWeight = 195 : 控制表_dgv.Columns(37).FillWeight = 123 : 控制表_dgv.Columns(38).FillWeight = 123 : 控制表_dgv.Columns(39).FillWeight = 123
         控制表_dgv.Columns(40).FillWeight = 60 : 控制表_dgv.Columns(41).FillWeight = 123 : 控制表_dgv.Columns(42).FillWeight = 123 : 控制表_dgv.Columns("驗報圖庫").Visible = False
+        控制表_dgv.Columns(0).ReadOnly = True
         '795
         If 第一頁_bt.Enabled = False And 第二頁_bt.Enabled = True And 第三頁_bt.Enabled = True And 第四頁_bt.Enabled = True And 第五頁_bt.Enabled = True Then
             For i As Integer = 9 To 15 : 控制表_dgv.Columns(i).Visible = True : Next
@@ -88,6 +89,10 @@ Public Class 量產訂單控制表
         合總雙數_tb.Text = Val(L總雙數_tb.Text) + Val(Cost總雙數_tb.Text) : 合總銷售_tb.Text = Val(L總銷售_tb.Text) + Val(Cost總銷售_tb.Text)
         合總銷售_tb.Text = Format(Val(合總銷售_tb.Text), "#,##0") : L總銷售_tb.Text = Format(Val(L總銷售_tb.Text), "#,##0") : Cost總銷售_tb.Text = Format(Val(Cost總銷售_tb.Text), "#,##0")
         L總雙數_tb.Text = Format(Val(L總雙數_tb.Text), "#,##0") : Cost總雙數_tb.Text = Format(Val(Cost總雙數_tb.Text), "#,##0") : 合總雙數_tb.Text = Format(Val(合總雙數_tb.Text), "#,##0")
+
+
+        If DGV位置2.Value >= 控制表_dgv.Rows.Count Then : DGV位置2.Value = 控制表_dgv.Rows.Count - 1 : End If
+        If DGV位置2.Value > 0 Then : 控制表_dgv.CurrentCell = 控制表_dgv.Rows(DGV位置2.Value).Cells(1) : End If
     End Sub
     Private Sub 量產訂單控制表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         WINPROFIT_ERP_SYS.WindowState = 2 : Me.MdiParent = WINPROFIT_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
@@ -96,62 +101,66 @@ Public Class 量產訂單控制表
         SQL_刪除貨款匯入出款明細表() : conn.Close()
     End Sub
     Private Sub DataGridView3_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 控制表_dgv.CellClick
-        If 啟用批量出貨_ch.Checked = True Then
-            If 控制表_dgv("選擇", e.RowIndex).Value = True Then
-                控制表_dgv("選擇", e.RowIndex).Value = False
-            Else
-                控制表_dgv("選擇", e.RowIndex).Value = True
-            End If
-            For i As Integer = 0 To 控制表_dgv.Rows.Count - 1
-                If 控制表_dgv("選擇", i).Value = True Then
-                    控制表_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGreen
-                Else
-                    控制表_dgv.Rows(i).DefaultCellStyle.BackColor = Color.White
+        If e.RowIndex = -1 Then : Else : DGV位置2.Value = e.RowIndex
+            If 啟用批量出貨_ch.Checked = True Then
+                If 控制表_dgv.Rows(e.RowIndex).Cells("驗貨報告圖片").Value.ToString <> "" Then
+                    If 控制表_dgv("選擇", e.RowIndex).Value = True Then
+                        控制表_dgv("選擇", e.RowIndex).Value = False
+                    Else
+                        控制表_dgv("選擇", e.RowIndex).Value = True
+                    End If
+                    For i As Integer = 0 To 控制表_dgv.Rows.Count - 1
+                        If 控制表_dgv("選擇", i).Value = True Then
+                            控制表_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGreen
+                        Else
+                            控制表_dgv.Rows(i).DefaultCellStyle.BackColor = Color.White
+                        End If
+                    Next
                 End If
-            Next
-        Else
-            If e.RowIndex = -1 Then : Else
-                訂單流水號_tb.Text = 控制表_dgv.Rows(e.RowIndex).Cells("訂單流水號").Value
-                資料流水號_tb.Text = 控制表_dgv.Rows(e.RowIndex).Cells("資料流水號").Value
+            Else
+                If e.RowIndex = -1 Then : Else
+                    訂單流水號_tb.Text = 控制表_dgv.Rows(e.RowIndex).Cells("訂單流水號").Value
+                    資料流水號_tb.Text = 控制表_dgv.Rows(e.RowIndex).Cells("資料流水號").Value
 
-                可出貨數量_tb.Text = 控制表_dgv.Rows(e.RowIndex).Cells("訂單數量").Value - 控制表_dgv.Rows(e.RowIndex).Cells("出貨數量").Value
-                可出貨數量_tb.Text = Format(Val(可出貨數量_tb.Text), "###0")
+                    可出貨數量_tb.Text = 控制表_dgv.Rows(e.RowIndex).Cells("訂單數量").Value - 控制表_dgv.Rows(e.RowIndex).Cells("出貨數量").Value
+                    可出貨數量_tb.Text = Format(Val(可出貨數量_tb.Text), "###0")
 
-                If 控制表_dgv.Rows(e.RowIndex).Cells("明細建檔").Value = True Then : 開啟訂單明細表_bt.Enabled = True : Else : 開啟訂單明細表_bt.Enabled = False : End If
+                    If 控制表_dgv.Rows(e.RowIndex).Cells("明細建檔").Value = True Then : 開啟訂單明細表_bt.Enabled = True : Else : 開啟訂單明細表_bt.Enabled = False : End If
 
-                PA = 控制表_dgv.Rows(e.RowIndex).Cells("型體號碼").Value
-                PictureBox1.Image = Nothing : SQL_鞋型圖片資料庫一張圖片()
-                If dr.Read() Then : PictureBox1.Image = Nothing : SQL_鞋型圖片資料庫一張圖片()
-                    While dr.Read() = True
-                        Dim unused As Byte() = New Byte(-1) {} : Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
-                        Dim oStream As New MemoryStream(bytes) : PictureBox1.Image = Bitmap.FromStream(oStream)
-                    End While : conn.Close()
-                Else : PictureBox1.Image = Nothing : SQL_鞋型圖片資料庫一張圖片()
+                    PA = 控制表_dgv.Rows(e.RowIndex).Cells("型體號碼").Value
+                    PictureBox1.Image = Nothing : SQL_鞋型圖片資料庫一張圖片()
                     If dr.Read() Then : PictureBox1.Image = Nothing : SQL_鞋型圖片資料庫一張圖片()
                         While dr.Read() = True
-                            Dim unused3 As Byte() = New Byte(-1) {} : Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
+                            Dim unused As Byte() = New Byte(-1) {} : Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
                             Dim oStream As New MemoryStream(bytes) : PictureBox1.Image = Bitmap.FromStream(oStream)
                         End While : conn.Close()
                     Else : PictureBox1.Image = Nothing : SQL_鞋型圖片資料庫一張圖片()
                         If dr.Read() Then : PictureBox1.Image = Nothing : SQL_鞋型圖片資料庫一張圖片()
                             While dr.Read() = True
-                                Dim unused1 As Byte() = New Byte(-1) {} : Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
+                                Dim unused3 As Byte() = New Byte(-1) {} : Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
                                 Dim oStream As New MemoryStream(bytes) : PictureBox1.Image = Bitmap.FromStream(oStream)
                             End While : conn.Close()
-                        Else : conn.Close() : End If
+                        Else : PictureBox1.Image = Nothing : SQL_鞋型圖片資料庫一張圖片()
+                            If dr.Read() Then : PictureBox1.Image = Nothing : SQL_鞋型圖片資料庫一張圖片()
+                                While dr.Read() = True
+                                    Dim unused1 As Byte() = New Byte(-1) {} : Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
+                                    Dim oStream As New MemoryStream(bytes) : PictureBox1.Image = Bitmap.FromStream(oStream)
+                                End While : conn.Close()
+                            Else : conn.Close() : End If
+                        End If
+                    End If : PictureBox1.SizeMode = 4
+                    If 控制表_dgv.Rows(e.RowIndex).Cells("驗報圖庫").Value.ToString <> "" Then
+                        PA1 = 控制表_dgv.Rows(e.RowIndex).Cells("驗報圖庫").Value.ToString : PA2 = 控制表_dgv.Rows(e.RowIndex).Cells("驗貨報告圖片").Value.ToString
+                        SQL_驗貨報告() : PictureBox2.Image = Nothing
+                        While dr.Read() = True
+                            Dim unused2 As Byte() = New Byte(-1) {} : Dim bytes As Byte() = DirectCast(dr.Item("驗貨報告"), Byte())
+                            Dim oStream As New MemoryStream(bytes) : PictureBox2.Image = Bitmap.FromStream(oStream)
+                        End While
+                        conn.Close() : PictureBox2.SizeMode = 4
+                        驗貨報告 = 控制表_dgv.Rows(e.RowIndex).Cells("驗貨報告圖片").Value.ToString : 圖片庫 = 控制表_dgv.Rows(e.RowIndex).Cells("驗報圖庫").Value.ToString
+                    Else
+                        PictureBox2.Image = Nothing
                     End If
-                End If : PictureBox1.SizeMode = 4
-                If 控制表_dgv.Rows(e.RowIndex).Cells("驗報圖庫").Value.ToString <> "" Then
-                    PA1 = 控制表_dgv.Rows(e.RowIndex).Cells("驗報圖庫").Value.ToString : PA2 = 控制表_dgv.Rows(e.RowIndex).Cells("驗貨報告圖片").Value.ToString
-                    SQL_驗貨報告() : PictureBox2.Image = Nothing
-                    While dr.Read() = True
-                        Dim unused2 As Byte() = New Byte(-1) {} : Dim bytes As Byte() = DirectCast(dr.Item("驗貨報告"), Byte())
-                        Dim oStream As New MemoryStream(bytes) : PictureBox2.Image = Bitmap.FromStream(oStream)
-                    End While
-                    conn.Close() : PictureBox2.SizeMode = 4
-                    驗貨報告 = 控制表_dgv.Rows(e.RowIndex).Cells("驗貨報告圖片").Value.ToString : 圖片庫 = 控制表_dgv.Rows(e.RowIndex).Cells("驗報圖庫").Value.ToString
-                Else
-                    PictureBox2.Image = Nothing
                 End If
             End If
         End If