Tables("窗口1_table2").DataSource = cmd.ExecuteReader
Dim t As Table=Tables("窗口1_table2")
Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart= Forms("窗口1").Controls("Chart1") ' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.Bar '图表类型该为Bar(条形)
Chart.DataSource = "窗口1_table2" '设置绑定表
Chart.AxisY.Min = 0
Chart.AxisX.AnnoFormatString = "0时"
Chart.SeriesList.Clear() '清除图表原来的图系
Series = Chart.SeriesList.Add() '增加一个图系
'series.Length= t.Rows.count
Series.X.DataField = "小时" 'X轴绑定到产品列
Series.Y.DataField = "外出人数" 'Y轴绑定到数量列
得到效果如图
此主题相关图片如下：微信截图_20220509105454.png
1、横坐标显示的太丑了，能否就显示8，9，10.。。。
能否显示这样
此主题相关图片如下：微信截图_20220509105945.png
2、横坐标能否自适应，数据多的时候可能显示的正好，数据少的时候显示的就太宽了
[此贴子已经被作者于2022/5/9 11:00:17编辑过]
加好友 
发短信
Post By：2022/5/9 10:56:00 [只看该作者]
