20230204備份

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

@@ -1681,11 +1681,11 @@
     '-----------------列印_中文樣品單------------------------------
     Friend Sub SQL_列印_中文樣品單_敘述攔()
         ConnOpen()
-        SQL1 = "SELECT    確認樣品單明細表.細項, 確認樣品單敘述欄.內容
+        SQL1 = "SELECT    確認樣品單明細表.細項, 確認樣品單敘述欄.內容, 確認樣品單明細表.廠商
                     FROM      確認樣品單明細表 LEFT OUTER JOIN 確認樣品單敘述欄 ON 確認樣品單明細表.樣品流水號 = 確認樣品單敘述欄.樣品流水號 AND 
                               確認樣品單明細表.細項 = 確認樣品單敘述欄.細項
                     WHERE    (確認樣品單明細表.樣品流水號 LIKE '" & 列印用SQL & "') AND (確認樣品單明細表.細項 NOT LIKE '') 
-                    GROUP BY  確認樣品單明細表.細項, 確認樣品單敘述欄.內容"
+                    GROUP BY  確認樣品單明細表.細項, 確認樣品單敘述欄.內容, 確認樣品單明細表.廠商"
         CmdSet_For_DGV()
     End Sub
     Friend Sub SQL_列印_中文樣品單()

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

@@ -3,7 +3,7 @@
     Public g_conn_type, gUserName, 版本號, Target, Target1, Target2, FTP帳號, FTP密碼, 登入人IP, AA(99), 圖片庫, SQL密碼 As String
     Public CC(99), 登入判斷 As Boolean
     '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-    Public 版本 As String = "2023010401"
+    Public 版本 As String = "2023020201"
     '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
     Public 匯率 As Double
     '----系統用全域變數----------------------------------------------------------------------------------------------------------------------------------------------------------------------

TENDEN-MES-SYS/樣品訂單管理/系統列印介面/列印_中文樣品單.vb

@@ -18,7 +18,8 @@ Public Class 列印_中文樣品單
     Dim 位置5 As Integer = 0 : Dim 位置6 As Integer = 0 : Dim 位置7 As Integer = 0 : Dim 位置8 As Integer = 0 : Dim 位置9 As Integer = 0 : Dim 位置10 As Integer = 0
     Dim 面料數 As Integer = 0 : Dim 內裏數 As Integer = 0 : Dim 底部數 As Integer = 0 : Dim 飾物數 As Integer = 0
     Dim 位置11 As String : Dim 攔寬 As Single
-    Dim 第一頁 As Boolean : Dim 第二頁 As Boolean : Dim 第三頁 As Boolean : Dim 分頁計數 As Integer = 0 : Dim 分頁計數1 As Integer = 0
+    Dim 第一頁, 第二頁, 第三頁, 第四頁, 第五頁 As Boolean
+    Dim 分頁計數 As Integer = 0 : Dim 分頁計數1 As Integer = 0 : Dim 分頁計數2 As Integer = 0 : Dim 分頁計數3 As Integer = 0 : Dim 分頁計數4 As Integer = 0
     Dim DGVX As Integer
 
     Private Sub Set_訂單清單4()
@@ -182,30 +183,24 @@ Public Class 列印_中文樣品單
     Private Sub 循環列印2()
         Try
             For i As Integer = 0 To 樣品單明細表_dgv.Rows.Count - 1
-                xlSheet.Cells(15 + 位置1, 2) = 樣品單明細表_dgv.Rows(i).Cells("細項").Value
-                xlSheet.Cells(15 + 位置1 + 1, 2) = "廠商"
-                位置1 += 2
-                If 樣品單明細表_dgv.Rows(i).Cells("樣品流水號二").Value = 1 Then
-                    面料數 += 1
-                ElseIf 樣品單明細表_dgv.Rows(i).Cells("樣品流水號二").Value = 2 Then
-                    內裏數 += 1
-                ElseIf 樣品單明細表_dgv.Rows(i).Cells("樣品流水號二").Value = 3 Then
-                    底部數 += 1
-                ElseIf 樣品單明細表_dgv.Rows(i).Cells("樣品流水號二").Value = 4 Then
-                    飾物數 += 1
-                End If
+                xlSheet.Cells(15 + 位置1, 2) = 樣品單明細表_dgv.Rows(i).Cells("細項").Value      'xlSheet.Cells(15 + 位置1 + 1, 2) = "廠商"
+                位置1 += 1
+                If 樣品單明細表_dgv.Rows(i).Cells("樣品流水號二").Value = 1 Then : 面料數 += 1
+                ElseIf 樣品單明細表_dgv.Rows(i).Cells("樣品流水號二").Value = 2 Then : 內裏數 += 1
+                ElseIf 樣品單明細表_dgv.Rows(i).Cells("樣品流水號二").Value = 3 Then : 底部數 += 1
+                ElseIf 樣品單明細表_dgv.Rows(i).Cells("樣品流水號二").Value = 4 Then : 飾物數 += 1 : End If
             Next
-            位置3 = 15 + (面料數 * 2) + (內裏數 * 2) + (底部數 * 2) + (飾物數 * 2)
+            位置3 = 15 + (面料數 * 1) + (內裏數 * 1) + (底部數 * 1) + (飾物數 * 1)
         Catch ex As Exception : MsgBox(ex.Message) : End Try
     End Sub
     Private Sub 循環列印3()
         Try
             xlSheet.Cells(15, 1) = "面料"
