202202231備份

TENDEN-MES-SYS/Module/SQL_樣品訂單管理.vb

                                    N'" & PA18 & "')"
         CmdSet_For_dr()
     End Sub
-    Friend Sub SQL_中繼()
+    Friend Sub SQL_確認樣品單明細表清單1()
         ConnOpen()
         SQL1 = "SELECT 確認樣品單控制表.顏色, 確認樣品單明細表.樣品流水號二, 確認樣品單明細表.樣品流水號三, 確認樣品單明細表.細項, 確認樣品單明細表.內容, 確認樣品單明細表.廠商, 
                                    確認樣品單明細表.樣品流水號 FROM 確認樣品單明細表 LEFT OUTER JOIN 確認樣品單控制表 ON 確認樣品單明細表.樣品流水號二 = 確認樣品單控制表.面料 
                                   (確認樣品單控制表.顏色 Like N'" & PA & "') ORDER BY   確認樣品單控制表.顏色, 確認樣品單明細表.細項"
         CmdSet_For_DGV()
     End Sub
-    Friend Sub SQL_新增確認樣品單控制表暫存檔2()
-        ConnOpen()
-        SQL1 = "INSERT INTO 確認樣品單明細表暫存檔 (樣品流水號二, 樣品流水號三, 細項, 內容, 廠商, 樣品流水號) 
-                                VALUES ('" & 樣品單流水號變數2 & "1" & "','" & 樣品單流水號變數3 & "',N'" & PA21 & "',
-                                       N'" & PA19 & "', N'" & PA20 & "','" & 樣品單流水號變數1 & "')"
-        CmdSet_For_dr()
-    End Sub
-    Friend Sub SQL_中繼1()
+    Friend Sub SQL_確認樣品單明細表清單2()
         ConnOpen()
         SQL1 = "SELECT 確認樣品單控制表.顏色, 確認樣品單明細表.樣品流水號二, 確認樣品單明細表.樣品流水號三, 確認樣品單明細表.細項, 確認樣品單明細表.內容, 確認樣品單明細表.廠商, 
                                    確認樣品單明細表.樣品流水號 FROM 確認樣品單明細表 LEFT OUTER JOIN 確認樣品單控制表 ON 確認樣品單明細表.樣品流水號二 = 確認樣品單控制表.內裏 
                                   (確認樣品單控制表.顏色 Like N'" & PA & "') ORDER BY   確認樣品單控制表.顏色, 確認樣品單明細表.細項"
         CmdSet_For_DGV()
     End Sub
-    Friend Sub SQL_新增確認樣品單控制表暫存檔3()
-        ConnOpen()
-        SQL1 = "INSERT INTO 確認樣品單明細表暫存檔 (樣品流水號二, 樣品流水號三, 細項, 內容, 廠商, 樣品流水號) 
-                                VALUES ('" & 樣品單流水號變數2 & "2" & "','" & 樣品單流水號變數3 & "',N'" & PA21 & "',
-                                       N'" & PA19 & "',N'" & PA20 & "','" & 樣品單流水號變數1 & "')"
-        CmdSet_For_dr()
-    End Sub
-    Friend Sub SQL_確認樣品單明細表清單()
+    Friend Sub SQL_確認樣品單明細表清單3()
         ConnOpen()
         SQL1 = "SELECT 確認樣品單控制表.顏色, 確認樣品單明細表.樣品流水號二, 確認樣品單明細表.樣品流水號三, 確認樣品單明細表.細項, 確認樣品單明細表.內容, 確認樣品單明細表.廠商, 
                                    確認樣品單明細表.樣品流水號 FROM 確認樣品單明細表 LEFT OUTER JOIN 確認樣品單控制表 ON 確認樣品單明細表.樣品流水號二 = 確認樣品單控制表.底部 
                                   (確認樣品單控制表.顏色 Like N'" & PA & "') ORDER BY   確認樣品單控制表.顏色, 確認樣品單明細表.細項"
         CmdSet_For_DGV()
     End Sub
-    Friend Sub SQL_新增確認樣品單明細表暫存檔()
-        ConnOpen()
-        SQL1 = "INSERT INTO 確認樣品單明細表暫存檔 (樣品流水號二, 樣品流水號三, 細項, 內容, 廠商, 樣品流水號) 
-                                VALUES ('" & 樣品單流水號變數2 & "3" & "','" & 樣品單流水號變數3 & "',N'" & PA21 & "',
-                                       N'" & PA19 & "',N'" & PA20 & "','" & 樣品單流水號變數1 & "')"
-        CmdSet_For_dr()
-    End Sub
-    Friend Sub SQL_確認樣品單明細表清單1()
+    Friend Sub SQL_確認樣品單明細表清單4()
         ConnOpen()
         SQL1 = "SELECT 確認樣品單控制表.顏色, 確認樣品單明細表.樣品流水號二, 確認樣品單明細表.樣品流水號三, 確認樣品單明細表.細項, 確認樣品單明細表.內容, 確認樣品單明細表.廠商, 
                                    確認樣品單明細表.樣品流水號 FROM 確認樣品單明細表 LEFT OUTER JOIN 確認樣品單控制表 ON 確認樣品單明細表.樣品流水號二 = 確認樣品單控制表.飾物 
                                   (確認樣品單控制表.顏色 LIKE N'" & PA & "') ORDER BY   確認樣品單控制表.顏色, 確認樣品單明細表.細項"
         CmdSet_For_DGV()
     End Sub
+    Friend Sub SQL_新增確認樣品單控制表暫存檔2()
+        ConnOpen()
+        SQL1 = "INSERT INTO 確認樣品單明細表暫存檔 (樣品流水號二, 樣品流水號三, 細項, 內容, 廠商, 樣品流水號) 
+                                VALUES ('" & 樣品單流水號變數2 & "1" & "','" & 樣品單流水號變數3 & "',N'" & PA21 & "',
+                                       N'" & PA19 & "', N'" & PA20 & "','" & 樣品單流水號變數1 & "')"
+        CmdSet_For_dr()
+    End Sub
+
+    Friend Sub SQL_新增確認樣品單控制表暫存檔3()
+        ConnOpen()
+        SQL1 = "INSERT INTO 確認樣品單明細表暫存檔 (樣品流水號二, 樣品流水號三, 細項, 內容, 廠商, 樣品流水號) 
+                                VALUES ('" & 樣品單流水號變數2 & "2" & "','" & 樣品單流水號變數3 & "',N'" & PA21 & "',
+                                       N'" & PA19 & "',N'" & PA20 & "','" & 樣品單流水號變數1 & "')"
+        CmdSet_For_dr()
+    End Sub
+
+    Friend Sub SQL_新增確認樣品單明細表暫存檔()
+        ConnOpen()
+        SQL1 = "INSERT INTO 確認樣品單明細表暫存檔 (樣品流水號二, 樣品流水號三, 細項, 內容, 廠商, 樣品流水號) 
+                                VALUES ('" & 樣品單流水號變數2 & "3" & "','" & 樣品單流水號變數3 & "',N'" & PA21 & "',
+                                       N'" & PA19 & "',N'" & PA20 & "','" & 樣品單流水號變數1 & "')"
+        CmdSet_For_dr()
+    End Sub
+
     Friend Sub SQL_新增確認樣品單明細表暫存檔3()
         ConnOpen()
         SQL1 = "INSERT INTO 確認樣品單明細表暫存檔 (樣品流水號二, 樣品流水號三, 細項, 內容, 廠商, 樣品流水號) 
