HSKIN-MIS-SYS-SIU/GRAMS-SYS/05、業務管理/來客資料分析表.vb

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