-            xlSheet.Cells(15 + (面料數 * 2), 1) = "內裏"
-            xlSheet.Cells(15 + (面料數 * 2) + (內裏數 * 2), 1) = "底部"
-            xlSheet.Cells(15 + (面料數 * 2) + (內裏數 * 2) + (底部數 * 2), 1) = "飾物"
+            xlSheet.Cells(15 + (面料數 * 1), 1) = "內裏"
+            xlSheet.Cells(15 + (面料數 * 1) + (內裏數 * 1), 1) = "底部"
+            xlSheet.Cells(15 + (面料數 * 1) + (內裏數 * 1) + (底部數 * 1), 1) = "飾物"
 
-            位置8 = 14 + (面料數 * 2) + (內裏數 * 2) + (底部數 * 2) + (飾物數 * 2)
+            位置8 = 14 + (面料數 * 1) + (內裏數 * 1) + (底部數 * 1) + (飾物數 * 1)
             xlSheet.Cells(位置8 + 1, 1) = "備註 : "
             xlSheet.Cells(位置8 + 2, 1) = "FINISH : "
         Catch ex As Exception : MsgBox(ex.Message) : End Try
@@ -224,7 +219,7 @@ Public Class 列印_中文樣品單
                 xlApp.Visible = True
                 xlApp.Application.WindowState = xlMaximized
 
-                '--------------------計算樣品備註圖片分頁---------------------------------------------------------------------------------
+                ''--------------------計算樣品備註圖片分頁---------------------------------------------------------------------------------
                 Dim 分頁數量, 圖片尾數, 圖片總數 As Integer
                 If 中繼_dgv.Rows.Count > 0 Then : 圖片總數 = 中繼_dgv.Rows.Count : 圖片尾數 = 中繼_dgv.Rows.Count
                     For i As Integer = 1 To 10
@@ -247,12 +242,21 @@ Public Class 列印_中文樣品單
                 End If
 
                 '--------------------計算樣品單分頁---------------------------------------------------------------------------------------
-                If 樣品單控制表_dgv.Rows.Count > 9 Then
-                    分頁計數 = 3 : 分頁計數1 = 7 : 第一頁 = True : 第二頁 = True : 第三頁 = True
-                ElseIf 樣品單控制表_dgv.Rows.Count > 4 Then
-                    分頁計數 = 3 : 分頁計數1 = 樣品單控制表_dgv.Rows.Count - 1 : 第一頁 = True : 第二頁 = True : 第三頁 = False
+                If 樣品單控制表_dgv.Rows.Count > 11 Then
+                    分頁計數 = 2 : 分頁計數1 = 5 : 分頁計數2 = 8 : 分頁計數3 = 11 : 分頁計數4 = 樣品單控制表_dgv.Rows.Count - 1
+                    第一頁 = True : 第二頁 = True : 第三頁 = True : 第四頁 = False : 第五頁 = True
+                ElseIf 樣品單控制表_dgv.Rows.Count > 8 Then
+                    分頁計數 = 2 : 分頁計數1 = 5 : 分頁計數2 = 8 : 分頁計數3 = 樣品單控制表_dgv.Rows.Count - 1
+                    第一頁 = True : 第二頁 = True : 第三頁 = True : 第四頁 = True : 第五頁 = False
+                ElseIf 樣品單控制表_dgv.Rows.Count > 5 Then
+                    分頁計數 = 2 : 分頁計數1 = 5 : 分頁計數2 = 樣品單控制表_dgv.Rows.Count - 1
+                    第一頁 = True : 第二頁 = True : 第三頁 = True : 第四頁 = False : 第五頁 = False
+                ElseIf 樣品單控制表_dgv.Rows.Count > 2 Then
+                    分頁計數 = 2 : 分頁計數1 = 樣品單控制表_dgv.Rows.Count - 1
+                    第一頁 = True : 第二頁 = True : 第三頁 = False : 第四頁 = False : 第五頁 = False
                 Else
-                    分頁計數 = 樣品單控制表_dgv.Rows.Count - 1 : 第一頁 = True : 第二頁 = False : 第三頁 = False
+                    分頁計數 = 樣品單控制表_dgv.Rows.Count - 1
+                    第一頁 = True : 第二頁 = False : 第三頁 = False : 第四頁 = False : 第五頁 = False
                 End If
                 '--------------------樣品單列印-------------------------------------------------------------------------------------------
                 If 第一頁 = True Then
@@ -264,32 +268,38 @@ Public Class 列印_中文樣品單
                     xlSheet.Activate()
                     循環列印1()
                     For i As Integer = 0 To 分頁計數
-                        xlSheet.Cells(11, 4 + i) = 樣品單控制表_dgv.Rows(i).Cells("顏色").Value
-                        xlSheet.Cells(12, 4 + i) = 樣品單控制表_dgv.Rows(i).Cells("訂單顏色").Value
-                        xlSheet.Cells(13, 4 + i) = 樣品單控制表_dgv.Rows(i).Cells("ItemNumber").Value
-                        xlSheet.Cells(14, 4 + i) = Strings.Format(樣品單控制表_dgv.Rows(i).Cells("數量1").Value, "#,##0.0") & "双"
+                        xlSheet.Cells(11, 5 + i) = 樣品單控制表_dgv.Rows(i).Cells("顏色").Value
+                        xlSheet.Cells(12, 5 + i) = 樣品單控制表_dgv.Rows(i).Cells("訂單顏色").Value
+                        xlSheet.Cells(13, 5 + i) = 樣品單控制表_dgv.Rows(i).Cells("ItemNumber").Value
+                        xlSheet.Cells(14, 5 + i) = Strings.Format(樣品單控制表_dgv.Rows(i).Cells("數量1").Value, "#,##0.0") & "双"
                     Next : 循環列印2()
                     For i As Integer = 0 To 分頁計數
                         Set_DGV4載入前設定() : PA9 = 樣品單控制表_dgv.Rows(i).Cells("樣品流水號一").Value : SQL_讀取列印分頁計數() : Set_DGV4載入後設定()
                         位置2 = 0
                         For ii As Integer = 0 To 明細表分頁_dgv.Rows.Count - 1
