TENDEN-MES-SYS
/
TENDEN-MES-SYS-LEEHSIEHJUI
Beobachten 4
Favorisieren 0
Fork 0
Code Issues 0 Pull-Requests 0 Releases 0 Wiki Aktivität
Quellcode durchsuchen

20230331備份

B70340 vor 2 Jahren
Ursprung
f2d34dfa86
Commit
306ba33a56
21 geänderte Dateien mit 727 neuen und 269 gelöschten Zeilen
Geteilte Ansicht Diff-Statistik anzeigen
  1. 0
    0
      .vs/TENDEN-MES-SYS/FileContentIndex/96f59ee1-78ba-4abe-b71e-28a537cf7c8a.vsidx
  2. 0
    0
      .vs/TENDEN-MES-SYS/FileContentIndex/9e82087e-14a2-47a1-a9ff-fcddf3db67a3.vsidx
  3. BIN
      .vs/TENDEN-MES-SYS/FileContentIndex/d713b9f2-5564-476d-bd84-ffe5d6c7b0ba.vsidx
  4. BIN
      .vs/TENDEN-MES-SYS/FileContentIndex/f13a5075-5870-4a20-9888-c15e58473797.vsidx
  5. BIN
      .vs/TENDEN-MES-SYS/v17/.suo
  6. BIN
      .vs/TENDEN-MES-SYS/v17/c5zr3yao.xaj
  7. BIN
      .vs/TENDEN-MES-SYS/v17/hark0vdp.05n
  8. BIN
      .vs/TENDEN-MES-SYS/v17/hvbb11hy.lcz
  9. BIN
      .vs/TENDEN-MES-SYS/v17/n5zwlw1g.njn
  10. BIN
      .vs/TENDEN-MES-SYS/v17/onkxcjs1.1d3
  11. BIN
      .vs/TENDEN-MES-SYS/v17/vgltadys.laz
  12. 1
    1
      TENDEN-MES-SYS/Module/全域變數.vb
  13. BIN
      TENDEN-MES-SYS/bin/Debug/TENDEN-ERP-SYS.exe
  14. BIN
      TENDEN-MES-SYS/bin/Debug/TENDEN-ERP-SYS.pdb
  15. BIN
      TENDEN-MES-SYS/obj/Debug/TENDEN-ERP-SYS.exe
  16. BIN
      TENDEN-MES-SYS/obj/Debug/TENDEN-ERP-SYS.pdb
  17. 3
    3
      TENDEN-MES-SYS/obj/Debug/天盾系統.vbproj.FileListAbsolute.txt
  18. BIN
      TENDEN-MES-SYS/obj/Debug/天盾系統.vbproj.GenerateResource.cache
  19. 347
    119
      TENDEN-MES-SYS/樣品訂單管理/中文樣品單系統/中文樣品單.Designer.vb
  20. 266
    32
      TENDEN-MES-SYS/樣品訂單管理/中文樣品單系統/中文樣品單.vb
  21. 110
    114
      TENDEN-MES-SYS/樣品訂單管理/系統列印介面/列印_中文樣品單.vb

.vs/TENDEN-MES-SYS/FileContentIndex/06a6b928-4d3d-4c30-bbb9-4e56b22d013b.vsidx → .vs/TENDEN-MES-SYS/FileContentIndex/96f59ee1-78ba-4abe-b71e-28a537cf7c8a.vsidx Datei anzeigen


.vs/TENDEN-MES-SYS/FileContentIndex/de82376a-ff43-48c1-bcdd-53647c5a9670.vsidx → .vs/TENDEN-MES-SYS/FileContentIndex/9e82087e-14a2-47a1-a9ff-fcddf3db67a3.vsidx Datei anzeigen


BIN
.vs/TENDEN-MES-SYS/FileContentIndex/c5f84611-25ca-413e-b0d6-ac4ced3d5dda.vsidx → .vs/TENDEN-MES-SYS/FileContentIndex/d713b9f2-5564-476d-bd84-ffe5d6c7b0ba.vsidx Datei anzeigen


BIN
.vs/TENDEN-MES-SYS/FileContentIndex/1668dbd2-3fd9-42af-9e8f-9f7d01bb9678.vsidx → .vs/TENDEN-MES-SYS/FileContentIndex/f13a5075-5870-4a20-9888-c15e58473797.vsidx Datei anzeigen


BIN
.vs/TENDEN-MES-SYS/v17/.suo Datei anzeigen


BIN
.vs/TENDEN-MES-SYS/v17/c5zr3yao.xaj Datei anzeigen


BIN
.vs/TENDEN-MES-SYS/v17/hark0vdp.05n Datei anzeigen


BIN
.vs/TENDEN-MES-SYS/v17/hvbb11hy.lcz Datei anzeigen


BIN
.vs/TENDEN-MES-SYS/v17/n5zwlw1g.njn Datei anzeigen


BIN
.vs/TENDEN-MES-SYS/v17/onkxcjs1.1d3 Datei anzeigen


BIN
.vs/TENDEN-MES-SYS/v17/vgltadys.laz Datei anzeigen


+ 1
- 1
TENDEN-MES-SYS/Module/全域變數.vb Datei anzeigen 

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

BIN
TENDEN-MES-SYS/bin/Debug/TENDEN-ERP-SYS.exe Datei anzeigen


BIN
TENDEN-MES-SYS/bin/Debug/TENDEN-ERP-SYS.pdb Datei anzeigen


BIN
TENDEN-MES-SYS/obj/Debug/TENDEN-ERP-SYS.exe Datei anzeigen


BIN
TENDEN-MES-SYS/obj/Debug/TENDEN-ERP-SYS.pdb Datei anzeigen


+ 3
- 3
TENDEN-MES-SYS/obj/Debug/天盾系統.vbproj.FileListAbsolute.txt Datei anzeigen 

@@ -848,9 +848,12 @@ D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理
848 848 
 D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.力威發票明細轉換工具.resources
849 849 
 D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.訂單交期批量修改工具.resources
850 850 
 D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.訂單分析比對工具_力威.resources
851 
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.未指定單價查詢表.resources
852 
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.樣品單備註圖片.resources
851 853 
 D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.模具控制表.resources
852 854 
 D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.下拉清單_1.resources
853 855 
 D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.系統編碼原則.resources
856 
+D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.進度條視窗.resources
854 857 
 D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.業務資料日期除錯.resources
855 858 
 D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.訂單資料匯入_力威.resources
856 859 
 D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.網段.resources
 
@@ -957,6 +960,3 @@ D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾系統.vbproj.
957 960 
 D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\TENDEN-ERP-SYS.exe
958 961 
 D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\TENDEN-ERP-SYS.xml
959 962 
 D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\TENDEN-ERP-SYS.pdb
960 
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.進度條視窗.resources
961 
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.樣品單備註圖片.resources
962 
-D:\工巧明\TENDEN\TENDEN-MES-SYS\TENDEN-MES-SYS\obj\Debug\天盾國際管理系統.未指定單價查詢表.resources

BIN
TENDEN-MES-SYS/obj/Debug/天盾系統.vbproj.GenerateResource.cache Datei anzeigen


+ 347
- 119
TENDEN-MES-SYS/樣品訂單管理/中文樣品單系統/中文樣品單.Designer.vb Datei anzeigen 

@@ -28,10 +28,10 @@ Partial Class 中文樣品單
28 28 
         Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
29 29 
         Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
30 30 
         Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
31 
-        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
32 
-        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
33 
-        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
34 31 
         Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
32 
+        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
33 
+        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
34 
+        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
35 35 
         Me.Label1 = New System.Windows.Forms.Label()
36 36 
         Me.Label2 = New System.Windows.Forms.Label()
37 37 
         Me.Label3 = New System.Windows.Forms.Label()
 
@@ -220,6 +220,26 @@ Partial Class 中文樣品單
220 220 
         Me.Panel3 = New System.Windows.Forms.Panel()
221 221 
         Me.日期1_dtp = New System.Windows.Forms.DateTimePicker()
222 222 
         Me.Panel2 = New System.Windows.Forms.Panel()
223 
+        Me.大間距4_ch = New System.Windows.Forms.CheckBox()
224 
+        Me.中間距4_ch = New System.Windows.Forms.CheckBox()
225 
+        Me.小間距4_ch = New System.Windows.Forms.CheckBox()
226 
+        Me.大間距3_ch = New System.Windows.Forms.CheckBox()
227 
+        Me.中間距3_ch = New System.Windows.Forms.CheckBox()
228 
+        Me.小間距3_ch = New System.Windows.Forms.CheckBox()
229 
+        Me.大間距2_ch = New System.Windows.Forms.CheckBox()
230 
+        Me.中間距2_ch = New System.Windows.Forms.CheckBox()
231 
+        Me.小間距2_ch = New System.Windows.Forms.CheckBox()
232 
+        Me.大間距1_ch = New System.Windows.Forms.CheckBox()
233 
+        Me.中間距1_ch = New System.Windows.Forms.CheckBox()
234 
+        Me.小間距1_ch = New System.Windows.Forms.CheckBox()
235 
+        Me.存檔4_bt = New System.Windows.Forms.Button()
236 
+        Me.存檔3_bt = New System.Windows.Forms.Button()
237 
+        Me.存檔2_bt = New System.Windows.Forms.Button()
238 
+        Me.存檔1_bt = New System.Windows.Forms.Button()
239 
+        Me.飾物1_dgv = New System.Windows.Forms.DataGridView()
240 
+        Me.底部1_dgv = New System.Windows.Forms.DataGridView()
241 
+        Me.內裡1_dgv = New System.Windows.Forms.DataGridView()
242 
+        Me.面料1_dgv = New System.Windows.Forms.DataGridView()
223 243 
         Me.Label50 = New System.Windows.Forms.Label()
224 244 
         Me.Panel4 = New System.Windows.Forms.Panel()
225 245 
         Me.廠商_tb = New System.Windows.Forms.TextBox()
 
@@ -272,10 +292,6 @@ Partial Class 中文樣品單
272 292 
         Me.PictureBox3 = New System.Windows.Forms.PictureBox()
273 293 
         Me.PictureBox2 = New System.Windows.Forms.PictureBox()
274 294 
         Me.PictureBox1 = New System.Windows.Forms.PictureBox()
