20230805備份

GA-ERP-SYS/bin/Debug/debug.log

 
 [0721/195212.519:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
 [0721/195223.479:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0723/163009.774:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0723/163015.773:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0723/163018.709:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0723/163026.900:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0723/163749.256:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0723/163750.856:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0723/163752.307:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0723/164005.021:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0723/164011.966:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0723/164015.858:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0723/164402.185:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0723/164403.800:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0723/164404.718:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0723/165536.395:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0723/165537.848:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0723/165539.447:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0723/165724.118:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0723/165725.786:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0723/165727.052:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0723/170140.772:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0723/170143.667:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0723/170145.177:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0723/171115.674:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0723/171118.032:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0723/171120.485:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0723/172205.362:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0723/172207.550:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0723/172209.183:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0723/172220.115:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0728/195653.799:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0728/195711.911:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0728/195714.940:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0728/195722.627:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0728/200458.548:WARNING:chrome_browser_cloud_management_controller.cc(87)] Could not create policy manager as CBCM is not enabled.
+[0728/200505.572:ERROR:cert_issuer_source_aia.cc(34)] Error parsing cert retrieved from AIA (as DER):
+ERROR: Couldn't read tbsCertificate as SEQUENCE
+ERROR: Failed parsing Certificate
+
+[0728/200506.665:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)
+[0728/200520.609:INFO:CONSOLE(2)] "JQMIGRATE: Migrate is installed, version 3.4.0", source: https://gcm-smart.com/_jb_static/??-eJydjMEKgzAQRP+mp8YoqNSD9FtiXJqVbEx3V6V/3xyU3gsDb+Yw78gGk4/bDGKXkvcG/DlhCF/sFCrCVC1yP7Lxa1JIajUAlQfsZRhRx9aJgIqNOLErhqAUOwm4/9o/GgbJa5ovnoonjU3/aNuh7rv65qex+QLYKUoG (2)

GA-ERP-SYS/報表系統管理/後台/後台帳務彙總結算表.Designer.vb

         '結束日期_dtp
         '
         Me.結束日期_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.結束日期_dtp.Location = New System.Drawing.Point(49, 2)
+        Me.結束日期_dtp.Location = New System.Drawing.Point(47, 2)
         Me.結束日期_dtp.Name = "結束日期_dtp"
-        Me.結束日期_dtp.Size = New System.Drawing.Size(100, 23)
+        Me.結束日期_dtp.Size = New System.Drawing.Size(85, 23)
         Me.結束日期_dtp.TabIndex = 1771
         '
         '開始日期_dtp
         '結果_tb
         '
         Me.結果_tb.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.結果_tb.Location = New System.Drawing.Point(49, 25)
+        Me.結果_tb.Location = New System.Drawing.Point(47, 25)
         Me.結果_tb.Name = "結果_tb"
-        Me.結果_tb.Size = New System.Drawing.Size(100, 23)
+        Me.結果_tb.Size = New System.Drawing.Size(85, 23)
         Me.結果_tb.TabIndex = 1782
         Me.結果_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
         '
         Me.Panel1.Controls.Add(Me.彙總5_dgv)
         Me.Panel1.Location = New System.Drawing.Point(198, 0)
         Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(918, 651)
+        Me.Panel1.Size = New System.Drawing.Size(858, 651)
         Me.Panel1.TabIndex = 1783
         '
         'PictureBox1
         '
         Me.PictureBox1.BackgroundImage = Global.GA_ERP_SYS.My.Resources.Resources.S__20029698
         Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.PictureBox1.Location = New System.Drawing.Point(146, 1)
+        Me.PictureBox1.Location = New System.Drawing.Point(135, 1)
         Me.PictureBox1.Name = "PictureBox1"
         Me.PictureBox1.Size = New System.Drawing.Size(50, 50)
         Me.PictureBox1.TabIndex = 1825
         Me.廣告_tb.Location = New System.Drawing.Point(3, 611)
         Me.廣告_tb.Multiline = True
         Me.廣告_tb.Name = "廣告_tb"
-        Me.廣告_tb.Size = New System.Drawing.Size(912, 38)
+        Me.廣告_tb.Size = New System.Drawing.Size(852, 38)
         Me.廣告_tb.TabIndex = 1824
         Me.廣告_tb.Text = "歡迎專業水站、100%版主、多版經營者、致富網為您提供快速準確自動抓版合帳的系統 [前一個月免費試用喔，請洽 Line ID 3078888] "
         Me.廣告_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
         '
         'A4_P
         '
-        Me.A4_P.Controls.Add(Me.Label18)
         Me.A4_P.Controls.Add(Me.結果2_tb)
         Me.A4_P.Controls.Add(Me.年初_dtp)
+        Me.A4_P.Controls.Add(Me.Label18)
         Me.A4_P.Controls.Add(Me.Label15)
-        Me.A4_P.Location = New System.Drawing.Point(761, 2)
+        Me.A4_P.Location = New System.Drawing.Point(683, 2)
         Me.A4_P.Name = "A4_P"
-        Me.A4_P.Size = New System.Drawing.Size(153, 50)
+        Me.A4_P.Size = New System.Drawing.Size(132, 50)
         Me.A4_P.TabIndex = 1822
         '
         'Label18
         '結果2_tb
         '
         Me.結果2_tb.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.結果2_tb.Location = New System.Drawing.Point(48, 25)
+        Me.結果2_tb.Location = New System.Drawing.Point(46, 25)
         Me.結果2_tb.Name = "結果2_tb"
-        Me.結果2_tb.Size = New System.Drawing.Size(100, 23)
+        Me.結果2_tb.Size = New System.Drawing.Size(85, 23)
         Me.結果2_tb.TabIndex = 1816
         Me.結果2_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
         '
         '年初_dtp
         '
         Me.年初_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.年初_dtp.Location = New System.Drawing.Point(48, 2)
+        Me.年初_dtp.Location = New System.Drawing.Point(46, 2)
         Me.年初_dtp.Name = "年初_dtp"
-        Me.年初_dtp.Size = New System.Drawing.Size(100, 23)
+        Me.年初_dtp.Size = New System.Drawing.Size(85, 23)
         Me.年初_dtp.TabIndex = 1817
         '
         'Label15
         '
         'A3_P
         '
-        Me.A3_P.Controls.Add(Me.Label3)
-        Me.A3_P.Controls.Add(Me.Label5)
         Me.A3_P.Controls.Add(Me.月初_dtp)
         Me.A3_P.Controls.Add(Me.結果3_tb)
-        Me.A3_P.Location = New System.Drawing.Point(579, 2)
+        Me.A3_P.Controls.Add(Me.Label3)
+        Me.A3_P.Controls.Add(Me.Label5)
+        Me.A3_P.Location = New System.Drawing.Point(522, 2)
         Me.A3_P.Name = "A3_P"
-        Me.A3_P.Size = New System.Drawing.Size(153, 50)
+        Me.A3_P.Size = New System.Drawing.Size(132, 50)
         Me.A3_P.TabIndex = 1821
         '
         'Label3
         '月初_dtp
         '
         Me.月初_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.月初_dtp.Location = New System.Drawing.Point(47, 2)
+        Me.月初_dtp.Location = New System.Drawing.Point(45, 2)
         Me.月初_dtp.Name = "月初_dtp"
-        Me.月初_dtp.Size = New System.Drawing.Size(100, 23)
+        Me.月初_dtp.Size = New System.Drawing.Size(85, 23)
         Me.月初_dtp.TabIndex = 1786
         '
         '結果3_tb
         '
         Me.結果3_tb.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.結果3_tb.Location = New System.Drawing.Point(47, 25)
+        Me.結果3_tb.Location = New System.Drawing.Point(45, 25)
         Me.結果3_tb.Name = "結果3_tb"
-        Me.結果3_tb.Size = New System.Drawing.Size(100, 23)
+        Me.結果3_tb.Size = New System.Drawing.Size(85, 23)
         Me.結果3_tb.TabIndex = 1784
         Me.結果3_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
         '
         'A2_P
         '
-        Me.A2_P.Controls.Add(Me.Label4)
-        Me.A2_P.Controls.Add(Me.Label14)
         Me.A2_P.Controls.Add(Me.本周周一_dtp)
         Me.A2_P.Controls.Add(Me.結果1_tb)
-        Me.A2_P.Location = New System.Drawing.Point(397, 2)
+        Me.A2_P.Controls.Add(Me.Label4)
+        Me.A2_P.Controls.Add(Me.Label14)
+        Me.A2_P.Location = New System.Drawing.Point(361, 2)
         Me.A2_P.Name = "A2_P"
-        Me.A2_P.Size = New System.Drawing.Size(153, 50)
+        Me.A2_P.Size = New System.Drawing.Size(132, 50)
         Me.A2_P.TabIndex = 1820
         '
         'Label4
         '本周周一_dtp
         '
         Me.本周周一_dtp.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.本周周一_dtp.Location = New System.Drawing.Point(47, 2)
+        Me.本周周一_dtp.Location = New System.Drawing.Point(45, 2)
         Me.本周周一_dtp.Name = "本周周一_dtp"
-        Me.本周周一_dtp.Size = New System.Drawing.Size(100, 23)
+        Me.本周周一_dtp.Size = New System.Drawing.Size(85, 23)
         Me.本周周一_dtp.TabIndex = 1783
         '
         '結果1_tb
         '
         Me.結果1_tb.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer))