-                            xlSheet.Cells(15 + 位置2, 4 + i) = 明細表分頁_dgv.Rows(ii).Cells("內容").Value
-                            xlSheet.Cells(15 + 位置2 + 1, 4 + i) = 明細表分頁_dgv.Rows(ii).Cells("廠商").Value
-                            EE(xlApp, xlSheet) : 位置2 += 2
+                            xlSheet.Cells(15 + 位置2, 5 + i) = 明細表分頁_dgv.Rows(ii).Cells("內容").Value
+                            'xlSheet.Cells(15 + 位置2 + 1, 4 + i) = 明細表分頁_dgv.Rows(ii).Cells("廠商").Value
+                            'EE(xlApp, xlSheet)
+                            位置2 += 1
                         Next
                     Next : 位置2 = 0
                     For ii As Integer = 0 To 明細表分頁_dgv.Rows.Count - 1
                         For iii As Integer = 0 To 敘述欄_dgv.Rows.Count - 1
                             If 明細表分頁_dgv.Rows(ii).Cells("細項").Value.ToString = 敘述欄_dgv.Rows(iii).Cells("細項").Value.ToString Then
-                                xlSheet.Cells(15 + 位置2, 3) = 敘述欄_dgv.Rows(iii).Cells("內容").Value : Exit For
+                                If 敘述欄_dgv.Rows(iii).Cells("內容").Value.ToString = "" Then
+                                    xlSheet.Cells(15 + 位置2, 3) = 敘述欄_dgv.Rows(iii).Cells("廠商").Value
+                                Else
+                                    xlSheet.Cells(15 + 位置2, 3) = 敘述欄_dgv.Rows(iii).Cells("內容").Value
+                                End If : Exit For
                             End If
-                        Next : 位置2 += 2
+                        Next : 位置2 += 1
                     Next : 循環列印3()
                     For i As Integer = 0 To 分頁計數
-                        xlSheet.Cells(位置8 + 1, 4 + i) = 樣品單控制表_dgv.Rows(i).Cells("備註").Value
-                        xlSheet.Cells(位置8 + 2, 4 + i) = 樣品單控制表_dgv.Rows(i).Cells("FINISH").Value
+                        xlSheet.Cells(位置8 + 1, 5 + i) = 樣品單控制表_dgv.Rows(i).Cells("備註").Value
+                        xlSheet.Cells(位置8 + 2, 5 + i) = 樣品單控制表_dgv.Rows(i).Cells("FINISH").Value
                     Next
                     AA(xlApp, xlSheet) : BB(xlApp, xlSheet) : CC(xlApp, xlSheet) : DD(xlApp, xlSheet) : FF(xlApp, xlSheet) : GG(xlApp, xlSheet)
+                    位置2 = 0 : For ii As Integer = 0 To 明細表分頁_dgv.Rows.Count - 1 : HH(xlApp, xlSheet) : 位置2 += 1 : Next : HH(xlApp, xlSheet) : 位置2 += 1 : HH(xlApp, xlSheet)
                 End If
 
                 If 第二頁 = True Then
@@ -300,33 +310,39 @@ Public Class 列印_中文樣品單
                     xlBook.Activate()
                     xlSheet.Activate()
                     循環列印1()
-                    For i As Integer = 0 + 4 To 分頁計數1
-                        xlSheet.Cells(11, 4 + i - 4) = 樣品單控制表_dgv.Rows(i).Cells("顏色").Value
-                        xlSheet.Cells(12, 4 + i - 4) = 樣品單控制表_dgv.Rows(i).Cells("訂單顏色").Value
-                        xlSheet.Cells(13, 4 + i) = 樣品單控制表_dgv.Rows(i).Cells("ItemNumber").Value
-                        xlSheet.Cells(14, 4 + i - 4) = Strings.Format(樣品單控制表_dgv.Rows(i).Cells("數量1").Value, "#,##0.0") & "双"
+                    For i As Integer = 0 + 3 To 分頁計數1
+                        xlSheet.Cells(11, 5 + i - 3) = 樣品單控制表_dgv.Rows(i).Cells("顏色").Value
+                        xlSheet.Cells(12, 5 + i - 3) = 樣品單控制表_dgv.Rows(i).Cells("訂單顏色").Value
+                        xlSheet.Cells(13, 5 + i) = 樣品單控制表_dgv.Rows(i).Cells("ItemNumber").Value
+                        xlSheet.Cells(14, 5 + i - 3) = Strings.Format(樣品單控制表_dgv.Rows(i).Cells("數量1").Value, "#,##0.0") & "双"
                     Next : 循環列印2()
-                    For i As Integer = 0 + 4 To 分頁計數1
+                    For i As Integer = 0 + 3 To 分頁計數1
                         Set_DGV4載入前設定() : PA9 = 樣品單控制表_dgv.Rows(i).Cells("樣品流水號一").Value : SQL_讀取列印分頁計數() : Set_DGV4載入後設定()
                         位置2 = 0
                         For ii As Integer = 0 To 明細表分頁_dgv.Rows.Count - 1
