123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523 |
- Imports System.Windows.Forms.DataVisualization.Charting
- Public Class 來客資料分析表
- ReadOnly ds, ds1, ds2, ds3, ds4, ds5 As New DataSet
- Private Sub 讀取客戶資料表1()
- 人員2_dgv.DataSource = Nothing : ds3.Clear()
- 人員2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- 人員2_dgv.ColumnHeadersHeight = 30
- 人員2_dgv.AllowUserToAddRows = False
- SQL_來客資料1()
- da.Fill(ds3) : 人員2_dgv.DataSource = ds3.Tables(0) : conn.Close()
- 人員2_dgv.Columns(0).FillWeight = 65 : 人員2_dgv.Columns(1).FillWeight = 65 : 人員2_dgv.Columns(2).FillWeight = 65
- End Sub
- Private Sub 讀取客戶資料表2()
- 人員1_dgv.DataSource = Nothing : ds2.Clear()
- 人員1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- 人員1_dgv.ColumnHeadersHeight = 30
- 人員1_dgv.AllowUserToAddRows = False
- SQL_來客資料2()
- da.Fill(ds2) : 人員1_dgv.DataSource = ds2.Tables(0) : conn.Close()
- 人員1_dgv.Columns(0).FillWeight = 65 : 人員1_dgv.Columns(1).FillWeight = 65 : 人員1_dgv.Columns(2).FillWeight = 65 : 人員1_dgv.Columns(3).FillWeight = 45
- For i As Integer = 0 To 人員1_dgv.Rows.Count - 1
- For ii As Integer = 0 To 人員2_dgv.Rows.Count - 1
- If 人員1_dgv("客戶名稱", i).Value.ToString = 人員2_dgv("客戶名稱", ii).Value.ToString Then
- If Val(月份_cb.Text & "00") < Val(人員2_dgv("銷售日期", ii).Value.ToString) Then
- 人員1_dgv("新舊客", i).Value = "新客" : Exit For
- Else
- 人員1_dgv("新舊客", i).Value = "舊客" : Exit For
- End If
- End If
- Next
- Next
- End Sub
- Private Sub 讀取客戶資料表4()
- 人員3_dgv.DataSource = Nothing : ds4.Clear()
- 人員3_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- 人員3_dgv.ColumnHeadersHeight = 30
- 人員3_dgv.AllowUserToAddRows = False
- SQL_來客資料4()
- da.Fill(ds4) : 人員3_dgv.DataSource = ds4.Tables(0) : conn.Close()
- 人員3_dgv.Columns(0).FillWeight = 65 : 人員3_dgv.Columns(1).FillWeight = 65
- End Sub
- Private Sub 讀取客戶資料表5()
- 月份分析1_dgv.DataSource = Nothing : ds5.Clear()
- 月份分析1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- 月份分析1_dgv.ColumnHeadersHeight = 30
- 月份分析1_dgv.AllowUserToAddRows = False
- SQL_來客資料5()
- da.Fill(ds5) : 月份分析1_dgv.DataSource = ds5.Tables(0) : conn.Close()
- End Sub
- Private Sub 比例計算1()
- For ii As Integer = 0 To 月份分析_dgv.Rows.Count - 1
- If 月份分析_dgv("新客", ii).Value.ToString = "" Then : 月份分析_dgv("新客", ii).Value = 0 : End If
- If 月份分析_dgv("舊客", ii).Value.ToString = "" Then : 月份分析_dgv("舊客", ii).Value = 0 : End If
- If 月份分析_dgv("總來客數", ii).Value.ToString = "" Then : 月份分析_dgv("總來客數", ii).Value = 0 : End If
- If 月份分析_dgv("新客比", ii).Value.ToString = "" Then : 月份分析_dgv("新客比", ii).Value = 0 : End If
- If 月份分析_dgv("舊客比", ii).Value.ToString = "" Then : 月份分析_dgv("舊客比", ii).Value = 0 : End If
- For iii As Integer = 0 To 人員1_dgv.Rows.Count - 1
- If 月份分析_dgv("月份", ii).Value.ToString = Strings.Left(人員1_dgv("銷售日期", iii).Value.ToString, 5) Then
- If 人員1_dgv("新舊客", iii).Value.ToString = "新客" Then
- 月份分析_dgv("新客", ii).Value += 1
- Else
- 月份分析_dgv("舊客", ii).Value += 1
- End If
- End If
- Next
- 月份分析_dgv("總來客數", ii).Value = 月份分析_dgv("新客", ii).Value + 月份分析_dgv("舊客", ii).Value
-
- If Val(最高紀錄_tb.Text) < 月份分析_dgv("總來客數", ii).Value Then : 最高紀錄_tb.Text = 月份分析_dgv("總來客數", ii).Value : End If
- If Val(最低紀錄_tb.Text) >= 月份分析_dgv("總來客數", ii).Value Then
- If 月份分析_dgv("總來客數", ii).Value <> 0 Then : 最低紀錄_tb.Text = 月份分析_dgv("總來客數", ii).Value : End If
- End If
- If 月份分析_dgv("實收業績", ii).Value.ToString = "" Then : 月份分析_dgv("實收業績", ii).Value = 0 : Else
- If Val(實收最高_tb.Text) < 月份分析_dgv("實收業績", ii).Value Then
- 實收最高_tb.Text = 月份分析_dgv("實收業績", ii).Value
- End If
- If Val(實收最低_tb.Text) >= 月份分析_dgv("實收業績", ii).Value Then
- 實收最低_tb.Text = 月份分析_dgv("實收業績", ii).Value
- End If
- End If
- If 月份分析_dgv("償還業績", ii).Value.ToString = "" Then : 月份分析_dgv("償還業績", ii).Value = 0 : End If
- If 月份分析_dgv("總業績", ii).Value.ToString = "" Then : 月份分析_dgv("總業績", ii).Value = 0 : End If
-
- If 月份分析_dgv("總來客數", ii).Value = 0 Then : Else
- 月份分析_dgv("實收/客", ii).Value = Int(月份分析_dgv("實收業績", ii).Value / 月份分析_dgv("總來客數", ii).Value)
- 月份分析_dgv("償還/客", ii).Value = Int(月份分析_dgv("償還業績", ii).Value / 月份分析_dgv("總來客數", ii).Value)
- 月份分析_dgv("業績/客", ii).Value = Int(月份分析_dgv("總業績", ii).Value / 月份分析_dgv("總來客數", ii).Value)
- 月份分析_dgv("新客比", ii).Value = Int(月份分析_dgv("新客", ii).Value / 月份分析_dgv("總來客數", ii).Value * 100)
- 月份分析_dgv("舊客比", ii).Value = Int(月份分析_dgv("舊客", ii).Value / 月份分析_dgv("總來客數", ii).Value * 100)
- End If
- Next
- End Sub
- Private Sub 比例圖片1()
- For i As Integer = 0 To 月份_cb.Items.Count - 1
- 月份分析_dgv("總來客比", i).Value = Int(月份分析_dgv("總來客數", i).Value / Val(最高紀錄_tb.Text) * 100)
- 月份分析_dgv("業績比例", i).Value = Int(月份分析_dgv("實收業績", i).Value / Val(實收最高_tb.Text) * 100)
-
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- ElseIf 月份分析_dgv.Rows(i).Cells("總來客比").Value >= 100 Then : 月份分析_dgv.Rows(i).Cells("來客情況").Value = My.Resources._100 : End If
-
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- ElseIf 月份分析_dgv.Rows(i).Cells("業績比例").Value >= 100 Then : 月份分析_dgv.Rows(i).Cells("業績比").Value = My.Resources._100 : End If
-
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- ElseIf 月份分析_dgv.Rows(i).Cells("新客比").Value >= 100 Then : 月份分析_dgv.Rows(i).Cells("新客比例").Value = My.Resources._100 : End If
-
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- 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
- ElseIf 月份分析_dgv.Rows(i).Cells("舊客比").Value >= 100 Then : 月份分析_dgv.Rows(i).Cells("舊客比例").Value = My.Resources._100 : End If
- Next
- End Sub
- Private Sub 讀取客戶資料表3()
- 讀取客戶資料表5()
- 月份分析_dgv.DataSource = Nothing : ds1.Clear()
- 月份分析_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- 月份分析_dgv.ColumnHeadersHeight = 30
- 月份分析_dgv.AllowUserToAddRows = False
- SQL_來客資料3()
- da.Fill(ds1) : 月份分析_dgv.DataSource = ds1.Tables(0) : conn.Close()
-
- 月份分析_dgv.Columns(0).FillWeight = 40 : 月份分析_dgv.Columns(1).FillWeight = 30 : 月份分析_dgv.Columns(2).Visible = False : 月份分析_dgv.Columns(3).FillWeight = 40
- 月份分析_dgv.Columns(4).FillWeight = 30 : 月份分析_dgv.Columns(5).Visible = False : 月份分析_dgv.Columns(6).FillWeight = 40 : 月份分析_dgv.Columns(7).FillWeight = 40
- 月份分析_dgv.Columns(8).Visible = False : 月份分析_dgv.Columns(9).FillWeight = 40 : 月份分析_dgv.Columns(10).FillWeight = 50 : 月份分析_dgv.Columns(11).FillWeight = 40
- 月份分析_dgv.Columns(12).FillWeight = 40 : 月份分析_dgv.Columns(13).FillWeight = 50 : 月份分析_dgv.Columns(14).FillWeight = 40 : 月份分析_dgv.Columns(15).FillWeight = 50
- 月份分析_dgv.Columns(16).FillWeight = 40 : 月份分析_dgv.Columns(17).Visible = False
-
- 月份分析_dgv.Columns(10).DefaultCellStyle.Format = "#,##0" : 月份分析_dgv.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
- For i As Integer = 12 To 16
- 月份分析_dgv.Columns(i).DefaultCellStyle.Format = "#,##0" : 月份分析_dgv.Columns(i).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
- Next
-
- If 月份分析_dgv.Rows.Count = 月份分析1_dgv.Rows.Count Then
- 月份分析_dgv.DataSource = Nothing : ds1.Clear()
- 月份分析_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- 月份分析_dgv.ColumnHeadersHeight = 30
- 月份分析_dgv.AllowUserToAddRows = False
- SQL_來客資料5()
- da.Fill(ds1) : 月份分析_dgv.DataSource = ds1.Tables(0) : conn.Close()
-
- 月份分析_dgv.Columns(0).FillWeight = 40 : 月份分析_dgv.Columns(1).FillWeight = 30 : 月份分析_dgv.Columns(2).Visible = False : 月份分析_dgv.Columns(3).FillWeight = 40
- 月份分析_dgv.Columns(4).FillWeight = 30 : 月份分析_dgv.Columns(5).Visible = False : 月份分析_dgv.Columns(6).FillWeight = 40 : 月份分析_dgv.Columns(7).FillWeight = 40
- 月份分析_dgv.Columns(8).Visible = False : 月份分析_dgv.Columns(9).FillWeight = 40 : 月份分析_dgv.Columns(10).FillWeight = 50 : 月份分析_dgv.Columns(11).FillWeight = 40
- 月份分析_dgv.Columns(12).FillWeight = 40 : 月份分析_dgv.Columns(13).FillWeight = 50 : 月份分析_dgv.Columns(14).FillWeight = 40 : 月份分析_dgv.Columns(15).FillWeight = 50
- 月份分析_dgv.Columns(16).FillWeight = 40 : 月份分析_dgv.Columns(17).Visible = False
-
- 月份分析_dgv.Columns(10).DefaultCellStyle.Format = "#,##0" : 月份分析_dgv.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
- For i As Integer = 12 To 16
- 月份分析_dgv.Columns(i).DefaultCellStyle.Format = "#,##0" : 月份分析_dgv.Columns(i).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
- Next
- 比例計算1() : 比例圖片1()
- Else
- For i As Integer = 0 To 月份_cb.Items.Count - 1
- 資料數 = 月份_cb.Items.Count : MyModule1.進度條()
- 月份_cb.SelectedIndex = i
- 比例計算1()
- Next : GRAMS_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
- 比例圖片1() : MsgBox("資料需要存檔")
- End If
- End Sub
- Private Sub SET_使用者下拉清單載入()
- SQL_客戶交易明細表_月份() : 月份_cb.Items.Clear()
- While (dr.Read()) : 月份_cb.Items.Add(dr("月份")) : End While : conn.Close()
- End Sub
- Private Sub SET_彙總計算()
- 累計客數_tb.Text = 人員3_dgv.Rows.Count : 月份數_tb.Text = 月份分析_dgv.Rows.Count
- Dim A107, A108, A109, A110, Ap As Integer
- For i As Integer = 0 To 月份分析_dgv.Rows.Count - 1
- 新_tb.Text = Val(新_tb.Text) + 月份分析_dgv.Rows(i).Cells("新客").Value
- 舊_tb.Text = Val(舊_tb.Text) + 月份分析_dgv.Rows(i).Cells("舊客").Value
- 平_tb.Text = Val(平_tb.Text) + 月份分析_dgv.Rows(i).Cells("總來客數").Value
- 實月_tb.Text = (Val(實月_tb.Text) + 月份分析_dgv.Rows(i).Cells("實收業績").Value)
- Ap += 月份分析_dgv.Rows(i).Cells("總來客數").Value
-
- If Strings.Left(月份分析_dgv.Rows(i).Cells("月份").Value, 3) = "107" Then
- A107 += 1
- 新107_tb.Text = Val(新107_tb.Text) + 月份分析_dgv.Rows(i).Cells("新客").Value : 舊107_tb.Text = Val(舊107_tb.Text) + 月份分析_dgv.Rows(i).Cells("舊客").Value
- 平107.Text = Val(平107.Text) + 月份分析_dgv.Rows(i).Cells("總來客數").Value : 實月107.Text = Val(實月107.Text) + 月份分析_dgv.Rows(i).Cells("實收業績").Value
- 實人107_tb.Text = Val(實人107_tb.Text) + 月份分析_dgv.Rows(i).Cells("總來客數").Value
- End If
- If Strings.Left(月份分析_dgv.Rows(i).Cells("月份").Value, 3) = "108" Then
- A108 += 1
- 新108_tb.Text = Val(新108_tb.Text) + 月份分析_dgv.Rows(i).Cells("新客").Value : 舊108_tb.Text = Val(舊108_tb.Text) + 月份分析_dgv.Rows(i).Cells("舊客").Value
- 平108.Text = Val(平108.Text) + 月份分析_dgv.Rows(i).Cells("總來客數").Value : 實月108.Text = Val(實月108.Text) + 月份分析_dgv.Rows(i).Cells("實收業績").Value
- 實人108_tb.Text = Val(實人108_tb.Text) + 月份分析_dgv.Rows(i).Cells("總來客數").Value
- End If
- If Strings.Left(月份分析_dgv.Rows(i).Cells("月份").Value, 3) = "109" Then
- A109 += 1
- 新109_tb.Text = Val(新109_tb.Text) + 月份分析_dgv.Rows(i).Cells("新客").Value : 舊109_tb.Text = Val(舊109_tb.Text) + 月份分析_dgv.Rows(i).Cells("舊客").Value
- 平109.Text = Val(平109.Text) + 月份分析_dgv.Rows(i).Cells("總來客數").Value : 實月109.Text = Val(實月109.Text) + 月份分析_dgv.Rows(i).Cells("實收業績").Value
- 實人109_tb.Text = Val(實人109_tb.Text) + 月份分析_dgv.Rows(i).Cells("總來客數").Value
- End If
- If Strings.Left(月份分析_dgv.Rows(i).Cells("月份").Value, 3) = "110" Then
- A110 += 1
- 新110_tb.Text = Val(新110_tb.Text) + 月份分析_dgv.Rows(i).Cells("新客").Value : 舊110_tb.Text = Val(舊110_tb.Text) + 月份分析_dgv.Rows(i).Cells("舊客").Value
- 平110.Text = Val(平110.Text) + 月份分析_dgv.Rows(i).Cells("總來客數").Value : 實月110.Text = Val(實月110.Text) + 月份分析_dgv.Rows(i).Cells("實收業績").Value
- 實人110_tb.Text = Val(實人110_tb.Text) + 月份分析_dgv.Rows(i).Cells("總來客數").Value
- End If
- Next
- 累計客數_tb.Text = Format(Val(累計客數_tb.Text), "#,##0") : 實收最高_tb.Text = Format(Val(實收最高_tb.Text), "#,##0") : 實收最低_tb.Text = Format(Val(實收最低_tb.Text), "#,##0")
- 新_tb.Text = Format(Val(新_tb.Text) / Val(月份數_tb.Text), "#,##0") : 舊_tb.Text = Format(Val(舊_tb.Text) / Val(月份數_tb.Text), "#,##0")
- 平_tb.Text = Format(Val(平_tb.Text) / Val(月份數_tb.Text), "#,##0") : 實人_tb.Text = Format(Val(實月_tb.Text) / Ap, "#,##0")
- 實月_tb.Text = Format(Val(實月_tb.Text) / Val(月份數_tb.Text), "#,##0")
-
- 新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")
- 實人107_tb.Text = Format(Val(實月107.Text) / (實人107_tb.Text), "#,##0") : 實月107.Text = Format(Val(實月107.Text) / A107, "#,##0")
-
- 新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")
- 實人108_tb.Text = Format(Val(實月108.Text) / (實人108_tb.Text), "#,##0") : 實月108.Text = Format(Val(實月108.Text) / A108, "#,##0")
-
- 新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")
- 實人109_tb.Text = Format(Val(實月109.Text) / (實人109_tb.Text), "#,##0") : 實月109.Text = Format(Val(實月109.Text) / A109, "#,##0")
-
- 新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")
- 實人110_tb.Text = Format(Val(實月110.Text) / (實人110_tb.Text), "#,##0") : 實月110.Text = Format(Val(實月110.Text) / A110, "#,##0")
- End Sub
- Private Sub 來客資料分析表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- Me.MdiParent = GRAMS_SYS : Me.WindowState = 2 : Me.AutoScroll = True
- 讀取客戶資料表1() : SET_使用者下拉清單載入() : 讀取客戶資料表3() : 讀取客戶資料表4()
- SET_彙總計算() : 表格繪製1() : 表格繪製2() : 表格繪製3() : 表格繪製4()
- End Sub
- Private Sub 最小_NUD_ValueChanged(sender As Object, e As EventArgs) Handles 最小_NUD.ValueChanged
- 表格繪製1() : 表格繪製2()
- End Sub
- Private Sub 最大_NUD_ValueChanged(sender As Object, e As EventArgs) Handles 最大_NUD.ValueChanged
- 表格繪製1() : 表格繪製2()
- End Sub
- Private Sub 存檔_tb_Click(sender As Object, e As EventArgs) Handles 存檔_tb.Click
- SQL_來客資料_刪除()
- For I As Integer = 0 To 月份分析_dgv.Rows.Count - 1
- PA = 月份分析_dgv.Rows(I).Cells("月份").Value : PA1 = 月份分析_dgv.Rows(I).Cells("新客").Value : PA2 = 月份分析_dgv.Rows(I).Cells("新客比").Value
- PA3 = 月份分析_dgv.Rows(I).Cells("舊客").Value : PA4 = 月份分析_dgv.Rows(I).Cells("舊客比").Value : PA5 = 月份分析_dgv.Rows(I).Cells("總來客數").Value
- PA6 = 月份分析_dgv.Rows(I).Cells("總來客比").Value
- SQL_來客資料_新增()
- Next
- MsgBox("存檔完成!!!")
- End Sub
- Private Sub 重新讀取_tb_Click(sender As Object, e As EventArgs) Handles 重新讀取_tb.Click
- 月份分析_dgv.DataSource = Nothing : ds1.Clear()
- 月份分析_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- 月份分析_dgv.ColumnHeadersHeight = 30
- 月份分析_dgv.AllowUserToAddRows = False
- SQL_來客資料3()
- da.Fill(ds1) : 月份分析_dgv.DataSource = ds1.Tables(0) : conn.Close()
-
- 月份分析_dgv.Columns(0).FillWeight = 40 : 月份分析_dgv.Columns(1).FillWeight = 30 : 月份分析_dgv.Columns(2).Visible = False : 月份分析_dgv.Columns(3).FillWeight = 40
- 月份分析_dgv.Columns(4).FillWeight = 30 : 月份分析_dgv.Columns(5).Visible = False : 月份分析_dgv.Columns(6).FillWeight = 40 : 月份分析_dgv.Columns(7).FillWeight = 40
- 月份分析_dgv.Columns(8).Visible = False : 月份分析_dgv.Columns(9).FillWeight = 40 : 月份分析_dgv.Columns(10).FillWeight = 50 : 月份分析_dgv.Columns(11).FillWeight = 40
- 月份分析_dgv.Columns(12).FillWeight = 40 : 月份分析_dgv.Columns(13).FillWeight = 50 : 月份分析_dgv.Columns(14).FillWeight = 40 : 月份分析_dgv.Columns(15).FillWeight = 50
- 月份分析_dgv.Columns(16).FillWeight = 40 : 月份分析_dgv.Columns(17).Visible = False
-
- 月份分析_dgv.Columns(10).DefaultCellStyle.Format = "#,##0" : 月份分析_dgv.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
- For i As Integer = 12 To 16
- 月份分析_dgv.Columns(i).DefaultCellStyle.Format = "#,##0" : 月份分析_dgv.Columns(i).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
- Next
-
- For i As Integer = 0 To 月份_cb.Items.Count - 1
- 資料數 = 月份_cb.Items.Count : MyModule1.進度條()
- 月份_cb.SelectedIndex = i
- 比例計算1()
- Next : GRAMS_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
- 比例圖片1() : SET_彙總計算() : 表格繪製1() : 表格繪製2() : 表格繪製3() : 表格繪製4()
- End Sub
- Private Sub 數列_NUD_ValueChanged(sender As Object, e As EventArgs) Handles 數列_NUD.ValueChanged
- 最大_NUD.Value = 數列_NUD.Value + 1
- End Sub
- Private Sub 表格繪製1()
- '-------線狀圖------------------------------------------------------
- Chart2.Series.Clear() : Chart2.ChartAreas(0).AxisX.Minimum = 最小_NUD.Value : Chart2.ChartAreas(0).AxisX.Maximum = 最大_NUD.Value
- Chart2.Series.Add("總來客數") : Chart2.Series("總來客數").ChartType = SeriesChartType.Line : Chart2.Series("總來客數").IsVisibleInLegend = False
- Dim NUDAA As Integer
- If 數列_NUD.Value >= 月份分析_dgv.Rows.Count - 1 Or 數列_NUD.Value = 0 Then : NUDAA = 月份分析_dgv.Rows.Count - 1
- ElseIf 數列_NUD.Value < 月份分析_dgv.Rows.Count - 1 Then : NUDAA = 數列_NUD.Value : End If
- For i As Integer = 0 To NUDAA
- Chart2.Series("總來客數").Points.AddXY(月份分析_dgv.Rows(NUDAA - i).Cells("月份").Value.ToString, 月份分析_dgv.Rows(NUDAA - i).Cells("總來客數").Value.ToString)
- Next
- End Sub
- Private Sub 表格繪製2()
- '-------線狀圖------------------------------------------------------
- Chart1.Series.Clear() : Chart1.ChartAreas(0).AxisX.Minimum = 最小_NUD.Value : Chart1.ChartAreas(0).AxisX.Maximum = 最大_NUD.Value
- Chart1.Series.Add("實收業績") : Chart1.Series("實收業績").ChartType = SeriesChartType.Line : Chart1.Series("實收業績").IsVisibleInLegend = False
- Dim NUDAA As Integer
- If 數列_NUD.Value >= 月份分析_dgv.Rows.Count - 1 Or 數列_NUD.Value = 0 Then : NUDAA = 月份分析_dgv.Rows.Count - 1
- ElseIf 數列_NUD.Value < 月份分析_dgv.Rows.Count - 1 Then : NUDAA = 數列_NUD.Value : End If
- For i As Integer = 0 To NUDAA
- Chart1.Series("實收業績").Points.AddXY(月份分析_dgv.Rows(NUDAA - i).Cells("月份").Value.ToString, 月份分析_dgv.Rows(NUDAA - i).Cells("實收業績").Value.ToString)
- Next
- End Sub
- Private Sub 表格繪製3()
- '-------線狀圖------------------------------------------------------
- Chart3.Series.Clear()
- Chart3.Series.Add("資料1") : Chart3.Series("資料1").ChartType = SeriesChartType.Bar : Chart3.Series("資料1").IsVisibleInLegend = False
- Dim WW As Integer = 20
- For i As Integer = 107 To 127
- Dim LS As Label = CType(Me.Controls.Find("L" + (i + WW).ToString(), True)(0), Label)
- Dim 平S As TextBox = CType(Me.Controls.Find("平" + (i + WW).ToString(), True)(0), TextBox)
- Chart3.Series("資料1").Points.AddXY(LS.Text, 平S.Text)
- WW -= 2
- Next
- End Sub
- Private Sub 表格繪製4()
- '-------線狀圖------------------------------------------------------
- Chart4.Series.Clear()
- Chart4.Series.Add("資料1") : Chart4.Series("資料1").ChartType = SeriesChartType.Bar : Chart4.Series("資料1").IsVisibleInLegend = False
- Dim WW As Integer = 20
- For i As Integer = 107 To 127
- Dim LS As Label = CType(Me.Controls.Find("L" + (i + WW).ToString(), True)(0), Label)
- Dim 實月S As TextBox = CType(Me.Controls.Find("實月" + (i + WW).ToString(), True)(0), TextBox)
- Chart4.Series("資料1").Points.AddXY(LS.Text, 實月S.Text)
- WW -= 2
- Next
- End Sub
- Private Sub 月份分析_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 月份分析_dgv.RowPostPaint
- Dim linePen As New Pen(Color.Blue, 2)
- If e.RowIndex = 月份分析_dgv.Rows.Count - 1 Then
- Exit Sub
- Else
- If Strings.Left(月份分析_dgv(0, e.RowIndex).Value.ToString, 3) <> Strings.Left(月份分析_dgv(0, e.RowIndex + 1).Value.ToString, 3) Then
- Dim startX As Integer = IIf(月份分析_dgv.RowHeadersVisible, 月份分析_dgv.RowHeadersWidth, 0)
- Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
- Dim endX As Integer = startX + 月份分析_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 月份分析_dgv.HorizontalScrollingOffset
- e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
- Exit Sub
- End If
- End If
- End Sub
- Private Sub 月份_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 月份_cb.SelectedIndexChanged
- 讀取客戶資料表2()
- End Sub
- End Class
|