-        Me.結果1_tb.Location = New System.Drawing.Point(48, 25)
+        Me.結果1_tb.Location = New System.Drawing.Point(46, 25)
         Me.結果1_tb.Name = "結果1_tb"
-        Me.結果1_tb.Size = New System.Drawing.Size(100, 23)
+        Me.結果1_tb.Size = New System.Drawing.Size(84, 23)
         Me.結果1_tb.TabIndex = 1812
         Me.結果1_tb.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
         '
         'A1_P
         '
-        Me.A1_P.Controls.Add(Me.Label1)
-        Me.A1_P.Controls.Add(Me.Label26)
         Me.A1_P.Controls.Add(Me.結束日期_dtp)
         Me.A1_P.Controls.Add(Me.結果_tb)
-        Me.A1_P.Location = New System.Drawing.Point(215, 2)
+        Me.A1_P.Controls.Add(Me.Label1)
+        Me.A1_P.Controls.Add(Me.Label26)
+        Me.A1_P.Location = New System.Drawing.Point(200, 2)
         Me.A1_P.Name = "A1_P"
-        Me.A1_P.Size = New System.Drawing.Size(153, 50)
+        Me.A1_P.Size = New System.Drawing.Size(132, 50)
         Me.A1_P.TabIndex = 1819
         '
         'PictureBox2
         '
         Me.PictureBox2.BackgroundImage = Global.GA_ERP_SYS.My.Resources.Resources._9f4d0b564d950c8de255241c1b6c560
         Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