-                            xlSheet.Cells(15 + 位置2, 4 + i - 4) = 明細表分頁_dgv.Rows(ii).Cells("內容").Value
-                            xlSheet.Cells(15 + 位置2 + 1, 4 + i - 4) = 明細表分頁_dgv.Rows(ii).Cells("廠商").Value
-                            EE(xlApp, xlSheet) : 位置2 += 2
+                            xlSheet.Cells(15 + 位置2, 5 + i - 3) = 明細表分頁_dgv.Rows(ii).Cells("內容").Value
+                            'xlSheet.Cells(15 + 位置2 + 1, 4 + i - 4) = 明細表分頁_dgv.Rows(ii).Cells("廠商").Value
+                            'EE(xlApp, xlSheet)
+                            位置2 += 1
                         Next
                     Next : 位置2 = 0
                     For ii As Integer = 0 To 明細表分頁_dgv.Rows.Count - 1
                         For iii As Integer = 0 To 敘述欄_dgv.Rows.Count - 1
                             If 明細表分頁_dgv.Rows(ii).Cells("細項").Value.ToString = 敘述欄_dgv.Rows(iii).Cells("細項").Value.ToString Then
-                                xlSheet.Cells(15 + 位置2, 3) = 敘述欄_dgv.Rows(iii).Cells("內容").Value : Exit For
+                                If 敘述欄_dgv.Rows(iii).Cells("內容").Value.ToString = "" Then
+                                    xlSheet.Cells(15 + 位置2, 3) = 敘述欄_dgv.Rows(iii).Cells("廠商").Value
+                                Else
+                                    xlSheet.Cells(15 + 位置2, 3) = 敘述欄_dgv.Rows(iii).Cells("內容").Value
+                                End If : Exit For
                             End If
-                        Next : 位置2 += 2
+                        Next : 位置2 += 1
                     Next : 循環列印3()
-                    For i As Integer = 0 + 4 To 分頁計數1
-                        xlSheet.Cells(位置8 + 1, 4 + i - 4) = 樣品單控制表_dgv.Rows(i).Cells("備註").Value
-                        xlSheet.Cells(位置8 + 2, 4 + i - 4) = 樣品單控制表_dgv.Rows(i).Cells("FINISH").Value
+                    For i As Integer = 0 + 3 To 分頁計數1
+                        xlSheet.Cells(位置8 + 1, 5 + i - 3) = 樣品單控制表_dgv.Rows(i).Cells("備註").Value
+                        xlSheet.Cells(位置8 + 2, 5 + i - 3) = 樣品單控制表_dgv.Rows(i).Cells("FINISH").Value
                     Next
                     AA(xlApp, xlSheet) : BB(xlApp, xlSheet) : CC(xlApp, xlSheet) : DD(xlApp, xlSheet) : FF(xlApp, xlSheet) : GG(xlApp, xlSheet)
+                    位置2 = 0 : For ii As Integer = 0 To 明細表分頁_dgv.Rows.Count - 1 : HH(xlApp, xlSheet) : 位置2 += 1 : Next : HH(xlApp, xlSheet) : 位置2 += 1 : HH(xlApp, xlSheet)
                 End If
 
                 If 第三頁 = True Then
@@ -337,37 +353,131 @@ Public Class 列印_中文樣品單
                     xlBook.Activate()
                     xlSheet.Activate()
                     循環列印1()
