|
@@ -349,9 +349,9 @@ Public Class 後台帳務彙總結算表
|
349
|
349
|
Else : 彙總5_dgv.RowTemplate.Height = 25 : End If
|
350
|
350
|
|
351
|
351
|
彙總5_dgv.Columns("項次").FillWeight = 40 : 彙總5_dgv.Columns("商品 (元)").FillWeight = 80 : 彙總5_dgv.Columns("系統").FillWeight = 40
|
352
|
|
- 彙總5_dgv.Columns("貢獻度-日").FillWeight = 80 : 彙總5_dgv.Columns("結果-日").FillWeight = 80 : 彙總5_dgv.Columns("貢獻度-周").FillWeight = 80
|
353
|
|
- 彙總5_dgv.Columns("結果-周").FillWeight = 80 : 彙總5_dgv.Columns("貢獻度-月").FillWeight = 80 : 彙總5_dgv.Columns("結果-月").FillWeight = 80
|
354
|
|
- 彙總5_dgv.Columns("結果-年").FillWeight = 80 : 彙總5_dgv.Columns("貢獻度-年").FillWeight = 80
|
|
352
|
+ 彙總5_dgv.Columns("貢獻度-日").FillWeight = 65 : 彙總5_dgv.Columns("結果-日").FillWeight = 60 : 彙總5_dgv.Columns("貢獻度-周").FillWeight = 65
|
|
353
|
+ 彙總5_dgv.Columns("結果-周").FillWeight = 60 : 彙總5_dgv.Columns("貢獻度-月").FillWeight = 65 : 彙總5_dgv.Columns("結果-月").FillWeight = 60
|
|
354
|
+ 彙總5_dgv.Columns("結果-年").FillWeight = 60 : 彙總5_dgv.Columns("貢獻度-年").FillWeight = 65
|
355
|
355
|
彙總5_dgv.Columns("貢獻度-日1").Visible = False : 彙總5_dgv.Columns("貢獻度-周1").Visible = False : 彙總5_dgv.Columns("結果-日1").Visible = False
|
356
|
356
|
彙總5_dgv.Columns("結果-周1").Visible = False : 彙總5_dgv.Columns("貢獻度-月1").Visible = False : 彙總5_dgv.Columns("結果-月1").Visible = False
|
357
|
357
|
彙總5_dgv.Columns("結果-年1").Visible = False : 彙總5_dgv.Columns("貢獻度-年1").Visible = False
|
|
@@ -522,109 +522,118 @@ Public Class 後台帳務彙總結算表
|
522
|
522
|
End If : 本周周一_dtp.Value = 結束日期1_dtp.Value.AddDays(-6) : 結束日期1_dtp.Value = Today()
|
523
|
523
|
End Sub
|
524
|
524
|
Private Sub 顯示()
|
|
525
|
+ Dim ASD(7) As Integer
|
|
526
|
+ ASD(0) = 527 + 8
|
|
527
|
+ ASD(1) = 215 - 33
|
|
528
|
+ ASD(2) = 733 - 66
|
|
529
|
+ ASD(3) = 376 - 60
|
|
530
|
+ ASD(4) = 894 - 94
|
|
531
|
+ ASD(5) = 537 - 90
|
|
532
|
+ ASD(6) = 1055 - 130
|
|
533
|
+ ASD(7) = 698 - 125
|
525
|
534
|
If 彙總5_dgv.Rows.Count > 0 Then
|
526
|
535
|
If 顯日_ch.Checked = True And 顯周_ch.Checked = False And 顯月_ch.Checked = False And 顯年_ch.Checked = False Then
|
527
|
|
- 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
|
528
|
|
- A1_P.Location = New System.Drawing.Point(215, 2)
|
|
536
|
+ 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
|
|
537
|
+ A1_P.Location = New System.Drawing.Point(ASD(1), 2)
|
529
|
538
|
彙總5_dgv.Columns("貢獻度-日").Visible = True : 彙總5_dgv.Columns("結果-日").Visible = True : 彙總5_dgv.Columns("貢獻度-周").Visible = False
|
530
|
539
|
彙總5_dgv.Columns("結果-周").Visible = False : 彙總5_dgv.Columns("貢獻度-月").Visible = False : 彙總5_dgv.Columns("結果-月").Visible = False
|
531
|
540
|
彙總5_dgv.Columns("結果-年").Visible = False : 彙總5_dgv.Columns("貢獻度-年").Visible = False
|
532
|
541
|
廣告_tb.Font = New System.Drawing.Font("標楷體", 8.75, FontStyle.Bold)
|
533
|
542
|
ElseIf 顯日_ch.Checked = False And 顯周_ch.Checked = True And 顯月_ch.Checked = False And 顯年_ch.Checked = False Then
|
534
|
|
- 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
|
535
|
|
- A2_P.Location = New System.Drawing.Point(215, 2)
|
|
543
|
+ 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
|
|
544
|
+ A2_P.Location = New System.Drawing.Point(ASD(1), 2)
|
536
|
545
|
彙總5_dgv.Columns("貢獻度-日").Visible = False : 彙總5_dgv.Columns("結果-日").Visible = False : 彙總5_dgv.Columns("貢獻度-周").Visible = True
|
537
|
546
|
彙總5_dgv.Columns("結果-周").Visible = True : 彙總5_dgv.Columns("貢獻度-月").Visible = False : 彙總5_dgv.Columns("結果-月").Visible = False
|
538
|
547
|
彙總5_dgv.Columns("結果-年").Visible = False : 彙總5_dgv.Columns("貢獻度-年").Visible = False
|
539
|
548
|
廣告_tb.Font = New System.Drawing.Font("標楷體", 8.75, FontStyle.Bold)
|
540
|
549
|
ElseIf 顯日_ch.Checked = False And 顯周_ch.Checked = False And 顯月_ch.Checked = True And 顯年_ch.Checked = False Then
|
541
|
|
- 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
|
542
|
|
- A3_P.Location = New System.Drawing.Point(215, 2)
|
|
550
|
+ 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
|
|
551
|
+ A3_P.Location = New System.Drawing.Point(ASD(1), 2)
|
543
|
552
|
彙總5_dgv.Columns("貢獻度-日").Visible = False : 彙總5_dgv.Columns("結果-日").Visible = False : 彙總5_dgv.Columns("貢獻度-周").Visible = False
|
544
|
553
|
彙總5_dgv.Columns("結果-周").Visible = False : 彙總5_dgv.Columns("貢獻度-月").Visible = True : 彙總5_dgv.Columns("結果-月").Visible = True
|
545
|
554
|
彙總5_dgv.Columns("結果-年").Visible = False : 彙總5_dgv.Columns("貢獻度-年").Visible = False
|
546
|
555
|
廣告_tb.Font = New System.Drawing.Font("標楷體", 8.75, FontStyle.Bold)
|
547
|
556
|
ElseIf 顯日_ch.Checked = False And 顯周_ch.Checked = False And 顯月_ch.Checked = False And 顯年_ch.Checked = True Then
|
548
|
|
- 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
|
549
|
|
- A4_P.Location = New System.Drawing.Point(215, 2)
|
|
557
|
+ 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
|
|
558
|
+ A4_P.Location = New System.Drawing.Point(ASD(1), 2)
|
550
|
559
|
彙總5_dgv.Columns("貢獻度-日").Visible = False : 彙總5_dgv.Columns("結果-日").Visible = False : 彙總5_dgv.Columns("貢獻度-周").Visible = False
|
551
|
560
|
彙總5_dgv.Columns("結果-周").Visible = False : 彙總5_dgv.Columns("貢獻度-月").Visible = False : 彙總5_dgv.Columns("結果-月").Visible = False
|
552
|
561
|
彙總5_dgv.Columns("結果-年").Visible = True : 彙總5_dgv.Columns("貢獻度-年").Visible = True
|
553
|
562
|
廣告_tb.Font = New System.Drawing.Font("標楷體", 8.75, FontStyle.Bold)
|
554
|
563
|
ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = True And 顯月_ch.Checked = False And 顯年_ch.Checked = False Then
|
555
|
|
- 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
|
556
|
|
- A1_P.Location = New System.Drawing.Point(215, 2) : A2_P.Location = New System.Drawing.Point(397, 2)
|
|
564
|
+ 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
|
|
565
|
+ A1_P.Location = New System.Drawing.Point(ASD(1), 2) : A2_P.Location = New System.Drawing.Point(ASD(3), 2)
|
557
|
566
|
彙總5_dgv.Columns("貢獻度-日").Visible = True : 彙總5_dgv.Columns("結果-日").Visible = True : 彙總5_dgv.Columns("貢獻度-周").Visible = True
|
558
|
567
|
彙總5_dgv.Columns("結果-周").Visible = True : 彙總5_dgv.Columns("貢獻度-月").Visible = False : 彙總5_dgv.Columns("結果-月").Visible = False
|
559
|
568
|
彙總5_dgv.Columns("結果-年").Visible = False : 彙總5_dgv.Columns("貢獻度-年").Visible = False
|
560
|
569
|
廣告_tb.Font = New System.Drawing.Font("標楷體", 9.75, FontStyle.Bold)
|
561
|
570
|
ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = False And 顯月_ch.Checked = True And 顯年_ch.Checked = False Then
|
562
|
|
- 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
|
563
|
|
- A1_P.Location = New System.Drawing.Point(215, 2) : A3_P.Location = New System.Drawing.Point(397, 2)
|
|
571
|
+ 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
|
|
572
|
+ A1_P.Location = New System.Drawing.Point(ASD(1), 2) : A3_P.Location = New System.Drawing.Point(ASD(3), 2)
|
564
|
573
|
彙總5_dgv.Columns("貢獻度-日").Visible = True : 彙總5_dgv.Columns("結果-日").Visible = True : 彙總5_dgv.Columns("貢獻度-周").Visible = False
|
565
|
574
|
彙總5_dgv.Columns("結果-周").Visible = False : 彙總5_dgv.Columns("貢獻度-月").Visible = True : 彙總5_dgv.Columns("結果-月").Visible = True
|
566
|
575
|
彙總5_dgv.Columns("結果-年").Visible = False : 彙總5_dgv.Columns("貢獻度-年").Visible = False
|
567
|
576
|
廣告_tb.Font = New System.Drawing.Font("標楷體", 9.75, FontStyle.Bold)
|
568
|
577
|
ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = False And 顯月_ch.Checked = False And 顯年_ch.Checked = True Then
|
569
|
|
- 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
|
570
|
|
- A1_P.Location = New System.Drawing.Point(215, 2) : A4_P.Location = New System.Drawing.Point(397, 2)
|
|
578
|
+ 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
|
|
579
|
+ A1_P.Location = New System.Drawing.Point(ASD(1), 2) : A4_P.Location = New System.Drawing.Point(ASD(3), 2)
|
571
|
580
|
彙總5_dgv.Columns("貢獻度-日").Visible = True : 彙總5_dgv.Columns("結果-日").Visible = True : 彙總5_dgv.Columns("貢獻度-周").Visible = False
|
572
|
581
|
彙總5_dgv.Columns("結果-周").Visible = False : 彙總5_dgv.Columns("貢獻度-月").Visible = False : 彙總5_dgv.Columns("結果-月").Visible = False
|
573
|
582
|
彙總5_dgv.Columns("結果-年").Visible = True : 彙總5_dgv.Columns("貢獻度-年").Visible = True
|
574
|
583
|
廣告_tb.Font = New System.Drawing.Font("標楷體", 9.75, FontStyle.Bold)
|
575
|
584
|
ElseIf 顯日_ch.Checked = False And 顯周_ch.Checked = True And 顯月_ch.Checked = True And 顯年_ch.Checked = False Then
|
576
|
|
- 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
|
577
|
|
- A2_P.Location = New System.Drawing.Point(215, 2) : A3_P.Location = New System.Drawing.Point(397, 2)
|
|
585
|
+ 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
|
|
586
|
+ A2_P.Location = New System.Drawing.Point(ASD(1), 2) : A3_P.Location = New System.Drawing.Point(ASD(3), 2)
|
578
|
587
|
彙總5_dgv.Columns("貢獻度-日").Visible = False : 彙總5_dgv.Columns("結果-日").Visible = False : 彙總5_dgv.Columns("貢獻度-周").Visible = True
|
579
|
588
|
彙總5_dgv.Columns("結果-周").Visible = True : 彙總5_dgv.Columns("貢獻度-月").Visible = True : 彙總5_dgv.Columns("結果-月").Visible = True
|
580
|
589
|
彙總5_dgv.Columns("結果-年").Visible = False : 彙總5_dgv.Columns("貢獻度-年").Visible = False
|
581
|
590
|
廣告_tb.Font = New System.Drawing.Font("標楷體", 9.75, FontStyle.Bold)
|
582
|
591
|
ElseIf 顯日_ch.Checked = False And 顯周_ch.Checked = True And 顯月_ch.Checked = False And 顯年_ch.Checked = True Then
|
583
|
|
- 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
|
584
|
|
- A2_P.Location = New System.Drawing.Point(215, 2) : A4_P.Location = New System.Drawing.Point(397, 2)
|
|
592
|
+ 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
|
|
593
|
+ A2_P.Location = New System.Drawing.Point(ASD(1), 2) : A4_P.Location = New System.Drawing.Point(ASD(3), 2)
|
585
|
594
|
彙總5_dgv.Columns("貢獻度-日").Visible = False : 彙總5_dgv.Columns("結果-日").Visible = False : 彙總5_dgv.Columns("貢獻度-周").Visible = True
|
586
|
595
|
彙總5_dgv.Columns("結果-周").Visible = True : 彙總5_dgv.Columns("貢獻度-月").Visible = False : 彙總5_dgv.Columns("結果-月").Visible = False
|
587
|
596
|
彙總5_dgv.Columns("結果-年").Visible = True : 彙總5_dgv.Columns("貢獻度-年").Visible = True
|
588
|
597
|
廣告_tb.Font = New System.Drawing.Font("標楷體", 9.75, FontStyle.Bold)
|
589
|
598
|
ElseIf 顯日_ch.Checked = False And 顯周_ch.Checked = False And 顯月_ch.Checked = True And 顯年_ch.Checked = True Then
|
590
|
|
- 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
|
591
|
|
- A3_P.Location = New System.Drawing.Point(215, 2) : A4_P.Location = New System.Drawing.Point(397, 2)
|
|
599
|
+ 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
|
|
600
|
+ A3_P.Location = New System.Drawing.Point(ASD(1), 2) : A4_P.Location = New System.Drawing.Point(ASD(3), 2)
|
592
|
601
|
彙總5_dgv.Columns("貢獻度-日").Visible = False : 彙總5_dgv.Columns("結果-日").Visible = False : 彙總5_dgv.Columns("貢獻度-周").Visible = False
|
593
|
602
|
彙總5_dgv.Columns("結果-周").Visible = False : 彙總5_dgv.Columns("貢獻度-月").Visible = True : 彙總5_dgv.Columns("結果-月").Visible = True
|
594
|
603
|
彙總5_dgv.Columns("結果-年").Visible = True : 彙總5_dgv.Columns("貢獻度-年").Visible = True
|
595
|
604
|
廣告_tb.Font = New System.Drawing.Font("標楷體", 9.75, FontStyle.Bold)
|
596
|
605
|
ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = True And 顯月_ch.Checked = True And 顯年_ch.Checked = False Then
|
597
|
|
- 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
|
598
|
|
- 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)
|
|
606
|
+ 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
|
|
607
|
+ 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)
|
599
|
608
|
彙總5_dgv.Columns("貢獻度-日").Visible = True : 彙總5_dgv.Columns("結果-日").Visible = True : 彙總5_dgv.Columns("貢獻度-周").Visible = True
|
600
|
609
|
彙總5_dgv.Columns("結果-周").Visible = True : 彙總5_dgv.Columns("貢獻度-月").Visible = True : 彙總5_dgv.Columns("結果-月").Visible = True
|
601
|
610
|
彙總5_dgv.Columns("結果-年").Visible = False : 彙總5_dgv.Columns("貢獻度-年").Visible = False
|
602
|
611
|
廣告_tb.Font = New System.Drawing.Font("標楷體", 12.75, FontStyle.Bold)
|
603
|
612
|
ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = True And 顯月_ch.Checked = False And 顯年_ch.Checked = True Then
|
604
|
|
- 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
|
605
|
|
- 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)
|
|
613
|
+ 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
|
|
614
|
+ 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)
|
606
|
615
|
彙總5_dgv.Columns("貢獻度-日").Visible = True : 彙總5_dgv.Columns("結果-日").Visible = True : 彙總5_dgv.Columns("貢獻度-周").Visible = True
|
607
|
616
|
彙總5_dgv.Columns("結果-周").Visible = True : 彙總5_dgv.Columns("貢獻度-月").Visible = False : 彙總5_dgv.Columns("結果-月").Visible = False
|
608
|
617
|
彙總5_dgv.Columns("結果-年").Visible = True : 彙總5_dgv.Columns("貢獻度-年").Visible = True
|
609
|
618
|
廣告_tb.Font = New System.Drawing.Font("標楷體", 12.75, FontStyle.Bold)
|
610
|
619
|
ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = False And 顯月_ch.Checked = True And 顯年_ch.Checked = True Then
|
611
|
|
- 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
|
612
|
|
- 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)
|
|
620
|
+ 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
|
|
621
|
+ 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)
|
613
|
622
|
彙總5_dgv.Columns("貢獻度-日").Visible = True : 彙總5_dgv.Columns("結果-日").Visible = True : 彙總5_dgv.Columns("貢獻度-周").Visible = False
|
614
|
623
|
彙總5_dgv.Columns("結果-周").Visible = False : 彙總5_dgv.Columns("貢獻度-月").Visible = True : 彙總5_dgv.Columns("結果-月").Visible = True
|
615
|
624
|
彙總5_dgv.Columns("結果-年").Visible = True : 彙總5_dgv.Columns("貢獻度-年").Visible = True
|
616
|
625
|
廣告_tb.Font = New System.Drawing.Font("標楷體", 12.75, FontStyle.Bold)
|
617
|
626
|
ElseIf 顯日_ch.Checked = False And 顯周_ch.Checked = True And 顯月_ch.Checked = True And 顯年_ch.Checked = True Then
|
618
|
|
- 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
|
619
|
|
- 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)
|
|
627
|
+ 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
|
|
628
|
+ 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)
|
620
|
629
|
彙總5_dgv.Columns("貢獻度-日").Visible = False : 彙總5_dgv.Columns("結果-日").Visible = False : 彙總5_dgv.Columns("貢獻度-周").Visible = True
|
621
|
630
|
彙總5_dgv.Columns("結果-周").Visible = True : 彙總5_dgv.Columns("貢獻度-月").Visible = True : 彙總5_dgv.Columns("結果-月").Visible = True
|
622
|
631
|
彙總5_dgv.Columns("結果-年").Visible = True : 彙總5_dgv.Columns("貢獻度-年").Visible = True
|
623
|
632
|
廣告_tb.Font = New System.Drawing.Font("標楷體", 12.75, FontStyle.Bold)
|
624
|
633
|
ElseIf 顯日_ch.Checked = True And 顯周_ch.Checked = True And 顯月_ch.Checked = True And 顯年_ch.Checked = True Then
|
625
|
|
- 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
|
626
|
|
- A1_P.Location = New System.Drawing.Point(215, 2) : A2_P.Location = New System.Drawing.Point(397, 2)
|
627
|
|
- A3_P.Location = New System.Drawing.Point(579, 2) : A4_P.Location = New System.Drawing.Point(761, 2)
|
|
634
|
+ 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
|
|
635
|
+ A1_P.Location = New System.Drawing.Point(ASD(1), 2) : A2_P.Location = New System.Drawing.Point(ASD(3), 2)
|
|
636
|
+ A3_P.Location = New System.Drawing.Point(ASD(5), 2) : A4_P.Location = New System.Drawing.Point(ASD(7), 2)
|
628
|
637
|
彙總5_dgv.Columns("貢獻度-日").Visible = True : 彙總5_dgv.Columns("結果-日").Visible = True : 彙總5_dgv.Columns("貢獻度-周").Visible = True
|
629
|
638
|
彙總5_dgv.Columns("結果-周").Visible = True : 彙總5_dgv.Columns("貢獻度-月").Visible = True : 彙總5_dgv.Columns("結果-月").Visible = True
|
630
|
639
|
彙總5_dgv.Columns("結果-年").Visible = True : 彙總5_dgv.Columns("貢獻度-年").Visible = True
|