汗
Dim 绑定表 As String = e.Form.Controls("TextBox1").Text
Dim 绑定列 As String = e.Form.Controls("TextBox2").Text
Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart= Forms("窗口1").Controls("Chart1") ' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.Histogram ' 设置图表类型
Chart.DataSource = 绑定表 '设置绑定表
Chart.SeriesList.Clear() '清除图表原来的图系
Series = Chart.SeriesList.Add() '增加一个图系
Series.Histogram.IntervalStart = 0 '指定起始值
Series.Histogram.IntervalWidth = 10 '指定分区宽度
Series.Histogram.IntervalNumber= 10 '指定分区个数
Series.Y.DataField = 绑定列 'Y轴绑定到数量列
加好友 
发短信
Post By：2015/8/20 9:11:00 [显示全部帖子]