-                    For i As Integer = 0 + 8 To 樣品單控制表_dgv.Rows.Count - 1
-                        xlSheet.Cells(11, 4 + i - 8) = 樣品單控制表_dgv.Rows(i).Cells("顏色").Value
-                        xlSheet.Cells(12, 4 + i - 8) = 樣品單控制表_dgv.Rows(i).Cells("訂單顏色").Value
-                        xlSheet.Cells(13, 4 + i) = 樣品單控制表_dgv.Rows(i).Cells("ItemNumber").Value
-                        xlSheet.Cells(14, 4 + i - 8) = Strings.Format(樣品單控制表_dgv.Rows(i).Cells("數量1").Value, "#,##0.0") & "双"
+                    For i As Integer = 0 + 6 To 分頁計數2
+                        xlSheet.Cells(11, 5 + i - 6) = 樣品單控制表_dgv.Rows(i).Cells("顏色").Value
+                        xlSheet.Cells(12, 5 + i - 6) = 樣品單控制表_dgv.Rows(i).Cells("訂單顏色").Value
+                        xlSheet.Cells(13, 5 + i) = 樣品單控制表_dgv.Rows(i).Cells("ItemNumber").Value
+                        xlSheet.Cells(14, 5 + i - 6) = Strings.Format(樣品單控制表_dgv.Rows(i).Cells("數量1").Value, "#,##0.0") & "双"
+                    Next : 循環列印2()
+                    For i As Integer = 0 + 6 To 分頁計數2
+                        Set_DGV4載入前設定() : PA9 = 樣品單控制表_dgv.Rows(i).Cells("樣品流水號一").Value : SQL_讀取列印分頁計數() : Set_DGV4載入後設定()
+                        位置2 = 0
+                        For ii As Integer = 0 To 明細表分頁_dgv.Rows.Count - 1
+                            xlSheet.Cells(15 + 位置2, 5 + i - 6) = 明細表分頁_dgv.Rows(ii).Cells("內容").Value
+                            'xlSheet.Cells(15 + 位置2 + 1, 4 + i - 8) = 明細表分頁_dgv.Rows(ii).Cells("廠商").Value
+                            'EE(xlApp, xlSheet)
+                            位置2 += 1
+                        Next
+                    Next : 位置2 = 0
+                    For ii As Integer = 0 To 明細表分頁_dgv.Rows.Count - 1
+                        For iii As Integer = 0 To 敘述欄_dgv.Rows.Count - 1
+                            If 明細表分頁_dgv.Rows(ii).Cells("細項").Value.ToString = 敘述欄_dgv.Rows(iii).Cells("細項").Value.ToString Then
+                                If 敘述欄_dgv.Rows(iii).Cells("內容").Value.ToString = "" Then
+                                    xlSheet.Cells(15 + 位置2, 3) = 敘述欄_dgv.Rows(iii).Cells("廠商").Value
+                                Else
+                                    xlSheet.Cells(15 + 位置2, 3) = 敘述欄_dgv.Rows(iii).Cells("內容").Value
+                                End If : Exit For
+                            End If
+                        Next : 位置2 += 1
+                    Next : 循環列印3()
+                    For i As Integer = 0 + 6 To 分頁計數2
+                        xlSheet.Cells(位置8 + 1, 5 + i - 6) = 樣品單控制表_dgv.Rows(i).Cells("備註").Value
+                        xlSheet.Cells(位置8 + 2, 5 + i - 6) = 樣品單控制表_dgv.Rows(i).Cells("FINISH").Value
+                    Next : AA(xlApp, xlSheet) : BB(xlApp, xlSheet) : CC(xlApp, xlSheet) : DD(xlApp, xlSheet) : FF(xlApp, xlSheet) : GG(xlApp, xlSheet)
+                    位置2 = 0 : For ii As Integer = 0 To 明細表分頁_dgv.Rows.Count - 1 : HH(xlApp, xlSheet) : 位置2 += 1 : Next : HH(xlApp, xlSheet) : 位置2 += 1 : HH(xlApp, xlSheet)
+                End If
+
+                If 第四頁 = True Then
+                    xlSheet = NewMethod(xlBook)
+                    位置1 = 0 : 位置2 = 0 : 位置3 = 0 : 位置5 = 0 : 位置6 = 0 : 位置7 = 0 : 位置8 = 0 : 位置9 = 0 : 位置10 = 0
+                    面料數 = 0 : 內裏數 = 0 : 底部數 = 0 : 飾物數 = 0
+                    xlApp.Sheets(1).Name = 樣品單抬頭_dgv.Rows(0).Cells("型體號碼").Value & "第四頁"
+                    xlBook.Activate()
+                    xlSheet.Activate()
+                    循環列印1()
+                    For i As Integer = 0 + 9 To 分頁計數3
+                        xlSheet.Cells(11, 5 + i - 9) = 樣品單控制表_dgv.Rows(i).Cells("顏色").Value
+                        xlSheet.Cells(12, 5 + i - 9) = 樣品單控制表_dgv.Rows(i).Cells("訂單顏色").Value
+                        xlSheet.Cells(13, 5 + i) = 樣品單控制表_dgv.Rows(i).Cells("ItemNumber").Value
+                        xlSheet.Cells(14, 5 + i - 9) = Strings.Format(樣品單控制表_dgv.Rows(i).Cells("數量1").Value, "#,##0.0") & "双"
+                    Next : 循環列印2()
+                    For i As Integer = 0 + 9 To 分頁計數3
+                        Set_DGV4載入前設定() : PA9 = 樣品單控制表_dgv.Rows(i).Cells("樣品流水號一").Value : SQL_讀取列印分頁計數() : Set_DGV4載入後設定()
+                        位置2 = 0
+                        For ii As Integer = 0 To 明細表分頁_dgv.Rows.Count - 1
+                            xlSheet.Cells(15 + 位置2, 5 + i - 9) = 明細表分頁_dgv.Rows(ii).Cells("內容").Value
+                            'xlSheet.Cells(15 + 位置2 + 1, 4 + i - 4) = 明細表分頁_dgv.Rows(ii).Cells("廠商").Value
+                            'EE(xlApp, xlSheet)
+                            位置2 += 1
+                        Next
+                    Next : 位置2 = 0
+                    For ii As Integer = 0 To 明細表分頁_dgv.Rows.Count - 1
+                        For iii As Integer = 0 To 敘述欄_dgv.Rows.Count - 1
+                            If 明細表分頁_dgv.Rows(ii).Cells("細項").Value.ToString = 敘述欄_dgv.Rows(iii).Cells("細項").Value.ToString Then
+                                If 敘述欄_dgv.Rows(iii).Cells("內容").Value.ToString = "" Then
+                                    xlSheet.Cells(15 + 位置2, 3) = 敘述欄_dgv.Rows(iii).Cells("廠商").Value
+                                Else
+                                    xlSheet.Cells(15 + 位置2, 3) = 敘述欄_dgv.Rows(iii).Cells("內容").Value
+                                End If : Exit For
+                            End If
+                        Next : 位置2 += 1
+                    Next : 循環列印3()
+                    For i As Integer = 0 + 9 To 分頁計數3
+                        xlSheet.Cells(位置8 + 1, 5 + i - 9) = 樣品單控制表_dgv.Rows(i).Cells("備註").Value
+                        xlSheet.Cells(位置8 + 2, 5 + i - 9) = 樣品單控制表_dgv.Rows(i).Cells("FINISH").Value
+                    Next
+                    AA(xlApp, xlSheet) : BB(xlApp, xlSheet) : CC(xlApp, xlSheet) : DD(xlApp, xlSheet) : FF(xlApp, xlSheet) : GG(xlApp, xlSheet)
+                    位置2 = 0 : For ii As Integer = 0 To 明細表分頁_dgv.Rows.Count - 1 : HH(xlApp, xlSheet) : 位置2 += 1 : Next : HH(xlApp, xlSheet) : 位置2 += 1 : HH(xlApp, xlSheet)
+                End If
+
+                If 第五頁 = True Then
+                    xlSheet = NewMethod(xlBook)
+                    位置1 = 0 : 位置2 = 0 : 位置3 = 0 : 位置5 = 0 : 位置6 = 0 : 位置7 = 0 : 位置8 = 0 : 位置9 = 0 : 位置10 = 0
+                    面料數 = 0 : 內裏數 = 0 : 底部數 = 0 : 飾物數 = 0
+                    xlApp.Sheets(1).Name = 樣品單抬頭_dgv.Rows(0).Cells("型體號碼").Value & "第五頁"
+                    xlBook.Activate()
+                    xlSheet.Activate()
+                    循環列印1()
+                    For i As Integer = 0 + 12 To 樣品單控制表_dgv.Rows.Count - 1
+                        xlSheet.Cells(11, 5 + i - 12) = 樣品單控制表_dgv.Rows(i).Cells("顏色").Value
+                        xlSheet.Cells(12, 5 + i - 12) = 樣品單控制表_dgv.Rows(i).Cells("訂單顏色").Value
+                        xlSheet.Cells(13, 5 + i) = 樣品單控制表_dgv.Rows(i).Cells("ItemNumber").Value
+                        xlSheet.Cells(14, 5 + i - 12) = Strings.Format(樣品單控制表_dgv.Rows(i).Cells("數量1").Value, "#,##0.0") & "双"
                     Next : 循環列印2()
