按钮代码 Dim Chart As WinForm.Chart \'定义一个图表变量 Dim Series As WinForm.ChartSeries \'定义一个图系变量 Dim t As Table = Tables("年份定单数量统计") \'定义一个变量t引用数据表 Chart = e.Form.Controls("Chart1") \' 引用窗口中的图表 Chart.VisualEffect = True \'加上这一行,让你的图表更漂亮 Chart.ChartType = ChartTypeEnum.XYPlot \'图表类型该为Bar(条形) Chart.DataSource = "年份定单数量统计" \'设置绑定表 Chart.SeriesList.Clear() \'清除图表原来的图系