-        Me.PictureBox2.Location = New System.Drawing.Point(3, 2)
+        Me.PictureBox2.Location = New System.Drawing.Point(1, 2)
         Me.PictureBox2.Name = "PictureBox2"
         Me.PictureBox2.Size = New System.Drawing.Size(139, 50)
         Me.PictureBox2.TabIndex = 1769
         DataGridViewCellStyle2.Font = New System.Drawing.Font("微軟正黑體", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
         Me.彙總5_dgv.RowsDefaultCellStyle = DataGridViewCellStyle2
         Me.彙總5_dgv.RowTemplate.Height = 24
-        Me.彙總5_dgv.Size = New System.Drawing.Size(911, 559)
+        Me.彙總5_dgv.Size = New System.Drawing.Size(851, 559)
         Me.彙總5_dgv.TabIndex = 1813
         '
         '彙總3_dgv
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(1117, 651)
+        Me.ClientSize = New System.Drawing.Size(1057, 651)
         Me.Controls.Add(Me.顯年_ch)
         Me.Controls.Add(Me.顯日_ch)
         Me.Controls.Add(Me.顯周_ch)

GA-ERP-SYS/報表系統管理/後台/後台帳務彙總結算表.vb

         Else : 彙總5_dgv.RowTemplate.Height = 25 : End If
 
         彙總5_dgv.Columns("項次").FillWeight = 40 : 彙總5_dgv.Columns("商品 (元)").FillWeight = 80 : 彙總5_dgv.Columns("系統").FillWeight = 40
-        彙總5_dgv.Columns("貢獻度-日").FillWeight = 80 : 彙總5_dgv.Columns("結果-日").FillWeight = 80 : 彙總5_dgv.Columns("貢獻度-周").FillWeight = 80
-        彙總5_dgv.Columns("結果-周").FillWeight = 80 : 彙總5_dgv.Columns("貢獻度-月").FillWeight = 80 : 彙總5_dgv.Columns("結果-月").FillWeight = 80
-        彙總5_dgv.Columns("結果-年").FillWeight = 80 : 彙總5_dgv.Columns("貢獻度-年").FillWeight = 80
+        彙總5_dgv.Columns("貢獻度-日").FillWeight = 65 : 彙總5_dgv.Columns("結果-日").FillWeight = 60 : 彙總5_dgv.Columns("貢獻度-周").FillWeight = 65
+        彙總5_dgv.Columns("結果-周").FillWeight = 60 : 彙總5_dgv.Columns("貢獻度-月").FillWeight = 65 : 彙總5_dgv.Columns("結果-月").FillWeight = 60
+        彙總5_dgv.Columns("結果-年").FillWeight = 60 : 彙總5_dgv.Columns("貢獻度-年").FillWeight = 65
         彙總5_dgv.Columns("貢獻度-日1").Visible = False : 彙總5_dgv.Columns("貢獻度-周1").Visible = False : 彙總5_dgv.Columns("結果-日1").Visible = False
         彙總5_dgv.Columns("結果-周1").Visible = False : 彙總5_dgv.Columns("貢獻度-月1").Visible = False : 彙總5_dgv.Columns("結果-月1").Visible = False
         彙總5_dgv.Columns("結果-年1").Visible = False : 彙總5_dgv.Columns("貢獻度-年1").Visible = False
         End If : 本周周一_dtp.Value = 結束日期1_dtp.Value.AddDays(-6) : 結束日期1_dtp.Value = Today()
     End Sub
     Private Sub 顯示()
+        Dim ASD(7) As Integer
+        ASD(0) = 527 + 8
+        ASD(1) = 215 - 33
+        ASD(2) = 733 - 66
+        ASD(3) = 376 - 60
+        ASD(4) = 894 - 94
+        ASD(5) = 537 - 90
+        ASD(6) = 1055 - 130
+        ASD(7) = 698 - 125
         If 彙總5_dgv.Rows.Count > 0 Then
             If 顯日_ch.Checked = True And 顯周_ch.Checked = False And 顯月_ch.Checked = False And 顯年_ch.Checked = False Then
-                Me.Size = New Size(587, Screen.PrimaryScreen.Bounds.Height - 視窗減項) : A1_P.Visible = True : A2_P.Visible = False : A3_P.Visible = False : A4_P.Visible = False
-                A1_P.Location = New System.Drawing.Point(215, 2)
+                Me.Size = New Size(ASD(0), Screen.PrimaryScreen.Bounds.Height - 視窗減項) : A1_P.Visible = True : A2_P.Visible = False : A3_P.Visible = False : A4_P.Visible = False
+                A1_P.Location = New System.Drawing.Point(ASD(1), 2)
                 彙總5_dgv.Columns("貢獻度-日").Visible = True : 彙總5_dgv.Columns("結果-日").Visible = True : 彙總5_dgv.Columns("貢獻度-周").Visible = False
                 彙總5_dgv.Columns("結果-周").Visible = False : 彙總5_dgv.Columns("貢獻度-月").Visible = False : 彙總5_dgv.Columns("結果-月").Visible = False
                 彙總5_dgv.Columns("結果-年").Visible = False : 彙總5_dgv.Columns("貢獻度-年").Visible = False
                 廣告_tb.Font = New System.Drawing.Font("標楷體", 8.75, FontStyle.Bold)
             ElseIf 顯日_ch.Checked = False And 顯周_ch.Checked = True And 顯月_ch.Checked = False And 顯年_ch.Checked = False Then
-                Me.Size = New Size(587, Screen.PrimaryScreen.Bounds.Height - 視窗減項) : A1_P.Visible = False : A2_P.Visible = True : A3_P.Visible = False : A4_P.Visible = False
-                A2_P.Location = New System.Drawing.Point(215, 2)
+                Me.Size = New Size(ASD(0), Screen.PrimaryScreen.Bounds.Height - 視窗減項) : A1_P.Visible = False : A2_P.Visible = True : A3_P.Visible = False : A4_P.Visible = False
+                A2_P.Location = New System.Drawing.Point(ASD(1), 2)
                 彙總5_dgv.Columns("貢獻度-日").Visible = False : 彙總5_dgv.Columns("結果-日").Visible = False : 彙總5_dgv.Columns("貢獻度-周").Visible = True
                 彙總5_dgv.Columns("結果-周").Visible = True : 彙總5_dgv.Columns("貢獻度-月").Visible = False : 彙總5_dgv.Columns("結果-月").Visible = False
                 彙總5_dgv.Columns("結果-年").Visible = False : 彙總5_dgv.Columns("貢獻度-年").Visible = False
                 廣告_tb.Font = New System.Drawing.Font("標楷體", 8.75, FontStyle.Bold)
             ElseIf 顯日_ch.Checked = False And 顯周_ch.Checked = False And 顯月_ch.Checked = True And 顯年_ch.Checked = False Then
-                Me.Size = New Size(587, Screen.PrimaryScreen.Bounds.Height - 視窗減項) : A1_P.Visible = False : A2_P.Visible = False : A3_P.Visible = True : A4_P.Visible = False
-                A3_P.Location = New System.Drawing.Point(215, 2)
+                Me.Size = New Size(ASD(0), Screen.PrimaryScreen.Bounds.Height - 視窗減項) : A1_P.Visible = False : A2_P.Visible = False : A3_P.Visible = True : A4_P.Visible = False
+                A3_P.Location = New System.Drawing.Point(ASD(1), 2)
                 彙總5_dgv.Columns("貢獻度-日").Visible = False : 彙總5_dgv.Columns("結果-日").Visible = False : 彙總5_dgv.Columns("貢獻度-周").Visible = False
                 彙總5_dgv.Columns("結果-周").Visible = False : 彙總5_dgv.Columns("貢獻度-月").Visible = True : 彙總5_dgv.Columns("結果-月").Visible = True
                 彙總5_dgv.Columns("結果-年").Visible = False : 彙總5_dgv.Columns("貢獻度-年").Visible = False
                 廣告_tb.Font = New System.Drawing.Font("標楷體", 8.75, FontStyle.Bold)
             ElseIf 顯日_ch.Checked = False And 顯周_ch.Checked = False And 顯月_ch.Checked = False And 顯年_ch.Checked = True Then
-                Me.Size = New Size(587, Screen.PrimaryScreen.Bounds.Height - 視窗減項) : A1_P.Visible = False : A2_P.Visible = False : A3_P.Visible = False : A4_P.Visible = True
-                A4_P.Location = New System.Drawing.Point(215, 2)
+                Me.Size = New Size(ASD(0), Screen.PrimaryScreen.Bounds.Height - 視窗減項) : A1_P.Visible = False : A2_P.Visible = False : A3_P.Visible = False : A4_P.Visible = True
+                A4_P.Location = New System.Drawing.Point(ASD(1), 2)
                 彙總5_dgv.Columns("貢獻度-日").Visible = False : 彙總5_dgv.Columns("結果-日").Visible = False : 彙總5_dgv.Columns("貢獻度-周").Visible = False
                 彙總5_dgv.Columns("結果-周").Visible = False : 彙總5_dgv.Columns("貢獻度-月").Visible = False : 彙總5_dgv.Columns("結果-月").Visible = False
                 彙總5_dgv.Columns("結果-年").Visible = True : 彙總5_dgv.Columns("貢獻度-年").Visible = True
                 廣告_tb.Font = New System.Drawing.Font("標楷體", 8.75, FontStyle.Bold)
             ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = True And 顯月_ch.Checked = False And 顯年_ch.Checked = False Then
-                Me.Size = New Size(769, Screen.PrimaryScreen.Bounds.Height - 視窗減項) : A1_P.Visible = True : A2_P.Visible = True : A3_P.Visible = False : A4_P.Visible = False
-                A1_P.Location = New System.Drawing.Point(215, 2) : A2_P.Location = New System.Drawing.Point(397, 2)
+                Me.Size = New Size(ASD(2), Screen.PrimaryScreen.Bounds.Height - 視窗減項) : A1_P.Visible = True : A2_P.Visible = True : A3_P.Visible = False : A4_P.Visible = False
+                A1_P.Location = New System.Drawing.Point(ASD(1), 2) : A2_P.Location = New System.Drawing.Point(ASD(3), 2)
                 彙總5_dgv.Columns("貢獻度-日").Visible = True : 彙總5_dgv.Columns("結果-日").Visible = True : 彙總5_dgv.Columns("貢獻度-周").Visible = True
                 彙總5_dgv.Columns("結果-周").Visible = True : 彙總5_dgv.Columns("貢獻度-月").Visible = False : 彙總5_dgv.Columns("結果-月").Visible = False
                 彙總5_dgv.Columns("結果-年").Visible = False : 彙總5_dgv.Columns("貢獻度-年").Visible = False
                 廣告_tb.Font = New System.Drawing.Font("標楷體", 9.75, FontStyle.Bold)
             ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = False And 顯月_ch.Checked = True And 顯年_ch.Checked = False Then
-                Me.Size = New Size(769, Screen.PrimaryScreen.Bounds.Height - 視窗減項) : A1_P.Visible = True : A2_P.Visible = False : A3_P.Visible = True : A4_P.Visible = False
-                A1_P.Location = New System.Drawing.Point(215, 2) : A3_P.Location = New System.Drawing.Point(397, 2)
+                Me.Size = New Size(ASD(2), Screen.PrimaryScreen.Bounds.Height - 視窗減項) : A1_P.Visible = True : A2_P.Visible = False : A3_P.Visible = True : A4_P.Visible = False
+                A1_P.Location = New System.Drawing.Point(ASD(1), 2) : A3_P.Location = New System.Drawing.Point(ASD(3), 2)
                 彙總5_dgv.Columns("貢獻度-日").Visible = True : 彙總5_dgv.Columns("結果-日").Visible = True : 彙總5_dgv.Columns("貢獻度-周").Visible = False
                 彙總5_dgv.Columns("結果-周").Visible = False : 彙總5_dgv.Columns("貢獻度-月").Visible = True : 彙總5_dgv.Columns("結果-月").Visible = True
                 彙總5_dgv.Columns("結果-年").Visible = False : 彙總5_dgv.Columns("貢獻度-年").Visible = False
                 廣告_tb.Font = New System.Drawing.Font("標楷體", 9.75, FontStyle.Bold)
             ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = False And 顯月_ch.Checked = False And 顯年_ch.Checked = True Then
-                Me.Size = New Size(769, Screen.PrimaryScreen.Bounds.Height - 視窗減項) : A1_P.Visible = True : A2_P.Visible = False : A3_P.Visible = False : A4_P.Visible = True
-                A1_P.Location = New System.Drawing.Point(215, 2) : A4_P.Location = New System.Drawing.Point(397, 2)
+                Me.Size = New Size(ASD(2), Screen.PrimaryScreen.Bounds.Height - 視窗減項) : A1_P.Visible = True : A2_P.Visible = False : A3_P.Visible = False : A4_P.Visible = True
+                A1_P.Location = New System.Drawing.Point(ASD(1), 2) : A4_P.Location = New System.Drawing.Point(ASD(3), 2)
                 彙總5_dgv.Columns("貢獻度-日").Visible = True : 彙總5_dgv.Columns("結果-日").Visible = True : 彙總5_dgv.Columns("貢獻度-周").Visible = False
                 彙總5_dgv.Columns("結果-周").Visible = False : 彙總5_dgv.Columns("貢獻度-月").Visible = False : 彙總5_dgv.Columns("結果-月").Visible = False
                 彙總5_dgv.Columns("結果-年").Visible = True : 彙總5_dgv.Columns("貢獻度-年").Visible = True
                 廣告_tb.Font = New System.Drawing.Font("標楷體", 9.75, FontStyle.Bold)
             ElseIf 顯日_ch.Checked = False And 顯周_ch.Checked = True And 顯月_ch.Checked = True And 顯年_ch.Checked = False Then
-                Me.Size = New Size(769, Screen.PrimaryScreen.Bounds.Height - 視窗減項) : A1_P.Visible = False : A2_P.Visible = True : A3_P.Visible = True : A4_P.Visible = False
-                A2_P.Location = New System.Drawing.Point(215, 2) : A3_P.Location = New System.Drawing.Point(397, 2)
+                Me.Size = New Size(ASD(2), Screen.PrimaryScreen.Bounds.Height - 視窗減項) : A1_P.Visible = False : A2_P.Visible = True : A3_P.Visible = True : A4_P.Visible = False
+                A2_P.Location = New System.Drawing.Point(ASD(1), 2) : A3_P.Location = New System.Drawing.Point(ASD(3), 2)
                 彙總5_dgv.Columns("貢獻度-日").Visible = False : 彙總5_dgv.Columns("結果-日").Visible = False : 彙總5_dgv.Columns("貢獻度-周").Visible = True
                 彙總5_dgv.Columns("結果-周").Visible = True : 彙總5_dgv.Columns("貢獻度-月").Visible = True : 彙總5_dgv.Columns("結果-月").Visible = True
                 彙總5_dgv.Columns("結果-年").Visible = False : 彙總5_dgv.Columns("貢獻度-年").Visible = False
                 廣告_tb.Font = New System.Drawing.Font("標楷體", 9.75, FontStyle.Bold)
             ElseIf 顯日_ch.Checked = False And 顯周_ch.Checked = True And 顯月_ch.Checked = False And 顯年_ch.Checked = True Then
-                Me.Size = New Size(769, Screen.PrimaryScreen.Bounds.Height - 視窗減項) : A1_P.Visible = False : A2_P.Visible = True : A3_P.Visible = False : A4_P.Visible = True
-                A2_P.Location = New System.Drawing.Point(215, 2) : A4_P.Location = New System.Drawing.Point(397, 2)
+                Me.Size = New Size(ASD(2), Screen.PrimaryScreen.Bounds.Height - 視窗減項) : A1_P.Visible = False : A2_P.Visible = True : A3_P.Visible = False : A4_P.Visible = True
+                A2_P.Location = New System.Drawing.Point(ASD(1), 2) : A4_P.Location = New System.Drawing.Point(ASD(3), 2)
                 彙總5_dgv.Columns("貢獻度-日").Visible = False : 彙總5_dgv.Columns("結果-日").Visible = False : 彙總5_dgv.Columns("貢獻度-周").Visible = True
                 彙總5_dgv.Columns("結果-周").Visible = True : 彙總5_dgv.Columns("貢獻度-月").Visible = False : 彙總5_dgv.Columns("結果-月").Visible = False
                 彙總5_dgv.Columns("結果-年").Visible = True : 彙總5_dgv.Columns("貢獻度-年").Visible = True
                 廣告_tb.Font = New System.Drawing.Font("標楷體", 9.75, FontStyle.Bold)
             ElseIf 顯日_ch.Checked = False And 顯周_ch.Checked = False And 顯月_ch.Checked = True And 顯年_ch.Checked = True Then
-                Me.Size = New Size(769, Screen.PrimaryScreen.Bounds.Height - 視窗減項) : A1_P.Visible = False : A2_P.Visible = False : A3_P.Visible = True : A4_P.Visible = True
-                A3_P.Location = New System.Drawing.Point(215, 2) : A4_P.Location = New System.Drawing.Point(397, 2)
+                Me.Size = New Size(ASD(2), Screen.PrimaryScreen.Bounds.Height - 視窗減項) : A1_P.Visible = False : A2_P.Visible = False : A3_P.Visible = True : A4_P.Visible = True
+                A3_P.Location = New System.Drawing.Point(ASD(1), 2) : A4_P.Location = New System.Drawing.Point(ASD(3), 2)
                 彙總5_dgv.Columns("貢獻度-日").Visible = False : 彙總5_dgv.Columns("結果-日").Visible = False : 彙總5_dgv.Columns("貢獻度-周").Visible = False
                 彙總5_dgv.Columns("結果-周").Visible = False : 彙總5_dgv.Columns("貢獻度-月").Visible = True : 彙總5_dgv.Columns("結果-月").Visible = True
                 彙總5_dgv.Columns("結果-年").Visible = True : 彙總5_dgv.Columns("貢獻度-年").Visible = True
                 廣告_tb.Font = New System.Drawing.Font("標楷體", 9.75, FontStyle.Bold)
             ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = True And 顯月_ch.Checked = True And 顯年_ch.Checked = False Then
-                Me.Size = New Size(951, Screen.PrimaryScreen.Bounds.Height - 視窗減項) : A1_P.Visible = True : A2_P.Visible = True : A3_P.Visible = True : A4_P.Visible = False
-                A1_P.Location = New System.Drawing.Point(215, 2) : A2_P.Location = New System.Drawing.Point(397, 2) : A3_P.Location = New System.Drawing.Point(579, 2)
+                Me.Size = New Size(ASD(4), Screen.PrimaryScreen.Bounds.Height - 視窗減項) : A1_P.Visible = True : A2_P.Visible = True : A3_P.Visible = True : A4_P.Visible = False
+                A1_P.Location = New System.Drawing.Point(ASD(1), 2) : A2_P.Location = New System.Drawing.Point(ASD(3), 2) : A3_P.Location = New System.Drawing.Point(ASD(5), 2)
                 彙總5_dgv.Columns("貢獻度-日").Visible = True : 彙總5_dgv.Columns("結果-日").Visible = True : 彙總5_dgv.Columns("貢獻度-周").Visible = True
                 彙總5_dgv.Columns("結果-周").Visible = True : 彙總5_dgv.Columns("貢獻度-月").Visible = True : 彙總5_dgv.Columns("結果-月").Visible = True
                 彙總5_dgv.Columns("結果-年").Visible = False : 彙總5_dgv.Columns("貢獻度-年").Visible = False
                 廣告_tb.Font = New System.Drawing.Font("標楷體", 12.75, FontStyle.Bold)
             ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = True And 顯月_ch.Checked = False And 顯年_ch.Checked = True Then
-                Me.Size = New Size(951, Screen.PrimaryScreen.Bounds.Height - 視窗減項) : A1_P.Visible = True : A2_P.Visible = True : A3_P.Visible = False : A4_P.Visible = True
-                A1_P.Location = New System.Drawing.Point(215, 2) : A2_P.Location = New System.Drawing.Point(397, 2) : A4_P.Location = New System.Drawing.Point(579, 2)
+                Me.Size = New Size(ASD(4), Screen.PrimaryScreen.Bounds.Height - 視窗減項) : A1_P.Visible = True : A2_P.Visible = True : A3_P.Visible = False : A4_P.Visible = True
+                A1_P.Location = New System.Drawing.Point(ASD(1), 2) : A2_P.Location = New System.Drawing.Point(ASD(3), 2) : A4_P.Location = New System.Drawing.Point(ASD(5), 2)
                 彙總5_dgv.Columns("貢獻度-日").Visible = True : 彙總5_dgv.Columns("結果-日").Visible = True : 彙總5_dgv.Columns("貢獻度-周").Visible = True
                 彙總5_dgv.Columns("結果-周").Visible = True : 彙總5_dgv.Columns("貢獻度-月").Visible = False : 彙總5_dgv.Columns("結果-月").Visible = False
                 彙總5_dgv.Columns("結果-年").Visible = True : 彙總5_dgv.Columns("貢獻度-年").Visible = True
                 廣告_tb.Font = New System.Drawing.Font("標楷體", 12.75, FontStyle.Bold)
             ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = False And 顯月_ch.Checked = True And 顯年_ch.Checked = True Then
-                Me.Size = New Size(951, Screen.PrimaryScreen.Bounds.Height - 視窗減項) : A1_P.Visible = True : A2_P.Visible = False : A3_P.Visible = True : A4_P.Visible = True
-                A1_P.Location = New System.Drawing.Point(215, 2) : A3_P.Location = New System.Drawing.Point(397, 2) : A4_P.Location = New System.Drawing.Point(579, 2)
+                Me.Size = New Size(ASD(4), Screen.PrimaryScreen.Bounds.Height - 視窗減項) : A1_P.Visible = True : A2_P.Visible = False : A3_P.Visible = True : A4_P.Visible = True
+                A1_P.Location = New System.Drawing.Point(ASD(1), 2) : A3_P.Location = New System.Drawing.Point(ASD(3), 2) : A4_P.Location = New System.Drawing.Point(ASD(5), 2)
                 彙總5_dgv.Columns("貢獻度-日").Visible = True : 彙總5_dgv.Columns("結果-日").Visible = True : 彙總5_dgv.Columns("貢獻度-周").Visible = False
                 彙總5_dgv.Columns("結果-周").Visible = False : 彙總5_dgv.Columns("貢獻度-月").Visible = True : 彙總5_dgv.Columns("結果-月").Visible = True
                 彙總5_dgv.Columns("結果-年").Visible = True : 彙總5_dgv.Columns("貢獻度-年").Visible = True
                 廣告_tb.Font = New System.Drawing.Font("標楷體", 12.75, FontStyle.Bold)
             ElseIf 顯日_ch.Checked = False And 顯周_ch.Checked = True And 顯月_ch.Checked = True And 顯年_ch.Checked = True Then
-                Me.Size = New Size(951, Screen.PrimaryScreen.Bounds.Height - 視窗減項) : A1_P.Visible = False : A2_P.Visible = True : A3_P.Visible = True : A4_P.Visible = True
-                A2_P.Location = New System.Drawing.Point(215, 2) : A3_P.Location = New System.Drawing.Point(397, 2) : A4_P.Location = New System.Drawing.Point(579, 2)
+                Me.Size = New Size(ASD(4), Screen.PrimaryScreen.Bounds.Height - 視窗減項) : A1_P.Visible = False : A2_P.Visible = True : A3_P.Visible = True : A4_P.Visible = True
+                A2_P.Location = New System.Drawing.Point(ASD(1), 2) : A3_P.Location = New System.Drawing.Point(ASD(3), 2) : A4_P.Location = New System.Drawing.Point(ASD(5), 2)
                 彙總5_dgv.Columns("貢獻度-日").Visible = False : 彙總5_dgv.Columns("結果-日").Visible = False : 彙總5_dgv.Columns("貢獻度-周").Visible = True
                 彙總5_dgv.Columns("結果-周").Visible = True : 彙總5_dgv.Columns("貢獻度-月").Visible = True : 彙總5_dgv.Columns("結果-月").Visible = True
                 彙總5_dgv.Columns("結果-年").Visible = True : 彙總5_dgv.Columns("貢獻度-年").Visible = True
                 廣告_tb.Font = New System.Drawing.Font("標楷體", 12.75, FontStyle.Bold)
             ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = True And 顯月_ch.Checked = True And 顯年_ch.Checked = True Then
-                Me.Size = New Size(1133, Screen.PrimaryScreen.Bounds.Height - 視窗減項) : A1_P.Visible = True : A2_P.Visible = True : A3_P.Visible = True : A4_P.Visible = True
-                A1_P.Location = New System.Drawing.Point(215, 2) : A2_P.Location = New System.Drawing.Point(397, 2)
-                A3_P.Location = New System.Drawing.Point(579, 2) : A4_P.Location = New System.Drawing.Point(761, 2)
+                Me.Size = New Size(ASD(6), Screen.PrimaryScreen.Bounds.Height - 視窗減項) : A1_P.Visible = True : A2_P.Visible = True : A3_P.Visible = True : A4_P.Visible = True
+                A1_P.Location = New System.Drawing.Point(ASD(1), 2) : A2_P.Location = New System.Drawing.Point(ASD(3), 2)
+                A3_P.Location = New System.Drawing.Point(ASD(5), 2) : A4_P.Location = New System.Drawing.Point(ASD(7), 2)
                 彙總5_dgv.Columns("貢獻度-日").Visible = True : 彙總5_dgv.Columns("結果-日").Visible = True : 彙總5_dgv.Columns("貢獻度-周").Visible = True
                 彙總5_dgv.Columns("結果-周").Visible = True : 彙總5_dgv.Columns("貢獻度-月").Visible = True : 彙總5_dgv.Columns("結果-月").Visible = True
                 彙總5_dgv.Columns("結果-年").Visible = True : 彙總5_dgv.Columns("貢獻度-年").Visible = True