-                    For i As Integer = 0 + 8 To 樣品單控制表_dgv.Rows.Count - 1
+                    For i As Integer = 0 + 12 To 樣品單控制表_dgv.Rows.Count - 1
                         Set_DGV4載入前設定() : PA9 = 樣品單控制表_dgv.Rows(i).Cells("樣品流水號一").Value : SQL_讀取列印分頁計數() : Set_DGV4載入後設定()
                         位置2 = 0
                         For ii As Integer = 0 To 明細表分頁_dgv.Rows.Count - 1
-                            xlSheet.Cells(15 + 位置2, 4 + i - 8) = 明細表分頁_dgv.Rows(ii).Cells("內容").Value
-                            xlSheet.Cells(15 + 位置2 + 1, 4 + i - 8) = 明細表分頁_dgv.Rows(ii).Cells("廠商").Value
-                            EE(xlApp, xlSheet) : 位置2 += 2
+                            xlSheet.Cells(15 + 位置2, 5 + i - 12) = 明細表分頁_dgv.Rows(ii).Cells("內容").Value
+                            'xlSheet.Cells(15 + 位置2 + 1, 4 + i - 8) = 明細表分頁_dgv.Rows(ii).Cells("廠商").Value
+                            'EE(xlApp, xlSheet)
+                            位置2 += 1
                         Next
                     Next : 位置2 = 0
                     For ii As Integer = 0 To 明細表分頁_dgv.Rows.Count - 1
                         For iii As Integer = 0 To 敘述欄_dgv.Rows.Count - 1
                             If 明細表分頁_dgv.Rows(ii).Cells("細項").Value.ToString = 敘述欄_dgv.Rows(iii).Cells("細項").Value.ToString Then
-                                xlSheet.Cells(15 + 位置2, 3) = 敘述欄_dgv.Rows(iii).Cells("內容").Value : Exit For
+                                If 敘述欄_dgv.Rows(iii).Cells("內容").Value.ToString = "" Then
+                                    xlSheet.Cells(15 + 位置2, 3) = 敘述欄_dgv.Rows(iii).Cells("廠商").Value
+                                Else
+                                    xlSheet.Cells(15 + 位置2, 3) = 敘述欄_dgv.Rows(iii).Cells("內容").Value
+                                End If : Exit For
                             End If
-                        Next : 位置2 += 2
+                        Next : 位置2 += 1
                     Next : 循環列印3()
-                    For i As Integer = 0 + 8 To 樣品單控制表_dgv.Rows.Count - 1
-                        xlSheet.Cells(位置8 + 1, 4 + i - 8) = 樣品單控制表_dgv.Rows(i).Cells("備註").Value
-                        xlSheet.Cells(位置8 + 2, 4 + i - 8) = 樣品單控制表_dgv.Rows(i).Cells("FINISH").Value
+                    For i As Integer = 0 + 12 To 樣品單控制表_dgv.Rows.Count - 1
+                        xlSheet.Cells(位置8 + 1, 5 + i - 12) = 樣品單控制表_dgv.Rows(i).Cells("備註").Value
+                        xlSheet.Cells(位置8 + 2, 5 + i - 12) = 樣品單控制表_dgv.Rows(i).Cells("FINISH").Value
                     Next : AA(xlApp, xlSheet) : BB(xlApp, xlSheet) : CC(xlApp, xlSheet) : DD(xlApp, xlSheet) : FF(xlApp, xlSheet) : GG(xlApp, xlSheet)
+                    位置2 = 0 : For ii As Integer = 0 To 明細表分頁_dgv.Rows.Count - 1 : HH(xlApp, xlSheet) : 位置2 += 1 : Next : HH(xlApp, xlSheet) : 位置2 += 1 : HH(xlApp, xlSheet)
                 End If
 
-                If 第一頁 = True And 第二頁 = False And 第三頁 = False Then : xlApp.Sheets(2 + 分頁數量).Delete
-                ElseIf 第一頁 = True And 第二頁 = True And 第三頁 = False Then : xlApp.Sheets(3 + 分頁數量).Delete
-                ElseIf 第一頁 = True And 第二頁 = True And 第三頁 = True Then : xlApp.Sheets(4 + 分頁數量).Delete : End If
+                If 第一頁 = True And 第二頁 = False And 第三頁 = False And 第四頁 = False And 第五頁 = False Then : xlApp.Sheets(2 + 分頁數量).Delete
+                ElseIf 第一頁 = True And 第二頁 = True And 第三頁 = False And 第四頁 = False And 第五頁 = False Then : xlApp.Sheets(3 + 分頁數量).Delete
+                ElseIf 第一頁 = True And 第二頁 = True And 第三頁 = True And 第四頁 = False And 第五頁 = False Then : xlApp.Sheets(4 + 分頁數量).Delete
+                ElseIf 第一頁 = True And 第二頁 = True And 第三頁 = True And 第四頁 = True And 第五頁 = False Then : xlApp.Sheets(5 + 分頁數量).Delete
+                ElseIf 第一頁 = True And 第二頁 = True And 第三頁 = True And 第四頁 = True And 第五頁 = True Then : xlApp.Sheets(6 + 分頁數量).Delete
+                End If
 
                 xlSheet.PageSetup.PrintArea = ""
                 xlApp.Cells.Select()
