Sql ddXY（36，LblWkEff36.Text） .AddXY（37，LblWkEff37.Text） .AddXY（38，LblWkEff38.Text） .AddXY（39，LblWkEff39.Text） .AddXY（40，LblWkEff40.T

ddXY（36，LblWkEff36.Text） .AddXY（37，LblWkEff37.Text） .AddXY（38，LblWkEff38.Text） .AddXY（39，LblWkEff39.Text） .AddXY（40，LblWkEff40.Text） .AddXY（41，LblWkEff41.Text） .AddXY（42，LblWkEff42.Text） .AddXY（43，LblWkEff43.Text） .AddXY（44，LblWkEff44.Text） .AddXY（45，LblWkEff45.Text） .AddXY（46，LblWkEff46.Text） .AddXY（47，LblWkEff47.Text） .AddXY（48，LblWkEff48.Text） .AddXY（49，LblWkEff49.Text） .AddXY（50，LblWkEff50.Text） .AddXY（51，LblWkEff51.Text） .AddXY（52，LblWkEff52.Text） .AddXY（53,0） 以 以 随附图表1.系列（“目标”） .Name=“目标” .ChartType=系列ChartType.Line .Color=Color.Red .BorderWidth=3 有点 .AddXY（0,1） .AddXY（1,1） .AddXY（2,1） .AddXY（3,1） .AddXY（4,1） .AddXY（5,1） .AddXY（6,1） .AddXY（7,1） .AddXY（8,1） .AddXY（9,1） .AddXY（10,1） .AddXY（11,1） .AddXY（12,1） .AddXY（13,1） .AddXY（14,1） .AddXY（15,1） .AddXY（16,1） .AddXY（17,1） .AddXY（18,1） .AddXY（19,1） .AddXY（20,1） .AddXY（21,1） .AddXY（22,1） .AddXY（23,1） .AddXY（24,1） .AddXY（25,1） .AddXY（26,1） .AddXY（27,1） .AddXY（28,1） .AddXY（29,1） .AddXY（30,1） .AddXY（31,1） .AddXY（32,1） .AddXY（33,1） .AddXY（34,1） .AddXY（35,1） .AddXY（36,1） .AddXY（37,1） .AddXY（38,1） .AddXY（39,1） .AddXY（40,1） .AddXY（41,1） .AddXY（42,1） .AddXY（43,1） .AddXY（44,1） .AddXY（45,1） .AddXY（46,1） .AddXY（47,1） .AddXY（48,1） .AddXY（49,1） .AddXY（50,1） .AddXY（51,1） .AddXY（52,1） .AddXY（53,1） 以 以 '制作实时图表 '______________________________________________________________________________() '以清除图表并重新加载它 图表2.标题.清除（） 图2.Series.Clear（） Chart2.ChartAreas.Clear（） 图表2.图表区域。添加（“区域”） 图2.系列添加（“周效率”） 图2.系列添加（“目标”） 图表2.标题.添加（“准时效率”） 带图表2.标题（0） .Font=新字体（“TAHOMA”，12，FontStyle.Bold） 以 带图表2.图表区域（0） '.AxisY.MajorGrid.Enabled=False .AxisX.MajorGrid.Enabled=False .axix.Title=“周” .AxisY.Title=“效率” .AxisX.Minimum=0 .AxisX.max=53 .AxisY.Minimum=0 .AxisX.Interval=1 .AxisY.LabelStyle.Format=格式（0，“0%”） 以 带图表2.系列（0） .Font=新字体（Me.Font.Name，7，FontStyle.Regular） .SmartLabelStyle.Enabled=False .LabelAngle=-90 .Label=“#VAL{P}” .IsValueShownAsLabel=True .Name=“周效率” .ChartType=系列ChartType.Column .LabelToolTip=已启用 .ToolTip=“WEEK#VALX”&vbNewLine&“#VAL{P}” .BorderColor=颜色。黑色 .LabelForeColor=颜色.透明 以字符串形式标注区域=cbArea.Text 选择案例区域 案例“BC_皮卡” .Color=Color.Blue 案例“BC_交付” .Color=Color.Blue 案例“原始” .Color=Color.LimeGreen 案例“RTV” .颜色=颜色.黄色 其他情况 .Color=Color.Black 结束选择 '加载数据点 .Points.AddXY（0,0） .Points.AddXY（1，lblDeliveryStat1.Text） .Points.AddXY（2，lblDeliveryStat2.Text） .Points.AddXY（3，lblDeliveryStat3.Text） .Points.AddXY（4，lblDeliveryStat4.Text） .Points.AddXY（5，lblDeliveryStat5.Text） .Points.AddXY（6，lblDeliveryStat6.Text） .Points.AddXY（7，lblDeliveryStat7.Text） .Points.AddXY（8，lblDeliveryStat8.Text） .Points.AddXY（9，lblDeliveryStat9.Text） .Points.AddXY（10，lblDeliveryStat10.Text） .Points.AddXY（11，lblDeliveryStat11.Text） .Points.AddXY（12，lblDeliveryStat12.Text） .Points.AddXY（13，lblDeliveryStat13.Text） .Points.AddXY（14，lblDeliveryStat14.Text） .Points.AddXY（15，lblDeliveryStat15.Text） .Points.AddXY（16，lblDeliveryStat16.Text） .Points.AddXY（17，lblDeliveryStat17.Text） .Points.AddXY（18，lblDeliveryStat18.Text） .Points.AddXY（19，lblDeliveryStat19.Text） .Points.AddXY（20，lblDeliveryStat20.Text） .Points.AddXY（21，lblDeliveryStat21.Text） .Points.AddXY（22，lblDeliveryStat22.Text） .Points.AddXY（23，lblDeliveryStat23.Text） .Points.AddXY（24，lblDeliveryStat24.Text） .Points.AddXY（25，lblDeliveryStat25.Text） .Points.AddXY（26，lblDeliveryStat26.Text） .Points.AddXY（27，lblDeliveryStat27.Text） .Points.AddXY（28，lblDeliveryStat28.Text） .Points.AddXY（29，lblDeliveryStat29.Text） .Points.AddXY（30，lblDeliveryStat30.Text） .Points.AddXY（31，lblDeliveryStat33.Text） .Points.AddXY（32，lblDeliveryStat32.Text） .Points.AddXY（33，lblDeliveryStat33.Text） .Points.AddXY（34，lblDeliveryStat34.Text） .Points.AddXY（35，lblDeliveryStat35.Text） .Points.AddXY（36，lblDeliveryStat36.Text） .Points.AddXY（37，lblDeliveryStat37.Text） .Points.AddXY（38，lblDeliveryStat38.Text） .Points.AddXY（39，lblDeliveryStat39.Text）

Private Sub LoadWeeklyStats()
'Get Global DataSource Here 
For i As Integer = 0 To 51
    Dim LabelWkEff As String = "LblWkEff" + (i + 1).ToString
    Dim myArray1 As Array = Controls.Find(LabelWkEff, False)
    Dim myControl1 As Label = myArray1(0)
    myControl1.Text = RESULT1
    'AND
    Dim LabelDeliveryStat As String = "lblDeliveryStat" + (i + 1).ToString
    Dim myArray2 As Array = Controls.Find(LabelDeliveryStat, False)
    Dim myControl2 As Label = myArray2(0)
    myControl2.Text = RESULT2
    'COUNTER
    Week(i + 1)
Next