-                                VALUES ('" & 樣品單流水號變數2 & "4" & "','" & 樣品單流水號變數3 & "',N'" & PA19 & "',
+                                VALUES ('" & 樣品單流水號變數2 & "4" & "','" & 樣品單流水號變數3 & "',N'" & PA21 & "',
                                        N'" & PA19 & "',N'" & PA20 & "','" & 樣品單流水號變數1 & "')"
         CmdSet_For_dr()
     End Sub

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

     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 = "2022022101"
+    Public 版本 As String = "2022022201"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 匯率 As Double
 

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

 D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\TENDEN-ERP-SYS.exe
 D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\TENDEN-ERP-SYS.xml
 D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\TENDEN-ERP-SYS.pdb
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾系統.vbprojAssemblyReference.cache
 C:\Users\yee\Desktop\工巧明專案\tenden-erp-sys-team\TENDEN-MES-SYS\bin\Debug\TENDEN-ERP-SYS.exe.config
 C:\Users\yee\Desktop\工巧明專案\tenden-erp-sys-team\TENDEN-MES-SYS\bin\Debug\TENDEN-ERP-SYS.exe
 C:\Users\yee\Desktop\工巧明專案\tenden-erp-sys-team\TENDEN-MES-SYS\bin\Debug\TENDEN-ERP-SYS.pdb

TENDEN-MES-SYS/樣品訂單管理/中文樣品單系統/中文樣品單.Designer.vb

     '請勿使用程式碼編輯器進行修改。
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
-        Dim DataGridViewCellStyle25 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle26 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle27 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle28 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle29 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle30 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.Label1 = New System.Windows.Forms.Label()
         Me.Label2 = New System.Windows.Forms.Label()
         Me.Label3 = New System.Windows.Forms.Label()
         '
         '清單_dgv
         '
-        DataGridViewCellStyle25.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.清單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle25
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.清單_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        Me.清單_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.清單_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.清單_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.清單_dgv.Location = New System.Drawing.Point(1016, 4)
         '
         '圖片1_dgv
         '
-        DataGridViewCellStyle26.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.圖片1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle26
+        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.圖片1_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
         Me.圖片1_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.圖片1_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.圖片1_dgv.Location = New System.Drawing.Point(1016, 4)
         '
         '圖片2_dgv
         '
-        DataGridViewCellStyle27.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.圖片2_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle27
+        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.圖片2_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
         Me.圖片2_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.圖片2_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.圖片2_dgv.Location = New System.Drawing.Point(1016, 4)
         Me.圖片2_dgv.Name = "圖片2_dgv"
         Me.圖片2_dgv.RowHeadersWidth = 5
-        DataGridViewCellStyle28.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
-        Me.圖片2_dgv.RowsDefaultCellStyle = DataGridViewCellStyle28
+        DataGridViewCellStyle4.Font = New System.Drawing.Font("微軟正黑體", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.圖片2_dgv.RowsDefaultCellStyle = DataGridViewCellStyle4
         Me.圖片2_dgv.RowTemplate.Height = 24
         Me.圖片2_dgv.Size = New System.Drawing.Size(900, 208)
         Me.圖片2_dgv.TabIndex = 343
         '
         '顏色_dgv
         '
+        Me.顏色_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.顏色_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.顏色_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.顏色_dgv.Location = New System.Drawing.Point(3, 3)
         '
         '面料_dgv
         '
+        Me.面料_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.面料_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.面料_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.面料_dgv.Location = New System.Drawing.Point(85, 181)
         '
         '內裡_dgv
         '
+        Me.內裡_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.內裡_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.內裡_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.內裡_dgv.Location = New System.Drawing.Point(85, 373)
         '
         '底部_dgv
         '
+        Me.底部_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.底部_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.底部_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.底部_dgv.Location = New System.Drawing.Point(85, 565)
         '
         '飾物_dgv
         '
+        Me.飾物_dgv.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.飾物_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.飾物_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.飾物_dgv.Location = New System.Drawing.Point(85, 757)
         '
         '圖片4_dgv
         '
-        DataGridViewCellStyle29.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.圖片4_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle29
+        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.圖片4_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
         Me.圖片4_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.圖片4_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.圖片4_dgv.Location = New System.Drawing.Point(1016, 4)
         '
         '圖片3_dgv
         '
-        DataGridViewCellStyle30.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.圖片3_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle30
+        DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(192, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
+        Me.圖片3_dgv.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
         Me.圖片3_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
         Me.圖片3_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.圖片3_dgv.Location = New System.Drawing.Point(1016, 4)
         '
         'GroupBox1
         '
+        Me.GroupBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.GroupBox1.Controls.Add(Me.調用資料_bt)
         Me.GroupBox1.Controls.Add(Me.Label42)
         Me.GroupBox1.Controls.Add(Me.Label26)
         '
         'GroupBox2
         '
+        Me.GroupBox2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.GroupBox2.Controls.Add(Me.新增樣品單_bt)
         Me.GroupBox2.Controls.Add(Me.新增樣品單_ch)
         Me.GroupBox2.Controls.Add(Me.複製樣品單_ch)
         '
         'GroupBox3
         '
+        Me.GroupBox3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.GroupBox3.Controls.Add(Me.調用Color_bt)
         Me.GroupBox3.Controls.Add(Me.調用ConstrucName_bt)
         Me.GroupBox3.Controls.Add(Me.Label23)
         '
         'GroupBox4
         '
+        Me.GroupBox4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.GroupBox4.Controls.Add(Me.取消編輯_bt)
         Me.GroupBox4.Controls.Add(Me.編輯模式_bt)
         Me.GroupBox4.Controls.Add(Me.樣品單存檔_bt)
         '
         'GroupBox5
         '
+        Me.GroupBox5.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.GroupBox5.Controls.Add(Me.新增顏色清單_bt)
         Me.GroupBox5.Controls.Add(Me.新增項目清單_bt)
         Me.GroupBox5.Controls.Add(Me.新增廠商清單_bt)
         Me.GroupBox6.Controls.Add(Me.調用_bt)
         Me.GroupBox6.Controls.Add(Me.刪除樣品單_bt)
         Me.GroupBox6.Controls.Add(Me.調用開發資料_ch)
-        Me.GroupBox6.Location = New System.Drawing.Point(1224, 15)
+        Me.GroupBox6.Location = New System.Drawing.Point(1189, 20)
         Me.GroupBox6.Name = "GroupBox6"
         Me.GroupBox6.Size = New System.Drawing.Size(658, 150)
         Me.GroupBox6.TabIndex = 476
         '
         'Panel1
         '
+        Me.Panel1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.Panel1.AutoScroll = True
         Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
         Me.Panel1.Controls.Add(Me.GroupBox7)
         '
         'GroupBox7
         '
+        Me.GroupBox7.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.GroupBox7.Controls.Add(Me.刪除顏色_bt)
         Me.GroupBox7.Controls.Add(Me.顯示確認資訊_ch)
         Me.GroupBox7.Controls.Add(Me.新增顏色_bt)

TENDEN-MES-SYS/樣品訂單管理/中文樣品單系統/中文樣品單.vb

                 控制項階段_cb.Items.Clear() : 階段_cb.Items.Clear()
                 階段_cb.Items.Add("ILR") : 階段_cb.Items.Add("FLR") : 階段_cb.Items.Add("SMS") : 階段_cb.Items.Add("SMU") : 階段_cb.Items.Add("Proto") : 階段_cb.Items.Add("Line")
                 階段_cb.Items.Add("Canada")
-                控制項階段_cb.Items.Add("ILR") : 控制項階段_cb.Items.Add("FLR") : 控制項階段_cb.Items.Add("SMS") : 控制項階段_cb.Items.Add("SMU") : 控制項階段_cb.Items.Add("Proto") : 控制項階段_cb.Items.Add("Line")
+                控制項階段_cb.Items.Add("ILR") : 控制項階段_cb.Items.Add("FLR") : 控制項階段_cb.Items.Add("SMS") : 控制項階段_cb.Items.Add("SMU") : 控制項階段_cb.Items.Add("Proto")
+                控制項階段_cb.Items.Add("Line")
                 控制項階段_cb.Items.Add("Canada")
             End If
         Catch ex As Exception
                     Set_樣品單流水編號設定2()
                     For i As Integer = 0 To 顏色_dgv.Rows.Count - 1
                         Set_樣品單流水編號設定2_1()
-                        PA = 顏色_dgv.Rows(i).Cells("顏色").Value : PA1 = 顏色_dgv.Rows(i).Cells("訂單顏色").Value
-                        PA2 = 顏色_dgv.Rows(i).Cells("數量").Value : PA3 = 顏色_dgv.Rows(i).Cells("備註").Value
-                        PA4 = 顏色_dgv.Rows(i).Cells("FINISH").Value : PA5 = 顏色_dgv.Rows(i).Cells("掛牌Date").Value
-                        PA6 = 顏色_dgv.Rows(i).Cells("掛牌Color").Value : PA7 = 顏色_dgv.Rows(i).Cells("Material_Article").Value
-                        PA8 = 顏色_dgv.Rows(i).Cells("Construc_Name").Value : PA9 = 顏色_dgv.Rows(i).Cells("Insole").Value
-                        PA10 = 顏色_dgv.Rows(i).Cells("Footbed").Value : PA11 = 顏色_dgv.Rows(i).Cells("掛牌Size").Value
-                        PA12 = 顏色_dgv.Rows(i).Cells("Gender").Value : PA13 = 顏色_dgv.Rows(i).Cells("Width").Value
-                        PA14 = 顏色_dgv.Rows(i).Cells("D_C_S").Value : PA15 = 顏色_dgv.Rows(i).Cells("Stage").Value
-                        PA16 = 顏色_dgv.Rows(i).Cells("掛牌Comments").Value : PA17 = 顏色_dgv.Rows(i).Cells("ItemNumber").Value
-                        PA18 = 顏色_dgv.Rows(i).Cells("CFM").Value
+                        PA = 顏色_dgv.Rows(i).Cells("顏色").Value.ToString : PA1 = 顏色_dgv.Rows(i).Cells("訂單顏色").Value.ToString
+                        PA2 = 顏色_dgv.Rows(i).Cells("數量").Value.ToString : PA3 = 顏色_dgv.Rows(i).Cells("備註").Value.ToString
+                        PA4 = 顏色_dgv.Rows(i).Cells("FINISH").Value.ToString : PA5 = 顏色_dgv.Rows(i).Cells("掛牌Date").Value.ToString
+                        PA6 = 顏色_dgv.Rows(i).Cells("掛牌Color").Value.ToString : PA7 = 顏色_dgv.Rows(i).Cells("Material_Article").Value.ToString
+                        PA8 = 顏色_dgv.Rows(i).Cells("Construc_Name").Value.ToString : PA9 = 顏色_dgv.Rows(i).Cells("Insole").Value.ToString
+                        PA10 = 顏色_dgv.Rows(i).Cells("Footbed").Value.ToString : PA11 = 顏色_dgv.Rows(i).Cells("掛牌Size").Value.ToString
+                        PA12 = 顏色_dgv.Rows(i).Cells("Gender").Value.ToString : PA13 = 顏色_dgv.Rows(i).Cells("Width").Value.ToString
+                        PA14 = 顏色_dgv.Rows(i).Cells("D_C_S").Value.ToString : PA15 = 顏色_dgv.Rows(i).Cells("Stage").Value.ToString
+                        PA16 = 顏色_dgv.Rows(i).Cells("掛牌Comments").Value.ToString : PA17 = 顏色_dgv.Rows(i).Cells("ItemNumber").Value.ToString
+                        PA18 = 顏色_dgv.Rows(i).Cells("CFM").Value.ToString
                         SQL_新增確認樣品單控制表暫存檔1() : conn.Close()
                         '-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
                         中繼_dgv.DataSource = Nothing : ds8.Clear()
                         中繼_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
                         中繼_dgv.ColumnHeadersHeight = 25
                         中繼_dgv.AllowUserToAddRows = False
-                        PA = 顏色_dgv.Rows(i).Cells("顏色").Value : SQL_中繼()
+                        PA = 顏色_dgv.Rows(i).Cells("顏色").Value.ToString
+                        SQL_確認樣品單明細表清單1()
                         da.SelectCommand.CommandTimeout = 900 : da.Fill(ds8) : 中繼_dgv.DataSource = ds8.Tables(0) : conn.Close()
                         For ii As Integer = 0 To 中繼_dgv.Rows.Count - 1
                             If ii < 10 Then : 樣品單流水號變數3 = 樣品單流水號變數2 & "1" & "0" & ii + 1
                             ElseIf ii > 9 Then : 樣品單流水號變數3 = 樣品單流水號變數2 & "1" & ii + 1
                             End If
-                            PA19 = 中繼_dgv.Rows(ii).Cells("內容").Value : PA20 = 中繼_dgv.Rows(ii).Cells("廠商").Value
-                            PA21 = 中繼_dgv.Rows(ii).Cells("細項").Value
+                            PA19 = 中繼_dgv.Rows(ii).Cells("內容").Value.ToString : PA20 = 中繼_dgv.Rows(ii).Cells("廠商").Value.ToString
+                            PA21 = 中繼_dgv.Rows(ii).Cells("細項").Value.ToString
                             SQL_新增確認樣品單控制表暫存檔2() : conn.Close()
                             新增面料 = ii + 1
                         Next
+
                         中繼_dgv.DataSource = Nothing : ds8.Clear()
                         中繼_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
                         中繼_dgv.ColumnHeadersHeight = 25
                         中繼_dgv.AllowUserToAddRows = False
-                        SQL_中繼1()
+                        PA = 顏色_dgv.Rows(i).Cells("顏色").Value.ToString
+                        SQL_確認樣品單明細表清單2()
                         da.SelectCommand.CommandTimeout = 900 : da.Fill(ds8) : 中繼_dgv.DataSource = ds8.Tables(0) : conn.Close()
                         For ii As Integer = 0 To 中繼_dgv.Rows.Count - 1
                             If ii < 10 Then : 樣品單流水號變數3 = 樣品單流水號變數2 & "2" & "0" & ii + 1
                             ElseIf ii > 9 Then : 樣品單流水號變數3 = 樣品單流水號變數2 & "2" & ii + 1
                             End If
-                            PA21 = 中繼_dgv.Rows(ii).Cells("細項").Value : PA19 = 中繼_dgv.Rows(ii).Cells("內容").Value
-                            PA20 = 中繼_dgv.Rows(ii).Cells("廠商").Value
+                            PA19 = 中繼_dgv.Rows(ii).Cells("內容").Value.ToString : PA20 = 中繼_dgv.Rows(ii).Cells("廠商").Value.ToString
+                            PA21 = 中繼_dgv.Rows(ii).Cells("細項").Value.ToString
                             SQL_新增確認樣品單控制表暫存檔3() : conn.Close()
                             新增內裏 = ii + 1
                         Next
+
                         中繼_dgv.DataSource = Nothing : ds8.Clear()
                         中繼_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
                         中繼_dgv.ColumnHeadersHeight = 25
                         中繼_dgv.AllowUserToAddRows = False
-                        PA = 顏色_dgv.Rows(i).Cells("顏色").Value
-                        SQL_確認樣品單明細表清單()
+                        PA = 顏色_dgv.Rows(i).Cells("顏色").Value.ToString
+                        SQL_確認樣品單明細表清單3()
                         da.SelectCommand.CommandTimeout = 900 : da.Fill(ds8) : 中繼_dgv.DataSource = ds8.Tables(0) : conn.Close()
                         For ii As Integer = 0 To 中繼_dgv.Rows.Count - 1
                             If ii < 10 Then : 樣品單流水號變數3 = 樣品單流水號變數2 & "3" & "0" & ii + 1
                             ElseIf ii > 9 Then : 樣品單流水號變數3 = 樣品單流水號變數2 & "3" & ii + 1
                             End If
-                            PA19 = 中繼_dgv.Rows(ii).Cells("內容").Value : PA20 = 中繼_dgv.Rows(ii).Cells("廠商").Value
-                            PA21 = 中繼_dgv.Rows(ii).Cells("細項").Value
+                            PA19 = 中繼_dgv.Rows(ii).Cells("內容").Value.ToString : PA20 = 中繼_dgv.Rows(ii).Cells("廠商").Value.ToString
+                            PA21 = 中繼_dgv.Rows(ii).Cells("細項").Value.ToString
                             SQL_新增確認樣品單明細表暫存檔() : conn.Close()
                             新增底部 = ii + 1
                         Next
+
                         中繼_dgv.DataSource = Nothing : ds8.Clear()
                         中繼_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
                         中繼_dgv.ColumnHeadersHeight = 25
                         中繼_dgv.AllowUserToAddRows = False
-                        PA = 顏色_dgv.Rows(i).Cells("顏色").Value
-                        SQL_確認樣品單明細表清單1()
+                        PA = 顏色_dgv.Rows(i).Cells("顏色").Value.ToString
+                        SQL_確認樣品單明細表清單4()
                         da.SelectCommand.CommandTimeout = 900 : da.Fill(ds8) : 中繼_dgv.DataSource = ds8.Tables(0) : conn.Close()
                         For ii As Integer = 0 To 中繼_dgv.Rows.Count - 1
                             If ii < 10 Then : 樣品單流水號變數3 = 樣品單流水號變數2 & "4" & "0" & ii + 1
                             ElseIf ii > 9 Then : 樣品單流水號變數3 = 樣品單流水號變數2 & "4" & ii + 1
                             End If
-                            PA19 = 中繼_dgv.Rows(ii).Cells("內容").Value : PA20 = 中繼_dgv.Rows(ii).Cells("廠商").Value
-                            PA21 = 中繼_dgv.Rows(ii).Cells("細項").Value
+                            PA19 = 中繼_dgv.Rows(ii).Cells("內容").Value.ToString : PA20 = 中繼_dgv.Rows(ii).Cells("廠商").Value.ToString
+                            PA21 = 中繼_dgv.Rows(ii).Cells("細項").Value.ToString
                             SQL_新增確認樣品單明細表暫存檔3() : conn.Close()
                             新增飾物 = ii + 1
                         Next
         Try
             Dim ii As Integer = 0
             If 暫存模式 = True Then
-                PA22 = 中繼_dgv.Rows(ii).Cells("樣品流水號二").Value
+                PA22 = 中繼_dgv.Rows(ii).Cells("樣品流水號二").Value.ToString
                 SQL_新增確認樣品單明細表暫存檔4() : conn.Close()
             ElseIf 暫存模式 = False Then
+                PA22 = 中繼_dgv.Rows(ii).Cells("樣品流水號二").Value.ToString
                 SQL_新增確認樣品單明細表暫存檔5() : conn.Close()
             End If
         Catch ex As Exception
                 中繼_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
                 中繼_dgv.ColumnHeadersHeight = 25
                 中繼_dgv.AllowUserToAddRows = False
-                PA = 顏色_dgv.Rows(i).Cells("顏色").Value
+                PA = 顏色_dgv.Rows(i).Cells("顏色").Value.ToString
                 SQL_確認樣品單控制表暫存檔1()
                 da.SelectCommand.CommandTimeout = 900 : da.Fill(ds8) : 中繼_dgv.DataSource = ds8.Tables(0) : conn.Close()
                 Dim ii As Integer = 0
                 If 新增面料 = 1 Then
-                    樣品單流水號變數3 = 中繼_dgv.Rows(ii).Cells("樣品流水號二").Value & "0" & 新增面料
+                    樣品單流水號變數3 = 中繼_dgv.Rows(ii).Cells("樣品流水號二").Value.ToString & "0" & 新增面料
                 Else
                     If Format(Val(Strings.Right(中繼_dgv(2, ii).Value.ToString, 2)), "##0") < 10 Then
-                        樣品單流水號變數3 = 中繼_dgv.Rows(ii).Cells("樣品流水號二").Value & "0" & Format(Val(Strings.Right(中繼_dgv(2, ii).Value.ToString, 2)) + 1, "##0")
+                        樣品單流水號變數3 = 中繼_dgv.Rows(ii).Cells("樣品流水號二").Value.ToString & "0" & Format(Val(Strings.Right(中繼_dgv(2, ii).Value.ToString, 2)) + 1, "##0")
                     ElseIf Format(Val(Strings.Right(中繼_dgv(2, ii).Value.ToString, 2)), "##0") > 9 Then
-                        樣品單流水號變數3 = 中繼_dgv.Rows(ii).Cells("樣品流水號二").Value & Format(Val(Strings.Right(中繼_dgv(2, ii).Value.ToString, 2)) + 1, "##0")
+                        樣品單流水號變數3 = 中繼_dgv.Rows(ii).Cells("樣品流水號二").Value.ToString & Format(Val(Strings.Right(中繼_dgv(2, ii).Value.ToString, 2)) + 1, "##0")
                     End If
                 End If
                 明細暫存檔寫入()
                 中繼_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
                 中繼_dgv.ColumnHeadersHeight = 25
                 中繼_dgv.AllowUserToAddRows = False
-                PA = 顏色_dgv.Rows(i).Cells("顏色").Value
+                PA = 顏色_dgv.Rows(i).Cells("顏色").Value.ToString
                 SQL_中繼3()
                 da.SelectCommand.CommandTimeout = 900 : da.Fill(ds8) : 中繼_dgv.DataSource = ds8.Tables(0) : conn.Close()
                 Dim ii As Integer = 0
                 If Format(Val(Strings.Right(中繼_dgv(2, ii).Value.ToString, 2)), "##0") < 10 Then
-                    樣品單流水號變數3 = 中繼_dgv.Rows(ii).Cells("樣品流水號二").Value & "0" & Format(Val(Strings.Right(中繼_dgv(2, ii).Value.ToString, 2)) + 1, "##0")
+                    樣品單流水號變數3 = 中繼_dgv.Rows(ii).Cells("樣品流水號二").Value.ToString & "0" & Format(Val(Strings.Right(中繼_dgv(2, ii).Value.ToString, 2)) + 1, "##0")
                 ElseIf Format(Val(Strings.Right(中繼_dgv(2, ii).Value.ToString, 2)), "##0") > 9 Then
-                    樣品單流水號變數3 = 中繼_dgv.Rows(ii).Cells("樣品流水號二").Value & Format(Val(Strings.Right(中繼_dgv(2, ii).Value.ToString, 2)) + 1, "##0")
+                    樣品單流水號變數3 = 中繼_dgv.Rows(ii).Cells("樣品流水號二").Value.ToString & Format(Val(Strings.Right(中繼_dgv(2, ii).Value.ToString, 2)) + 1, "##0")
                 End If
                 明細暫存檔寫入()
             Next
                 中繼_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
                 中繼_dgv.ColumnHeadersHeight = 25
                 中繼_dgv.AllowUserToAddRows = False
-                PA = 顏色_dgv.Rows(i).Cells("顏色").Value
+                PA = 顏色_dgv.Rows(i).Cells("顏色").Value.ToString
                 SQL_新增內裏()
                 da.SelectCommand.CommandTimeout = 900 : da.Fill(ds8) : 中繼_dgv.DataSource = ds8.Tables(0) : conn.Close()
                 Dim ii As Integer = 0
                 If 新增內裏 = 1 Then
-                    樣品單流水號變數3 = 中繼_dgv.Rows(ii).Cells("樣品流水號二").Value & "0" & 新增內裏
+                    樣品單流水號變數3 = 中繼_dgv.Rows(ii).Cells("樣品流水號二").Value.ToString & "0" & 新增內裏
                 Else
                     If Format(Val(Strings.Right(中繼_dgv(2, ii).Value.ToString, 2)), "##0") < 10 Then
-                        樣品單流水號變數3 = 中繼_dgv.Rows(ii).Cells("樣品流水號二").Value & "0" & Format(Val(Strings.Right(中繼_dgv(2, ii).Value.ToString, 2)) + 1, "##0")
+                        樣品單流水號變數3 = 中繼_dgv.Rows(ii).Cells("樣品流水號二").Value.ToString & "0" & Format(Val(Strings.Right(中繼_dgv(2, ii).Value.ToString, 2)) + 1, "##0")
                     ElseIf Format(Val(Strings.Right(中繼_dgv(2, ii).Value.ToString, 2)), "##0") > 9 Then
-                        樣品單流水號變數3 = 中繼_dgv.Rows(ii).Cells("樣品流水號二").Value & Format(Val(Strings.Right(中繼_dgv(2, ii).Value.ToString, 2)) + 1, "##0")
+                        樣品單流水號變數3 = 中繼_dgv.Rows(ii).Cells("樣品流水號二").Value.ToString & Format(Val(Strings.Right(中繼_dgv(2, ii).Value.ToString, 2)) + 1, "##0")
                     End If
                 End If
                 明細暫存檔寫入()
                 中繼_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
                 中繼_dgv.ColumnHeadersHeight = 25
                 中繼_dgv.AllowUserToAddRows = False
-                PA = 顏色_dgv.Rows(i).Cells("顏色").Value
+                PA = 顏色_dgv.Rows(i).Cells("顏色").Value.ToString
                 SQL_查詢內裡()
                 da.SelectCommand.CommandTimeout = 900 : da.Fill(ds8) : 中繼_dgv.DataSource = ds8.Tables(0) : conn.Close()
                 Dim ii As Integer = 0
                 If Format(Val(Strings.Right(中繼_dgv(2, ii).Value.ToString, 2)), "##0") < 10 Then
-                    樣品單流水號變數3 = 中繼_dgv.Rows(ii).Cells("樣品流水號二").Value & "0" & Format(Val(Strings.Right(中繼_dgv(2, ii).Value.ToString, 2)) + 1, "##0")
+                    樣品單流水號變數3 = 中繼_dgv.Rows(ii).Cells("樣品流水號二").Value.ToString & "0" & Format(Val(Strings.Right(中繼_dgv(2, ii).Value.ToString, 2)) + 1, "##0")
                 ElseIf Format(Val(Strings.Right(中繼_dgv(2, ii).Value.ToString, 2)), "##0") > 9 Then
-                    樣品單流水號變數3 = 中繼_dgv.Rows(ii).Cells("樣品流水號二").Value & Format(Val(Strings.Right(中繼_dgv(2, ii).Value.ToString, 2)) + 1, "##0")
+                    樣品單流水號變數3 = 中繼_dgv.Rows(ii).Cells("樣品流水號二").Value.ToString & Format(Val(Strings.Right(中繼_dgv(2, ii).Value.ToString, 2)) + 1, "##0")
                 End If
                 明細暫存檔寫入()
             Next
                 中繼_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
                 中繼_dgv.ColumnHeadersHeight = 25
                 中繼_dgv.AllowUserToAddRows = False
-                PA = 顏色_dgv.Rows(i).Cells("顏色").Value
+                PA = 顏色_dgv.Rows(i).Cells("顏色").Value.ToString
                 SQL_查詢新增底部()
                 da.SelectCommand.CommandTimeout = 900 : da.Fill(ds8) : 中繼_dgv.DataSource = ds8.Tables(0) : conn.Close()
                 Dim ii As Integer = 0
                 If 新增底部 = 1 Then
-                    樣品單流水號變數3 = 中繼_dgv.Rows(ii).Cells("樣品流水號二").Value & "0" & 新增底部
+                    樣品單流水號變數3 = 中繼_dgv.Rows(ii).Cells("樣品流水號二").Value.ToString & "0" & 新增底部
                 Else
                     If Format(Val(Strings.Right(中繼_dgv(2, ii).Value.ToString, 2)), "##0") < 10 Then
-                        樣品單流水號變數3 = 中繼_dgv.Rows(ii).Cells("樣品流水號二").Value & "0" & Format(Val(Strings.Right(中繼_dgv(2, ii).Value.ToString, 2)) + 1, "##0")
+                        樣品單流水號變數3 = 中繼_dgv.Rows(ii).Cells("樣品流水號二").Value.ToString & "0" & Format(Val(Strings.Right(中繼_dgv(2, ii).Value.ToString, 2)) + 1, "##0")
                     ElseIf Format(Val(Strings.Right(中繼_dgv(2, ii).Value.ToString, 2)), "##0") > 9 Then
-                        樣品單流水號變數3 = 中繼_dgv.Rows(ii).Cells("樣品流水號二").Value & Format(Val(Strings.Right(中繼_dgv(2, ii).Value.ToString, 2)) + 1, "##0")
+                        樣品單流水號變數3 = 中繼_dgv.Rows(ii).Cells("樣品流水號二").Value.ToString & Format(Val(Strings.Right(中繼_dgv(2, ii).Value.ToString, 2)) + 1, "##0")
                     End If
                 End If
                 明細暫存檔寫入()
                 中繼_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
                 中繼_dgv.ColumnHeadersHeight = 25
                 中繼_dgv.AllowUserToAddRows = False
-                PA = 顏色_dgv.Rows(i).Cells("顏色").Value
+                PA = 顏色_dgv.Rows(i).Cells("顏色").Value.ToString
                 SQL_查詢底部()
                 da.SelectCommand.CommandTimeout = 900 : da.Fill(ds8) : 中繼_dgv.DataSource = ds8.Tables(0) : conn.Close()
                 Dim ii As Integer = 0
                 If Format(Val(Strings.Right(中繼_dgv(2, ii).Value.ToString, 2)), "##0") < 10 Then
-                    樣品單流水號變數3 = 中繼_dgv.Rows(ii).Cells("樣品流水號二").Value & "0" & Format(Val(Strings.Right(中繼_dgv(2, ii).Value.ToString, 2)) + 1, "##0")
+                    樣品單流水號變數3 = 中繼_dgv.Rows(ii).Cells("樣品流水號二").Value.ToString & "0" & Format(Val(Strings.Right(中繼_dgv(2, ii).Value.ToString, 2)) + 1, "##0")
                 ElseIf Format(Val(Strings.Right(中繼_dgv(2, ii).Value.ToString, 2)), "##0") > 9 Then
-                    樣品單流水號變數3 = 中繼_dgv.Rows(ii).Cells("樣品流水號二").Value & Format(Val(Strings.Right(中繼_dgv(2, ii).Value.ToString, 2)) + 1, "##0")
+                    樣品單流水號變數3 = 中繼_dgv.Rows(ii).Cells("樣品流水號二").Value.ToString & Format(Val(Strings.Right(中繼_dgv(2, ii).Value.ToString, 2)) + 1, "##0")
                 End If
                 明細暫存檔寫入()
             Next
                 中繼_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
                 中繼_dgv.ColumnHeadersHeight = 25
                 中繼_dgv.AllowUserToAddRows = False
-                PA = 顏色_dgv.Rows(i).Cells("顏色").Value
+                PA = 顏色_dgv.Rows(i).Cells("顏色").Value.ToString
                 SQL_查詢新增飾物()
                 da.SelectCommand.CommandTimeout = 900 : da.Fill(ds8) : 中繼_dgv.DataSource = ds8.Tables(0) : conn.Close()
                 Dim ii As Integer = 0
                 If 新增飾物 = 1 Then
-                    樣品單流水號變數3 = 中繼_dgv.Rows(ii).Cells("樣品流水號二").Value & "0" & 新增飾物
+                    樣品單流水號變數3 = 中繼_dgv.Rows(ii).Cells("樣品流水號二").Value.ToString & "0" & 新增飾物
                 Else
                     If Format(Val(Strings.Right(中繼_dgv(2, ii).Value.ToString, 2)), "##0") < 10 Then
-                        樣品單流水號變數3 = 中繼_dgv.Rows(ii).Cells("樣品流水號二").Value & "0" & Format(Val(Strings.Right(中繼_dgv(2, ii).Value.ToString, 2)) + 1, "##0")
+                        樣品單流水號變數3 = 中繼_dgv.Rows(ii).Cells("樣品流水號二").Value.ToString & "0" & Format(Val(Strings.Right(中繼_dgv(2, ii).Value.ToString, 2)) + 1, "##0")
                     ElseIf Format(Val(Strings.Right(中繼_dgv(2, ii).Value.ToString, 2)), "##0") > 9 Then
-                        樣品單流水號變數3 = 中繼_dgv.Rows(ii).Cells("樣品流水號二").Value & Format(Val(Strings.Right(中繼_dgv(2, ii).Value.ToString, 2)) + 1, "##0")
+                        樣品單流水號變數3 = 中繼_dgv.Rows(ii).Cells("樣品流水號二").Value.ToString & Format(Val(Strings.Right(中繼_dgv(2, ii).Value.ToString, 2)) + 1, "##0")
                     End If
                 End If
                 明細暫存檔寫入()
                 中繼_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
                 中繼_dgv.ColumnHeadersHeight = 25
                 中繼_dgv.AllowUserToAddRows = False
-                PA = 顏色_dgv.Rows(i).Cells("顏色").Value : SQL_查詢飾物()
+                PA = 顏色_dgv.Rows(i).Cells("顏色").Value.ToString : SQL_查詢飾物()
                 da.SelectCommand.CommandTimeout = 900 : da.Fill(ds8) : 中繼_dgv.DataSource = ds8.Tables(0) : conn.Close()
                 Dim ii As Integer = 0
                 If Format(Val(Strings.Right(中繼_dgv(2, ii).Value.ToString, 2)), "##0") < 10 Then
-                    樣品單流水號變數3 = 中繼_dgv.Rows(ii).Cells("樣品流水號二").Value & "0" & Format(Val(Strings.Right(中繼_dgv(2, ii).Value.ToString, 2)) + 1, "##0")
+                    樣品單流水號變數3 = 中繼_dgv.Rows(ii).Cells("樣品流水號二").Value.ToString & "0" & Format(Val(Strings.Right(中繼_dgv(2, ii).Value.ToString, 2)) + 1, "##0")
                 ElseIf Format(Val(Strings.Right(中繼_dgv(2, ii).Value.ToString, 2)), "##0") > 9 Then
-                    樣品單流水號變數3 = 中繼_dgv.Rows(ii).Cells("樣品流水號二").Value & Format(Val(Strings.Right(中繼_dgv(2, ii).Value.ToString, 2)) + 1, "##0")
+                    樣品單流水號變數3 = 中繼_dgv.Rows(ii).Cells("樣品流水號二").Value.ToString & Format(Val(Strings.Right(中繼_dgv(2, ii).Value.ToString, 2)) + 1, "##0")
                 End If
                 明細暫存檔寫入()
             Next
     Private Sub 暫存檔寫入1()
         SQL_暫存檔寫入1修改確認樣品單抬頭暫存檔() : conn.Close()
         For i As Integer = 0 To 顏色_dgv.Rows.Count - 1
-            PA = 顏色_dgv.Rows(i).Cells("顏色").Value : PA1 = 顏色_dgv.Rows(i).Cells("Color_Code").Value
-            PA2 = 顏色_dgv.Rows(i).Cells("數量").Value : PA3 = 顏色_dgv.Rows(i).Cells("面料").Value
-            PA4 = 顏色_dgv.Rows(i).Cells("內裏").Value : PA5 = 顏色_dgv.Rows(i).Cells("底部").Value
-            PA6 = 顏色_dgv.Rows(i).Cells("飾物").Value : PA7 = 顏色_dgv.Rows(i).Cells("備註").Value
-            PA8 = 顏色_dgv.Rows(i).Cells("FINISH").Value : PA9 = 顏色_dgv.Rows(i).Cells("掛牌Date").Value
-            PA10 = 顏色_dgv.Rows(i).Cells("掛牌Color").Value : PA11 = 顏色_dgv.Rows(i).Cells("Material_Article").Value
-            PA12 = 顏色_dgv.Rows(i).Cells("Construc_Name").Value : PA13 = 顏色_dgv.Rows(i).Cells("Insole").Value
-            PA14 = 顏色_dgv.Rows(i).Cells("Footbed").Value : PA15 = 顏色_dgv.Rows(i).Cells("掛牌Size").Value
-            PA16 = 顏色_dgv.Rows(i).Cells("Gender").Value : PA17 = 顏色_dgv.Rows(i).Cells("Width").Value
-            PA18 = 顏色_dgv.Rows(i).Cells("D_C_S").Value : PA19 = 顏色_dgv.Rows(i).Cells("Stage").Value
-            PA20 = 顏色_dgv.Rows(i).Cells("掛牌Comments").Value : PA21 = 顏色_dgv.Rows(i).Cells("ItemNumber").Value
-            PA22 = 顏色_dgv.Rows(i).Cells("CFM").Value : PA23 = 顏色_dgv.Rows(i).Cells("樣品流水號一").Value
+            PA = 顏色_dgv.Rows(i).Cells("顏色").Value.ToString : PA1 = 顏色_dgv.Rows(i).Cells("Color_Code").Value.ToString
+            PA2 = 顏色_dgv.Rows(i).Cells("數量").Value.ToString : PA3 = 顏色_dgv.Rows(i).Cells("面料").Value.ToString
+            PA4 = 顏色_dgv.Rows(i).Cells("內裏").Value.ToString : PA5 = 顏色_dgv.Rows(i).Cells("底部").Value.ToString
+            PA6 = 顏色_dgv.Rows(i).Cells("飾物").Value.ToString : PA7 = 顏色_dgv.Rows(i).Cells("備註").Value.ToString
+            PA8 = 顏色_dgv.Rows(i).Cells("FINISH").Value.ToString : PA9 = 顏色_dgv.Rows(i).Cells("掛牌Date").Value.ToString
+            PA10 = 顏色_dgv.Rows(i).Cells("掛牌Color").Value.ToString : PA11 = 顏色_dgv.Rows(i).Cells("Material_Article").Value.ToString
+            PA12 = 顏色_dgv.Rows(i).Cells("Construc_Name").Value.ToString : PA13 = 顏色_dgv.Rows(i).Cells("Insole").Value.ToString
+            PA14 = 顏色_dgv.Rows(i).Cells("Footbed").Value.ToString : PA15 = 顏色_dgv.Rows(i).Cells("掛牌Size").Value.ToString
+            PA16 = 顏色_dgv.Rows(i).Cells("Gender").Value.ToString : PA17 = 顏色_dgv.Rows(i).Cells("Width").Value.ToString
+            PA18 = 顏色_dgv.Rows(i).Cells("D_C_S").Value.ToString : PA19 = 顏色_dgv.Rows(i).Cells("Stage").Value.ToString
+            PA20 = 顏色_dgv.Rows(i).Cells("掛牌Comments").Value.ToString : PA21 = 顏色_dgv.Rows(i).Cells("ItemNumber").Value.ToString
+            PA22 = 顏色_dgv.Rows(i).Cells("CFM").Value.ToString : PA23 = 顏色_dgv.Rows(i).Cells("樣品流水號一").Value.ToString
             SQL_暫存檔寫入1修改確認樣品單抬頭暫存檔1() : conn.Close()
         Next i
         If 面料_dgv.Rows.Count > 0 Then
             For i = 0 To 面料_dgv.Rows.Count - 1
-                PA = 面料_dgv.Rows(i).Cells("Item_N").Value : PA1 = 面料_dgv.Rows(i).Cells("內容").Value
-                PA2 = 面料_dgv.Rows(i).Cells("Factory").Value : PA3 = 面料_dgv.Rows(i).Cells("樣品流水號二").Value
-                PA4 = 面料_dgv.Rows(i).Cells("樣品流水號二").Value : PA5 = 面料_dgv.Rows(i).Cells("樣品流水號三").Value
-                PA6 = 面料_dgv.Rows(i).Cells("樣品流水號").Value
+                PA = 面料_dgv.Rows(i).Cells("Item_N").Value.ToString : PA1 = 面料_dgv.Rows(i).Cells("內容").Value.ToString
+                PA2 = 面料_dgv.Rows(i).Cells("Factory").Value.ToString : PA3 = 面料_dgv.Rows(i).Cells("樣品流水號二").Value.ToString
+                PA4 = 面料_dgv.Rows(i).Cells("樣品流水號二").Value.ToString : PA5 = 面料_dgv.Rows(i).Cells("樣品流水號三").Value.ToString
+                PA6 = 面料_dgv.Rows(i).Cells("樣品流水號").Value.ToString
                 SQL_暫存檔寫入1修改確認樣品單抬頭暫存檔2() : conn.Close()
             Next i
         End If
         If 內裡_dgv.Rows.Count > 0 Then
             For i = 0 To 內裡_dgv.Rows.Count - 1
-                PA = 內裡_dgv.Rows(i).Cells("Item_N").Value : PA1 = 內裡_dgv.Rows(i).Cells("內容").Value
-                PA2 = 內裡_dgv.Rows(i).Cells("Factory").Value : PA3 = 內裡_dgv.Rows(i).Cells("樣品流水號二").Value
-                PA4 = 內裡_dgv.Rows(i).Cells("樣品流水號三").Value : PA5 = 內裡_dgv.Rows(i).Cells("樣品流水號").Value
+                PA = 內裡_dgv.Rows(i).Cells("Item_N").Value.ToString : PA1 = 內裡_dgv.Rows(i).Cells("內容").Value.ToString
+                PA2 = 內裡_dgv.Rows(i).Cells("Factory").Value.ToString : PA3 = 內裡_dgv.Rows(i).Cells("樣品流水號二").Value.ToString
+                PA4 = 內裡_dgv.Rows(i).Cells("樣品流水號三").Value.ToString : PA5 = 內裡_dgv.Rows(i).Cells("樣品流水號").Value.ToString
                 SQL_暫存檔寫入1修改確認樣品單抬頭暫存檔3() : conn.Close()
             Next i
         End If
         If 底部_dgv.Rows.Count > 0 Then
             For i = 0 To 底部_dgv.Rows.Count - 1
-                PA = 底部_dgv.Rows(i).Cells("Item_N").Value : PA1 = 底部_dgv.Rows(i).Cells("內容").Value
-                PA2 = 底部_dgv.Rows(i).Cells("Factory").Value : PA3 = 底部_dgv.Rows(i).Cells("樣品流水號二").Value
-                PA4 = 底部_dgv.Rows(i).Cells("樣品流水號三").Value : PA5 = 底部_dgv.Rows(i).Cells("樣品流水號").Value
+                PA = 底部_dgv.Rows(i).Cells("Item_N").Value.ToString : PA1 = 底部_dgv.Rows(i).Cells("內容").Value.ToString
+                PA2 = 底部_dgv.Rows(i).Cells("Factory").Value.ToString : PA3 = 底部_dgv.Rows(i).Cells("樣品流水號二").Value.ToString
+                PA4 = 底部_dgv.Rows(i).Cells("樣品流水號三").Value.ToString : PA5 = 底部_dgv.Rows(i).Cells("樣品流水號").Value.ToString
                 SQL_暫存檔寫入1修改確認樣品單抬頭暫存檔4() : conn.Close()
             Next i
         End If
         If 飾物_dgv.Rows.Count > 0 Then
             For i = 0 To 飾物_dgv.Rows.Count - 1
-                PA = 飾物_dgv.Rows(i).Cells("Item_N").Value : PA1 = 飾物_dgv.Rows(i).Cells("內容").Value
-                PA2 = 飾物_dgv.Rows(i).Cells("Factory").Value : PA3 = 飾物_dgv.Rows(i).Cells("樣品流水號二").Value
-                PA4 = 飾物_dgv.Rows(i).Cells("樣品流水號三").Value : PA5 = 飾物_dgv.Rows(i).Cells("樣品流水號").Value
+                PA = 飾物_dgv.Rows(i).Cells("Item_N").Value.ToString : PA1 = 飾物_dgv.Rows(i).Cells("內容").Value.ToString
+                PA2 = 飾物_dgv.Rows(i).Cells("Factory").Value.ToString : PA3 = 飾物_dgv.Rows(i).Cells("樣品流水號二").Value.ToString
+                PA4 = 飾物_dgv.Rows(i).Cells("樣品流水號三").Value.ToString : PA5 = 飾物_dgv.Rows(i).Cells("樣品流水號").Value.ToString
                 SQL_暫存檔寫入1修改確認樣品單抬頭暫存檔5() : conn.Close()
             Next i
         End If
             End If
             SQL_新增確認樣品單抬頭() : conn.Close()
             For i As Integer = 0 To 顏色_dgv.Rows.Count - 1
-                PA = 顏色_dgv.Rows(i).Cells("樣品流水號").Value : PA1 = 顏色_dgv.Rows(i).Cells("樣品流水號一").Value
-                PA2 = 顏色_dgv.Rows(i).Cells("顏色").Value : PA3 = 顏色_dgv.Rows(i).Cells("Color_Code").Value
-                PA4 = 顏色_dgv.Rows(i).Cells("數量").Value : PA5 = 顏色_dgv.Rows(i).Cells("面料").Value
-                PA6 = 顏色_dgv.Rows(i).Cells("內裏").Value : PA7 = 顏色_dgv.Rows(i).Cells("底部").Value
-                PA8 = 顏色_dgv.Rows(i).Cells("飾物").Value : PA9 = 顏色_dgv.Rows(i).Cells("備註").Value
-                PA10 = 顏色_dgv.Rows(i).Cells("FINISH").Value : PA11 = 顏色_dgv.Rows(i).Cells("掛牌Date").Value
-                PA12 = 顏色_dgv.Rows(i).Cells("掛牌Color").Value : PA13 = 顏色_dgv.Rows(i).Cells("Material_Article").Value
-                PA14 = 顏色_dgv.Rows(i).Cells("Construc_Name").Value : PA15 = 顏色_dgv.Rows(i).Cells("Insole").Value
-                PA16 = 顏色_dgv.Rows(i).Cells("Footbed").Value : PA17 = 顏色_dgv.Rows(i).Cells("掛牌Comments").Value
-                PA18 = 顏色_dgv.Rows(i).Cells("ItemNumber").Value : PA19 = 顏色_dgv.Rows(i).Cells("CFM").Value
+                PA = 顏色_dgv.Rows(i).Cells("樣品流水號").Value.ToString : PA1 = 顏色_dgv.Rows(i).Cells("樣品流水號一").Value.ToString
+                PA2 = 顏色_dgv.Rows(i).Cells("顏色").Value.ToString : PA3 = 顏色_dgv.Rows(i).Cells("Color_Code").Value.ToString
+                PA4 = 顏色_dgv.Rows(i).Cells("數量").Value.ToString : PA5 = 顏色_dgv.Rows(i).Cells("面料").Value.ToString
+                PA6 = 顏色_dgv.Rows(i).Cells("內裏").Value.ToString : PA7 = 顏色_dgv.Rows(i).Cells("底部").Value.ToString
+                PA8 = 顏色_dgv.Rows(i).Cells("飾物").Value.ToString : PA9 = 顏色_dgv.Rows(i).Cells("備註").Value.ToString
+                PA10 = 顏色_dgv.Rows(i).Cells("FINISH").Value.ToString : PA11 = 顏色_dgv.Rows(i).Cells("掛牌Date").Value.ToString
+                PA12 = 顏色_dgv.Rows(i).Cells("掛牌Color").Value.ToString : PA13 = 顏色_dgv.Rows(i).Cells("Material_Article").Value.ToString
+                PA14 = 顏色_dgv.Rows(i).Cells("Construc_Name").Value.ToString : PA15 = 顏色_dgv.Rows(i).Cells("Insole").Value.ToString
+                PA16 = 顏色_dgv.Rows(i).Cells("Footbed").Value.ToString : PA17 = 顏色_dgv.Rows(i).Cells("掛牌Comments").Value.ToString
+                PA18 = 顏色_dgv.Rows(i).Cells("ItemNumber").Value.ToString : PA19 = 顏色_dgv.Rows(i).Cells("CFM").Value.ToString
                 SQL_新增確認樣品單控制表() : conn.Close()
                 SQL_新增確認品單掛牌() : conn.Close()
             Next
             If 面料_dgv.Rows.Count > 0 Then
                 For i = 0 To 面料_dgv.Rows.Count - 1
-                    PA = 面料_dgv.Rows(i).Cells("樣品流水號二").Value : PA1 = 面料_dgv.Rows(i).Cells("樣品流水號三").Value
-                    PA2 = 面料_dgv.Rows(i).Cells("Item_N").Value : PA3 = 面料_dgv.Rows(i).Cells("內容").Value
-                    PA4 = 面料_dgv.Rows(i).Cells("Factory").Value : PA5 = 面料_dgv.Rows(i).Cells("樣品流水號").Value
+                    PA = 面料_dgv.Rows(i).Cells("樣品流水號二").Value.ToString : PA1 = 面料_dgv.Rows(i).Cells("樣品流水號三").Value.ToString
+                    PA2 = 面料_dgv.Rows(i).Cells("Item_N").Value.ToString : PA3 = 面料_dgv.Rows(i).Cells("內容").Value.ToString
+                    PA4 = 面料_dgv.Rows(i).Cells("Factory").Value.ToString : PA5 = 面料_dgv.Rows(i).Cells("樣品流水號").Value.ToString
                     SQL_新增確認樣品單明細表() : conn.Close()
                 Next i
             End If
             If 內裡_dgv.Rows.Count > 0 Then
                 For i = 0 To 內裡_dgv.Rows.Count - 1
-                    PA = 內裡_dgv.Rows(i).Cells("樣品流水號二").Value : PA1 = 內裡_dgv.Rows(i).Cells("樣品流水號三").Value
-                    PA2 = 內裡_dgv.Rows(i).Cells("Item_N").Value : PA3 = 內裡_dgv.Rows(i).Cells("內容").Value
-                    PA4 = 內裡_dgv.Rows(i).Cells("Factory").Value : PA5 = 內裡_dgv.Rows(i).Cells("樣品流水號").Value
+                    PA = 內裡_dgv.Rows(i).Cells("樣品流水號二").Value.ToString : PA1 = 內裡_dgv.Rows(i).Cells("樣品流水號三").Value.ToString
+                    PA2 = 內裡_dgv.Rows(i).Cells("Item_N").Value.ToString : PA3 = 內裡_dgv.Rows(i).Cells("內容").Value.ToString
+                    PA4 = 內裡_dgv.Rows(i).Cells("Factory").Value.ToString : PA5 = 內裡_dgv.Rows(i).Cells("樣品流水號").Value.ToString
                     SQL_新增確認樣品單明細表1() : conn.Close()
                 Next i
             End If
             If 底部_dgv.Rows.Count > 0 Then
                 For i = 0 To 底部_dgv.Rows.Count - 1
-                    PA = 底部_dgv.Rows(i).Cells("樣品流水號二").Value : PA1 = 底部_dgv.Rows(i).Cells("樣品流水號三").Value
-                    PA2 = 底部_dgv.Rows(i).Cells("Item_N").Value : PA3 = 底部_dgv.Rows(i).Cells("內容").Value
-                    PA4 = 底部_dgv.Rows(i).Cells("Factory").Value : PA5 = 底部_dgv.Rows(i).Cells("樣品流水號").Value
+                    PA = 底部_dgv.Rows(i).Cells("樣品流水號二").Value.ToString : PA1 = 底部_dgv.Rows(i).Cells("樣品流水號三").Value.ToString
+                    PA2 = 底部_dgv.Rows(i).Cells("Item_N").Value.ToString : PA3 = 底部_dgv.Rows(i).Cells("內容").Value.ToString
+                    PA4 = 底部_dgv.Rows(i).Cells("Factory").Value.ToString : PA5 = 底部_dgv.Rows(i).Cells("樣品流水號").Value.ToString
                     SQL_新增確認樣品單明細表2() : conn.Close()
                 Next i
             End If
             If 飾物_dgv.Rows.Count > 0 Then
                 For i = 0 To 飾物_dgv.Rows.Count - 1
-                    PA = 飾物_dgv.Rows(i).Cells("樣品流水號二").Value : PA1 = 飾物_dgv.Rows(i).Cells("樣品流水號三").Value
-                    PA2 = 飾物_dgv.Rows(i).Cells("Item_N").Value : PA3 = 飾物_dgv.Rows(i).Cells("內容").Value
-                    PA4 = 飾物_dgv.Rows(i).Cells("Factory").Value : PA5 = 飾物_dgv.Rows(i).Cells("樣品流水號").Value
+                    PA = 飾物_dgv.Rows(i).Cells("樣品流水號二").Value.ToString : PA1 = 飾物_dgv.Rows(i).Cells("樣品流水號三").Value.ToString
+                    PA2 = 飾物_dgv.Rows(i).Cells("Item_N").Value.ToString : PA3 = 飾物_dgv.Rows(i).Cells("內容").Value.ToString
+                    PA4 = 飾物_dgv.Rows(i).Cells("Factory").Value.ToString : PA5 = 飾物_dgv.Rows(i).Cells("樣品流水號").Value.ToString
                     SQL_新增確認樣品單明細表3() : conn.Close()
                 Next i
             End If
             End If
             SQL_修改確認樣品單抬頭() : conn.Close()
             For i = 0 To 顏色_dgv.Rows.Count - 1
-                PA = 顏色_dgv.Rows(i).Cells("顏色").Value : PA1 = 顏色_dgv.Rows(i).Cells("Color_Code").Value
-                PA2 = 顏色_dgv.Rows(i).Cells("數量").Value : PA3 = 顏色_dgv.Rows(i).Cells("面料").Value
-                PA4 = 顏色_dgv.Rows(i).Cells("內裏").Value : PA5 = 顏色_dgv.Rows(i).Cells("底部").Value
-                PA6 = 顏色_dgv.Rows(i).Cells("飾物").Value : PA7 = 顏色_dgv.Rows(i).Cells("備註").Value
-                PA8 = 顏色_dgv.Rows(i).Cells("FINISH").Value : PA9 = 顏色_dgv.Rows(i).Cells("掛牌Date").Value
-                PA10 = 顏色_dgv.Rows(i).Cells("掛牌Color").Value : PA11 = 顏色_dgv.Rows(i).Cells("Material_Article").Value
-                PA12 = 顏色_dgv.Rows(i).Cells("Construc_Name").Value : PA13 = 顏色_dgv.Rows(i).Cells("Insole").Value
-                PA14 = 顏色_dgv.Rows(i).Cells("Footbed").Value : PA15 = 顏色_dgv.Rows(i).Cells("掛牌Comments").Value
-                PA16 = 顏色_dgv.Rows(i).Cells("ItemNumber").Value : PA17 = 顏色_dgv.Rows(i).Cells("CFM").Value
-                PA18 = 顏色_dgv.Rows(i).Cells("CFM").Value : PA19 = 顏色_dgv.Rows(i).Cells("樣品流水號一").Value
+                PA = 顏色_dgv.Rows(i).Cells("顏色").Value.ToString : PA1 = 顏色_dgv.Rows(i).Cells("Color_Code").Value.ToString
+                PA2 = 顏色_dgv.Rows(i).Cells("數量").Value.ToString : PA3 = 顏色_dgv.Rows(i).Cells("面料").Value.ToString
+                PA4 = 顏色_dgv.Rows(i).Cells("內裏").Value.ToString : PA5 = 顏色_dgv.Rows(i).Cells("底部").Value.ToString
+                PA6 = 顏色_dgv.Rows(i).Cells("飾物").Value.ToString : PA7 = 顏色_dgv.Rows(i).Cells("備註").Value.ToString
+                PA8 = 顏色_dgv.Rows(i).Cells("FINISH").Value.ToString : PA9 = 顏色_dgv.Rows(i).Cells("掛牌Date").Value.ToString
+                PA10 = 顏色_dgv.Rows(i).Cells("掛牌Color").Value.ToString : PA11 = 顏色_dgv.Rows(i).Cells("Material_Article").Value.ToString
+                PA12 = 顏色_dgv.Rows(i).Cells("Construc_Name").Value.ToString : PA13 = 顏色_dgv.Rows(i).Cells("Insole").Value.ToString
+                PA14 = 顏色_dgv.Rows(i).Cells("Footbed").Value.ToString : PA15 = 顏色_dgv.Rows(i).Cells("掛牌Comments").Value.ToString
+                PA16 = 顏色_dgv.Rows(i).Cells("ItemNumber").Value.ToString : PA17 = 顏色_dgv.Rows(i).Cells("CFM").Value.ToString
+                PA18 = 顏色_dgv.Rows(i).Cells("CFM").Value.ToString : PA19 = 顏色_dgv.Rows(i).Cells("樣品流水號一").Value.ToString
                 SQL_修改確認樣品單控制表() : conn.Close()
             Next i
             If 面料_dgv.Rows.Count > 0 Then
                 For i = 0 To 面料_dgv.Rows.Count - 1
-                    PA = 面料_dgv.Rows(i).Cells("Item_N").Value : PA1 = 面料_dgv.Rows(i).Cells("內容").Value
-                    PA2 = 面料_dgv.Rows(i).Cells("Factory").Value : PA3 = 面料_dgv.Rows(i).Cells("樣品流水號二").Value
-                    PA4 = 面料_dgv.Rows(i).Cells("樣品流水號三").Value : PA5 = 面料_dgv.Rows(i).Cells("樣品流水號").Value
+                    PA = 面料_dgv.Rows(i).Cells("Item_N").Value.ToString : PA1 = 面料_dgv.Rows(i).Cells("內容").Value.ToString
+                    PA2 = 面料_dgv.Rows(i).Cells("Factory").Value.ToString : PA3 = 面料_dgv.Rows(i).Cells("樣品流水號二").Value.ToString
+                    PA4 = 面料_dgv.Rows(i).Cells("樣品流水號三").Value.ToString : PA5 = 面料_dgv.Rows(i).Cells("樣品流水號").Value.ToString
                     SQL_修改確認樣品單控制表1() : conn.Close()
                 Next i
             End If
             If 內裡_dgv.Rows.Count > 0 Then
                 For i = 0 To 內裡_dgv.Rows.Count - 1
-                    PA = 內裡_dgv.Rows(i).Cells("Item_N").Value : PA1 = 內裡_dgv.Rows(i).Cells("內容").Value
-                    PA2 = 內裡_dgv.Rows(i).Cells("Factory").Value : PA3 = 內裡_dgv.Rows(i).Cells("樣品流水號二").Value
-                    PA4 = 內裡_dgv.Rows(i).Cells("樣品流水號三").Value : PA5 = 內裡_dgv.Rows(i).Cells("樣品流水號").Value
+                    PA = 內裡_dgv.Rows(i).Cells("Item_N").Value.ToString : PA1 = 內裡_dgv.Rows(i).Cells("內容").Value.ToString
+                    PA2 = 內裡_dgv.Rows(i).Cells("Factory").Value.ToString : PA3 = 內裡_dgv.Rows(i).Cells("樣品流水號二").Value.ToString
+                    PA4 = 內裡_dgv.Rows(i).Cells("樣品流水號三").Value.ToString : PA5 = 內裡_dgv.Rows(i).Cells("樣品流水號").Value.ToString
                     SQL_修改確認樣品單明細表1() : conn.Close()
                 Next i
             End If
             If 底部_dgv.Rows.Count > 0 Then
                 For i = 0 To 底部_dgv.Rows.Count - 1
-                    PA = 底部_dgv.Rows(i).Cells("Item_N").Value : PA1 = 底部_dgv.Rows(i).Cells("內容").Value
-                    PA2 = 底部_dgv.Rows(i).Cells("Factory").Value : PA3 = 底部_dgv.Rows(i).Cells("樣品流水號二").Value
-                    PA4 = 底部_dgv.Rows(i).Cells("樣品流水號三").Value : PA5 = 底部_dgv.Rows(i).Cells("樣品流水號").Value
+                    PA = 底部_dgv.Rows(i).Cells("Item_N").Value.ToString : PA1 = 底部_dgv.Rows(i).Cells("內容").Value.ToString
+                    PA2 = 底部_dgv.Rows(i).Cells("Factory").Value.ToString : PA3 = 底部_dgv.Rows(i).Cells("樣品流水號二").Value.ToString
+                    PA4 = 底部_dgv.Rows(i).Cells("樣品流水號三").Value.ToString : PA5 = 底部_dgv.Rows(i).Cells("樣品流水號").Value.ToString
                     SQL_修改確認樣品單明細表2() : conn.Close()
                 Next i
             End If
             If 飾物_dgv.Rows.Count > 0 Then
                 For i = 0 To 飾物_dgv.Rows.Count - 1
-                    PA = 飾物_dgv.Rows(i).Cells("Item_N").Value : PA1 = 飾物_dgv.Rows(i).Cells("內容").Value
-                    PA2 = 飾物_dgv.Rows(i).Cells("Factory").Value : PA3 = 飾物_dgv.Rows(i).Cells("樣品流水號二").Value
-                    PA4 = 飾物_dgv.Rows(i).Cells("樣品流水號三").Value : PA5 = 飾物_dgv.Rows(i).Cells("樣品流水號三").Value
-                    PA6 = 飾物_dgv.Rows(i).Cells("樣品流水號").Value
+                    PA = 飾物_dgv.Rows(i).Cells("Item_N").Value.ToString : PA1 = 飾物_dgv.Rows(i).Cells("內容").Value.ToString
+                    PA2 = 飾物_dgv.Rows(i).Cells("Factory").Value.ToString : PA3 = 飾物_dgv.Rows(i).Cells("樣品流水號二").Value.ToString
+                    PA4 = 飾物_dgv.Rows(i).Cells("樣品流水號三").Value.ToString : PA5 = 飾物_dgv.Rows(i).Cells("樣品流水號三").Value.ToString
+                    PA6 = 飾物_dgv.Rows(i).Cells("樣品流水號").Value.ToString
                     SQL_修改確認樣品單明細表3() : conn.Close()
                 Next i
             End If
             Set_DGV10載入後設定()
             For i As Integer = 1 To PA
                 For ii As Integer = 0 To 中繼2_dgv.Rows.Count - 1
-                    PA = 顏色_dgv.Rows(i - 1).Cells("樣品流水號一").Value : PA1 = 中繼2_dgv.Rows(ii).Cells("樣品流水號三").Value
-                    PA2 = 中繼2_dgv.Rows(ii).Cells("細項").Value
+                    PA = 顏色_dgv.Rows(i - 1).Cells("樣品流水號一").Value.ToString : PA1 = 中繼2_dgv.Rows(ii).Cells("樣品流水號三").Value.ToString
+                    PA2 = 中繼2_dgv.Rows(ii).Cells("細項").Value.ToString
                     SQL_新增確認樣品單明細表4() : conn.Close()
                 Next
             Next
             Set_DGV10載入後設定()
             For i As Integer = 1 To PA
                 For ii As Integer = 0 To 中繼2_dgv.Rows.Count - 1
-                    PA = 顏色_dgv.Rows(i - 1).Cells("樣品流水號一").Value : PA1 = 中繼2_dgv.Rows(ii).Cells("樣品流水號三").Value
-                    PA2 = 中繼2_dgv.Rows(ii).Cells("細項").Value
+                    PA = 顏色_dgv.Rows(i - 1).Cells("樣品流水號一").Value.ToString : PA1 = 中繼2_dgv.Rows(ii).Cells("樣品流水號三").Value.ToString
+                    PA2 = 中繼2_dgv.Rows(ii).Cells("細項").Value.ToString
                     SQL_新增確認樣品單明細表5() : conn.Close()
                 Next
             Next
             Set_DGV10載入後設定()
             For i As Integer = 1 To PA
                 For ii As Integer = 0 To 中繼2_dgv.Rows.Count - 1
-                    PA = 顏色_dgv.Rows(i - 1).Cells("樣品流水號一").Value : PA1 = 中繼2_dgv.Rows(ii).Cells("樣品流水號三").Value
-                    PA2 = 中繼2_dgv.Rows(ii).Cells("細項").Value
+                    PA = 顏色_dgv.Rows(i - 1).Cells("樣品流水號一").Value.ToString : PA1 = 中繼2_dgv.Rows(ii).Cells("樣品流水號三").Value.ToString
+                    PA2 = 中繼2_dgv.Rows(ii).Cells("細項").Value.ToString
                     SQL_新增確認樣品單明細表6() : conn.Close()
                 Next
             Next
             Set_DGV10載入後設定()
             For i As Integer = 1 To PA
                 For ii As Integer = 0 To 中繼2_dgv.Rows.Count - 1
-                    PA = 顏色_dgv.Rows(i - 1).Cells("樣品流水號一").Value : PA1 = 中繼2_dgv.Rows(ii).Cells("樣品流水號三").Value
-                    PA2 = 中繼2_dgv.Rows(ii).Cells("細項").Value
+                    PA = 顏色_dgv.Rows(i - 1).Cells("樣品流水號一").Value.ToString : PA1 = 中繼2_dgv.Rows(ii).Cells("樣品流水號三").Value.ToString
+                    PA2 = 中繼2_dgv.Rows(ii).Cells("細項").Value.ToString
                     SQL_新增確認樣品單明細表7() : conn.Close()
                 Next
             Next
             Set_DGV10載入後設定()
             For i As Integer = 1 To PA
                 For ii As Integer = 0 To 中繼2_dgv.Rows.Count - 1
-                    PA = 顏色_dgv.Rows(i - 1).Cells("樣品流水號一").Value : PA1 = 中繼2_dgv.Rows(ii).Cells("樣品流水號三").Value
-                    PA2 = 中繼2_dgv.Rows(ii).Cells("細項").Value : PA3 = 中繼2_dgv.Rows(ii).Cells("廠商").Value
+                    PA = 顏色_dgv.Rows(i - 1).Cells("樣品流水號一").Value.ToString : PA1 = 中繼2_dgv.Rows(ii).Cells("樣品流水號三").Value.ToString
+                    PA2 = 中繼2_dgv.Rows(ii).Cells("細項").Value.ToString : PA3 = 中繼2_dgv.Rows(ii).Cells("廠商").Value.ToString
                     SQL_新增確認樣品單控制表暫存檔5() : conn.Close()
                 Next
             Next
             Set_DGV10載入後設定()
             For i As Integer = 1 To PA
                 For ii As Integer = 0 To 中繼2_dgv.Rows.Count - 1
-                    PA = 顏色_dgv.Rows(i - 1).Cells("樣品流水號一").Value : PA1 = 中繼2_dgv.Rows(ii).Cells("樣品流水號三").Value
-                    PA2 = 中繼2_dgv.Rows(ii).Cells("細項").Value : PA3 = 中繼2_dgv.Rows(ii).Cells("廠商").Value
+                    PA = 顏色_dgv.Rows(i - 1).Cells("樣品流水號一").Value.ToString : PA1 = 中繼2_dgv.Rows(ii).Cells("樣品流水號三").Value.ToString
+                    PA2 = 中繼2_dgv.Rows(ii).Cells("細項").Value.ToString : PA3 = 中繼2_dgv.Rows(ii).Cells("廠商").Value.ToString
                     SQL_新增確認樣品單明細表暫存檔1() : conn.Close()
                 Next
             Next
             Set_DGV10載入後設定()
             For i As Integer = 1 To PA
                 For ii As Integer = 0 To 中繼2_dgv.Rows.Count - 1
-                    PA = 顏色_dgv.Rows(i - 1).Cells("樣品流水號一").Value : PA1 = 中繼2_dgv.Rows(ii).Cells("樣品流水號三").Value
-                    PA2 = 中繼2_dgv.Rows(ii).Cells("細項").Value : PA3 = 中繼2_dgv.Rows(ii).Cells("廠商").Value
+                    PA = 顏色_dgv.Rows(i - 1).Cells("樣品流水號一").Value.ToString : PA1 = 中繼2_dgv.Rows(ii).Cells("樣品流水號三").Value.ToString
+                    PA2 = 中繼2_dgv.Rows(ii).Cells("細項").Value.ToString : PA3 = 中繼2_dgv.Rows(ii).Cells("廠商").Value.ToString
                     SQL_新增確認樣品單明細表暫存檔2() : conn.Close()
                 Next
             Next
             Set_DGV10載入後設定()
             For i As Integer = 1 To PA
                 For ii As Integer = 0 To 中繼2_dgv.Rows.Count - 1
-                    PA = 顏色_dgv.Rows(i - 1).Cells("樣品流水號一").Value : PA1 = 中繼2_dgv.Rows(ii).Cells("樣品流水號三").Value
-                    PA2 = 中繼2_dgv.Rows(ii).Cells("細項").Value : PA3 = 中繼2_dgv.Rows(ii).Cells("廠商").Value
+                    PA = 顏色_dgv.Rows(i - 1).Cells("樣品流水號一").Value.ToString : PA1 = 中繼2_dgv.Rows(ii).Cells("樣品流水號三").Value.ToString
+                    PA2 = 中繼2_dgv.Rows(ii).Cells("細項").Value.ToString : PA3 = 中繼2_dgv.Rows(ii).Cells("廠商").Value.ToString
                     SQL_新增確認樣品單明細表暫存檔6() : conn.Close()
                 Next
             Next
     Private Sub 編輯模式存檔()
         If 暫存模式 = False Then
             For i = 0 To 顏色_dgv.Rows.Count - 1
-                PA = 顏色_dgv.Rows(i).Cells("顏色").Value : PA1 = 顏色_dgv.Rows(i).Cells("Color_Code").Value
-                PA2 = 顏色_dgv.Rows(i).Cells("數量").Value : PA3 = 顏色_dgv.Rows(i).Cells("面料").Value
-                PA4 = 顏色_dgv.Rows(i).Cells("內裏").Value : PA5 = 顏色_dgv.Rows(i).Cells("底部").Value
-                PA6 = 顏色_dgv.Rows(i).Cells("飾物").Value : PA7 = 顏色_dgv.Rows(i).Cells("備註").Value
-                PA8 = 顏色_dgv.Rows(i).Cells("FINISH").Value : PA9 = 顏色_dgv.Rows(i).Cells("掛牌Date").Value
-                PA10 = 顏色_dgv.Rows(i).Cells("掛牌Color").Value : PA11 = 顏色_dgv.Rows(i).Cells("Material_Article").Value
-                PA12 = 顏色_dgv.Rows(i).Cells("Construc_Name").Value : PA13 = 顏色_dgv.Rows(i).Cells("Insole").Value
-                PA14 = 顏色_dgv.Rows(i).Cells("Footbed").Value : PA15 = 顏色_dgv.Rows(i).Cells("掛牌Size").Value
-                PA16 = 顏色_dgv.Rows(i).Cells("Gender").Value : PA17 = 顏色_dgv.Rows(i).Cells("Width").Value
-                PA18 = 顏色_dgv.Rows(i).Cells("D_C_S").Value : PA19 = 顏色_dgv.Rows(i).Cells("Stage").Value
-                PA20 = 顏色_dgv.Rows(i).Cells("掛牌Comments").Value : PA21 = 顏色_dgv.Rows(i).Cells("ItemNumber").Value
-                PA22 = 顏色_dgv.Rows(i).Cells("CFM").Value : PA23 = 顏色_dgv.Rows(i).Cells("樣品流水號一").Value
+                PA = 顏色_dgv.Rows(i).Cells("顏色").Value.ToString : PA1 = 顏色_dgv.Rows(i).Cells("Color_Code").Value.ToString
+                PA2 = 顏色_dgv.Rows(i).Cells("數量").Value.ToString : PA3 = 顏色_dgv.Rows(i).Cells("面料").Value.ToString
+                PA4 = 顏色_dgv.Rows(i).Cells("內裏").Value.ToString : PA5 = 顏色_dgv.Rows(i).Cells("底部").Value.ToString
+                PA6 = 顏色_dgv.Rows(i).Cells("飾物").Value.ToString : PA7 = 顏色_dgv.Rows(i).Cells("備註").Value.ToString
+                PA8 = 顏色_dgv.Rows(i).Cells("FINISH").Value.ToString : PA9 = 顏色_dgv.Rows(i).Cells("掛牌Date").Value.ToString
+                PA10 = 顏色_dgv.Rows(i).Cells("掛牌Color").Value.ToString : PA11 = 顏色_dgv.Rows(i).Cells("Material_Article").Value.ToString
+                PA12 = 顏色_dgv.Rows(i).Cells("Construc_Name").Value.ToString : PA13 = 顏色_dgv.Rows(i).Cells("Insole").Value.ToString
+                PA14 = 顏色_dgv.Rows(i).Cells("Footbed").Value.ToString : PA15 = 顏色_dgv.Rows(i).Cells("掛牌Size").Value.ToString
+                PA16 = 顏色_dgv.Rows(i).Cells("Gender").Value.ToString : PA17 = 顏色_dgv.Rows(i).Cells("Width").Value.ToString
+                PA18 = 顏色_dgv.Rows(i).Cells("D_C_S").Value.ToString : PA19 = 顏色_dgv.Rows(i).Cells("Stage").Value.ToString
+                PA20 = 顏色_dgv.Rows(i).Cells("掛牌Comments").Value.ToString : PA21 = 顏色_dgv.Rows(i).Cells("ItemNumber").Value.ToString
+                PA22 = 顏色_dgv.Rows(i).Cells("CFM").Value.ToString : PA23 = 顏色_dgv.Rows(i).Cells("樣品流水號一").Value.ToString
                 SQL_修改確認樣品單控制表2() : conn.Close()
             Next i
             If 面料_dgv.Rows.Count > 0 Then
                 For i = 0 To 面料_dgv.Rows.Count - 1
-                    PA = 面料_dgv.Rows(i).Cells("Item_N").Value : PA1 = 面料_dgv.Rows(i).Cells("內容").Value
-                    PA2 = 面料_dgv.Rows(i).Cells("Factory").Value : PA3 = 面料_dgv.Rows(i).Cells("樣品流水號二").Value
-                    PA4 = 面料_dgv.Rows(i).Cells("樣品流水號三").Value : PA5 = 面料_dgv.Rows(i).Cells("樣品流水號").Value
+                    PA = 面料_dgv.Rows(i).Cells("Item_N").Value.ToString : PA1 = 面料_dgv.Rows(i).Cells("內容").Value.ToString
+                    PA2 = 面料_dgv.Rows(i).Cells("Factory").Value.ToString : PA3 = 面料_dgv.Rows(i).Cells("樣品流水號二").Value.ToString
+                    PA4 = 面料_dgv.Rows(i).Cells("樣品流水號三").Value.ToString : PA5 = 面料_dgv.Rows(i).Cells("樣品流水號").Value.ToString
                     SQL_修改確認樣品單明細表() : conn.Close()
                 Next i
             End If
             If 內裡_dgv.Rows.Count > 0 Then
                 For i = 0 To 內裡_dgv.Rows.Count - 1
-                    PA = 內裡_dgv.Rows(i).Cells("Item_N").Value : PA1 = 內裡_dgv.Rows(i).Cells("內容").Value
-                    PA2 = 內裡_dgv.Rows(i).Cells("Factory").Value : PA3 = 內裡_dgv.Rows(i).Cells("樣品流水號二").Value
-                    PA4 = 內裡_dgv.Rows(i).Cells("樣品流水號三").Value : PA5 = 內裡_dgv.Rows(i).Cells("樣品流水號").Value
+                    PA = 內裡_dgv.Rows(i).Cells("Item_N").Value.ToString : PA1 = 內裡_dgv.Rows(i).Cells("內容").Value.ToString
+                    PA2 = 內裡_dgv.Rows(i).Cells("Factory").Value.ToString : PA3 = 內裡_dgv.Rows(i).Cells("樣品流水號二").Value.ToString
+                    PA4 = 內裡_dgv.Rows(i).Cells("樣品流水號三").Value.ToString : PA5 = 內裡_dgv.Rows(i).Cells("樣品流水號").Value.ToString
                     SQL_修改確認樣品單明細表4() : conn.Close()
                 Next i
             End If
             If 底部_dgv.Rows.Count > 0 Then
                 For i = 0 To 底部_dgv.Rows.Count - 1
-                    PA = 底部_dgv.Rows(i).Cells("Item_N").Value : PA1 = 底部_dgv.Rows(i).Cells("內容").Value
-                    PA2 = 底部_dgv.Rows(i).Cells("Factory").Value : PA3 = 底部_dgv.Rows(i).Cells("樣品流水號二").Value
-                    PA4 = 底部_dgv.Rows(i).Cells("樣品流水號三").Value : PA5 = 底部_dgv.Rows(i).Cells("樣品流水號").Value
+                    PA = 底部_dgv.Rows(i).Cells("Item_N").Value.ToString : PA1 = 底部_dgv.Rows(i).Cells("內容").Value.ToString
+                    PA2 = 底部_dgv.Rows(i).Cells("Factory").Value.ToString : PA3 = 底部_dgv.Rows(i).Cells("樣品流水號二").Value.ToString
+                    PA4 = 底部_dgv.Rows(i).Cells("樣品流水號三").Value.ToString : PA5 = 底部_dgv.Rows(i).Cells("樣品流水號").Value.ToString
                     SQL_修改確認樣品單明細表5() : conn.Close()
                 Next i
             End If
             If 飾物_dgv.Rows.Count > 0 Then
                 For i = 0 To 飾物_dgv.Rows.Count - 1
-                    PA = 飾物_dgv.Rows(i).Cells("Item_N").Value : PA1 = 飾物_dgv.Rows(i).Cells("內容").Value
-                    PA2 = 飾物_dgv.Rows(i).Cells("Factory").Value : PA3 = 飾物_dgv.Rows(i).Cells("樣品流水號二").Value
-                    PA4 = 飾物_dgv.Rows(i).Cells("樣品流水號三").Value : PA5 = 飾物_dgv.Rows(i).Cells("樣品流水號").Value
+                    PA = 飾物_dgv.Rows(i).Cells("Item_N").Value.ToString : PA1 = 飾物_dgv.Rows(i).Cells("內容").Value.ToString
+                    PA2 = 飾物_dgv.Rows(i).Cells("Factory").Value.ToString : PA3 = 飾物_dgv.Rows(i).Cells("樣品流水號二").Value.ToString
+                    PA4 = 飾物_dgv.Rows(i).Cells("樣品流水號三").Value.ToString : PA5 = 飾物_dgv.Rows(i).Cells("樣品流水號").Value
                     SQL_修改確認樣品單明細表6() : conn.Close()
                 Next i
             End If

TENDEN-MES-SYS/資料庫系統管理/下拉清單_1.Designer.vb

         Me.ListBox1.Name = "ListBox1"
         Me.ListBox1.Size = New System.Drawing.Size(214, 404)
         Me.ListBox1.TabIndex = 0
-        Me.ListBox1.UseWaitCursor = True
         '
         'ListBox2
         '
         Me.ListBox2.Name = "ListBox2"
         Me.ListBox2.Size = New System.Drawing.Size(214, 404)
         Me.ListBox2.TabIndex = 1
-        Me.ListBox2.UseWaitCursor = True
         '
         'ListBox3
         '
         Me.ListBox3.Name = "ListBox3"
         Me.ListBox3.Size = New System.Drawing.Size(214, 404)
         Me.ListBox3.TabIndex = 2
-        Me.ListBox3.UseWaitCursor = True
         '
         'ListBox4
         '
         Me.ListBox4.Name = "ListBox4"
         Me.ListBox4.Size = New System.Drawing.Size(214, 404)
         Me.ListBox4.TabIndex = 3
-        Me.ListBox4.UseWaitCursor = True
         '
         '上一頁_bt
         '
         Me.上一頁_bt.TabIndex = 1523
         Me.上一頁_bt.Text = "上一頁"
         Me.上一頁_bt.UseVisualStyleBackColor = True
-        Me.上一頁_bt.UseWaitCursor = True
         '
         '下一頁_bt
         '
         Me.下一頁_bt.TabIndex = 1524
         Me.下一頁_bt.Text = "下一頁"
         Me.下一頁_bt.UseVisualStyleBackColor = True
-        Me.下一頁_bt.UseWaitCursor = True
         '
         '下拉清單_1
         '
         Me.Controls.Add(Me.ListBox3)
         Me.Controls.Add(Me.ListBox2)
         Me.Controls.Add(Me.ListBox1)
+        Me.Cursor = System.Windows.Forms.Cursors.Default
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
         Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
         Me.Name = "下拉清單_1"
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
         Me.Text = "下拉清單"
-        Me.UseWaitCursor = True
         Me.ResumeLayout(False)
 
     End Sub