@@ -533,7 +643,7 @@ Public Class 列印_中文樣品單
         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With
 
-        位置8 = 14 + (面料數 * 2) + (內裏數 * 2) + (底部數 * 2) + (飾物數 * 2)
+        位置8 = 14 + (面料數 * 1) + (內裏數 * 1) + (底部數 * 1) + (飾物數 * 1)
         For i As Integer = 15 To 位置8
             攔寬 = xlSheet.Rows(i).RowHeight
             位置11 = i & ":" & i
@@ -541,7 +651,7 @@ Public Class 列印_中文樣品單
             i += 1
         Next
 
-        位置5 = 14 + (面料數 * 2) : 位置4 = "A14:G" & 位置5
+        位置5 = 14 + (面料數 * 1) : 位置4 = "A14:G" & 位置5
         xlSheet.Range(位置4).Select() : myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
@@ -554,7 +664,7 @@ Public Class 列印_中文樣品單
         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge
 
-        位置5 += 1 : 位置6 = 14 + (面料數 * 2) + (內裏數 * 2) : 位置4 = "A" & 位置5 & ":G" & 位置6
+        位置5 += 1 : 位置6 = 14 + (面料數 * 1) + (內裏數 * 1) : 位置4 = "A" & 位置5 & ":G" & 位置6
         xlSheet.Range(位置4).Select() : myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
@@ -567,7 +677,7 @@ Public Class 列印_中文樣品單
         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge
 
-        位置6 += 1 : 位置7 = 14 + (面料數 * 2) + (內裏數 * 2) + (底部數 * 2) : 位置4 = "A" & 位置6 & ":G" & 位置7
+        位置6 += 1 : 位置7 = 14 + (面料數 * 1) + (內裏數 * 1) + (底部數 * 1) : 位置4 = "A" & 位置6 & ":G" & 位置7
         xlSheet.Range(位置4).Select() : myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
@@ -580,7 +690,7 @@ Public Class 列印_中文樣品單
         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge
 
-        位置7 += 1 : 位置8 = 14 + (面料數 * 2) + (內裏數 * 2) + (底部數 * 2) + (飾物數 * 2) : 位置4 = "A" & 位置7 & ":G" & 位置8
+        位置7 += 1 : 位置8 = 14 + (面料數 * 1) + (內裏數 * 1) + (底部數 * 1) + (飾物數 * 1) : 位置4 = "A" & 位置7 & ":G" & 位置8
         xlSheet.Range(位置4).Select() : myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
         With myExcel.Selection.Borders(xlEdgeLeft) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
         With myExcel.Selection.Borders(xlEdgeTop) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlMedium : End With
@@ -650,7 +760,7 @@ Public Class 列印_中文樣品單
         With myExcel.Selection.Font : .Name = "Microsoft YaHei UI" : .Size = 10 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
             .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
 
-        xlSheet.Range("C11:C14").Select()
+        xlSheet.Range("C11:D14").Select()
         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0
             .AddIndent = False : .IndentLevel = 0 : .ReadingOrder = xlContext : .MergeCells = False : End With
         myExcel.Selection.Merge : myExcel.ActiveCell.FormulaR1C1 = "材料敘述"
@@ -684,6 +794,13 @@ Public Class 列印_中文樣品單
         End With
         myExcel.Application.PrintCommunication = True
     End Sub
+    Private Sub HH(ByVal myExcel As Application, ByVal xlSheet As Worksheet)
+        xlSheet.Range("C" & 15 + 位置2 & ":D" & 15 + 位置2).Select()
+        With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = True : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+            .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge
+        'With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = True : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
+        '    .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True : End With
+    End Sub
     Private Sub BB(ByVal myExcel As Application, ByVal xlSheet As Worksheet)
         Clipboard.SetDataObject(PictureBox3.Image)
         xlSheet.Range("C1").Select()
@@ -767,12 +884,12 @@ Public Class 列印_中文樣品單
         If 圖片2_pb.Image.Size.Height > 圖片2_pb.Image.Size.Width Then : myExcel.Selection.ShapeRange.Height = HHS : Else : myExcel.Selection.ShapeRange.Width = WWS : End If
         myExcel.Selection.ShapeRange.IncrementLeft(1.5) : myExcel.Selection.ShapeRange.IncrementTop(1.5)
     End Sub
-    Private Sub EE(ByVal myExcel As Application, ByVal xlSheet As Worksheet)
-        位置9 = 15 + 位置2 + 1 : 位置4 = "B" & 位置9 & ":G" & 位置9 : xlSheet.Range(位置4).Select()
-        With myExcel.Selection.Interior
-            .Pattern = xlSolid : .PatternColorIndex = xlAutomatic : .ThemeColor = xlThemeColorDark1 : .TintAndShade = -0.249977111117893 : .PatternTintAndShade = 0
-        End With
-    End Sub
+    'Private Sub EE(ByVal myExcel As Application, ByVal xlSheet As Worksheet)
+    '    位置9 = 15 + 位置2 + 1 : 位置4 = "B" & 位置9 & ":G" & 位置9 : xlSheet.Range(位置4).Select()
+    '    With myExcel.Selection.Interior
+    '        .Pattern = xlSolid : .PatternColorIndex = xlAutomatic : .ThemeColor = xlThemeColorDark1 : .TintAndShade = -0.249977111117893 : .PatternTintAndShade = 0
+    '    End With
+    'End Sub
     Private Sub II(ByVal myExcel As Application, ByVal xlSheet As Worksheet)
         xlSheet.Columns("A:A").Select : myExcel.Selection.ColumnWidth = 2 : xlSheet.Columns("B:C").Select : myExcel.Selection.ColumnWidth = 60
         xlSheet.Rows("2:2").Select : myExcel.Selection.RowHeight = 400 : xlSheet.Rows("4:4").Select : myExcel.Selection.RowHeight = 400