275 
-        Me.面料1_dgv = New System.Windows.Forms.DataGridView()
276 
-        Me.內裡1_dgv = New System.Windows.Forms.DataGridView()
277 
-        Me.底部1_dgv = New System.Windows.Forms.DataGridView()
278 
-        Me.飾物1_dgv = New System.Windows.Forms.DataGridView()
279 295 
         CType(Me.清單_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
280 296 
         CType(Me.圖片1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
281 297 
         CType(Me.圖片2_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
 
@@ -297,6 +313,10 @@ Partial Class 中文樣品單
297 313 
         Me.Panel1.SuspendLayout()
298 314 
         Me.Panel3.SuspendLayout()
299 315 
         Me.Panel2.SuspendLayout()
316 
+        CType(Me.飾物1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
317 
+        CType(Me.底部1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
318 
+        CType(Me.內裡1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
319 
+        CType(Me.面料1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
300 320 
         Me.Panel4.SuspendLayout()
301 321 
         Me.GroupBox7.SuspendLayout()
302 322 
         Me.視窗2_pl.SuspendLayout()
 
@@ -321,10 +341,6 @@ Partial Class 中文樣品單
321 341 
         CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit()
322 342 
         CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
323 343 
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
324 
-        CType(Me.面料1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
325 
-        CType(Me.內裡1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
326 
-        CType(Me.底部1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
327 
-        CType(Me.飾物1_dgv, System.ComponentModel.ISupportInitialize).BeginInit()
328 344 
         Me.SuspendLayout()
329 345 
         '
330 346 
         'Label1
 
@@ -989,7 +1005,7 @@ Partial Class 中文樣品單
989 1005 
         '新增面料_bt
990 1006 
         '
991 1007 
         Me.新增面料_bt.ForeColor = System.Drawing.Color.Blue
992 
-        Me.新增面料_bt.Location = New System.Drawing.Point(215, 1)
1008 
+        Me.新增面料_bt.Location = New System.Drawing.Point(387, 1)
993 1009 
         Me.新增面料_bt.Name = "新增面料_bt"
994 1010 
         Me.新增面料_bt.Size = New System.Drawing.Size(80, 30)
995 1011 
         Me.新增面料_bt.TabIndex = 365
 
@@ -999,7 +1015,7 @@ Partial Class 中文樣品單
999 1015 
         '新增內裏_bt
1000 1016 
         '
1001 1017 
         Me.新增內裏_bt.ForeColor = System.Drawing.Color.Blue
1002 
-        Me.新增內裏_bt.Location = New System.Drawing.Point(215, 475)
1018 
+        Me.新增內裏_bt.Location = New System.Drawing.Point(387, 475)
1003 1019 
         Me.新增內裏_bt.Name = "新增內裏_bt"
1004 1020 
         Me.新增內裏_bt.Size = New System.Drawing.Size(80, 30)
1005 1021 
         Me.新增內裏_bt.TabIndex = 366
 
@@ -1009,7 +1025,7 @@ Partial Class 中文樣品單
1009 1025 
         '新增底部_bt
1010 1026 
         '
1011 1027 
         Me.新增底部_bt.ForeColor = System.Drawing.Color.Blue
1012 
-        Me.新增底部_bt.Location = New System.Drawing.Point(215, 948)
1028 
+        Me.新增底部_bt.Location = New System.Drawing.Point(387, 948)
1013 1029 
         Me.新增底部_bt.Name = "新增底部_bt"
1014 1030 
         Me.新增底部_bt.Size = New System.Drawing.Size(80, 30)
1015 1031 
         Me.新增底部_bt.TabIndex = 367
 
@@ -1019,7 +1035,7 @@ Partial Class 中文樣品單
1019 1035 
         '新增飾物_bt
1020 1036 
         '
1021 1037 
         Me.新增飾物_bt.ForeColor = System.Drawing.Color.Blue
1022 
-        Me.新增飾物_bt.Location = New System.Drawing.Point(215, 1422)
1038 
+        Me.新增飾物_bt.Location = New System.Drawing.Point(387, 1422)
1023 1039 
         Me.新增飾物_bt.Name = "新增飾物_bt"
1024 1040 
         Me.新增飾物_bt.Size = New System.Drawing.Size(80, 30)
1025 1041 
         Me.新增飾物_bt.TabIndex = 368
 
@@ -1038,7 +1054,7 @@ Partial Class 中文樣品單
1038 1054 
         '
1039 1055 
         'TextBox6
1040 1056 
         '
1041 
-        Me.TextBox6.Location = New System.Drawing.Point(134, 5)
1057 
+        Me.TextBox6.Location = New System.Drawing.Point(306, 5)
1042 1058 
         Me.TextBox6.Name = "TextBox6"
1043 1059 
         Me.TextBox6.Size = New System.Drawing.Size(80, 23)
1044 1060 
         Me.TextBox6.TabIndex = 370
 
@@ -1047,7 +1063,7 @@ Partial Class 中文樣品單
1047 1063 
         '刪除面料_bt
1048 1064 
         '
1049 1065 
         Me.刪除面料_bt.ForeColor = System.Drawing.Color.Red
1050 
-        Me.刪除面料_bt.Location = New System.Drawing.Point(301, 1)
1066 
+        Me.刪除面料_bt.Location = New System.Drawing.Point(473, 1)
1051 1067 
         Me.刪除面料_bt.Name = "刪除面料_bt"
1052 1068 
         Me.刪除面料_bt.Size = New System.Drawing.Size(80, 30)
1053 1069 
         Me.刪除面料_bt.TabIndex = 374
 
@@ -1057,7 +1073,7 @@ Partial Class 中文樣品單
1057 1073 
         '刪除內裏_bt
1058 1074 
         '
1059 1075 
         Me.刪除內裏_bt.ForeColor = System.Drawing.Color.Red
1060 
-        Me.刪除內裏_bt.Location = New System.Drawing.Point(301, 475)
1076 
+        Me.刪除內裏_bt.Location = New System.Drawing.Point(473, 475)
1061 1077 
         Me.刪除內裏_bt.Name = "刪除內裏_bt"
1062 1078 
         Me.刪除內裏_bt.Size = New System.Drawing.Size(80, 30)
1063 1079 
         Me.刪除內裏_bt.TabIndex = 375
 
@@ -1067,7 +1083,7 @@ Partial Class 中文樣品單
1067 1083 
         '刪除底部_bt
1068 1084 
         '
1069 1085 
         Me.刪除底部_bt.ForeColor = System.Drawing.Color.Red
1070 
-        Me.刪除底部_bt.Location = New System.Drawing.Point(301, 948)
1086 
+        Me.刪除底部_bt.Location = New System.Drawing.Point(473, 948)
1071 1087 
         Me.刪除底部_bt.Name = "刪除底部_bt"
1072 1088 
         Me.刪除底部_bt.Size = New System.Drawing.Size(80, 30)
1073 1089 
         Me.刪除底部_bt.TabIndex = 376
 
@@ -1077,7 +1093,7 @@ Partial Class 中文樣品單
1077 1093 
         '刪除飾物_bt
1078 1094 
         '
1079 1095 
         Me.刪除飾物_bt.ForeColor = System.Drawing.Color.Red
1080 
-        Me.刪除飾物_bt.Location = New System.Drawing.Point(301, 1422)
1096 
+        Me.刪除飾物_bt.Location = New System.Drawing.Point(473, 1422)
1081 1097 
         Me.刪除飾物_bt.Name = "刪除飾物_bt"
1082 1098 
         Me.刪除飾物_bt.Size = New System.Drawing.Size(80, 30)
1083 1099 
         Me.刪除飾物_bt.TabIndex = 377
 
@@ -1086,7 +1102,7 @@ Partial Class 中文樣品單
1086 1102 
         '
1087 1103 
         '樣品流水號_tb
1088 1104 
         '
1089 
-        Me.樣品流水號_tb.Location = New System.Drawing.Point(52, 5)
1105 
+        Me.樣品流水號_tb.Location = New System.Drawing.Point(224, 5)
1090 1106 
         Me.樣品流水號_tb.Name = "樣品流水號_tb"
1091 1107 
         Me.樣品流水號_tb.Size = New System.Drawing.Size(80, 23)
1092 1108 
         Me.樣品流水號_tb.TabIndex = 378
 
@@ -1261,7 +1277,7 @@ Partial Class 中文樣品單
1261 1277 
         '
1262 1278 
         '樣品流水號1_tb
1263 1279 
         '
1264 
-        Me.樣品流水號1_tb.Location = New System.Drawing.Point(52, 479)
1280 
+        Me.樣品流水號1_tb.Location = New System.Drawing.Point(224, 479)
1265 1281 
         Me.樣品流水號1_tb.Name = "樣品流水號1_tb"
1266 1282 
         Me.樣品流水號1_tb.Size = New System.Drawing.Size(80, 23)
1267 1283 
         Me.樣品流水號1_tb.TabIndex = 399
 
@@ -1269,7 +1285,7 @@ Partial Class 中文樣品單
1269 1285 
         '
1270 1286 
         '樣品流水號2_tb
1271 1287 
         '
1272 
-        Me.樣品流水號2_tb.Location = New System.Drawing.Point(52, 952)
1288 
+        Me.樣品流水號2_tb.Location = New System.Drawing.Point(224, 952)
1273 1289 
         Me.樣品流水號2_tb.Name = "樣品流水號2_tb"
1274 1290 
         Me.樣品流水號2_tb.Size = New System.Drawing.Size(80, 23)
1275 1291 
         Me.樣品流水號2_tb.TabIndex = 400
 
@@ -1277,7 +1293,7 @@ Partial Class 中文樣品單
1277 1293 
         '
1278 1294 
         'TextBox13
1279 1295 
         '
1280 
-        Me.TextBox13.Location = New System.Drawing.Point(52, 1426)
1296 
+        Me.TextBox13.Location = New System.Drawing.Point(224, 1426)
1281 1297 
         Me.TextBox13.Name = "TextBox13"
1282 1298 
         Me.TextBox13.Size = New System.Drawing.Size(80, 23)
1283 1299 
         Me.TextBox13.TabIndex = 401
 
@@ -1285,7 +1301,7 @@ Partial Class 中文樣品單
1285 1301 
         '
1286 1302 
         'TextBox14
1287 1303 
         '
1288 
-        Me.TextBox14.Location = New System.Drawing.Point(134, 479)
1304 
+        Me.TextBox14.Location = New System.Drawing.Point(306, 479)
1289 1305 
         Me.TextBox14.Name = "TextBox14"
1290 1306 
         Me.TextBox14.Size = New System.Drawing.Size(80, 23)
1291 1307 
         Me.TextBox14.TabIndex = 402
 
@@ -1293,7 +1309,7 @@ Partial Class 中文樣品單
1293 1309 
         '
1294 1310 
         'TextBox15
1295 1311 
         '
1296 
-        Me.TextBox15.Location = New System.Drawing.Point(134, 952)
1312 
+        Me.TextBox15.Location = New System.Drawing.Point(306, 952)
1297 1313 
         Me.TextBox15.Name = "TextBox15"
1298 1314 
         Me.TextBox15.Size = New System.Drawing.Size(80, 23)
1299 1315 
         Me.TextBox15.TabIndex = 403
 
@@ -1301,7 +1317,7 @@ Partial Class 中文樣品單
1301 1317 
         '
1302 1318 
         'TextBox16
1303 1319 
         '
1304 
-        Me.TextBox16.Location = New System.Drawing.Point(134, 1426)
1320 
+        Me.TextBox16.Location = New System.Drawing.Point(306, 1426)
1305 1321 
         Me.TextBox16.Name = "TextBox16"
1306 1322 
         Me.TextBox16.Size = New System.Drawing.Size(80, 23)
1307 1323 
         Me.TextBox16.TabIndex = 404
 
@@ -1359,7 +1375,7 @@ Partial Class 中文樣品單
1359 1375 
         '面料顏色排序_bt
1360 1376 
         '
1361 1377 
         Me.面料顏色排序_bt.ForeColor = System.Drawing.Color.Green
1362 
-        Me.面料顏色排序_bt.Location = New System.Drawing.Point(387, 1)
1378 
+        Me.面料顏色排序_bt.Location = New System.Drawing.Point(559, 1)
1363 1379 
         Me.面料顏色排序_bt.Name = "面料顏色排序_bt"
1364 1380 
         Me.面料顏色排序_bt.Size = New System.Drawing.Size(80, 30)
1365 1381 
         Me.面料顏色排序_bt.TabIndex = 410
 
@@ -1369,7 +1385,7 @@ Partial Class 中文樣品單
1369 1385 
         '面料項次排序_bt
1370 1386 
         '
1371 1387 
         Me.面料項次排序_bt.ForeColor = System.Drawing.Color.Green
1372 
-        Me.面料項次排序_bt.Location = New System.Drawing.Point(473, 1)
1388 
+        Me.面料項次排序_bt.Location = New System.Drawing.Point(645, 1)
1373 1389 
         Me.面料項次排序_bt.Name = "面料項次排序_bt"
1374 1390 
         Me.面料項次排序_bt.Size = New System.Drawing.Size(80, 30)
1375 1391 
         Me.面料項次排序_bt.TabIndex = 411
 
@@ -1379,7 +1395,7 @@ Partial Class 中文樣品單
1379 1395 
         '內裏項次排序_tb
1380 1396 
         '
1381 1397 
         Me.內裏項次排序_tb.ForeColor = System.Drawing.Color.Green
1382 
-        Me.內裏項次排序_tb.Location = New System.Drawing.Point(473, 474)
1398 
+        Me.內裏項次排序_tb.Location = New System.Drawing.Point(645, 474)
1383 1399 
         Me.內裏項次排序_tb.Name = "內裏項次排序_tb"
1384 1400 
         Me.內裏項次排序_tb.Size = New System.Drawing.Size(80, 30)
1385 1401 
         Me.內裏項次排序_tb.TabIndex = 413
 
@@ -1389,7 +1405,7 @@ Partial Class 中文樣品單
1389 1405 
         '內裏顏色排序_tb
1390 1406 
         '
1391 1407 
         Me.內裏顏色排序_tb.ForeColor = System.Drawing.Color.Green
1392 
-        Me.內裏顏色排序_tb.Location = New System.Drawing.Point(387, 475)
1408 
+        Me.內裏顏色排序_tb.Location = New System.Drawing.Point(559, 475)
1393 1409 
         Me.內裏顏色排序_tb.Name = "內裏顏色排序_tb"
1394 1410 
         Me.內裏顏色排序_tb.Size = New System.Drawing.Size(80, 30)
1395 1411 
         Me.內裏顏色排序_tb.TabIndex = 412
 
@@ -1399,7 +1415,7 @@ Partial Class 中文樣品單
1399 1415 
         '底部項次排序_bt
1400 1416 
         '
1401 1417 
         Me.底部項次排序_bt.ForeColor = System.Drawing.Color.Green
1402 
-        Me.底部項次排序_bt.Location = New System.Drawing.Point(473, 948)
1418 
+        Me.底部項次排序_bt.Location = New System.Drawing.Point(645, 948)
1403 1419 
         Me.底部項次排序_bt.Name = "底部項次排序_bt"
1404 1420 
         Me.底部項次排序_bt.Size = New System.Drawing.Size(80, 30)
1405 1421 
         Me.底部項次排序_bt.TabIndex = 415
 
@@ -1409,7 +1425,7 @@ Partial Class 中文樣品單
1409 1425 
         '底部顏色排序_bt
1410 1426 
         '
1411 1427 
         Me.底部顏色排序_bt.ForeColor = System.Drawing.Color.Green
1412 
-        Me.底部顏色排序_bt.Location = New System.Drawing.Point(387, 948)
1428 
+        Me.底部顏色排序_bt.Location = New System.Drawing.Point(559, 948)
1413 1429 
         Me.底部顏色排序_bt.Name = "底部顏色排序_bt"
1414 1430 
         Me.底部顏色排序_bt.Size = New System.Drawing.Size(80, 30)
1415 1431 
         Me.底部顏色排序_bt.TabIndex = 414
 
@@ -1419,7 +1435,7 @@ Partial Class 中文樣品單
1419 1435 
         '飾物項次排序_bt
1420 1436 
         '
1421 1437 
         Me.飾物項次排序_bt.ForeColor = System.Drawing.Color.Green
1422 
-        Me.飾物項次排序_bt.Location = New System.Drawing.Point(473, 1422)
1438 
+        Me.飾物項次排序_bt.Location = New System.Drawing.Point(645, 1422)
1423 1439 
         Me.飾物項次排序_bt.Name = "飾物項次排序_bt"
1424 1440 
         Me.飾物項次排序_bt.Size = New System.Drawing.Size(80, 30)
1425 1441 
         Me.飾物項次排序_bt.TabIndex = 417
 
@@ -1429,7 +1445,7 @@ Partial Class 中文樣品單
1429 1445 
         '飾物顏色排序_bt
1430 1446 
         '
1431 1447 
         Me.飾物顏色排序_bt.ForeColor = System.Drawing.Color.Green
1432 
-        Me.飾物顏色排序_bt.Location = New System.Drawing.Point(387, 1422)
1448 
+        Me.飾物顏色排序_bt.Location = New System.Drawing.Point(559, 1422)
1433 1449 
         Me.飾物顏色排序_bt.Name = "飾物顏色排序_bt"
1434 1450 
         Me.飾物顏色排序_bt.Size = New System.Drawing.Size(80, 30)
1435 1451 
         Me.飾物顏色排序_bt.TabIndex = 416
 
@@ -2228,6 +2244,22 @@ Partial Class 中文樣品單
2228 2244 
             Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
2229 2245 
         Me.Panel2.AutoScroll = True
2230 2246 
         Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
2247 
+        Me.Panel2.Controls.Add(Me.大間距4_ch)
2248 
+        Me.Panel2.Controls.Add(Me.中間距4_ch)
2249 
+        Me.Panel2.Controls.Add(Me.小間距4_ch)
2250 
+        Me.Panel2.Controls.Add(Me.大間距3_ch)
2251 
+        Me.Panel2.Controls.Add(Me.中間距3_ch)
2252 
+        Me.Panel2.Controls.Add(Me.小間距3_ch)
2253 
+        Me.Panel2.Controls.Add(Me.大間距2_ch)
2254 
+        Me.Panel2.Controls.Add(Me.中間距2_ch)
2255 
+        Me.Panel2.Controls.Add(Me.小間距2_ch)
2256 
+        Me.Panel2.Controls.Add(Me.大間距1_ch)
2257 
+        Me.Panel2.Controls.Add(Me.中間距1_ch)
2258 
+        Me.Panel2.Controls.Add(Me.小間距1_ch)
2259 
+        Me.Panel2.Controls.Add(Me.存檔4_bt)
2260 
+        Me.Panel2.Controls.Add(Me.存檔3_bt)
2261 
+        Me.Panel2.Controls.Add(Me.存檔2_bt)
2262 
+        Me.Panel2.Controls.Add(Me.存檔1_bt)
2231 2263 
         Me.Panel2.Controls.Add(Me.飾物1_dgv)
2232 2264 
         Me.Panel2.Controls.Add(Me.底部1_dgv)
2233 2265 
         Me.Panel2.Controls.Add(Me.內裡1_dgv)
 
@@ -2270,6 +2302,266 @@ Partial Class 中文樣品單
2270 2302 
         Me.Panel2.Size = New System.Drawing.Size(1545, 537)
2271 2303 
         Me.Panel2.TabIndex = 489
2272 2304 
         '
2305 
+        '大間距4_ch
2306 
+        '
2307 
+        Me.大間距4_ch.AutoSize = True
2308 
+        Me.大間距4_ch.BackColor = System.Drawing.Color.Transparent
2309 
+        Me.大間距4_ch.Location = New System.Drawing.Point(155, 1427)
2310 
+        Me.大間距4_ch.Name = "大間距4_ch"
2311 
+        Me.大間距4_ch.Size = New System.Drawing.Size(39, 20)
2312 
+        Me.大間距4_ch.TabIndex = 1400
2313 
+        Me.大間距4_ch.Text = "L3"
2314 
+        Me.大間距4_ch.UseVisualStyleBackColor = False
2315 
+        '
2316 
+        '中間距4_ch
2317 
+        '
2318 
+        Me.中間距4_ch.AutoSize = True
2319 
+        Me.中間距4_ch.BackColor = System.Drawing.Color.Transparent
2320 
+        Me.中間距4_ch.Location = New System.Drawing.Point(110, 1427)
2321 
+        Me.中間距4_ch.Name = "中間距4_ch"
2322 
+        Me.中間距4_ch.Size = New System.Drawing.Size(39, 20)
2323 
+        Me.中間距4_ch.TabIndex = 1399
2324 
+        Me.中間距4_ch.Text = "L2"
2325 
+        Me.中間距4_ch.UseVisualStyleBackColor = False
2326 
+        '
2327 
+        '小間距4_ch
2328 
+        '
2329 
+        Me.小間距4_ch.AutoSize = True
2330 
+        Me.小間距4_ch.BackColor = System.Drawing.Color.Transparent
2331 
+        Me.小間距4_ch.Checked = True
2332 
+        Me.小間距4_ch.CheckState = System.Windows.Forms.CheckState.Checked
2333 
+        Me.小間距4_ch.Location = New System.Drawing.Point(64, 1427)
2334 
+        Me.小間距4_ch.Name = "小間距4_ch"
2335 
+        Me.小間距4_ch.Size = New System.Drawing.Size(39, 20)
2336 
+        Me.小間距4_ch.TabIndex = 1398
2337 
+        Me.小間距4_ch.Text = "L1"
2338 
+        Me.小間距4_ch.UseVisualStyleBackColor = False
2339 
+        '
2340 
+        '大間距3_ch
2341 
+        '
2342 
+        Me.大間距3_ch.AutoSize = True
2343 
+        Me.大間距3_ch.BackColor = System.Drawing.Color.Transparent
2344 
+        Me.大間距3_ch.Location = New System.Drawing.Point(155, 953)
2345 
+        Me.大間距3_ch.Name = "大間距3_ch"
2346 
+        Me.大間距3_ch.Size = New System.Drawing.Size(39, 20)
2347 
+        Me.大間距3_ch.TabIndex = 1397
2348 
+        Me.大間距3_ch.Text = "L3"
2349 
+        Me.大間距3_ch.UseVisualStyleBackColor = False
2350 
+        '
2351 
+        '中間距3_ch
2352 
+        '
2353 
+        Me.中間距3_ch.AutoSize = True
2354 
+        Me.中間距3_ch.BackColor = System.Drawing.Color.Transparent
2355 
+        Me.中間距3_ch.Location = New System.Drawing.Point(110, 953)
2356 
+        Me.中間距3_ch.Name = "中間距3_ch"
2357 
+        Me.中間距3_ch.Size = New System.Drawing.Size(39, 20)
2358 
+        Me.中間距3_ch.TabIndex = 1396
2359 
+        Me.中間距3_ch.Text = "L2"
2360 
+        Me.中間距3_ch.UseVisualStyleBackColor = False
2361 
+        '
2362 
+        '小間距3_ch
2363 
+        '
2364 
+        Me.小間距3_ch.AutoSize = True
2365 
+        Me.小間距3_ch.BackColor = System.Drawing.Color.Transparent
2366 
+        Me.小間距3_ch.Checked = True
2367 
+        Me.小間距3_ch.CheckState = System.Windows.Forms.CheckState.Checked
2368 
+        Me.小間距3_ch.Location = New System.Drawing.Point(64, 953)
2369 
+        Me.小間距3_ch.Name = "小間距3_ch"
2370 
+        Me.小間距3_ch.Size = New System.Drawing.Size(39, 20)
2371 
+        Me.小間距3_ch.TabIndex = 1395
2372 
+        Me.小間距3_ch.Text = "L1"
2373 
+        Me.小間距3_ch.UseVisualStyleBackColor = False
2374 
+        '
2375 
+        '大間距2_ch
2376 
+        '
2377 
+        Me.大間距2_ch.AutoSize = True
2378 
+        Me.大間距2_ch.BackColor = System.Drawing.Color.Transparent
2379 
+        Me.大間距2_ch.Location = New System.Drawing.Point(155, 479)
2380 
+        Me.大間距2_ch.Name = "大間距2_ch"
2381 
+        Me.大間距2_ch.Size = New System.Drawing.Size(39, 20)
2382 
+        Me.大間距2_ch.TabIndex = 1394
2383 
+        Me.大間距2_ch.Text = "L3"
2384 
+        Me.大間距2_ch.UseVisualStyleBackColor = False
2385 
+        '
2386 
+        '中間距2_ch
2387 
+        '
2388 
+        Me.中間距2_ch.AutoSize = True
2389 
+        Me.中間距2_ch.BackColor = System.Drawing.Color.Transparent
2390 
+        Me.中間距2_ch.Location = New System.Drawing.Point(110, 479)
2391 
+        Me.中間距2_ch.Name = "中間距2_ch"
2392 
+        Me.中間距2_ch.Size = New System.Drawing.Size(39, 20)
2393 
+        Me.中間距2_ch.TabIndex = 1393
2394 
+        Me.中間距2_ch.Text = "L2"
2395 
+        Me.中間距2_ch.UseVisualStyleBackColor = False
2396 
+        '
2397 
+        '小間距2_ch
2398 
+        '
2399 
+        Me.小間距2_ch.AutoSize = True
2400 
+        Me.小間距2_ch.BackColor = System.Drawing.Color.Transparent
2401 
+        Me.小間距2_ch.Checked = True
2402 
+        Me.小間距2_ch.CheckState = System.Windows.Forms.CheckState.Checked
2403 
+        Me.小間距2_ch.Location = New System.Drawing.Point(64, 479)
2404 
+        Me.小間距2_ch.Name = "小間距2_ch"
2405 
+        Me.小間距2_ch.Size = New System.Drawing.Size(39, 20)
2406 
+        Me.小間距2_ch.TabIndex = 1392
2407 
+        Me.小間距2_ch.Text = "L1"
2408 
+        Me.小間距2_ch.UseVisualStyleBackColor = False
2409 
+        '
2410 
+        '大間距1_ch
2411 
+        '
2412 
+        Me.大間距1_ch.AutoSize = True
2413 
+        Me.大間距1_ch.BackColor = System.Drawing.Color.Transparent
2414 
+        Me.大間距1_ch.Location = New System.Drawing.Point(155, 7)
2415 
+        Me.大間距1_ch.Name = "大間距1_ch"
2416 
+        Me.大間距1_ch.Size = New System.Drawing.Size(39, 20)
2417 
+        Me.大間距1_ch.TabIndex = 1391
2418 
+        Me.大間距1_ch.Text = "L3"
2419 
+        Me.大間距1_ch.UseVisualStyleBackColor = False
2420 
+        '
2421 
+        '中間距1_ch
2422 
+        '
2423 
+        Me.中間距1_ch.AutoSize = True
2424 
+        Me.中間距1_ch.BackColor = System.Drawing.Color.Transparent
2425 
+        Me.中間距1_ch.Location = New System.Drawing.Point(110, 7)
2426 
+        Me.中間距1_ch.Name = "中間距1_ch"
2427 
+        Me.中間距1_ch.Size = New System.Drawing.Size(39, 20)
2428 
+        Me.中間距1_ch.TabIndex = 1390
2429 
+        Me.中間距1_ch.Text = "L2"
2430 
+        Me.中間距1_ch.UseVisualStyleBackColor = False
2431 
+        '
2432 
+        '小間距1_ch
2433 
+        '
2434 
+        Me.小間距1_ch.AutoSize = True
2435 
+        Me.小間距1_ch.BackColor = System.Drawing.Color.Transparent
2436 
+        Me.小間距1_ch.Checked = True
2437 
+        Me.小間距1_ch.CheckState = System.Windows.Forms.CheckState.Checked
2438 
+        Me.小間距1_ch.Location = New System.Drawing.Point(64, 7)
2439 
+        Me.小間距1_ch.Name = "小間距1_ch"
2440 
+        Me.小間距1_ch.Size = New System.Drawing.Size(39, 20)
2441 
+        Me.小間距1_ch.TabIndex = 1389
2442 
+        Me.小間距1_ch.Text = "L1"
2443 
+        Me.小間距1_ch.UseVisualStyleBackColor = False
2444 
+        '
2445 
+        '存檔4_bt
2446 
+        '
2447 
+        Me.存檔4_bt.ForeColor = System.Drawing.Color.Green
2448 
+        Me.存檔4_bt.Location = New System.Drawing.Point(731, 1422)
2449 
+        Me.存檔4_bt.Name = "存檔4_bt"
2450 
+        Me.存檔4_bt.Size = New System.Drawing.Size(103, 30)
2451 
+        Me.存檔4_bt.TabIndex = 426
2452 
+        Me.存檔4_bt.Text = "部件資料存檔"
2453 
+        Me.存檔4_bt.UseVisualStyleBackColor = True
2454 
+        '
2455 
+        '存檔3_bt
2456 
+        '
2457 
+        Me.存檔3_bt.ForeColor = System.Drawing.Color.Green
2458 
+        Me.存檔3_bt.Location = New System.Drawing.Point(731, 948)
2459 
+        Me.存檔3_bt.Name = "存檔3_bt"
2460 
+        Me.存檔3_bt.Size = New System.Drawing.Size(103, 30)
2461 
+        Me.存檔3_bt.TabIndex = 425
2462 
+        Me.存檔3_bt.Text = "部件資料存檔"
2463 
+        Me.存檔3_bt.UseVisualStyleBackColor = True
2464 
+        '
2465 
+        '存檔2_bt
2466 
+        '
2467 
+        Me.存檔2_bt.ForeColor = System.Drawing.Color.Green
2468 
+        Me.存檔2_bt.Location = New System.Drawing.Point(731, 475)
2469 
+        Me.存檔2_bt.Name = "存檔2_bt"
2470 
+        Me.存檔2_bt.Size = New System.Drawing.Size(103, 30)
2471 
+        Me.存檔2_bt.TabIndex = 424
2472 
+        Me.存檔2_bt.Text = "部件資料存檔"
2473 
+        Me.存檔2_bt.UseVisualStyleBackColor = True
2474 
+        '
2475 
+        '存檔1_bt
2476 
+        '
2477 
+        Me.存檔1_bt.ForeColor = System.Drawing.Color.Green
2478 
+        Me.存檔1_bt.Location = New System.Drawing.Point(731, 1)
2479 
+        Me.存檔1_bt.Name = "存檔1_bt"
2480 
+        Me.存檔1_bt.Size = New System.Drawing.Size(103, 30)
2481 
+        Me.存檔1_bt.TabIndex = 423
2482 
+        Me.存檔1_bt.Text = "部件資料存檔"
2483 
+        Me.存檔1_bt.UseVisualStyleBackColor = True
2484 
+        '
2485 
+        '飾物1_dgv
2486 
+        '
2487 
+        Me.飾物1_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
2488 
+        Me.飾物1_dgv.BackgroundColor = System.Drawing.Color.White
2489 
+        Me.飾物1_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
2490 
+        DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
2491 
+        DataGridViewCellStyle7.BackColor = System.Drawing.SystemColors.Window
2492 
+        DataGridViewCellStyle7.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
2493 
+        DataGridViewCellStyle7.ForeColor = System.Drawing.SystemColors.ControlText
2494 
+        DataGridViewCellStyle7.SelectionBackColor = System.Drawing.SystemColors.Highlight
2495 
+        DataGridViewCellStyle7.SelectionForeColor = System.Drawing.SystemColors.HighlightText
2496 
+        DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
2497 
+        Me.飾物1_dgv.DefaultCellStyle = DataGridViewCellStyle7
2498 
+        Me.飾物1_dgv.Location = New System.Drawing.Point(1, 1454)
2499 
+        Me.飾物1_dgv.Name = "飾物1_dgv"
2500 
+        Me.飾物1_dgv.RowHeadersWidth = 5
2501 
+        Me.飾物1_dgv.RowTemplate.Height = 24
2502 
+        Me.飾物1_dgv.Size = New System.Drawing.Size(387, 441)
2503 
+        Me.飾物1_dgv.TabIndex = 422
2504 
+        '
2505 
+        '底部1_dgv
2506 
+        '
2507 
+        Me.底部1_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
2508 
+        Me.底部1_dgv.BackgroundColor = System.Drawing.Color.White
2509 
+        Me.底部1_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
2510 
+        DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
2511 
+        DataGridViewCellStyle8.BackColor = System.Drawing.SystemColors.Window
2512 
+        DataGridViewCellStyle8.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
2513 
+        DataGridViewCellStyle8.ForeColor = System.Drawing.SystemColors.ControlText
2514 
+        DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight
2515 
+        DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText
2516 
+        DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
2517 
+        Me.底部1_dgv.DefaultCellStyle = DataGridViewCellStyle8
2518 
+        Me.底部1_dgv.Location = New System.Drawing.Point(1, 979)
2519 
+        Me.底部1_dgv.Name = "底部1_dgv"
2520 
+        Me.底部1_dgv.RowHeadersWidth = 5
2521 
+        Me.底部1_dgv.RowTemplate.Height = 24
2522 
+        Me.底部1_dgv.Size = New System.Drawing.Size(387, 441)
2523 
+        Me.底部1_dgv.TabIndex = 421
2524 
+        '
2525 
+        '內裡1_dgv
2526 
+        '
2527 
+        Me.內裡1_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
2528 
+        Me.內裡1_dgv.BackgroundColor = System.Drawing.Color.White
2529 
+        Me.內裡1_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
2530 
+        DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
2531 
+        DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Window
2532 
+        DataGridViewCellStyle9.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
2533 
+        DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.ControlText
2534 
+        DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight
2535 
+        DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText
2536 
+        DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
2537 
+        Me.內裡1_dgv.DefaultCellStyle = DataGridViewCellStyle9
2538 
+        Me.內裡1_dgv.Location = New System.Drawing.Point(1, 506)
2539 
+        Me.內裡1_dgv.Name = "內裡1_dgv"
2540 
+        Me.內裡1_dgv.RowHeadersWidth = 5
2541 
+        Me.內裡1_dgv.RowTemplate.Height = 24
2542 
+        Me.內裡1_dgv.Size = New System.Drawing.Size(387, 441)
2543 
+        Me.內裡1_dgv.TabIndex = 420
2544 
+        '
2545 
+        '面料1_dgv
2546 
+        '
2547 
+        Me.面料1_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
2548 
+        Me.面料1_dgv.BackgroundColor = System.Drawing.Color.White
2549 
+        Me.面料1_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
2550 
+        DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
2551 
+        DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Window
2552 
+        DataGridViewCellStyle10.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
2553 
+        DataGridViewCellStyle10.ForeColor = System.Drawing.SystemColors.ControlText
2554 
+        DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight
2555 
+        DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText
2556 
+        DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
2557 
+        Me.面料1_dgv.DefaultCellStyle = DataGridViewCellStyle10
2558 
+        Me.面料1_dgv.Location = New System.Drawing.Point(1, 32)
2559 
+        Me.面料1_dgv.Name = "面料1_dgv"
2560 
+        Me.面料1_dgv.RowHeadersWidth = 5
2561 
+        Me.面料1_dgv.RowTemplate.Height = 24
2562 
+        Me.面料1_dgv.Size = New System.Drawing.Size(387, 441)
2563 
+        Me.面料1_dgv.TabIndex = 419
2564 
+        '
2273 2565 
         'Label50
2274 2566 
         '
2275 2567 
         Me.Label50.AutoSize = True
 
@@ -2879,86 +3171,6 @@ Partial Class 中文樣品單
2879 3171 
         Me.PictureBox1.TabIndex = 195
2880 3172 
         Me.PictureBox1.TabStop = False
2881 3173 
         '
2882 
-        '面料1_dgv
2883 
-        '
2884 
-        Me.面料1_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
2885 
-        Me.面料1_dgv.BackgroundColor = System.Drawing.Color.White
2886 
-        Me.面料1_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
2887 
-        DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
2888 
-        DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Window
2889 
-        DataGridViewCellStyle10.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
2890 
-        DataGridViewCellStyle10.ForeColor = System.Drawing.SystemColors.ControlText
2891 
-        DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight
2892 
-        DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText
2893 
-        DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
2894 
-        Me.面料1_dgv.DefaultCellStyle = DataGridViewCellStyle10
2895 
-        Me.面料1_dgv.Location = New System.Drawing.Point(1, 32)
2896 
-        Me.面料1_dgv.Name = "面料1_dgv"
2897 
-        Me.面料1_dgv.RowHeadersWidth = 5
2898 
-        Me.面料1_dgv.RowTemplate.Height = 24
2899 
-        Me.面料1_dgv.Size = New System.Drawing.Size(387, 441)
2900 
-        Me.面料1_dgv.TabIndex = 419
2901 
-        '
2902 
-        '內裡1_dgv
2903 
-        '
2904 
-        Me.內裡1_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
2905 
-        Me.內裡1_dgv.BackgroundColor = System.Drawing.Color.White
2906 
-        Me.內裡1_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
2907 
-        DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
2908 
-        DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Window
2909 
-        DataGridViewCellStyle9.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
2910 
-        DataGridViewCellStyle9.ForeColor = System.Drawing.SystemColors.ControlText
2911 
-        DataGridViewCellStyle9.SelectionBackColor = System.Drawing.SystemColors.Highlight
2912 
-        DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText
2913 
-        DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
2914 
-        Me.內裡1_dgv.DefaultCellStyle = DataGridViewCellStyle9
2915 
-        Me.內裡1_dgv.Location = New System.Drawing.Point(1, 506)
2916 
-        Me.內裡1_dgv.Name = "內裡1_dgv"
2917 
-        Me.內裡1_dgv.RowHeadersWidth = 5
2918 
-        Me.內裡1_dgv.RowTemplate.Height = 24
2919 
-        Me.內裡1_dgv.Size = New System.Drawing.Size(387, 441)
2920 
-        Me.內裡1_dgv.TabIndex = 420
2921 
-        '
2922 
-        '底部1_dgv
2923 
-        '
2924 
-        Me.底部1_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
2925 
-        Me.底部1_dgv.BackgroundColor = System.Drawing.Color.White
2926 
-        Me.底部1_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
2927 
-        DataGridViewCellStyle8.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
2928 
-        DataGridViewCellStyle8.BackColor = System.Drawing.SystemColors.Window
2929 
-        DataGridViewCellStyle8.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
2930 
-        DataGridViewCellStyle8.ForeColor = System.Drawing.SystemColors.ControlText
2931 
-        DataGridViewCellStyle8.SelectionBackColor = System.Drawing.SystemColors.Highlight
2932 
-        DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText
2933 
-        DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
2934 
-        Me.底部1_dgv.DefaultCellStyle = DataGridViewCellStyle8
2935 
-        Me.底部1_dgv.Location = New System.Drawing.Point(1, 979)
2936 
-        Me.底部1_dgv.Name = "底部1_dgv"
2937 
-        Me.底部1_dgv.RowHeadersWidth = 5
2938 
-        Me.底部1_dgv.RowTemplate.Height = 24
2939 
-        Me.底部1_dgv.Size = New System.Drawing.Size(387, 441)
2940 
-        Me.底部1_dgv.TabIndex = 421
2941 
-        '
2942 
-        '飾物1_dgv
2943 
-        '
2944 
-        Me.飾物1_dgv.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.Fill
2945 
-        Me.飾物1_dgv.BackgroundColor = System.Drawing.Color.White
2946 
-        Me.飾物1_dgv.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
2947 
-        DataGridViewCellStyle7.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
2948 
-        DataGridViewCellStyle7.BackColor = System.Drawing.SystemColors.Window
2949 
-        DataGridViewCellStyle7.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
2950 
-        DataGridViewCellStyle7.ForeColor = System.Drawing.SystemColors.ControlText
2951 
-        DataGridViewCellStyle7.SelectionBackColor = System.Drawing.SystemColors.Highlight
2952 
-        DataGridViewCellStyle7.SelectionForeColor = System.Drawing.SystemColors.HighlightText
2953 
-        DataGridViewCellStyle7.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
2954 
-        Me.飾物1_dgv.DefaultCellStyle = DataGridViewCellStyle7
2955 
-        Me.飾物1_dgv.Location = New System.Drawing.Point(1, 1454)
2956 
-        Me.飾物1_dgv.Name = "飾物1_dgv"
2957 
-        Me.飾物1_dgv.RowHeadersWidth = 5
2958 
-        Me.飾物1_dgv.RowTemplate.Height = 24
2959 
-        Me.飾物1_dgv.Size = New System.Drawing.Size(387, 441)
2960 
-        Me.飾物1_dgv.TabIndex = 422
2961 
-        '
2962 3174 
         '中文樣品單
2963 3175 
         '
2964 3176 
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
 
@@ -3059,6 +3271,10 @@ Partial Class 中文樣品單
3059 3271 
         Me.Panel3.PerformLayout()
3060 3272 
         Me.Panel2.ResumeLayout(False)
3061 3273 
         Me.Panel2.PerformLayout()
3274 
+        CType(Me.飾物1_dgv, System.ComponentModel.ISupportInitialize).EndInit()
3275 
+        CType(Me.底部1_dgv, System.ComponentModel.ISupportInitialize).EndInit()
3276 
+        CType(Me.內裡1_dgv, System.ComponentModel.ISupportInitialize).EndInit()
3277 
+        CType(Me.面料1_dgv, System.ComponentModel.ISupportInitialize).EndInit()
3062 3278 
         Me.Panel4.ResumeLayout(False)
3063 3279 
         Me.Panel4.PerformLayout()
3064 3280 
         Me.GroupBox7.ResumeLayout(False)
 
@@ -3087,10 +3303,6 @@ Partial Class 中文樣品單
3087 3303 
         CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit()
3088 3304 
         CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
3089 3305 
         CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
3090 
-        CType(Me.面料1_dgv, System.ComponentModel.ISupportInitialize).EndInit()
3091 
-        CType(Me.內裡1_dgv, System.ComponentModel.ISupportInitialize).EndInit()
3092 
-        CType(Me.底部1_dgv, System.ComponentModel.ISupportInitialize).EndInit()
3093 
-        CType(Me.飾物1_dgv, System.ComponentModel.ISupportInitialize).EndInit()
3094 3306 
         Me.ResumeLayout(False)
3095 3307 
         Me.PerformLayout()
3096 3308 
 
@@ -3340,4 +3552,20 @@ Partial Class 中文樣品單
3340 3552 
     Friend WithEvents 內裡1_dgv As DataGridView
3341 3553 
     Friend WithEvents 飾物1_dgv As DataGridView
3342 3554 
     Friend WithEvents 底部1_dgv As DataGridView
3555 
+    Friend WithEvents 存檔4_bt As Button
3556 
+    Friend WithEvents 存檔3_bt As Button
3557 
+    Friend WithEvents 存檔2_bt As Button
3558 
+    Friend WithEvents 存檔1_bt As Button
3559 
+    Friend WithEvents 大間距4_ch As CheckBox
3560 
+    Friend WithEvents 中間距4_ch As CheckBox
3561 
+    Friend WithEvents 小間距4_ch As CheckBox
3562 
+    Friend WithEvents 大間距3_ch As CheckBox
3563 
+    Friend WithEvents 中間距3_ch As CheckBox
3564 
+    Friend WithEvents 小間距3_ch As CheckBox
3565 
+    Friend WithEvents 大間距2_ch As CheckBox
3566 
+    Friend WithEvents 中間距2_ch As CheckBox
3567 
+    Friend WithEvents 小間距2_ch As CheckBox
3568 
+    Friend WithEvents 大間距1_ch As CheckBox
3569 
+    Friend WithEvents 中間距1_ch As CheckBox
3570 
+    Friend WithEvents 小間距1_ch As CheckBox
3343 3571 
 End Class

+ 266
- 32
TENDEN-MES-SYS/樣品訂單管理/中文樣品單系統/中文樣品單.vb Datei anzeigen 

@@ -249,14 +249,7 @@ Public Class 中文樣品單
249 249 
         面料_dgv.Columns(1).Visible = False : 面料_dgv.Columns(2).Visible = False : 面料_dgv.Columns(3).Visible = False : 面料_dgv.Columns(7).Visible = False
250 250 
         面料_dgv.Columns(8).Visible = False
251 251 
         面料_dgv.EditMode = DataGridViewEditMode.EditOnEnter
252 
-
253 
-        面料1_dgv.DataSource = Nothing : ds12.Clear()
254 
-        面料1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
255 
-        面料1_dgv.ColumnHeadersHeight = 25 : 面料1_dgv.AllowUserToAddRows = False : 面料1_dgv.RowTemplate.Height = 45
256 
-        PA31 = "1" : SQL_確認樣品單明細表_敘述攔()
257 
-        da.SelectCommand.CommandTimeout = 900 : da.Fill(ds12) : 面料1_dgv.DataSource = ds12.Tables(0) : conn.Close()
258 
-        面料1_dgv.Columns(0).FillWeight = 80 : 面料1_dgv.Columns(1).FillWeight = 200 : 面料1_dgv.Columns(0).ReadOnly = True
259 
-        面料1_dgv.EditMode = DataGridViewEditMode.EditOnEnter
252 
+        Set_面料1_dgv1()
260 253 
         '-------------------------------------------------------------------------------------------------------------------------------------------------------------
261 254 
         內裡_dgv.DataSource = Nothing : ds5.Clear()
262 255 
         內裡_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
 
@@ -283,14 +276,7 @@ Public Class 中文樣品單
283 276 
         內裡_dgv.Columns(1).Visible = False : 內裡_dgv.Columns(2).Visible = False : 內裡_dgv.Columns(3).Visible = False : 內裡_dgv.Columns(7).Visible = False
284 277 
         內裡_dgv.Columns(8).Visible = False
285 278 
         內裡_dgv.EditMode = DataGridViewEditMode.EditOnEnter
286 
-
287 
-        內裡1_dgv.DataSource = Nothing : ds13.Clear()
288 
-        內裡1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
289 
-        內裡1_dgv.ColumnHeadersHeight = 25 : 內裡1_dgv.AllowUserToAddRows = False : 內裡1_dgv.RowTemplate.Height = 45
290 
-        PA31 = "2" : SQL_確認樣品單明細表_敘述攔()
291 
-        da.SelectCommand.CommandTimeout = 900 : da.Fill(ds13) : 內裡1_dgv.DataSource = ds13.Tables(0) : conn.Close()
292 
-        內裡1_dgv.Columns(0).FillWeight = 80 : 內裡1_dgv.Columns(1).FillWeight = 200 : 內裡1_dgv.Columns(0).ReadOnly = True
293 
-        內裡1_dgv.EditMode = DataGridViewEditMode.EditOnEnter
279 
+        Set_內裡1_dgv1()
294 280 
         '-------------------------------------------------------------------------------------------------------------------------------------------------------------
295 281 
         底部_dgv.DataSource = Nothing : ds6.Clear()
296 282 
         底部_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
 
@@ -316,14 +302,7 @@ Public Class 中文樣品單
316 302 
         底部_dgv.Columns(1).Visible = False : 底部_dgv.Columns(2).Visible = False : 底部_dgv.Columns(3).Visible = False : 底部_dgv.Columns(7).Visible = False
317 303 
         底部_dgv.Columns(8).Visible = False
318 304 
         底部_dgv.EditMode = DataGridViewEditMode.EditOnEnter
319 
-
320 
-        底部1_dgv.DataSource = Nothing : ds14.Clear()
321 
-        底部1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
322 
-        底部1_dgv.ColumnHeadersHeight = 25 : 底部1_dgv.AllowUserToAddRows = False : 底部1_dgv.RowTemplate.Height = 45
323 
-        PA31 = "3" : SQL_確認樣品單明細表_敘述攔()
324 
-        da.SelectCommand.CommandTimeout = 900 : da.Fill(ds14) : 底部1_dgv.DataSource = ds14.Tables(0) : conn.Close()
325 
-        底部1_dgv.Columns(0).FillWeight = 80 : 底部1_dgv.Columns(1).FillWeight = 200 : 底部1_dgv.Columns(0).ReadOnly = True
326 
-        底部1_dgv.EditMode = DataGridViewEditMode.EditOnEnter
305 
+        Set_底部1_dgv1()
327 306 
         '-------------------------------------------------------------------------------------------------------------------------------------------------------------
328 307 
         飾物_dgv.DataSource = Nothing : ds7.Clear()
329 308 
         飾物_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
 
@@ -350,10 +329,55 @@ Public Class 中文樣品單
350 329 
         飾物_dgv.Columns(1).Visible = False : 飾物_dgv.Columns(2).Visible = False : 飾物_dgv.Columns(3).Visible = False : 飾物_dgv.Columns(7).Visible = False
351 330 
         飾物_dgv.Columns(8).Visible = False
352 331 
         飾物_dgv.EditMode = DataGridViewEditMode.EditOnEnter
353 
-
332 
+        Set_飾物1_dgv1()
333 
+    End Sub
334 
+    Private Sub Set_面料1_dgv1()
335 
+        面料1_dgv.DataSource = Nothing : ds12.Clear()
336 
+        面料1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
337 
+        面料1_dgv.ColumnHeadersHeight = 25 : 面料1_dgv.AllowUserToAddRows = False
338 
+        If 小間距1_ch.Checked = True And 中間距1_ch.Checked = False And 大間距1_ch.Checked = False Then : 面料1_dgv.RowTemplate.Height = 45
339 
+        ElseIf 小間距1_ch.Checked = False And 中間距1_ch.Checked = True And 大間距1_ch.Checked = False Then : 面料1_dgv.RowTemplate.Height = 65
340 
+        ElseIf 小間距1_ch.Checked = False And 中間距1_ch.Checked = False And 大間距1_ch.Checked = True Then : 面料1_dgv.RowTemplate.Height = 85
341 
+        End If
342 
+        PA31 = "1" : SQL_確認樣品單明細表_敘述攔()
343 
+        da.SelectCommand.CommandTimeout = 900 : da.Fill(ds12) : 面料1_dgv.DataSource = ds12.Tables(0) : conn.Close()
344 
+        面料1_dgv.Columns(0).FillWeight = 80 : 面料1_dgv.Columns(1).FillWeight = 200 : 面料1_dgv.Columns(0).ReadOnly = True
345 
+        面料1_dgv.EditMode = DataGridViewEditMode.EditOnEnter
346 
+    End Sub
347 
+    Private Sub Set_內裡1_dgv1()
348 
+        內裡1_dgv.DataSource = Nothing : ds13.Clear()
349 
+        內裡1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
350 
+        內裡1_dgv.ColumnHeadersHeight = 25 : 內裡1_dgv.AllowUserToAddRows = False
351 
+        If 小間距2_ch.Checked = True And 中間距2_ch.Checked = False And 大間距2_ch.Checked = False Then : 內裡1_dgv.RowTemplate.Height = 45
352 
+        ElseIf 小間距2_ch.Checked = False And 中間距2_ch.Checked = True And 大間距2_ch.Checked = False Then : 內裡1_dgv.RowTemplate.Height = 65
353 
+        ElseIf 小間距2_ch.Checked = False And 中間距2_ch.Checked = False And 大間距2_ch.Checked = True Then : 內裡1_dgv.RowTemplate.Height = 85
354 
+        End If
355 
+        PA31 = "2" : SQL_確認樣品單明細表_敘述攔()
356 
+        da.SelectCommand.CommandTimeout = 900 : da.Fill(ds13) : 內裡1_dgv.DataSource = ds13.Tables(0) : conn.Close()
357 
+        內裡1_dgv.Columns(0).FillWeight = 80 : 內裡1_dgv.Columns(1).FillWeight = 200 : 內裡1_dgv.Columns(0).ReadOnly = True
358 
+        內裡1_dgv.EditMode = DataGridViewEditMode.EditOnEnter
359 
+    End Sub
360 
+    Private Sub Set_底部1_dgv1()
361 
+        底部1_dgv.DataSource = Nothing : ds14.Clear()
362 
+        底部1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
363 
+        底部1_dgv.ColumnHeadersHeight = 25 : 底部1_dgv.AllowUserToAddRows = False
364 
+        If 小間距3_ch.Checked = True And 中間距3_ch.Checked = False And 大間距3_ch.Checked = False Then : 底部1_dgv.RowTemplate.Height = 45
365 
+        ElseIf 小間距3_ch.Checked = False And 中間距3_ch.Checked = True And 大間距3_ch.Checked = False Then : 底部1_dgv.RowTemplate.Height = 65
366 
+        ElseIf 小間距3_ch.Checked = False And 中間距3_ch.Checked = False And 大間距3_ch.Checked = True Then : 底部1_dgv.RowTemplate.Height = 85
367 
+        End If
368 
+        PA31 = "3" : SQL_確認樣品單明細表_敘述攔()
369 
+        da.SelectCommand.CommandTimeout = 900 : da.Fill(ds14) : 底部1_dgv.DataSource = ds14.Tables(0) : conn.Close()
370 
+        底部1_dgv.Columns(0).FillWeight = 80 : 底部1_dgv.Columns(1).FillWeight = 200 : 底部1_dgv.Columns(0).ReadOnly = True
371 
+        底部1_dgv.EditMode = DataGridViewEditMode.EditOnEnter
372 
+    End Sub
373 
+    Private Sub Set_飾物1_dgv1()
354 374 
         飾物1_dgv.DataSource = Nothing : ds15.Clear()
355 375 
         飾物1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
356 
-        飾物1_dgv.ColumnHeadersHeight = 25 : 飾物1_dgv.AllowUserToAddRows = False : 飾物1_dgv.RowTemplate.Height = 45
376 
+        飾物1_dgv.ColumnHeadersHeight = 25 : 飾物1_dgv.AllowUserToAddRows = False
377 
+        If 小間距4_ch.Checked = True And 中間距4_ch.Checked = False And 大間距4_ch.Checked = False Then : 飾物1_dgv.RowTemplate.Height = 45
378 
+        ElseIf 小間距4_ch.Checked = False And 中間距4_ch.Checked = True And 大間距4_ch.Checked = False Then : 飾物1_dgv.RowTemplate.Height = 65
379 
+        ElseIf 小間距4_ch.Checked = False And 中間距4_ch.Checked = False And 大間距4_ch.Checked = True Then : 飾物1_dgv.RowTemplate.Height = 85
380 
+        End If
357 381 
         PA31 = "4" : SQL_確認樣品單明細表_敘述攔()
358 382 
         da.SelectCommand.CommandTimeout = 900 : da.Fill(ds15) : 飾物1_dgv.DataSource = ds15.Tables(0) : conn.Close()
359 383 
         飾物1_dgv.Columns(0).FillWeight = 80 : 飾物1_dgv.Columns(1).FillWeight = 200 : 飾物1_dgv.Columns(0).ReadOnly = True
 
@@ -786,7 +810,7 @@ Public Class 中文樣品單
786 810 
         ElseIf NUM2 > 999999 And NUM2 < 1000000 Then : 樣品單流水號變數2 = "CO" & "0" & NUM2
787 811 
         ElseIf NUM2 > 9999999 Then : 樣品單流水號變數2 = "CO" & NUM2 : End If
788 812 
     End Sub
789 
-    Private Sub Button24_Click(sender As Object, e As EventArgs) Handles 新增樣品單_bt.Click
813 
+    Private Sub 新增樣品單_bt_Click(sender As Object, e As EventArgs) Handles 新增樣品單_bt.Click
790 814 
         If 開發部門 = False And 確認部門 = True Then : ElseIf 開發部門 = True And 確認部門 = False Then : 中文樣品單階段.ShowDialog() : 階段_cb.Text = QA : End If
791 815 
         排序(0) = "ORDER BY 確認樣品單控制表.顏色, 確認樣品單明細表.細項" : 排序(1) = "ORDER BY 確認樣品單控制表暫存檔.顏色, 確認樣品單明細表暫存檔.細項"
792 816 
         面料顏色排序_bt.Enabled = False : 面料項次排序_bt.Enabled = True : 內裏顏色排序_tb.Enabled = False : 內裏項次排序_tb.Enabled = True
 
@@ -892,7 +916,31 @@ Public Class 中文樣品單
892 916 
                         新增飾物 = ii + 1
893 917 
                     Next
894 918 
                 Next
895 
-                樣品單號_tb.Text = 樣品單流水號變數1 : 暫存模式 = True
919 
+                樣品單號_tb.Text = 樣品單流水號變數1 : PA5 = 樣品單號_tb.Text : 暫存模式 = True
920 
+                If 面料1_dgv.Rows.Count > 0 Then
921 
+                    For i = 0 To 面料1_dgv.Rows.Count - 1
922 
+                        PA = 面料1_dgv.Rows(i).Cells("細項").Value.ToString : PA1 = 面料1_dgv.Rows(i).Cells("內容").Value.ToString
923 
+                        SQL_確認樣品單敘述欄_確認() : If dr.Read Then : SQL_確認樣品單敘述欄_修改() : Else : SQL_確認樣品單敘述欄_新增() : End If
924 
+                    Next i
925 
+                End If
926 
+                If 內裡1_dgv.Rows.Count > 0 Then
927 
+                    For i = 0 To 內裡1_dgv.Rows.Count - 1
928 
+                        PA = 內裡1_dgv.Rows(i).Cells("細項").Value.ToString : PA1 = 內裡1_dgv.Rows(i).Cells("內容").Value.ToString
929 
+                        SQL_確認樣品單敘述欄_確認() : If dr.Read Then : SQL_確認樣品單敘述欄_修改() : Else : SQL_確認樣品單敘述欄_新增() : End If
930 
+                    Next i
931 
+                End If
932 
+                If 底部1_dgv.Rows.Count > 0 Then
933 
+                    For i = 0 To 底部1_dgv.Rows.Count - 1
934 
+                        PA = 底部1_dgv.Rows(i).Cells("細項").Value.ToString : PA1 = 底部1_dgv.Rows(i).Cells("內容").Value.ToString
935 
+                        SQL_確認樣品單敘述欄_確認() : If dr.Read Then : SQL_確認樣品單敘述欄_修改() : Else : SQL_確認樣品單敘述欄_新增() : End If
936 
+                    Next i
937 
+                End If
938 
+                If 飾物1_dgv.Rows.Count > 0 Then
939 
+                    For i = 0 To 飾物1_dgv.Rows.Count - 1
940 
+                        PA = 飾物1_dgv.Rows(i).Cells("細項").Value.ToString : PA1 = 飾物1_dgv.Rows(i).Cells("內容").Value.ToString
941 
+                        SQL_確認樣品單敘述欄_確認() : If dr.Read Then : SQL_確認樣品單敘述欄_修改() : Else : SQL_確認樣品單敘述欄_新增() : End If
942 
+                    Next i
943 
+                End If
896 944 
             End If
897 945 
         End If : Set_再次導入清單() : MsgBox("新增準備完成")
898 946 
     End Sub
 
@@ -1182,7 +1230,7 @@ Public Class 中文樣品單
1182 1230 
         樣品流水號_tb.Text = 飾物_dgv(8, e.RowIndex).Value.ToString : 部件內容_tb.Text = 飾物_dgv("內容", e.RowIndex).Value.ToString
1183 1231 
         選擇部件_tb.Text = "飾物" : 部件細項_tb.Text = 飾物_dgv("Item_N", e.RowIndex).Value.ToString
1184 1232 
     End Sub
1185 
-    Private Sub Button29_Click(sender As Object, e As EventArgs) Handles 新增OR複製_bt.Click
1233 
+    Private Sub 新增OR複製_bt_Click(sender As Object, e As EventArgs) Handles 新增OR複製_bt.Click
1186 1234 
         If 階段_cb.Text = "" Then
1187 1235 
             MsgBox("階段選項不可空白")
1188 1236 
         Else
 
@@ -1211,6 +1259,13 @@ Public Class 中文樣品單
1211 1259 
                     SQL_新增確認樣品單明細表() : conn.Close()
1212 1260 
                 Next i
1213 1261 
             End If
1262 
+            If 面料1_dgv.Rows.Count > 0 Then
1263 
+                For i = 0 To 面料1_dgv.Rows.Count - 1
1264 
+                    PA = 面料1_dgv.Rows(i).Cells("細項").Value.ToString : PA1 = 面料1_dgv.Rows(i).Cells("內容").Value.ToString
1265 
+                    SQL_確認樣品單敘述欄_確認() : If dr.Read Then : SQL_確認樣品單敘述欄_修改() : Else : SQL_確認樣品單敘述欄_新增() : End If
1266 
+                Next i
1267 
+            End If
1268 
+
1214 1269 
             If 內裡_dgv.Rows.Count > 0 Then
1215 1270 
                 For i = 0 To 內裡_dgv.Rows.Count - 1
1216 1271 
                     PA = 內裡_dgv.Rows(i).Cells("樣品流水號二").Value.ToString : PA1 = 內裡_dgv.Rows(i).Cells("樣品流水號三").Value.ToString
 
@@ -1219,6 +1274,13 @@ Public Class 中文樣品單
1219 1274 
                     SQL_新增確認樣品單明細表1() : conn.Close()
1220 1275 
                 Next i
1221 1276 
             End If
1277 
+            If 內裡1_dgv.Rows.Count > 0 Then
1278 
+                For i = 0 To 內裡1_dgv.Rows.Count - 1
1279 
+                    PA = 內裡1_dgv.Rows(i).Cells("細項").Value.ToString : PA1 = 內裡1_dgv.Rows(i).Cells("內容").Value.ToString
1280 
+                    SQL_確認樣品單敘述欄_確認() : If dr.Read Then : SQL_確認樣品單敘述欄_修改() : Else : SQL_確認樣品單敘述欄_新增() : End If
1281 
+                Next i
1282 
+            End If
1283 
+
1222 1284 
             If 底部_dgv.Rows.Count > 0 Then
1223 1285 
                 For i = 0 To 底部_dgv.Rows.Count - 1
1224 1286 
                     PA = 底部_dgv.Rows(i).Cells("樣品流水號二").Value.ToString : PA1 = 底部_dgv.Rows(i).Cells("樣品流水號三").Value.ToString
 
@@ -1227,6 +1289,13 @@ Public Class 中文樣品單
1227 1289 
                     SQL_新增確認樣品單明細表2() : conn.Close()
1228 1290 
                 Next i
1229 1291 
             End If
1292 
+            If 底部1_dgv.Rows.Count > 0 Then
1293 
+                For i = 0 To 底部1_dgv.Rows.Count - 1
1294 
+                    PA = 底部1_dgv.Rows(i).Cells("細項").Value.ToString : PA1 = 底部1_dgv.Rows(i).Cells("內容").Value.ToString
1295 
+                    SQL_確認樣品單敘述欄_確認() : If dr.Read Then : SQL_確認樣品單敘述欄_修改() : Else : SQL_確認樣品單敘述欄_新增() : End If
1296 
+                Next i
1297 
+            End If
1298 
+
1230 1299 
             If 飾物_dgv.Rows.Count > 0 Then
1231 1300 
                 For i = 0 To 飾物_dgv.Rows.Count - 1
1232 1301 
                     PA = 飾物_dgv.Rows(i).Cells("樣品流水號二").Value.ToString : PA1 = 飾物_dgv.Rows(i).Cells("樣品流水號三").Value.ToString
 
@@ -1235,6 +1304,13 @@ Public Class 中文樣品單
1235 1304 
                     SQL_新增確認樣品單明細表3() : conn.Close()
1236 1305 
                 Next i
1237 1306 
             End If
1307 
+            If 飾物1_dgv.Rows.Count > 0 Then
1308 
+                For i = 0 To 飾物1_dgv.Rows.Count - 1
1309 
+                    PA = 飾物1_dgv.Rows(i).Cells("細項").Value.ToString : PA1 = 飾物1_dgv.Rows(i).Cells("內容").Value.ToString
1310 
+                    SQL_確認樣品單敘述欄_確認() : If dr.Read Then : SQL_確認樣品單敘述欄_修改() : Else : SQL_確認樣品單敘述欄_新增() : End If
1311 
+                Next i
1312 
+            End If
1313 
+
1238 1314 
             SQL_刪除確認樣品單抬頭暫存檔1() : conn.Close() : SQL_刪除確認樣品單抬頭暫存檔2() : conn.Close() : SQL_刪除確認樣品單抬頭暫存檔3() : conn.Close()
1239 1315 
             暫存模式 = False : 階段_cb.Text = QA : Set_格式設定() : Set_確認樣品清單() : Set_grid() : Set_再次導入清單() : 列印用SQL = 樣品單號_tb.Text
1240 1316 
         End If
 
@@ -1334,7 +1410,8 @@ Public Class 中文樣品單
1334 1410 
         Else
1335 1411 
             SQL_資料庫選擇() : If dr.Read() Then : 圖片資料庫_lb.Text = dr("圖片資料庫").ToString : PA20 = 圖片資料庫_lb.Text : End If
1336 1412 
             If 圖片資料庫指定 = "" Then : Else : 圖片資料庫_lb.Text = 圖片資料庫指定 : End If
1337 
-            PA1 = 樣品單號_tb.Text : 圖片庫 = 圖片資料庫_lb.Text : 列印_中文樣品單.Show()
1413 
+            PA1 = 樣品單號_tb.Text : 圖片庫 = 圖片資料庫_lb.Text
1414 
+            列印_中文樣品單.Show()
1338 1415 
         End If
1339 1416 
     End Sub
1340 1417 
     Private Sub Button36_Click(sender As Object, e As EventArgs) Handles 刪除顏色_bt.Click
 
@@ -1350,7 +1427,7 @@ Public Class 中文樣品單
1350 1427 
     Private Sub Set_DGV10載入後設定()
1351 1428 
         CmdSet_For_DGV() : da.SelectCommand.CommandTimeout = 900 : da.Fill(ds9) : 中繼2_dgv.DataSource = ds9.Tables(0) : conn.Close()
1352 1429 
     End Sub
1353 
-    Private Sub Button37_Click(sender As Object, e As EventArgs) Handles 新增顏色_bt.Click
1430 
+    Private Sub 新增顏色_bt_Click(sender As Object, e As EventArgs) Handles 新增顏色_bt.Click
1354 1431 
         PA10 = InputBox("請輸入需要新增的顏色數量")
1355 1432 
         If 編輯模式_bt.Enabled = False Then
1356 1433 
             For i As Integer = 1 To PA10 : Set_樣品單流水編號設定2_2() : SQL_新增確認樣品單控制表1() : conn.Close() : Next
 
@@ -1508,7 +1585,34 @@ Public Class 中文樣品單
1508 1585 
     Private Sub Button38_Click(sender As Object, e As EventArgs) Handles 刷新資料_bt.Click
1509 1586 
         If 階段_cb.Text = "" Then : MsgBox("階段選項不可空白") : Else
1510 1587 
             If 編輯模式_bt.Enabled = False Then : SQL_修改確認樣品單抬頭1() : conn.Close() : 編輯模式存檔() : Set_再次導入清單()
1511 
-            ElseIf 編輯模式_bt.Enabled = True Then : Set_再次導入清單() : End If
1588 
+            ElseIf 編輯模式_bt.Enabled = True Then : 刷新存檔() : Set_再次導入清單() : End If
1589 
+        End If
1590 
+    End Sub
1591 
+    Private Sub 刷新存檔()
1592 
+        PA5 = 樣品單號_tb.Text
1593 
+        If 面料1_dgv.Rows.Count > 0 Then
1594 
+            For i = 0 To 面料1_dgv.Rows.Count - 1
1595 
+                PA = 面料1_dgv.Rows(i).Cells("細項").Value.ToString : PA1 = 面料1_dgv.Rows(i).Cells("內容").Value.ToString
1596 
+                SQL_確認樣品單敘述欄_確認() : If dr.Read Then : SQL_確認樣品單敘述欄_修改() : Else : SQL_確認樣品單敘述欄_新增() : End If
1597 
+            Next i
1598 
+        End If
1599 
+        If 內裡1_dgv.Rows.Count > 0 Then
1600 
+            For i = 0 To 內裡1_dgv.Rows.Count - 1
1601 
+                PA = 內裡1_dgv.Rows(i).Cells("細項").Value.ToString : PA1 = 內裡1_dgv.Rows(i).Cells("內容").Value.ToString
1602 
+                SQL_確認樣品單敘述欄_確認() : If dr.Read Then : SQL_確認樣品單敘述欄_修改() : Else : SQL_確認樣品單敘述欄_新增() : End If
1603 
+            Next i
1604 
+        End If
1605 
+        If 底部1_dgv.Rows.Count > 0 Then
1606 
+            For i = 0 To 底部1_dgv.Rows.Count - 1
1607 
+                PA = 底部1_dgv.Rows(i).Cells("細項").Value.ToString : PA1 = 底部1_dgv.Rows(i).Cells("內容").Value.ToString
1608 
+                SQL_確認樣品單敘述欄_確認() : If dr.Read Then : SQL_確認樣品單敘述欄_修改() : Else : SQL_確認樣品單敘述欄_新增() : End If
1609 
+            Next i
1610 
+        End If
1611 
+        If 飾物1_dgv.Rows.Count > 0 Then
1612 
+            For i = 0 To 飾物1_dgv.Rows.Count - 1
1613 
+                PA = 飾物1_dgv.Rows(i).Cells("細項").Value.ToString : PA1 = 飾物1_dgv.Rows(i).Cells("內容").Value.ToString
1614 
+                SQL_確認樣品單敘述欄_確認() : If dr.Read Then : SQL_確認樣品單敘述欄_修改() : Else : SQL_確認樣品單敘述欄_新增() : End If
1615 
+            Next i
1512 1616 
         End If
1513 1617 
     End Sub
1514 1618 
     Private Sub Button40_Click(sender As Object, e As EventArgs) Handles 調用_bt.Click
 
@@ -1736,6 +1840,100 @@ Public Class 中文樣品單
1736 1840 
     Private Sub 顯示確認資訊_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 顯示確認資訊_ch.Click
1737 1841 
         If 顯示確認資訊_ch.Checked = False Then : 顯示確認資訊_ch.Checked = False : Else : 顯示確認資訊_ch.Checked = True : End If : Set_顏色清單()
1738 1842 
     End Sub
1843 
+
1844 
+    Private Sub 部件存檔()
1845 
+        For i = 0 To 顏色_dgv.Rows.Count - 1
1846 
+            PA = 顏色_dgv.Rows(i).Cells("顏色").Value.ToString : PA1 = 顏色_dgv.Rows(i).Cells("Color_Code").Value.ToString
1847 
+            PA2 = 顏色_dgv.Rows(i).Cells("數量").Value.ToString : PA3 = 顏色_dgv.Rows(i).Cells("面料").Value.ToString
1848 
+            PA4 = 顏色_dgv.Rows(i).Cells("內裏").Value.ToString : PA5 = 顏色_dgv.Rows(i).Cells("底部").Value.ToString
1849 
+            PA6 = 顏色_dgv.Rows(i).Cells("飾物").Value.ToString : PA7 = 顏色_dgv.Rows(i).Cells("備註").Value.ToString
1850 
+            PA8 = 顏色_dgv.Rows(i).Cells("FINISH").Value.ToString : PA9 = 顏色_dgv.Rows(i).Cells("掛牌Date").Value.ToString
1851 
+            PA10 = 顏色_dgv.Rows(i).Cells("掛牌Color").Value.ToString : PA11 = 顏色_dgv.Rows(i).Cells("Material_Article").Value.ToString
1852 
+            PA12 = 顏色_dgv.Rows(i).Cells("Construc_Name").Value.ToString : PA13 = 顏色_dgv.Rows(i).Cells("Insole").Value.ToString
1853 
+            PA14 = 顏色_dgv.Rows(i).Cells("Footbed").Value.ToString : PA15 = 顏色_dgv.Rows(i).Cells("掛牌Comments").Value.ToString
1854 
+            PA16 = 顏色_dgv.Rows(i).Cells("ItemNumber").Value.ToString : PA17 = 顏色_dgv.Rows(i).Cells("CFM").Value.ToString
1855 
+            PA18 = 顏色_dgv.Rows(i).Cells("CFM").Value.ToString : PA19 = 顏色_dgv.Rows(i).Cells("樣品流水號一").Value.ToString
1856 
+            SQL_修改確認樣品單控制表() : conn.Close()
1857 
+        Next i
1858 
+        If 面料_dgv.Rows.Count > 0 Then
1859 
+            For i = 0 To 面料_dgv.Rows.Count - 1
1860 
+                PA = 面料_dgv.Rows(i).Cells("Item_N").Value.ToString : PA1 = 面料_dgv.Rows(i).Cells("內容").Value.ToString
1861 
+                PA2 = 面料_dgv.Rows(i).Cells("Factory").Value.ToString : PA3 = 面料_dgv.Rows(i).Cells("樣品流水號二").Value.ToString
1862 
+                PA4 = 面料_dgv.Rows(i).Cells("樣品流水號三").Value.ToString : PA5 = 面料_dgv.Rows(i).Cells("樣品流水號").Value.ToString
1863 
+                SQL_修改確認樣品單控制表1() : conn.Close()
1864 
+            Next i
1865 
+        End If
1866 
+        If 面料1_dgv.Rows.Count > 0 Then
1867 
+            For i = 0 To 面料1_dgv.Rows.Count - 1
1868 
+                PA = 面料1_dgv.Rows(i).Cells("細項").Value.ToString : PA1 = 面料1_dgv.Rows(i).Cells("內容").Value.ToString
1869 
+                SQL_確認樣品單敘述欄_確認() : If dr.Read Then : SQL_確認樣品單敘述欄_修改() : Else : SQL_確認樣品單敘述欄_新增() : End If
1870 
+            Next i
1871 
+        End If
1872 
+
1873 
+        If 內裡_dgv.Rows.Count > 0 Then
1874 
+            For i = 0 To 內裡_dgv.Rows.Count - 1
1875 
+                PA = 內裡_dgv.Rows(i).Cells("Item_N").Value.ToString : PA1 = 內裡_dgv.Rows(i).Cells("內容").Value.ToString
1876 
+                PA2 = 內裡_dgv.Rows(i).Cells("Factory").Value.ToString : PA3 = 內裡_dgv.Rows(i).Cells("樣品流水號二").Value.ToString
1877 
+                PA4 = 內裡_dgv.Rows(i).Cells("樣品流水號三").Value.ToString : PA5 = 內裡_dgv.Rows(i).Cells("樣品流水號").Value.ToString
1878 
+                SQL_修改確認樣品單明細表1() : conn.Close()
1879 
+            Next i
1880 
+        End If
1881 
+        If 內裡1_dgv.Rows.Count > 0 Then
1882 
+            For i = 0 To 內裡1_dgv.Rows.Count - 1
1883 
+                PA = 內裡1_dgv.Rows(i).Cells("細項").Value.ToString : PA1 = 內裡1_dgv.Rows(i).Cells("內容").Value.ToString
1884 
+                SQL_確認樣品單敘述欄_確認() : If dr.Read Then : SQL_確認樣品單敘述欄_修改() : Else : SQL_確認樣品單敘述欄_新增() : End If
1885 
+            Next i
1886 
+        End If
1887 
+
1888 
+        If 底部_dgv.Rows.Count > 0 Then
1889 
+            For i = 0 To 底部_dgv.Rows.Count - 1
1890 
+                PA = 底部_dgv.Rows(i).Cells("Item_N").Value.ToString : PA1 = 底部_dgv.Rows(i).Cells("內容").Value.ToString
1891 
+                PA2 = 底部_dgv.Rows(i).Cells("Factory").Value.ToString : PA3 = 底部_dgv.Rows(i).Cells("樣品流水號二").Value.ToString
1892 
+                PA4 = 底部_dgv.Rows(i).Cells("樣品流水號三").Value.ToString : PA5 = 底部_dgv.Rows(i).Cells("樣品流水號").Value.ToString
1893 
+                SQL_修改確認樣品單明細表2() : conn.Close()
1894 
+            Next i
1895 
+        End If
1896 
+        If 底部1_dgv.Rows.Count > 0 Then
1897 
+            For i = 0 To 底部1_dgv.Rows.Count - 1
1898 
+                PA = 底部1_dgv.Rows(i).Cells("細項").Value.ToString : PA1 = 底部1_dgv.Rows(i).Cells("內容").Value.ToString
1899 
+                SQL_確認樣品單敘述欄_確認() : If dr.Read Then : SQL_確認樣品單敘述欄_修改() : Else : SQL_確認樣品單敘述欄_新增() : End If
1900 
+            Next i
1901 
+        End If
1902 
+
1903 
+        If 飾物_dgv.Rows.Count > 0 Then
1904 
+            For i = 0 To 飾物_dgv.Rows.Count - 1
1905 
+                PA = 飾物_dgv.Rows(i).Cells("Item_N").Value.ToString : PA1 = 飾物_dgv.Rows(i).Cells("內容").Value.ToString
1906 
+                PA2 = 飾物_dgv.Rows(i).Cells("Factory").Value.ToString : PA3 = 飾物_dgv.Rows(i).Cells("樣品流水號二").Value.ToString
1907 
+                PA4 = 飾物_dgv.Rows(i).Cells("樣品流水號三").Value.ToString : PA5 = 飾物_dgv.Rows(i).Cells("樣品流水號三").Value.ToString
1908 
+                PA6 = 飾物_dgv.Rows(i).Cells("樣品流水號").Value.ToString
1909 
+                SQL_修改確認樣品單明細表3() : conn.Close() : PA5 = 飾物_dgv.Rows(i).Cells("樣品流水號").Value.ToString
1910 
+            Next i
1911 
+        End If
1912 
+        If 飾物1_dgv.Rows.Count > 0 Then
1913 
+            For i = 0 To 飾物1_dgv.Rows.Count - 1
1914 
+                PA = 飾物1_dgv.Rows(i).Cells("細項").Value.ToString : PA1 = 飾物1_dgv.Rows(i).Cells("內容").Value.ToString
1915 
+                SQL_確認樣品單敘述欄_確認() : If dr.Read Then : SQL_確認樣品單敘述欄_修改() : Else : SQL_確認樣品單敘述欄_新增() : End If
1916 
+            Next i
1917 
+        End If
1918 
+
1919 
+        排序(0) = "ORDER BY 確認樣品單控制表.顏色, 確認樣品單明細表.細項" : 排序(1) = "ORDER BY 確認樣品單控制表暫存檔.顏色, 確認樣品單明細表暫存檔.細項"
1920 
+        面料顏色排序_bt.Enabled = False : 面料項次排序_bt.Enabled = True : 內裏顏色排序_tb.Enabled = False : 內裏項次排序_tb.Enabled = True
1921 
+        底部顏色排序_bt.Enabled = False : 底部項次排序_bt.Enabled = True : 飾物顏色排序_bt.Enabled = False : 飾物項次排序_bt.Enabled = True
1922 
+        Set_再次導入清單() : Set_確認樣品清單() : Set_grid() : 編輯模式_bt.Enabled = True : Set_格式設定()
1923 
+
1924 
+    End Sub
1925 
+    Private Sub 存檔1_bt_Click(sender As Object, e As EventArgs) Handles 存檔1_bt.Click
1926 
+        部件存檔()
1927 
+    End Sub
1928 
+    Private Sub 存檔2_bt_Click(sender As Object, e As EventArgs) Handles 存檔2_bt.Click
1929 
+        部件存檔()
1930 
+    End Sub
1931 
+    Private Sub 存檔3_bt_Click(sender As Object, e As EventArgs) Handles 存檔3_bt.Click
1932 
+        部件存檔()
1933 
+    End Sub
1934 
+    Private Sub 存檔4_bt_Click(sender As Object, e As EventArgs) Handles 存檔4_bt.Click
1935 
+        部件存檔()
1936 
+    End Sub
1739 1937 
     Private Sub 下拉1_bt_Click(sender As Object, e As EventArgs) Handles 下拉1_bt.Click
1740 1938 
         If 型體號碼_tb.Items.Count > 2999 Then : MsgBox("清單數量超過3000個，清通知系統管理員修改程式!!") : Else
1741 1939 
             For I As Integer = 0 To 3000 : PPBB(I) = "" : Next
 
@@ -1863,6 +2061,42 @@ Public Class 中文樣品單
1863 2061 
         If 圖片資料庫指定 = "" Then : Else : 圖片資料庫_lb.Text = 圖片資料庫指定 : End If
1864 2062 
         PA1 = 樣品單號_tb.Text : 圖片庫 = 圖片資料庫_lb.Text : 樣品單備註圖片.ShowDialog()
1865 2063 
     End Sub
2064 
+    Private Sub 小間距1_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 小間距1_ch.Click
2065 
+        小間距1_ch.Checked = True : 中間距1_ch.Checked = False : 大間距1_ch.Checked = False : 刷新存檔() : Set_面料1_dgv1()
2066 
+    End Sub
2067 
+    Private Sub 中間距1_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 中間距1_ch.Click
2068 
+        小間距1_ch.Checked = False : 中間距1_ch.Checked = True : 大間距1_ch.Checked = False : 刷新存檔() : Set_面料1_dgv1()
2069 
+    End Sub
2070 
+    Private Sub 大間距1_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 大間距1_ch.Click
2071 
+        小間距1_ch.Checked = False : 中間距1_ch.Checked = False : 大間距1_ch.Checked = True : 刷新存檔() : Set_面料1_dgv1()
2072 
+    End Sub
2073 
+    Private Sub 小間距2_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 小間距2_ch.Click
2074 
+        小間距2_ch.Checked = True : 中間距2_ch.Checked = False : 大間距2_ch.Checked = False : 刷新存檔() : Set_內裡1_dgv1()
2075 
+    End Sub
2076 
+    Private Sub 中間距2_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 中間距2_ch.Click
2077 
+        小間距2_ch.Checked = False : 中間距2_ch.Checked = True : 大間距2_ch.Checked = False : 刷新存檔() : Set_內裡1_dgv1()
2078 
+    End Sub
2079 
+    Private Sub 大間距2_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 大間距2_ch.Click
2080 
+        小間距2_ch.Checked = False : 中間距2_ch.Checked = False : 大間距2_ch.Checked = True : 刷新存檔() : Set_內裡1_dgv1()
2081 
+    End Sub
2082 
+    Private Sub 小間距3_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 小間距3_ch.Click
2083 
+        小間距3_ch.Checked = True : 中間距3_ch.Checked = False : 大間距3_ch.Checked = False : 刷新存檔() : Set_底部1_dgv1()
2084 
+    End Sub
2085 
+    Private Sub 中間距3_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 中間距3_ch.Click
2086 
+        小間距3_ch.Checked = False : 中間距3_ch.Checked = True : 大間距3_ch.Checked = False : 刷新存檔() : Set_底部1_dgv1()
2087 
+    End Sub
2088 
+    Private Sub 大間距3_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 大間距3_ch.Click
2089 
+        小間距3_ch.Checked = False : 中間距3_ch.Checked = False : 大間距3_ch.Checked = True : 刷新存檔() : Set_底部1_dgv1()
2090 
+    End Sub
2091 
+    Private Sub 小間距4_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 小間距4_ch.Click
2092 
+        小間距4_ch.Checked = True : 中間距4_ch.Checked = False : 大間距4_ch.Checked = False : 刷新存檔() : Set_飾物1_dgv1()
2093 
+    End Sub
2094 
+    Private Sub 中間距4_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 中間距4_ch.Click
2095 
+        小間距4_ch.Checked = False : 中間距4_ch.Checked = True : 大間距4_ch.Checked = False : 刷新存檔() : Set_飾物1_dgv1()
2096 
+    End Sub
2097 
+    Private Sub 大間距4_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 大間距4_ch.Click
2098 
+        小間距4_ch.Checked = False : 中間距4_ch.Checked = False : 大間距4_ch.Checked = True : 刷新存檔() : Set_飾物1_dgv1()
2099 
+    End Sub
1866 2100
1867 2101 
     Dim OldX, OldY As Long
1868 2102 
     Dim drag As Boolean

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

@@ -14,10 +14,10 @@ Public Class 列印_中文樣品單
14 14 
     Dim xlApp As Application
15 15 
     Dim xlBook As Workbook
16 16 
     Dim xlSheet As Worksheet
17 
-    Dim 位置1 As Integer = 0 : Dim 位置2 As Integer = 0 : Dim 位置3 As Integer = 0 : Dim 位置4 As String
17 
+    Dim 位置1 As Integer = 0 : Dim 位置2 As Integer = 0 : Dim 位置3 As Integer = 0 : Dim 位置4, A1, A2, 位置A, 位置11 As String
18 18 
     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
19 19 
     Dim 面料數 As Integer = 0 : Dim 內裏數 As Integer = 0 : Dim 底部數 As Integer = 0 : Dim 飾物數 As Integer = 0
20 
-    Dim 位置11 As String : Dim 攔寬 As Single
20 
+    Dim 攔寬 As Single
21 21 
     Dim 第一頁, 第二頁, 第三頁, 第四頁, 第五頁 As Boolean
22 22 
     Dim 分頁計數 As Integer = 0 : Dim 分頁計數1 As Integer = 0 : Dim 分頁計數2 As Integer = 0 : Dim 分頁計數3 As Integer = 0 : Dim 分頁計數4 As Integer = 0
23 23 
     Dim DGVX As Integer
 
@@ -242,16 +242,16 @@ Public Class 列印_中文樣品單
242 242 
                 End If
243 243
244 244 
                 '--------------------計算樣品單分頁---------------------------------------------------------------------------------------
245 
-                If 樣品單控制表_dgv.Rows.Count > 11 Then
245 
+                If 樣品單控制表_dgv.Rows.Count > 12 Then
246 246 
                     分頁計數 = 2 : 分頁計數1 = 5 : 分頁計數2 = 8 : 分頁計數3 = 11 : 分頁計數4 = 樣品單控制表_dgv.Rows.Count - 1
247 247 
                     第一頁 = True : 第二頁 = True : 第三頁 = True : 第四頁 = False : 第五頁 = True
248 
-                ElseIf 樣品單控制表_dgv.Rows.Count > 8 Then
248 
+                ElseIf 樣品單控制表_dgv.Rows.Count > 9 Then
249 249 
                     分頁計數 = 2 : 分頁計數1 = 5 : 分頁計數2 = 8 : 分頁計數3 = 樣品單控制表_dgv.Rows.Count - 1
250 250 
                     第一頁 = True : 第二頁 = True : 第三頁 = True : 第四頁 = True : 第五頁 = False
251 
-                ElseIf 樣品單控制表_dgv.Rows.Count > 5 Then
251 
+                ElseIf 樣品單控制表_dgv.Rows.Count > 6 Then
252 252 
                     分頁計數 = 2 : 分頁計數1 = 5 : 分頁計數2 = 樣品單控制表_dgv.Rows.Count - 1
253 253 
                     第一頁 = True : 第二頁 = True : 第三頁 = True : 第四頁 = False : 第五頁 = False
254 
-                ElseIf 樣品單控制表_dgv.Rows.Count > 2 Then
254 
+                ElseIf 樣品單控制表_dgv.Rows.Count > 3 Then
255 255 
                     分頁計數 = 2 : 分頁計數1 = 樣品單控制表_dgv.Rows.Count - 1
256 256 
                     第一頁 = True : 第二頁 = True : 第三頁 = False : 第四頁 = False : 第五頁 = False
257 257 
                 Else
 
@@ -277,20 +277,24 @@ Public Class 列印_中文樣品單
277 277 
                         Set_DGV4載入前設定() : PA9 = 樣品單控制表_dgv.Rows(i).Cells("樣品流水號一").Value : SQL_讀取列印分頁計數() : Set_DGV4載入後設定()
278 278 
                         位置2 = 0
279 279 
                         For ii As Integer = 0 To 明細表分頁_dgv.Rows.Count - 1
280 
-                            xlSheet.Cells(15 + 位置2, 5 + i) = 明細表分頁_dgv.Rows(ii).Cells("內容").Value
281 
-                            'xlSheet.Cells(15 + 位置2 + 1, 4 + i) = 明細表分頁_dgv.Rows(ii).Cells("廠商").Value
282 
-                            'EE(xlApp, xlSheet)
280 
+                            If 明細表分頁_dgv.Rows(ii).Cells("廠商").Value = "" Then
281 
+                                xlSheet.Cells(15 + 位置2, 5 + i) = 明細表分頁_dgv.Rows(ii).Cells("內容").Value
282 
+                            Else
283 
+                                If 5 + i = 5 Then : 位置A = "E" & (15 + 位置2)
284 
+                                ElseIf 5 + i = 6 Then : 位置A = "F" & (15 + 位置2)
285 
+                                ElseIf 5 + i = 7 Then : 位置A = "G" & (15 + 位置2) : End If
286 
+                                A1 = 明細表分頁_dgv.Rows(ii).Cells("內容").Value
287 
+                                A2 = 明細表分頁_dgv.Rows(ii).Cells("廠商").Value
288 
+                                xlSheet.Cells(15 + 位置2, 5 + i) = A1 & " / " & A2 : JJ(xlApp, xlSheet)
289 
+                                'xlSheet.Cells(15 + 位置2, 5 + i) = 明細表分頁_dgv.Rows(ii).Cells("內容").Value & " / " & 明細表分頁_dgv.Rows(ii).Cells("廠商").Value
290 
+                            End If
283 291 
                             位置2 += 1
284 292 
                         Next
285 293 
                     Next : 位置2 = 0
286 294 
                     For ii As Integer = 0 To 明細表分頁_dgv.Rows.Count - 1
287 295 
                         For iii As Integer = 0 To 敘述欄_dgv.Rows.Count - 1
288 296 
                             If 明細表分頁_dgv.Rows(ii).Cells("細項").Value.ToString = 敘述欄_dgv.Rows(iii).Cells("細項").Value.ToString Then
289 
-                                If 敘述欄_dgv.Rows(iii).Cells("內容").Value.ToString = "" Then
290 
-                                    xlSheet.Cells(15 + 位置2, 3) = 敘述欄_dgv.Rows(iii).Cells("廠商").Value
291 
-                                Else
292 
-                                    xlSheet.Cells(15 + 位置2, 3) = 敘述欄_dgv.Rows(iii).Cells("內容").Value
293 
-                                End If : Exit For
297 
+                                xlSheet.Cells(15 + 位置2, 3) = 敘述欄_dgv.Rows(iii).Cells("內容").Value : Exit For
294 298 
                             End If
295 299 
                         Next : 位置2 += 1
296 300 
                     Next : 循環列印3()
 
@@ -320,20 +324,24 @@ Public Class 列印_中文樣品單
320 324 
                         Set_DGV4載入前設定() : PA9 = 樣品單控制表_dgv.Rows(i).Cells("樣品流水號一").Value : SQL_讀取列印分頁計數() : Set_DGV4載入後設定()
321 325 
                         位置2 = 0
322 326 
                         For ii As Integer = 0 To 明細表分頁_dgv.Rows.Count - 1
323 
-                            xlSheet.Cells(15 + 位置2, 5 + i - 3) = 明細表分頁_dgv.Rows(ii).Cells("內容").Value
324 
-                            'xlSheet.Cells(15 + 位置2 + 1, 4 + i - 4) = 明細表分頁_dgv.Rows(ii).Cells("廠商").Value
325 
-                            'EE(xlApp, xlSheet)
327 
+                            If 明細表分頁_dgv.Rows(ii).Cells("廠商").Value = "" Then
328 
+                                xlSheet.Cells(15 + 位置2, 5 + i - 3) = 明細表分頁_dgv.Rows(ii).Cells("內容").Value
329 
+                            Else
330 
+                                If 5 + i - 3 = 5 Then : 位置A = "E" & (15 + 位置2)
331 
+                                ElseIf 5 + i - 3 = 6 Then : 位置A = "F" & (15 + 位置2)
332 
+                                ElseIf 5 + i - 3 = 7 Then : 位置A = "G" & (15 + 位置2) : End If
333 
+                                A1 = 明細表分頁_dgv.Rows(ii).Cells("內容").Value
334 
+                                A2 = 明細表分頁_dgv.Rows(ii).Cells("廠商").Value
335 
+                                xlSheet.Cells(15 + 位置2, 5 + i - 3) = A1 & " / " & A2 : JJ(xlApp, xlSheet)
336 
+                                'xlSheet.Cells(15 + 位置2, 5 + i - 3) = 明細表分頁_dgv.Rows(ii).Cells("內容").Value & " / " & 明細表分頁_dgv.Rows(ii).Cells("廠商").Value
337 
+                            End If
326 338 
                             位置2 += 1
327 339 
                         Next
328 340 
                     Next : 位置2 = 0
329 341 
                     For ii As Integer = 0 To 明細表分頁_dgv.Rows.Count - 1
330 342 
                         For iii As Integer = 0 To 敘述欄_dgv.Rows.Count - 1
331 343 
                             If 明細表分頁_dgv.Rows(ii).Cells("細項").Value.ToString = 敘述欄_dgv.Rows(iii).Cells("細項").Value.ToString Then
332 
-                                If 敘述欄_dgv.Rows(iii).Cells("內容").Value.ToString = "" Then
333 
-                                    xlSheet.Cells(15 + 位置2, 3) = 敘述欄_dgv.Rows(iii).Cells("廠商").Value
334 
-                                Else
335 
-                                    xlSheet.Cells(15 + 位置2, 3) = 敘述欄_dgv.Rows(iii).Cells("內容").Value
336 
-                                End If : Exit For
344 
+                                xlSheet.Cells(15 + 位置2, 3) = 敘述欄_dgv.Rows(iii).Cells("內容").Value : Exit For
337 345 
                             End If
338 346 
                         Next : 位置2 += 1
339 347 
                     Next : 循環列印3()
 
@@ -363,20 +371,24 @@ Public Class 列印_中文樣品單
363 371 
                         Set_DGV4載入前設定() : PA9 = 樣品單控制表_dgv.Rows(i).Cells("樣品流水號一").Value : SQL_讀取列印分頁計數() : Set_DGV4載入後設定()
364 372 
                         位置2 = 0
365 373 
                         For ii As Integer = 0 To 明細表分頁_dgv.Rows.Count - 1
366 
-                            xlSheet.Cells(15 + 位置2, 5 + i - 6) = 明細表分頁_dgv.Rows(ii).Cells("內容").Value
367 
-                            'xlSheet.Cells(15 + 位置2 + 1, 4 + i - 8) = 明細表分頁_dgv.Rows(ii).Cells("廠商").Value
368 
-                            'EE(xlApp, xlSheet)
374 
+                            If 明細表分頁_dgv.Rows(ii).Cells("廠商").Value = "" Then
375 
+                                xlSheet.Cells(15 + 位置2, 5 + i - 6) = 明細表分頁_dgv.Rows(ii).Cells("內容").Value
376 
+                            Else
377 
+                                If 5 + i - 6 = 5 Then : 位置A = "E" & (15 + 位置2)
378 
+                                ElseIf 5 + i - 6 = 6 Then : 位置A = "F" & (15 + 位置2)
379 
+                                ElseIf 5 + i - 6 = 7 Then : 位置A = "G" & (15 + 位置2) : End If
380 
+                                A1 = 明細表分頁_dgv.Rows(ii).Cells("內容").Value
381 
+                                A2 = 明細表分頁_dgv.Rows(ii).Cells("廠商").Value
382 
+                                xlSheet.Cells(15 + 位置2, 5 + i - 6) = A1 & " / " & A2 : JJ(xlApp, xlSheet)
383 
+                                'xlSheet.Cells(15 + 位置2, 5 + i - 6) = 明細表分頁_dgv.Rows(ii).Cells("內容").Value & " / " & 明細表分頁_dgv.Rows(ii).Cells("廠商").Value
384 
+                            End If
369 385 
                             位置2 += 1
370 386 
                         Next
371 387 
                     Next : 位置2 = 0
372 388 
                     For ii As Integer = 0 To 明細表分頁_dgv.Rows.Count - 1
373 389 
                         For iii As Integer = 0 To 敘述欄_dgv.Rows.Count - 1
374 390 
                             If 明細表分頁_dgv.Rows(ii).Cells("細項").Value.ToString = 敘述欄_dgv.Rows(iii).Cells("細項").Value.ToString Then
375 
-                                If 敘述欄_dgv.Rows(iii).Cells("內容").Value.ToString = "" Then
376 
-                                    xlSheet.Cells(15 + 位置2, 3) = 敘述欄_dgv.Rows(iii).Cells("廠商").Value
377 
-                                Else
378 
-                                    xlSheet.Cells(15 + 位置2, 3) = 敘述欄_dgv.Rows(iii).Cells("內容").Value
379 
-                                End If : Exit For
391 
+                                xlSheet.Cells(15 + 位置2, 3) = 敘述欄_dgv.Rows(iii).Cells("內容").Value : Exit For
380 392 
                             End If
381 393 
                         Next : 位置2 += 1
382 394 
                     Next : 循環列印3()
 
@@ -405,20 +417,24 @@ Public Class 列印_中文樣品單
405 417 
                         Set_DGV4載入前設定() : PA9 = 樣品單控制表_dgv.Rows(i).Cells("樣品流水號一").Value : SQL_讀取列印分頁計數() : Set_DGV4載入後設定()
406 418 
                         位置2 = 0
407 419 
                         For ii As Integer = 0 To 明細表分頁_dgv.Rows.Count - 1
408 
-                            xlSheet.Cells(15 + 位置2, 5 + i - 9) = 明細表分頁_dgv.Rows(ii).Cells("內容").Value
409 
-                            'xlSheet.Cells(15 + 位置2 + 1, 4 + i - 4) = 明細表分頁_dgv.Rows(ii).Cells("廠商").Value
410 
-                            'EE(xlApp, xlSheet)
420 
+                            If 明細表分頁_dgv.Rows(ii).Cells("廠商").Value = "" Then
421 
+                                xlSheet.Cells(15 + 位置2, 5 + i - 9) = 明細表分頁_dgv.Rows(ii).Cells("內容").Value
422 
+                            Else
423 
+                                If 5 + i - 9 = 5 Then : 位置A = "E" & (15 + 位置2)
424 
+                                ElseIf 5 + i - 9 = 6 Then : 位置A = "F" & (15 + 位置2)
425 
+                                ElseIf 5 + i - 9 = 7 Then : 位置A = "G" & (15 + 位置2) : End If
426 
+                                A1 = 明細表分頁_dgv.Rows(ii).Cells("內容").Value
427 
+                                A2 = 明細表分頁_dgv.Rows(ii).Cells("廠商").Value
428 
+                                xlSheet.Cells(15 + 位置2, 5 + i - 9) = A1 & " / " & A2 : JJ(xlApp, xlSheet)
429 
+                                'xlSheet.Cells(15 + 位置2, 5 + i - 9) = 明細表分頁_dgv.Rows(ii).Cells("內容").Value & " / " & 明細表分頁_dgv.Rows(ii).Cells("廠商").Value
430 
+                            End If
411 431 
                             位置2 += 1
412 432 
                         Next
413 433 
                     Next : 位置2 = 0
414 434 
                     For ii As Integer = 0 To 明細表分頁_dgv.Rows.Count - 1
415 435 
                         For iii As Integer = 0 To 敘述欄_dgv.Rows.Count - 1
416 436 
                             If 明細表分頁_dgv.Rows(ii).Cells("細項").Value.ToString = 敘述欄_dgv.Rows(iii).Cells("細項").Value.ToString Then
417 
-                                If 敘述欄_dgv.Rows(iii).Cells("內容").Value.ToString = "" Then
418 
-                                    xlSheet.Cells(15 + 位置2, 3) = 敘述欄_dgv.Rows(iii).Cells("廠商").Value
419 
-                                Else
420 
-                                    xlSheet.Cells(15 + 位置2, 3) = 敘述欄_dgv.Rows(iii).Cells("內容").Value
421 
-                                End If : Exit For
437 
+                                xlSheet.Cells(15 + 位置2, 3) = 敘述欄_dgv.Rows(iii).Cells("內容").Value : Exit For
422 438 
                             End If
423 439 
                         Next : 位置2 += 1
424 440 
                     Next : 循環列印3()
 
@@ -448,20 +464,24 @@ Public Class 列印_中文樣品單
448 464 
                         Set_DGV4載入前設定() : PA9 = 樣品單控制表_dgv.Rows(i).Cells("樣品流水號一").Value : SQL_讀取列印分頁計數() : Set_DGV4載入後設定()
449 465 
                         位置2 = 0
450 466 
                         For ii As Integer = 0 To 明細表分頁_dgv.Rows.Count - 1
451 
-                            xlSheet.Cells(15 + 位置2, 5 + i - 12) = 明細表分頁_dgv.Rows(ii).Cells("內容").Value
452 
-                            'xlSheet.Cells(15 + 位置2 + 1, 4 + i - 8) = 明細表分頁_dgv.Rows(ii).Cells("廠商").Value
453 
-                            'EE(xlApp, xlSheet)
467 
+                            If 明細表分頁_dgv.Rows(ii).Cells("廠商").Value = "" Then
468 
+                                xlSheet.Cells(15 + 位置2, 5 + i - 12) = 明細表分頁_dgv.Rows(ii).Cells("內容").Value
469 
+                            Else
470 
+                                If 5 + i - 12 = 5 Then : 位置A = "E" & (15 + 位置2)
471 
+                                ElseIf 5 + i - 12 = 6 Then : 位置A = "F" & (15 + 位置2)
472 
+                                ElseIf 5 + i - 12 = 7 Then : 位置A = "G" & (15 + 位置2) : End If
473 
+                                A1 = 明細表分頁_dgv.Rows(ii).Cells("內容").Value
474 
+                                A2 = 明細表分頁_dgv.Rows(ii).Cells("廠商").Value
475 
+                                xlSheet.Cells(15 + 位置2, 5 + i - 12) = A1 & " / " & A2 : JJ(xlApp, xlSheet)
476 
+                                'xlSheet.Cells(15 + 位置2, 5 + i - 12) = 明細表分頁_dgv.Rows(ii).Cells("內容").Value & " / " & 明細表分頁_dgv.Rows(ii).Cells("廠商").Value
477 
+                            End If
454 478 
                             位置2 += 1
455 479 
                         Next
456 480 
                     Next : 位置2 = 0
457 481 
                     For ii As Integer = 0 To 明細表分頁_dgv.Rows.Count - 1
458 482 
                         For iii As Integer = 0 To 敘述欄_dgv.Rows.Count - 1
459 483 
                             If 明細表分頁_dgv.Rows(ii).Cells("細項").Value.ToString = 敘述欄_dgv.Rows(iii).Cells("細項").Value.ToString Then
460 
-                                If 敘述欄_dgv.Rows(iii).Cells("內容").Value.ToString = "" Then
461 
-                                    xlSheet.Cells(15 + 位置2, 3) = 敘述欄_dgv.Rows(iii).Cells("廠商").Value
462 
-                                Else
463 
-                                    xlSheet.Cells(15 + 位置2, 3) = 敘述欄_dgv.Rows(iii).Cells("內容").Value
464 
-                                End If : Exit For
484 
+                                xlSheet.Cells(15 + 位置2, 3) = 敘述欄_dgv.Rows(iii).Cells("內容").Value : Exit For
465 485 
                             End If
466 486 
                         Next : 位置2 += 1
467 487 
                     Next : 循環列印3()
 
@@ -556,19 +576,19 @@ Public Class 列印_中文樣品單
556 576
557 577 
         xlSheet.Cells.Select() : With myExcel.Selection.Font
558 578 
             .Name = "微軟正黑體" : .Size = 12 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
559 
-            .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
579 
+            .Underline = xlUnderlineStyleNone : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
560 580 
         xlSheet.Range("F3").Select() : With myExcel.Selection.Font
561 581 
             .Name = "微軟正黑體" : .Size = 10 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
562 
-            .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
582 
+            .Underline = xlUnderlineStyleNone : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
563 583 
         xlSheet.Range("A3:A9").Select() : With myExcel.Selection.Font
564 584 
             .Name = "微軟正黑體" : .Size = 11 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
565 
-            .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
585 
+            .Underline = xlUnderlineStyleNone : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
566 586 
         xlSheet.Range("A11:B14").Select() : With myExcel.Selection.Font
567 587 
             .Name = "微軟正黑體" : .Size = 10 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
568 
-            .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
588 
+            .Underline = xlUnderlineStyleNone : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
569 589 
         xlSheet.Range("D1:E1").Select() : With myExcel.Selection.Font
570 590 
             .Name = "微軟正黑體" : .Size = 18 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
571 
-            .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
591 
+            .Underline = xlUnderlineStyleNone : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
572 592 
         myExcel.Selection.Font.Bold = True
573 593
574 594 
         xlSheet.Range("B3:C9").Select() : With myExcel.Selection
 
@@ -579,7 +599,7 @@ Public Class 列印_中文樣品單
579 599 
             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With
580 600 
         With myExcel.Selection.Font
581 601 
             .Name = "微軟正黑體" : .Size = 6 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
582 
-            .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone
602 
+            .Underline = xlUnderlineStyleNone : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone
583 603 
         End With
584 604
585 605 
         xlSheet.Range("A2:G14").Select() : myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
 
@@ -606,14 +626,14 @@ Public Class 列印_中文樣品單
606 626 
         With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlTop : .WrapText = True : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
607 627 
             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True : End With
608 628 
         With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 16 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
609 
-            .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
629 
+            .Underline = xlUnderlineStyleNone : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
610 630 
         With myExcel.Selection.Font : .Color = -16776961 : .TintAndShade = 0 : End With
611 631
612 632 
         xlSheet.Range("A2:G2").Select() : With myExcel.Selection.Interior
613 633 
             .Pattern = xlSolid : .PatternColorIndex = xlAutomatic : .Color = 65535 : .TintAndShade = 0 : .PatternTintAndShade = 0 : End With
614 634
615 635 
         xlSheet.Range("A11:G14").Select() : With myExcel.Selection.Interior
616 
-            .Pattern = xlSolid : .PatternColorIndex = xlAutomatic : .ThemeColor = xlThemeColorDark1 : .TintAndShade = -0.249977111117893 : .PatternTintAndShade = 0 : End With
636 
+            .Pattern = xlSolid : .PatternColorIndex = xlAutomatic : .TintAndShade = -0.249977111117893 : .PatternTintAndShade = 0 : End With
617 637
618 638 
         If 樣品單抬頭_dgv.Rows(0).Cells("新舊形體").Value = True Then
619 639 
             xlSheet.Range("D3").Select()
 
@@ -626,29 +646,29 @@ Public Class 列印_中文樣品單
626 646 
         xlSheet.Range("C11:G14").Select()
627 647 
         With myExcel.Selection.Font
628 648 
             .Name = "微軟正黑體" : .Size = 10 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
629 
-            .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
649 
+            .Underline = xlUnderlineStyleNone : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
630 650 
         With myExcel.Selection
631 651 
             .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
632 652 
             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With
633 653
634 654 
         位置4 = "B15:G" & 位置3 : xlSheet.Range(位置4).Select()
635 655 
         With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 9 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
636 
-            .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
656 
+            .Underline = xlUnderlineStyleNone : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
637 657 
         With myExcel.Selection : .HorizontalAlignment = xlGeneral : .VerticalAlignment = xlCenter : .WrapText = True : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
638 658 
             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With
639 659
640 660 
         位置4 = "A15:B" & 位置3 : xlSheet.Range(位置4).Select()
641 661 
         With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 10 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
642 
-            .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
662 
+            .Underline = xlUnderlineStyleNone : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
643 663 
         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
644 664 
             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With
645 665
646 666 
         位置8 = 14 + (面料數 * 1) + (內裏數 * 1) + (底部數 * 1) + (飾物數 * 1)
667 
+        xlSheet.Rows("15:" & 位置8).Select : xlSheet.Rows("15:" & 位置8).EntireRow.AutoFit
647 668 
         For i As Integer = 15 To 位置8
648 
-            攔寬 = xlSheet.Rows(i).RowHeight
649 
-            位置11 = i & ":" & i
669 
+            xlSheet.Rows(i & ":" & i).Select
670 
+            攔寬 = xlSheet.Rows(i & ":" & i).RowHeight : 位置11 = i & ":" & i
650 671 
             xlSheet.Rows(位置11).Select : myExcel.Selection.RowHeight = 攔寬 + 20
651 
-            i += 1
652 672 
         Next
653 673
654 674 
         位置5 = 14 + (面料數 * 1) : 位置4 = "A14:G" & 位置5
 
@@ -709,7 +729,7 @@ Public Class 列印_中文樣品單
709 729 
             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With
710 730
711 731 
         位置4 = "A15:A" & 位置8 : xlSheet.Range(位置4).Select() : With myExcel.Selection.Interior
712 
-            .Pattern = xlSolid : .PatternColorIndex = xlAutomatic : .ThemeColor = xlThemeColorDark1 : .TintAndShade = -0.249977111117893 : .PatternTintAndShade = 0 : End With
732 
+            .Pattern = xlSolid : .PatternColorIndex = xlAutomatic : .TintAndShade = -0.249977111117893 : .PatternTintAndShade = 0 : End With
713 733
714 734 
         位置10 = 位置8 + 1 : 位置4 = "A" & 位置10 & ":G" & 位置10
715 735 
         xlSheet.Range(位置4).Select() : myExcel.Selection.Borders(xlDiagonalDown).LineStyle = xlNone : myExcel.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
 
@@ -720,7 +740,7 @@ Public Class 列印_中文樣品單
720 740 
         With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
721 741 
         With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
722 742 
         With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 9 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
723 
-            .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
743 
+            .Underline = xlUnderlineStyleNone : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
724 744
725 745 
         位置4 = "A" & 位置10 & ":B" & 位置10 : xlSheet.Range(位置4).Select()
726 746 
         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
 
@@ -736,7 +756,7 @@ Public Class 列印_中文樣品單
736 756 
         With myExcel.Selection.Borders(xlInsideVertical) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
737 757 
         With myExcel.Selection.Borders(xlInsideHorizontal) : .LineStyle = xlContinuous : .ColorIndex = 0 : .TintAndShade = 0 : .Weight = xlThin : End With
738 758 
         With myExcel.Selection.Font : .Name = "微軟正黑體" : .Size = 9 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
739 
-            .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
759 
+            .Underline = xlUnderlineStyleNone : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
740 760
741 761 
         位置4 = "A" & 位置10 & ":B" & 位置10 : xlSheet.Range(位置4).Select()
742 762 
         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
 
@@ -758,7 +778,7 @@ Public Class 列印_中文樣品單
758 778
759 779 
         xlSheet.Range("G2").Select()
760 780 
         With myExcel.Selection.Font : .Name = "Microsoft YaHei UI" : .Size = 10 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False : .Shadow = False
761 
-            .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
781 
+            .Underline = xlUnderlineStyleNone : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
762 782
763 783 
         xlSheet.Range("C11:D14").Select()
764 784 
         With myExcel.Selection : .HorizontalAlignment = xlCenter : .VerticalAlignment = xlCenter : .WrapText = False : .Orientation = 0
 
@@ -794,69 +814,51 @@ Public Class 列印_中文樣品單
794 814 
         End With
795 815 
         myExcel.Application.PrintCommunication = True
796 816 
     End Sub
817 
+    Private Sub JJ(ByVal myExcel As Application, ByVal xlSheet As Worksheet)
818 
+        xlSheet.Range(位置A).Select()
819 
+        myExcel.ActiveCell.FormulaR1C1 = A1 & " / " & A2
820 
+        Dim S1, S2 As Integer : S1 = Len(A1 & " / ") : S2 = Len(A2)
821 
+        With myExcel.ActiveCell.Characters(Start:=1, Length:=S1).Font
822 
+            .Name = "Microsoft YaHei UI" : .Size = 9 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False
823 
+            .Shadow = False : .Underline = xlUnderlineStyleNone : .ThemeColor = xlThemeColorLight1 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With : S1 += 1
824 
+        With myExcel.ActiveCell.Characters(Start:=S1, Length:=S2).Font
825 
+            .Name = "Microsoft YaHei UI" : .Size = 9 : .Strikethrough = False : .Superscript = False : .Subscript = False : .OutlineFont = False
826 
+            .Shadow = False : .Underline = xlUnderlineStyleNone : .Color = -16776961 : .TintAndShade = 0 : .ThemeFont = xlThemeFontNone : End With
827 
+    End Sub
797 828 
     Private Sub HH(ByVal myExcel As Application, ByVal xlSheet As Worksheet)
798 829 
         xlSheet.Range("C" & 15 + 位置2 & ":D" & 15 + 位置2).Select()
799 830 
         With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = True : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
800 831 
             .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = False : End With : myExcel.Selection.Merge
801 
-        'With myExcel.Selection : .HorizontalAlignment = xlLeft : .VerticalAlignment = xlCenter : .WrapText = True : .Orientation = 0 : .AddIndent = False : .IndentLevel = 0
802 
-        '    .ShrinkToFit = False : .ReadingOrder = xlContext : .MergeCells = True : End With
803 832 
     End Sub
804 833 
     Private Sub BB(ByVal myExcel As Application, ByVal xlSheet As Worksheet)
805 
-        Clipboard.SetDataObject(PictureBox3.Image)
806 
-        xlSheet.Range("C1").Select()
807 
-        myExcel.ActiveSheet.Pictures.Paste.Select
808 
-        myExcel.Selection.ShapeRange.Height = 48
809 
-        myExcel.Selection.ShapeRange.IncrementLeft(115)
810 
-        myExcel.Selection.ShapeRange.IncrementTop(5)
834 
+        Clipboard.SetDataObject(PictureBox3.Image) : xlSheet.Range("C1").Select() : myExcel.ActiveSheet.Pictures.Paste.Select : myExcel.Selection.ShapeRange.Height = 48
835 
+        myExcel.Selection.ShapeRange.IncrementLeft(115) : myExcel.Selection.ShapeRange.IncrementTop(5)
811 836 
     End Sub
812 837 
     Private Sub CC(ByVal myExcel As Application, ByVal xlSheet As Worksheet)
813 
-        If 樣品單抬頭_dgv.Rows(0).Cells("中文樣品單產地標").Value = "" Then
814 
-        Else
815 
-            Clipboard.SetDataObject(PictureBox1.Image)
816 
-            xlSheet.Range("D4").Select()
817 
-            myExcel.ActiveSheet.Pictures.Paste.Select
838 
+        If 樣品單抬頭_dgv.Rows(0).Cells("中文樣品單產地標").Value = "" Then : Else
839 
+            Clipboard.SetDataObject(PictureBox1.Image) : xlSheet.Range("D4").Select() : myExcel.ActiveSheet.Pictures.Paste.Select
818 840 
             Dim A As Integer = PictureBox1.Image.Width.ToString()
819 841 
             Dim B As Integer = PictureBox1.Image.Height.ToString()
820 
-            If A / B > 3 Then
821 
-                myExcel.Selection.ShapeRange.Width = 290
822 
-            Else
823 
-                myExcel.Selection.ShapeRange.Height = 100
824 
-            End If
825 
-            myExcel.Selection.ShapeRange.IncrementLeft(9.75)
826 
-            myExcel.Selection.ShapeRange.IncrementTop(1.5)
842 
+            If A / B > 3 Then : myExcel.Selection.ShapeRange.Width = 290 : Else : myExcel.Selection.ShapeRange.Height = 100 : End If
843 
+            myExcel.Selection.ShapeRange.IncrementLeft(9.75) : myExcel.Selection.ShapeRange.IncrementTop(1.5)
827 844 
         End If
828 845 
     End Sub
829 846 
     Private Sub DD(ByVal myExcel As Application, ByVal xlSheet As Worksheet)
830 
-        If 樣品單抬頭_dgv.Rows(0).Cells("中文樣品單鞋圖").Value = "" Then
831 
-        Else
832 
-            Clipboard.SetDataObject(PictureBox2.Image)
833 
-            xlSheet.Range("F4").Select()
834 
-            myExcel.ActiveSheet.Pictures.Paste.Select
835 
-            myExcel.Selection.ShapeRange.Width = 297
836 
-            myExcel.Selection.ShapeRange.IncrementLeft(5)
837 
-            myExcel.Selection.ShapeRange.IncrementTop(1.5)
847 
+        If 樣品單抬頭_dgv.Rows(0).Cells("中文樣品單鞋圖").Value = "" Then : Else
848 
+            Clipboard.SetDataObject(PictureBox2.Image) : xlSheet.Range("F4").Select() : myExcel.ActiveSheet.Pictures.Paste.Select : myExcel.Selection.ShapeRange.Width = 297
849 
+            myExcel.Selection.ShapeRange.IncrementLeft(5) : myExcel.Selection.ShapeRange.IncrementTop(1.5)
838 850 
         End If
839 851 
     End Sub
840 852 
     Private Sub FF(ByVal myExcel As Application, ByVal xlSheet As Worksheet)
841 
-        If 樣品單抬頭_dgv.Rows(0).Cells("中文樣品單中底LOGO").Value = "" Then
842 
-        Else
843 
-            Clipboard.SetDataObject(PictureBox4.Image)
844 
-            xlSheet.Range("D8").Select()
845 
-            myExcel.ActiveSheet.Pictures.Paste.Select
846 
-            myExcel.Selection.ShapeRange.Height = 48
847 
-            myExcel.Selection.ShapeRange.IncrementLeft(10)
848 
-            myExcel.Selection.ShapeRange.IncrementTop(1.5)
853 
+        If 樣品單抬頭_dgv.Rows(0).Cells("中文樣品單中底LOGO").Value = "" Then : Else
854 
+            Clipboard.SetDataObject(PictureBox4.Image) : xlSheet.Range("D8").Select() : myExcel.ActiveSheet.Pictures.Paste.Select : myExcel.Selection.ShapeRange.Height = 48
855 
+            myExcel.Selection.ShapeRange.IncrementLeft(10) : myExcel.Selection.ShapeRange.IncrementTop(1.5)
849 856 
         End If
850 857 
     End Sub
851 858 
     Private Sub GG(ByVal myExcel As Application, ByVal xlSheet As Worksheet)
852 
-        If 樣品單抬頭_dgv.Rows(0).Cells("中文樣品單其他LOGO").Value = "" Then
853 
-        Else
854 
-            Clipboard.SetDataObject(PictureBox5.Image)
855 
-            xlSheet.Range("E8").Select()
856 
-            myExcel.ActiveSheet.Pictures.Paste.Select
857 
-            myExcel.Selection.ShapeRange.Height = 48
858 
-            myExcel.Selection.ShapeRange.IncrementLeft(1.5)
859 
-            myExcel.Selection.ShapeRange.IncrementTop(1.5)
859 
+        If 樣品單抬頭_dgv.Rows(0).Cells("中文樣品單其他LOGO").Value = "" Then : Else
860 
+            Clipboard.SetDataObject(PictureBox5.Image) : xlSheet.Range("E8").Select() : myExcel.ActiveSheet.Pictures.Paste.Select : myExcel.Selection.ShapeRange.Height = 48
861 
+            myExcel.Selection.ShapeRange.IncrementLeft(1.5) : myExcel.Selection.ShapeRange.IncrementTop(1.5)
860 862 
         End If
861 863 
     End Sub
862 864 
     Dim HHS As Integer = 360 : Dim WWS As Integer = 320
 
@@ -884,12 +886,6 @@ Public Class 列印_中文樣品單
884 886 
         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
885 887 
         myExcel.Selection.ShapeRange.IncrementLeft(1.5) : myExcel.Selection.ShapeRange.IncrementTop(1.5)
886 888 
     End Sub
887 
-    'Private Sub EE(ByVal myExcel As Application, ByVal xlSheet As Worksheet)
888 
-    '    位置9 = 15 + 位置2 + 1 : 位置4 = "B" & 位置9 & ":G" & 位置9 : xlSheet.Range(位置4).Select()
889 
-    '    With myExcel.Selection.Interior
890 
-    '        .Pattern = xlSolid : .PatternColorIndex = xlAutomatic : .ThemeColor = xlThemeColorDark1 : .TintAndShade = -0.249977111117893 : .PatternTintAndShade = 0
891 
-    '    End With
892 
-    'End Sub
893 889 
     Private Sub II(ByVal myExcel As Application, ByVal xlSheet As Worksheet)
894 890 
         xlSheet.Columns("A:A").Select : myExcel.Selection.ColumnWidth = 2 : xlSheet.Columns("B:C").Select : myExcel.Selection.ColumnWidth = 60
895 891 
         xlSheet.Rows("2:2").Select : myExcel.Selection.RowHeight = 400 : xlSheet.Rows("4:4").Select : myExcel.Selection.RowHeight = 400

Verfassen Vorschau
Laden…
Abbrechen
Speichern