Dim Pass As New ADODB.Recordset
Set Pass = cn.Execute("select salary from employee order by id")
With MSChart1
Set .DataSource = Pass
.ShowLegend = True
.chartType = VtChChartType2dLine
.chartType = VtChChartType2dBar
.Refresh
End With
可是显示图表的时候总是不显示第一个数字,再PASS数据集里是有31个元素,可就是显示30个。疯了!救命~~!30分!
Set Pass = cn.Execute("select salary from employee order by id")
With MSChart1
Set .DataSource = Pass
.ShowLegend = True
.chartType = VtChChartType2dLine
.chartType = VtChChartType2dBar
.Refresh
End With
可是显示图表的时候总是不显示第一个数字,再PASS数据集里是有31个元素,可就是显示30个。疯了!救命~~!30分!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货