TENDEN-MES-SYS/資料庫系統管理/清單修改.Designer.vb

@@ -68,7 +68,7 @@ Partial Class 清單修改
         'Panel1
         '
         Me.Panel1.Controls.Add(Me.舊字串_tb)
-        Me.Panel1.Location = New System.Drawing.Point(12, 162)
+        Me.Panel1.Location = New System.Drawing.Point(48, 99)
         Me.Panel1.Name = "Panel1"
         Me.Panel1.Size = New System.Drawing.Size(138, 58)
         Me.Panel1.TabIndex = 216
@@ -130,7 +130,10 @@ Partial Class 清單修改
         Me.Controls.Add(Me.修改_bt)
         Me.Controls.Add(Me.清單_dgv)
         Me.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
+        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
         Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
+        Me.MaximizeBox = False
+        Me.MinimizeBox = False
         Me.Name = "清單修改"
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
         Me.Text = "清單修改"

TENDEN-MES-SYS/資料庫系統管理/清單修改.vb

@@ -31,7 +31,7 @@ Public Class 清單修改
         清單_dgv.Columns(0).FillWeight = 126
     End Sub
     Private Sub 清單修改_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        FormBorderStyle = FormBorderStyle.SizableToolWindow
+
         Panel1.SendToBack() : ToolTip1.ToolTipTitle = "系統說明"
         清單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
     End Sub

TENDEN-MES-SYS/資料庫系統管理/系統執行檔版本管理.Designer.vb

@@ -43,7 +43,7 @@ Partial Class 系統執行檔版本管理
         Me.資料庫版本號_lb.BackColor = System.Drawing.SystemColors.Control
         Me.資料庫版本號_lb.Location = New System.Drawing.Point(437, 9)
         Me.資料庫版本號_lb.Name = "資料庫版本號_lb"
-        Me.資料庫版本號_lb.Size = New System.Drawing.Size(159, 16)
+        Me.資料庫版本號_lb.Size = New System.Drawing.Size(158, 16)
         Me.資料庫版本號_lb.TabIndex = 605
         Me.資料庫版本號_lb.Text = "資料庫版本號 : 2018110801"
         '
@@ -53,7 +53,7 @@ Partial Class 系統執行檔版本管理
         Me.執行檔存放區_lb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.執行檔存放區_lb.Location = New System.Drawing.Point(955, 10)
         Me.執行檔存放區_lb.Name = "執行檔存放區_lb"
-        Me.執行檔存放區_lb.Size = New System.Drawing.Size(80, 16)
+        Me.執行檔存放區_lb.Size = New System.Drawing.Size(79, 16)
         Me.執行檔存放區_lb.TabIndex = 604
         Me.執行檔存放區_lb.Text = "執行檔存放區"
         '
@@ -63,7 +63,7 @@ Partial Class 系統執行檔版本管理
         Me.我的電腦_lb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.我的電腦_lb.Location = New System.Drawing.Point(6, 9)
         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 = 603
         Me.我的電腦_lb.Text = "我的電腦"
         '
@@ -115,7 +115,7 @@ Partial Class 系統執行檔版本管理
         Me.版本號_lb.BackColor = System.Drawing.SystemColors.Control
         Me.版本號_lb.Location = New System.Drawing.Point(171, 9)
         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 = 598
         Me.版本號_lb.Text = "版本號"
         '
@@ -134,13 +134,18 @@ Partial Class 系統執行檔版本管理
         Me.SaveFileDialog1.SupportMultiDottedExtensions = True
         Me.SaveFileDialog1.Title = "指定檔案名稱與選擇檔案路徑"
         '
+        'FolderBrowserDialog1
+        '
+        Me.FolderBrowserDialog1.RootFolder = System.Environment.SpecialFolder.MyComputer
+        Me.FolderBrowserDialog1.ShowNewFolderButton = False
+        '
         '原代碼存放區_lb
         '
         Me.原代碼存放區_lb.AutoSize = True
         Me.原代碼存放區_lb.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.原代碼存放區_lb.Location = New System.Drawing.Point(948, 354)
         Me.原代碼存放區_lb.Name = "原代碼存放區_lb"
-        Me.原代碼存放區_lb.Size = New System.Drawing.Size(80, 16)
+        Me.原代碼存放區_lb.Size = New System.Drawing.Size(79, 16)
         Me.原代碼存放區_lb.TabIndex = 607
         Me.原代碼存放區_lb.Text = "原代碼存放區"
         '
@@ -191,8 +196,8 @@ Partial Class 系統執行檔版本管理
     Friend WithEvents 版本號_lb As Label
     Friend WithEvents 版本號_tb As TextBox
     Friend WithEvents SaveFileDialog1 As SaveFileDialog
-    Friend WithEvents FolderBrowserDialog1 As FolderBrowserDialog
     Friend WithEvents 原代碼存放區_lb As Label
     Friend WithEvents WebBrowser3 As WebBrowser
+    Public WithEvents FolderBrowserDialog1 As FolderBrowserDialog
 End Class