Nessuna descrizione
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

來客資料分析表.vb 83KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523
  1. Imports System.Windows.Forms.DataVisualization.Charting
  2. Public Class 來客資料分析表
  3. ReadOnly ds, ds1, ds2, ds3, ds4, ds5 As New DataSet
  4. Private Sub 讀取客戶資料表1()
  5. 人員2_dgv.DataSource = Nothing : ds3.Clear()
  6. 人員2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
  7. 人員2_dgv.ColumnHeadersHeight = 30
  8. 人員2_dgv.AllowUserToAddRows = False
  9. SQL_來客資料1()
  10. da.Fill(ds3) : 人員2_dgv.DataSource = ds3.Tables(0) : conn.Close()
  11. 人員2_dgv.Columns(0).FillWeight = 65 : 人員2_dgv.Columns(1).FillWeight = 65 : 人員2_dgv.Columns(2).FillWeight = 65
  12. End Sub
  13. Private Sub 讀取客戶資料表2()
  14. 人員1_dgv.DataSource = Nothing : ds2.Clear()
  15. 人員1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
  16. 人員1_dgv.ColumnHeadersHeight = 30
  17. 人員1_dgv.AllowUserToAddRows = False
  18. SQL_來客資料2()
  19. da.Fill(ds2) : 人員1_dgv.DataSource = ds2.Tables(0) : conn.Close()
  20. 人員1_dgv.Columns(0).FillWeight = 65 : 人員1_dgv.Columns(1).FillWeight = 65 : 人員1_dgv.Columns(2).FillWeight = 65 : 人員1_dgv.Columns(3).FillWeight = 45
  21. For i As Integer = 0 To 人員1_dgv.Rows.Count - 1
  22. For ii As Integer = 0 To 人員2_dgv.Rows.Count - 1
  23. If 人員1_dgv("客戶名稱", i).Value.ToString = 人員2_dgv("客戶名稱", ii).Value.ToString Then
  24. If Val(月份_cb.Text & "00") < Val(人員2_dgv("銷售日期", ii).Value.ToString) Then
  25. 人員1_dgv("新舊客", i).Value = "新客" : Exit For
  26. Else
  27. 人員1_dgv("新舊客", i).Value = "舊客" : Exit For
  28. End If
  29. End If
  30. Next
  31. Next
  32. End Sub
  33. Private Sub 讀取客戶資料表4()
  34. 人員3_dgv.DataSource = Nothing : ds4.Clear()
  35. 人員3_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
  36. 人員3_dgv.ColumnHeadersHeight = 30
  37. 人員3_dgv.AllowUserToAddRows = False
  38. SQL_來客資料4()
  39. da.Fill(ds4) : 人員3_dgv.DataSource = ds4.Tables(0) : conn.Close()
  40. 人員3_dgv.Columns(0).FillWeight = 65 : 人員3_dgv.Columns(1).FillWeight = 65
  41. End Sub
  42. Private Sub 讀取客戶資料表5()
  43. 月份分析1_dgv.DataSource = Nothing : ds5.Clear()
  44. 月份分析1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
  45. 月份分析1_dgv.ColumnHeadersHeight = 30
  46. 月份分析1_dgv.AllowUserToAddRows = False
  47. SQL_來客資料5()
  48. da.Fill(ds5) : 月份分析1_dgv.DataSource = ds5.Tables(0) : conn.Close()
  49. End Sub
  50. Private Sub 比例計算1()
  51. For ii As Integer = 0 To 月份分析_dgv.Rows.Count - 1
  52. If 月份分析_dgv("新客", ii).Value.ToString = "" Then : 月份分析_dgv("新客", ii).Value = 0 : End If
  53. If 月份分析_dgv("舊客", ii).Value.ToString = "" Then : 月份分析_dgv("舊客", ii).Value = 0 : End If
  54. If 月份分析_dgv("總來客數", ii).Value.ToString = "" Then : 月份分析_dgv("總來客數", ii).Value = 0 : End If
  55. If 月份分析_dgv("新客比", ii).Value.ToString = "" Then : 月份分析_dgv("新客比", ii).Value = 0 : End If
  56. If 月份分析_dgv("舊客比", ii).Value.ToString = "" Then : 月份分析_dgv("舊客比", ii).Value = 0 : End If
  57. For iii As Integer = 0 To 人員1_dgv.Rows.Count - 1
  58. If 月份分析_dgv("月份", ii).Value.ToString = Strings.Left(人員1_dgv("銷售日期", iii).Value.ToString, 5) Then
  59. If 人員1_dgv("新舊客", iii).Value.ToString = "新客" Then
  60. 月份分析_dgv("新客", ii).Value += 1
  61. Else
  62. 月份分析_dgv("舊客", ii).Value += 1
  63. End If
  64. End If
  65. Next
  66. 月份分析_dgv("總來客數", ii).Value = 月份分析_dgv("新客", ii).Value + 月份分析_dgv("舊客", ii).Value
  67. If Val(最高紀錄_tb.Text) < 月份分析_dgv("總來客數", ii).Value Then : 最高紀錄_tb.Text = 月份分析_dgv("總來客數", ii).Value : End If
  68. If Val(最低紀錄_tb.Text) >= 月份分析_dgv("總來客數", ii).Value Then
  69. If 月份分析_dgv("總來客數", ii).Value <> 0 Then : 最低紀錄_tb.Text = 月份分析_dgv("總來客數", ii).Value : End If
  70. End If
  71. If 月份分析_dgv("實收業績", ii).Value.ToString = "" Then : 月份分析_dgv("實收業績", ii).Value = 0 : Else
  72. If Val(實收最高_tb.Text) < 月份分析_dgv("實收業績", ii).Value Then
  73. 實收最高_tb.Text = 月份分析_dgv("實收業績", ii).Value
  74. End If
  75. If Val(實收最低_tb.Text) >= 月份分析_dgv("實收業績", ii).Value Then
  76. 實收最低_tb.Text = 月份分析_dgv("實收業績", ii).Value
  77. End If
  78. End If
  79. If 月份分析_dgv("償還業績", ii).Value.ToString = "" Then : 月份分析_dgv("償還業績", ii).Value = 0 : End If
  80. If 月份分析_dgv("總業績", ii).Value.ToString = "" Then : 月份分析_dgv("總業績", ii).Value = 0 : End If
  81. If 月份分析_dgv("總來客數", ii).Value = 0 Then : Else
  82. 月份分析_dgv("實收/客", ii).Value = Int(月份分析_dgv("實收業績", ii).Value / 月份分析_dgv("總來客數", ii).Value)
  83. 月份分析_dgv("償還/客", ii).Value = Int(月份分析_dgv("償還業績", ii).Value / 月份分析_dgv("總來客數", ii).Value)
  84. 月份分析_dgv("業績/客", ii).Value = Int(月份分析_dgv("總業績", ii).Value / 月份分析_dgv("總來客數", ii).Value)
  85. 月份分析_dgv("新客比", ii).Value = Int(月份分析_dgv("新客", ii).Value / 月份分析_dgv("總來客數", ii).Value * 100)
  86. 月份分析_dgv("舊客比", ii).Value = Int(月份分析_dgv("舊客", ii).Value / 月份分析_dgv("總來客數", ii).Value * 100)
  87. End If
  88. Next
  89. End Sub
  90. Private Sub 比例圖片1()
  91. For i As Integer = 0 To 月份_cb.Items.Count - 1
  92. 月份分析_dgv("總來客比", i).Value = Int(月份分析_dgv("總來客數", i).Value / Val(最高紀錄_tb.Text) * 100)
  93. 月份分析_dgv("業績比例", i).Value = Int(月份分析_dgv("實收業績", i).Value / Val(實收最高_tb.Text) * 100)
  94. If 月份分析_dgv.Rows(i).Cells("總來客比").Value = 0 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._000 : ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 1 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._001
  95. ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 2 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._002 : ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 3 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._003
  96. ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 4 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._004 : ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 5 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._005
  97. ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 6 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._006 : ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 7 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._007
  98. ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 8 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._008 : ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 9 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._009
  99. ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 10 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._010 : ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 11 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._011
  100. ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 12 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._012 : ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 13 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._013
  101. ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 14 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._014 : ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 15 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._015
  102. ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 16 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._016 : ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 17 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._017
  103. ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 18 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._018 : ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 19 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._019
  104. ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 20 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._020 : ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 21 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._021
  105. ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 22 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._022 : ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 23 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._023
  106. ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 24 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._024 : ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 25 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._025
  107. ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 26 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._026 : ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 27 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._027
  108. ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 28 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._028 : ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 29 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._029
  109. ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 30 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._030 : ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 31 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._031
  110. ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 32 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._032 : ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 33 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._033
  111. ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 34 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._034 : ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 35 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._035
  112. ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 36 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._036 : ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 37 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._037
  113. ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 38 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._038 : ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 39 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._039
  114. ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 40 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._040 : ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 41 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._041
  115. ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 42 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._042 : ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 43 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._043
  116. ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 44 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._044 : ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 45 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._045
  117. ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 46 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._046 : ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 47 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._047
  118. ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 48 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._048 : ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 49 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._049
  119. ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 50 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._050 : ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 51 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._051
  120. ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 52 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._052 : ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 53 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._053
  121. ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 54 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._054 : ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 55 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._055
  122. ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 56 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._056 : ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 57 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._057
  123. ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 58 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._058 : ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 59 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._059
  124. ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 60 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._060 : ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 61 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._061
  125. ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 62 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._062 : ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 63 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._063
  126. ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 64 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._064 : ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 65 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._065
  127. ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 66 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._066 : ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 67 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._067
  128. ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 68 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._068 : ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 69 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._069
  129. ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 70 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._070 : ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 71 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._071
  130. ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 72 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._072 : ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 73 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._073
  131. ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 74 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._074 : ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 75 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._075
  132. ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 76 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._076 : ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 77 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._077
  133. ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 78 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._078 : ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 79 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._079
  134. ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 80 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._080 : ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 81 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._081
  135. ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 82 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._082 : ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 83 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._083
  136. ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 84 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._084 : ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 85 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._085
  137. ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 86 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._086 : ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 87 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._087
  138. ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 88 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._088 : ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 89 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._089
  139. ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 90 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._090 : ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 91 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._091
  140. ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 92 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._092 : ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 93 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._093
  141. ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 94 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._094 : ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 95 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._095
  142. ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 96 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._096 : ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 97 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._097
  143. ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 98 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._098 : ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value = 99 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._099
  144. ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value >= 100 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._100 : End If
  145. If 月份分析_dgv.Rows(i).Cells("業績比例").Value = 0 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._000 : ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 1 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._001
  146. ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 2 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._002 : ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 3 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._003
  147. ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 4 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._004 : ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 5 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._005
  148. ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 6 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._006 : ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 7 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._007
  149. ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 8 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._008 : ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 9 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._009
  150. ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 10 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._010 : ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 11 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._011
  151. ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 12 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._012 : ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 13 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._013
  152. ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 14 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._014 : ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 15 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._015
  153. ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 16 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._016 : ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 17 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._017
  154. ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 18 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._018 : ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 19 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._019
  155. ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 20 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._020 : ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 21 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._021
  156. ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 22 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._022 : ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 23 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._023
  157. ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 24 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._024 : ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 25 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._025
  158. ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 26 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._026 : ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 27 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._027
  159. ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 28 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._028 : ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 29 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._029
  160. ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 30 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._030 : ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 31 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._031
  161. ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 32 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._032 : ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 33 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._033
  162. ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 34 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._034 : ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 35 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._035
  163. ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 36 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._036 : ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 37 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._037
  164. ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 38 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._038 : ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 39 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._039
  165. ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 40 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._040 : ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 41 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._041
  166. ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 42 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._042 : ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 43 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._043
  167. ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 44 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._044 : ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 45 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._045
  168. ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 46 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._046 : ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 47 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._047
  169. ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 48 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._048 : ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 49 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._049
  170. ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 50 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._050 : ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 51 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._051
  171. ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 52 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._052 : ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 53 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._053
  172. ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 54 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._054 : ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 55 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._055
  173. ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 56 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._056 : ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 57 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._057
  174. ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 58 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._058 : ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 59 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._059
  175. ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 60 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._060 : ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 61 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._061
  176. ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 62 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._062 : ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 63 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._063
  177. ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 64 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._064 : ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 65 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._065
  178. ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 66 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._066 : ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 67 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._067
  179. ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 68 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._068 : ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 69 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._069
  180. ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 70 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._070 : ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 71 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._071
  181. ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 72 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._072 : ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 73 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._073
  182. ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 74 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._074 : ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 75 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._075
  183. ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 76 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._076 : ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 77 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._077
  184. ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 78 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._078 : ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 79 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._079
  185. ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 80 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._080 : ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 81 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._081
  186. ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 82 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._082 : ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 83 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._083
  187. ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 84 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._084 : ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 85 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._085
  188. ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 86 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._086 : ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 87 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._087
  189. ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 88 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._088 : ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 89 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._089
  190. ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 90 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._090 : ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 91 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._091
  191. ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 92 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._092 : ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 93 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._093
  192. ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 94 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._094 : ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 95 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._095
  193. ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 96 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._096 : ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 97 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._097
  194. ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 98 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._098 : ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value = 99 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._099
  195. ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value >= 100 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._100 : End If
  196. If 月份分析_dgv.Rows(i).Cells("新客比").Value = 0 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._000 : ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 1 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._001
  197. ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 2 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._002 : ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 3 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._003
  198. ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 4 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._004 : ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 5 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._005
  199. ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 6 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._006 : ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 7 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._007
  200. ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 8 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._008 : ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 9 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._009
  201. ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 10 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._010 : ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 11 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._011
  202. ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 12 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._012 : ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 13 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._013
  203. ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 14 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._014 : ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 15 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._015
  204. ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 16 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._016 : ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 17 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._017
  205. ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 18 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._018 : ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 19 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._019
  206. ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 20 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._020 : ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 21 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._021
  207. ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 22 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._022 : ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 23 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._023
  208. ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 24 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._024 : ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 25 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._025
  209. ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 26 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._026 : ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 27 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._027
  210. ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 28 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._028 : ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 29 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._029
  211. ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 30 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._030 : ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 31 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._031
  212. ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 32 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._032 : ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 33 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._033
  213. ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 34 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._034 : ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 35 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._035
  214. ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 36 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._036 : ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 37 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._037
  215. ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 38 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._038 : ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 39 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._039
  216. ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 40 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._040 : ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 41 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._041
  217. ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 42 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._042 : ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 43 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._043
  218. ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 44 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._044 : ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 45 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._045
  219. ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 46 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._046 : ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 47 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._047
  220. ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 48 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._048 : ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 49 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._049
  221. ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 50 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._050 : ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 51 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._051
  222. ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 52 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._052 : ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 53 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._053
  223. ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 54 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._054 : ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 55 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._055
  224. ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 56 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._056 : ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 57 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._057
  225. ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 58 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._058 : ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 59 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._059
  226. ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 60 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._060 : ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 61 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._061
  227. ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 62 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._062 : ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 63 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._063
  228. ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 64 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._064 : ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 65 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._065
  229. ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 66 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._066 : ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 67 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._067
  230. ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 68 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._068 : ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 69 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._069
  231. ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 70 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._070 : ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 71 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._071
  232. ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 72 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._072 : ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 73 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._073
  233. ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 74 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._074 : ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 75 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._075
  234. ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 76 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._076 : ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 77 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._077
  235. ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 78 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._078 : ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 79 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._079
  236. ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 80 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._080 : ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 81 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._081
  237. ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 82 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._082 : ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 83 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._083
  238. ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 84 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._084 : ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 85 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._085
  239. ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 86 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._086 : ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 87 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._087
  240. ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 88 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._088 : ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 89 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._089
  241. ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 90 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._090 : ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 91 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._091
  242. ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 92 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._092 : ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 93 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._093
  243. ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 94 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._094 : ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 95 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._095
  244. ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 96 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._096 : ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 97 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._097
  245. ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 98 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._098 : ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value = 99 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._099
  246. ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value >= 100 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._100 : End If
  247. If 月份分析_dgv.Rows(i).Cells("舊客比").Value = 0 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._000 : ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 1 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._001
  248. ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 2 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._002 : ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 3 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._003
  249. ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 4 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._004 : ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 5 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._005
  250. ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 6 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._006 : ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 7 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._007
  251. ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 8 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._008 : ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 9 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._009
  252. ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 10 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._010 : ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 11 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._011
  253. ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 12 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._012 : ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 13 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._013
  254. ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 14 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._014 : ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 15 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._015
  255. ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 16 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._016 : ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 17 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._017
  256. ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 18 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._018 : ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 19 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._019
  257. ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 20 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._020 : ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 21 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._021
  258. ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 22 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._022 : ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 23 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._023
  259. ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 24 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._024 : ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 25 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._025
  260. ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 26 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._026 : ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 27 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._027
  261. ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 28 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._028 : ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 29 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._029
  262. ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 30 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._030 : ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 31 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._031
  263. ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 32 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._032 : ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 33 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._033
  264. ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 34 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._034 : ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 35 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._035
  265. ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 36 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._036 : ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 37 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._037
  266. ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 38 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._038 : ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 39 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._039
  267. ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 40 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._040 : ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 41 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._041
  268. ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 42 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._042 : ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 43 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._043
  269. ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 44 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._044 : ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 45 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._045
  270. ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 46 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._046 : ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 47 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._047
  271. ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 48 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._048 : ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 49 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._049
  272. ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 50 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._050 : ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 51 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._051
  273. ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 52 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._052 : ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 53 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._053
  274. ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 54 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._054 : ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 55 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._055
  275. ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 56 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._056 : ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 57 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._057
  276. ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 58 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._058 : ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 59 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._059
  277. ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 60 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._060 : ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 61 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._061
  278. ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 62 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._062 : ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 63 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._063
  279. ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 64 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._064 : ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 65 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._065
  280. ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 66 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._066 : ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 67 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._067
  281. ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 68 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._068 : ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 69 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._069
  282. ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 70 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._070 : ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 71 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._071
  283. ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 72 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._072 : ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 73 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._073
  284. ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 74 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._074 : ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 75 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._075
  285. ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 76 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._076 : ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 77 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._077
  286. ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 78 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._078 : ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 79 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._079
  287. ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 80 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._080 : ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 81 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._081
  288. ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 82 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._082 : ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 83 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._083
  289. ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 84 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._084 : ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 85 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._085
  290. ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 86 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._086 : ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 87 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._087
  291. ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 88 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._088 : ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 89 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._089
  292. ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 90 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._090 : ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 91 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._091
  293. ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 92 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._092 : ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 93 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._093
  294. ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 94 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._094 : ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 95 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._095
  295. ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 96 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._096 : ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 97 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._097
  296. ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 98 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._098 : ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value = 99 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._099
  297. ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value >= 100 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._100 : End If
  298. Next
  299. End Sub
  300. Private Sub 讀取客戶資料表3()
  301. 讀取客戶資料表5()
  302. 月份分析_dgv.DataSource = Nothing : ds1.Clear()
  303. 月份分析_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
  304. 月份分析_dgv.ColumnHeadersHeight = 30
  305. 月份分析_dgv.AllowUserToAddRows = False
  306. SQL_來客資料3()
  307. da.Fill(ds1) : 月份分析_dgv.DataSource = ds1.Tables(0) : conn.Close()
  308. 月份分析_dgv.Columns(0).FillWeight = 40 : 月份分析_dgv.Columns(1).FillWeight = 30 : 月份分析_dgv.Columns(2).Visible = False : 月份分析_dgv.Columns(3).FillWeight = 40
  309. 月份分析_dgv.Columns(4).FillWeight = 30 : 月份分析_dgv.Columns(5).Visible = False : 月份分析_dgv.Columns(6).FillWeight = 40 : 月份分析_dgv.Columns(7).FillWeight = 40
  310. 月份分析_dgv.Columns(8).Visible = False : 月份分析_dgv.Columns(9).FillWeight = 40 : 月份分析_dgv.Columns(10).FillWeight = 50 : 月份分析_dgv.Columns(11).FillWeight = 40
  311. 月份分析_dgv.Columns(12).FillWeight = 40 : 月份分析_dgv.Columns(13).FillWeight = 50 : 月份分析_dgv.Columns(14).FillWeight = 40 : 月份分析_dgv.Columns(15).FillWeight = 50
  312. 月份分析_dgv.Columns(16).FillWeight = 40 : 月份分析_dgv.Columns(17).Visible = False
  313. 月份分析_dgv.Columns(10).DefaultCellStyle.Format = "#,##0" : 月份分析_dgv.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
  314. For i As Integer = 12 To 16
  315. 月份分析_dgv.Columns(i).DefaultCellStyle.Format = "#,##0" : 月份分析_dgv.Columns(i).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
  316. Next
  317. If 月份分析_dgv.Rows.Count = 月份分析1_dgv.Rows.Count Then
  318. 月份分析_dgv.DataSource = Nothing : ds1.Clear()
  319. 月份分析_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
  320. 月份分析_dgv.ColumnHeadersHeight = 30
  321. 月份分析_dgv.AllowUserToAddRows = False
  322. SQL_來客資料5()
  323. da.Fill(ds1) : 月份分析_dgv.DataSource = ds1.Tables(0) : conn.Close()
  324. 月份分析_dgv.Columns(0).FillWeight = 40 : 月份分析_dgv.Columns(1).FillWeight = 30 : 月份分析_dgv.Columns(2).Visible = False : 月份分析_dgv.Columns(3).FillWeight = 40
  325. 月份分析_dgv.Columns(4).FillWeight = 30 : 月份分析_dgv.Columns(5).Visible = False : 月份分析_dgv.Columns(6).FillWeight = 40 : 月份分析_dgv.Columns(7).FillWeight = 40
  326. 月份分析_dgv.Columns(8).Visible = False : 月份分析_dgv.Columns(9).FillWeight = 40 : 月份分析_dgv.Columns(10).FillWeight = 50 : 月份分析_dgv.Columns(11).FillWeight = 40
  327. 月份分析_dgv.Columns(12).FillWeight = 40 : 月份分析_dgv.Columns(13).FillWeight = 50 : 月份分析_dgv.Columns(14).FillWeight = 40 : 月份分析_dgv.Columns(15).FillWeight = 50
  328. 月份分析_dgv.Columns(16).FillWeight = 40 : 月份分析_dgv.Columns(17).Visible = False
  329. 月份分析_dgv.Columns(10).DefaultCellStyle.Format = "#,##0" : 月份分析_dgv.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
  330. For i As Integer = 12 To 16
  331. 月份分析_dgv.Columns(i).DefaultCellStyle.Format = "#,##0" : 月份分析_dgv.Columns(i).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
  332. Next
  333. 比例計算1() : 比例圖片1()
  334. Else
  335. For i As Integer = 0 To 月份_cb.Items.Count - 1
  336. 資料數 = 月份_cb.Items.Count : MyModule1.進度條()
  337. 月份_cb.SelectedIndex = i
  338. 比例計算1()
  339. Next : GRAMS_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
  340. 比例圖片1() : MsgBox("資料需要存檔")
  341. End If
  342. End Sub
  343. Private Sub SET_使用者下拉清單載入()
  344. SQL_客戶交易明細表_月份() : 月份_cb.Items.Clear()
  345. While (dr.Read()) : 月份_cb.Items.Add(dr("月份")) : End While : conn.Close()
  346. End Sub
  347. Private Sub SET_彙總計算()
  348. 累計客數_tb.Text = 人員3_dgv.Rows.Count : 月份數_tb.Text = 月份分析_dgv.Rows.Count
  349. Dim A107, A108, A109, A110, Ap As Integer
  350. For i As Integer = 0 To 月份分析_dgv.Rows.Count - 1
  351. 新_tb.Text = Val(新_tb.Text) + 月份分析_dgv.Rows(i).Cells("新客").Value
  352. 舊_tb.Text = Val(舊_tb.Text) + 月份分析_dgv.Rows(i).Cells("舊客").Value
  353. 平_tb.Text = Val(平_tb.Text) + 月份分析_dgv.Rows(i).Cells("總來客數").Value
  354. 實月_tb.Text = (Val(實月_tb.Text) + 月份分析_dgv.Rows(i).Cells("實收業績").Value)
  355. Ap += 月份分析_dgv.Rows(i).Cells("總來客數").Value
  356. If Strings.Left(月份分析_dgv.Rows(i).Cells("月份").Value, 3) = "107" Then
  357. A107 += 1
  358. 新107_tb.Text = Val(新107_tb.Text) + 月份分析_dgv.Rows(i).Cells("新客").Value : 舊107_tb.Text = Val(舊107_tb.Text) + 月份分析_dgv.Rows(i).Cells("舊客").Value
  359. 平107.Text = Val(平107.Text) + 月份分析_dgv.Rows(i).Cells("總來客數").Value : 實月107.Text = Val(實月107.Text) + 月份分析_dgv.Rows(i).Cells("實收業績").Value
  360. 實人107_tb.Text = Val(實人107_tb.Text) + 月份分析_dgv.Rows(i).Cells("總來客數").Value
  361. End If
  362. If Strings.Left(月份分析_dgv.Rows(i).Cells("月份").Value, 3) = "108" Then
  363. A108 += 1
  364. 新108_tb.Text = Val(新108_tb.Text) + 月份分析_dgv.Rows(i).Cells("新客").Value : 舊108_tb.Text = Val(舊108_tb.Text) + 月份分析_dgv.Rows(i).Cells("舊客").Value
  365. 平108.Text = Val(平108.Text) + 月份分析_dgv.Rows(i).Cells("總來客數").Value : 實月108.Text = Val(實月108.Text) + 月份分析_dgv.Rows(i).Cells("實收業績").Value
  366. 實人108_tb.Text = Val(實人108_tb.Text) + 月份分析_dgv.Rows(i).Cells("總來客數").Value
  367. End If
  368. If Strings.Left(月份分析_dgv.Rows(i).Cells("月份").Value, 3) = "109" Then
  369. A109 += 1
  370. 新109_tb.Text = Val(新109_tb.Text) + 月份分析_dgv.Rows(i).Cells("新客").Value : 舊109_tb.Text = Val(舊109_tb.Text) + 月份分析_dgv.Rows(i).Cells("舊客").Value
  371. 平109.Text = Val(平109.Text) + 月份分析_dgv.Rows(i).Cells("總來客數").Value : 實月109.Text = Val(實月109.Text) + 月份分析_dgv.Rows(i).Cells("實收業績").Value
  372. 實人109_tb.Text = Val(實人109_tb.Text) + 月份分析_dgv.Rows(i).Cells("總來客數").Value
  373. End If
  374. If Strings.Left(月份分析_dgv.Rows(i).Cells("月份").Value, 3) = "110" Then
  375. A110 += 1
  376. 新110_tb.Text = Val(新110_tb.Text) + 月份分析_dgv.Rows(i).Cells("新客").Value : 舊110_tb.Text = Val(舊110_tb.Text) + 月份分析_dgv.Rows(i).Cells("舊客").Value
  377. 平110.Text = Val(平110.Text) + 月份分析_dgv.Rows(i).Cells("總來客數").Value : 實月110.Text = Val(實月110.Text) + 月份分析_dgv.Rows(i).Cells("實收業績").Value
  378. 實人110_tb.Text = Val(實人110_tb.Text) + 月份分析_dgv.Rows(i).Cells("總來客數").Value
  379. End If
  380. Next
  381. 累計客數_tb.Text = Format(Val(累計客數_tb.Text), "#,##0") : 實收最高_tb.Text = Format(Val(實收最高_tb.Text), "#,##0") : 實收最低_tb.Text = Format(Val(實收最低_tb.Text), "#,##0")
  382. 新_tb.Text = Format(Val(新_tb.Text) / Val(月份數_tb.Text), "#,##0") : 舊_tb.Text = Format(Val(舊_tb.Text) / Val(月份數_tb.Text), "#,##0")
  383. 平_tb.Text = Format(Val(平_tb.Text) / Val(月份數_tb.Text), "#,##0") : 實人_tb.Text = Format(Val(實月_tb.Text) / Ap, "#,##0")
  384. 實月_tb.Text = Format(Val(實月_tb.Text) / Val(月份數_tb.Text), "#,##0")
  385. 新107_tb.Text = Format(Val(新107_tb.Text) / A107, "#,##0") : 舊107_tb.Text = Format(Val(舊107_tb.Text) / A107, "#,##0") : 平107.Text = Format(Val(平107.Text) / A107, "#,##0")
  386. 實人107_tb.Text = Format(Val(實月107.Text) / (實人107_tb.Text), "#,##0") : 實月107.Text = Format(Val(實月107.Text) / A107, "#,##0")
  387. 新108_tb.Text = Format(Val(新108_tb.Text) / A108, "#,##0") : 舊108_tb.Text = Format(Val(舊108_tb.Text) / A108, "#,##0") : 平108.Text = Format(Val(平108.Text) / A108, "#,##0")
  388. 實人108_tb.Text = Format(Val(實月108.Text) / (實人108_tb.Text), "#,##0") : 實月108.Text = Format(Val(實月108.Text) / A108, "#,##0")
  389. 新109_tb.Text = Format(Val(新109_tb.Text) / A109, "#,##0") : 舊109_tb.Text = Format(Val(舊109_tb.Text) / A109, "#,##0") : 平109.Text = Format(Val(平109.Text) / A109, "#,##0")
  390. 實人109_tb.Text = Format(Val(實月109.Text) / (實人109_tb.Text), "#,##0") : 實月109.Text = Format(Val(實月109.Text) / A109, "#,##0")
  391. 新110_tb.Text = Format(Val(新110_tb.Text) / A110, "#,##0") : 舊110_tb.Text = Format(Val(舊110_tb.Text) / A110, "#,##0") : 平110.Text = Format(Val(平110.Text) / A110, "#,##0")
  392. 實人110_tb.Text = Format(Val(實月110.Text) / (實人110_tb.Text), "#,##0") : 實月110.Text = Format(Val(實月110.Text) / A110, "#,##0")
  393. End Sub
  394. Private Sub 來客資料分析表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  395. Me.MdiParent = GRAMS_SYS : Me.WindowState = 2 : Me.AutoScroll = True
  396. 讀取客戶資料表1() : SET_使用者下拉清單載入() : 讀取客戶資料表3() : 讀取客戶資料表4()
  397. SET_彙總計算() : 表格繪製1() : 表格繪製2() : 表格繪製3() : 表格繪製4()
  398. End Sub
  399. Private Sub 最小_NUD_ValueChanged(sender As Object, e As EventArgs) Handles 最小_NUD.ValueChanged
  400. 表格繪製1() : 表格繪製2()
  401. End Sub
  402. Private Sub 最大_NUD_ValueChanged(sender As Object, e As EventArgs) Handles 最大_NUD.ValueChanged
  403. 表格繪製1() : 表格繪製2()
  404. End Sub
  405. Private Sub 存檔_tb_Click(sender As Object, e As EventArgs) Handles 存檔_tb.Click
  406. SQL_來客資料_刪除()
  407. For I As Integer = 0 To 月份分析_dgv.Rows.Count - 1
  408. PA = 月份分析_dgv.Rows(I).Cells("月份").Value : PA1 = 月份分析_dgv.Rows(I).Cells("新客").Value : PA2 = 月份分析_dgv.Rows(I).Cells("新客比").Value
  409. PA3 = 月份分析_dgv.Rows(I).Cells("舊客").Value : PA4 = 月份分析_dgv.Rows(I).Cells("舊客比").Value : PA5 = 月份分析_dgv.Rows(I).Cells("總來客數").Value
  410. PA6 = 月份分析_dgv.Rows(I).Cells("總來客比").Value
  411. SQL_來客資料_新增()
  412. Next
  413. MsgBox("存檔完成!!!")
  414. End Sub
  415. Private Sub 重新讀取_tb_Click(sender As Object, e As EventArgs) Handles 重新讀取_tb.Click
  416. 月份分析_dgv.DataSource = Nothing : ds1.Clear()
  417. 月份分析_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
  418. 月份分析_dgv.ColumnHeadersHeight = 30
  419. 月份分析_dgv.AllowUserToAddRows = False
  420. SQL_來客資料3()
  421. da.Fill(ds1) : 月份分析_dgv.DataSource = ds1.Tables(0) : conn.Close()
  422. 月份分析_dgv.Columns(0).FillWeight = 40 : 月份分析_dgv.Columns(1).FillWeight = 30 : 月份分析_dgv.Columns(2).Visible = False : 月份分析_dgv.Columns(3).FillWeight = 40
  423. 月份分析_dgv.Columns(4).FillWeight = 30 : 月份分析_dgv.Columns(5).Visible = False : 月份分析_dgv.Columns(6).FillWeight = 40 : 月份分析_dgv.Columns(7).FillWeight = 40
  424. 月份分析_dgv.Columns(8).Visible = False : 月份分析_dgv.Columns(9).FillWeight = 40 : 月份分析_dgv.Columns(10).FillWeight = 50 : 月份分析_dgv.Columns(11).FillWeight = 40
  425. 月份分析_dgv.Columns(12).FillWeight = 40 : 月份分析_dgv.Columns(13).FillWeight = 50 : 月份分析_dgv.Columns(14).FillWeight = 40 : 月份分析_dgv.Columns(15).FillWeight = 50
  426. 月份分析_dgv.Columns(16).FillWeight = 40 : 月份分析_dgv.Columns(17).Visible = False
  427. 月份分析_dgv.Columns(10).DefaultCellStyle.Format = "#,##0" : 月份分析_dgv.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
  428. For i As Integer = 12 To 16
  429. 月份分析_dgv.Columns(i).DefaultCellStyle.Format = "#,##0" : 月份分析_dgv.Columns(i).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
  430. Next
  431. For i As Integer = 0 To 月份_cb.Items.Count - 1
  432. 資料數 = 月份_cb.Items.Count : MyModule1.進度條()
  433. 月份_cb.SelectedIndex = i
  434. 比例計算1()
  435. Next : GRAMS_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
  436. 比例圖片1() : SET_彙總計算() : 表格繪製1() : 表格繪製2() : 表格繪製3() : 表格繪製4()
  437. End Sub
  438. Private Sub 數列_NUD_ValueChanged(sender As Object, e As EventArgs) Handles 數列_NUD.ValueChanged
  439. 最大_NUD.Value = 數列_NUD.Value + 1
  440. End Sub
  441. Private Sub 表格繪製1()
  442. '-------線狀圖------------------------------------------------------
  443. Chart2.Series.Clear() : Chart2.ChartAreas(0).AxisX.Minimum = 最小_NUD.Value : Chart2.ChartAreas(0).AxisX.Maximum = 最大_NUD.Value
  444. Chart2.Series.Add("總來客數") : Chart2.Series("總來客數").ChartType = SeriesChartType.Line : Chart2.Series("總來客數").IsVisibleInLegend = False
  445. Dim NUDAA As Integer
  446. If 數列_NUD.Value >= 月份分析_dgv.Rows.Count - 1 Or 數列_NUD.Value = 0 Then : NUDAA = 月份分析_dgv.Rows.Count - 1
  447. ElseIf 數列_NUD.Value < 月份分析_dgv.Rows.Count - 1 Then : NUDAA = 數列_NUD.Value : End If
  448. For i As Integer = 0 To NUDAA
  449. Chart2.Series("總來客數").Points.AddXY(月份分析_dgv.Rows(NUDAA - i).Cells("月份").Value.ToString, 月份分析_dgv.Rows(NUDAA - i).Cells("總來客數").Value.ToString)
  450. Next
  451. End Sub
  452. Private Sub 表格繪製2()
  453. '-------線狀圖------------------------------------------------------
  454. Chart1.Series.Clear() : Chart1.ChartAreas(0).AxisX.Minimum = 最小_NUD.Value : Chart1.ChartAreas(0).AxisX.Maximum = 最大_NUD.Value
  455. Chart1.Series.Add("實收業績") : Chart1.Series("實收業績").ChartType = SeriesChartType.Line : Chart1.Series("實收業績").IsVisibleInLegend = False
  456. Dim NUDAA As Integer
  457. If 數列_NUD.Value >= 月份分析_dgv.Rows.Count - 1 Or 數列_NUD.Value = 0 Then : NUDAA = 月份分析_dgv.Rows.Count - 1
  458. ElseIf 數列_NUD.Value < 月份分析_dgv.Rows.Count - 1 Then : NUDAA = 數列_NUD.Value : End If
  459. For i As Integer = 0 To NUDAA
  460. Chart1.Series("實收業績").Points.AddXY(月份分析_dgv.Rows(NUDAA - i).Cells("月份").Value.ToString, 月份分析_dgv.Rows(NUDAA - i).Cells("實收業績").Value.ToString)
  461. Next
  462. End Sub
  463. Private Sub 表格繪製3()
  464. '-------線狀圖------------------------------------------------------
  465. Chart3.Series.Clear()
  466. Chart3.Series.Add("資料1") : Chart3.Series("資料1").ChartType = SeriesChartType.Bar : Chart3.Series("資料1").IsVisibleInLegend = False
  467. Dim WW As Integer = 20
  468. For i As Integer = 107 To 127
  469. Dim LS As Label = CType(Me.Controls.Find("L" + (i + WW).ToString(), True)(0), Label)
  470. Dim 平S As TextBox = CType(Me.Controls.Find("平" + (i + WW).ToString(), True)(0), TextBox)
  471. Chart3.Series("資料1").Points.AddXY(LS.Text, 平S.Text)
  472. WW -= 2
  473. Next
  474. End Sub
  475. Private Sub 表格繪製4()
  476. '-------線狀圖------------------------------------------------------
  477. Chart4.Series.Clear()
  478. Chart4.Series.Add("資料1") : Chart4.Series("資料1").ChartType = SeriesChartType.Bar : Chart4.Series("資料1").IsVisibleInLegend = False
  479. Dim WW As Integer = 20
  480. For i As Integer = 107 To 127
  481. Dim LS As Label = CType(Me.Controls.Find("L" + (i + WW).ToString(), True)(0), Label)
  482. Dim 實月S As TextBox = CType(Me.Controls.Find("實月" + (i + WW).ToString(), True)(0), TextBox)
  483. Chart4.Series("資料1").Points.AddXY(LS.Text, 實月S.Text)
  484. WW -= 2
  485. Next
  486. End Sub
  487. Private Sub 月份分析_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 月份分析_dgv.RowPostPaint
  488. Dim linePen As New Pen(Color.Blue, 2)
  489. If e.RowIndex = 月份分析_dgv.Rows.Count - 1 Then
  490. Exit Sub
  491. Else
  492. If Strings.Left(月份分析_dgv(0, e.RowIndex).Value.ToString, 3) <> Strings.Left(月份分析_dgv(0, e.RowIndex + 1).Value.ToString, 3) Then
  493. Dim startX As Integer = IIf(月份分析_dgv.RowHeadersVisible, 月份分析_dgv.RowHeadersWidth, 0)
  494. Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
  495. Dim endX As Integer = startX + 月份分析_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 月份分析_dgv.HorizontalScrollingOffset
  496. e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
  497. Exit Sub
  498. End If
  499. End If
  500. End Sub
  501. Private Sub 月份_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 月份_cb.SelectedIndexChanged
  502. 讀取客戶資料表2()
  503. End Sub
  504. End Class