- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 生成图表 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=135466)
-- 发布时间：2019/5/27 14:59:00
-- 生成图表
此主题相关图片如下：360截图20190527145030017.jpg
能帮我看一下这个画圈的位置，x轴文字为什么虚影吗。另外，为零的项目，能不能也显示在x轴上
Dim Chart1 As WinForm.Chart
Dim Series1 As WinForm.ChartSeries
Dim t1 As Table = Tables("库存")
Chart1= Forms("查看库存").Controls("Chart2")
Chart1.ChartType = ChartTypeEnum.Bar\' 引用窗口中的图表
Chart1.SeriesList.Clear()
Series1 = Chart1.SeriesList.Add()
Series1.Length = t1.Rows.Count
For i As Integer = 0 To t1.Rows.Count - 1
Series1.X(i) = i
Series1.Y(i) = t1.Rows(i)("库存")
Chart1.AxisX.SetValueLabel(i, t1.Rows(i)("球拍型号"))
Next
Chart1.AxisX.AnnoWithLabels = True
-- 发布时间：2019/5/27 17:04:00
--
试试
Dim Chart1 As WinForm.Chart
Dim Series1 As WinForm.ChartSeries
Dim t1 As Table = Tables("库存")
Chart1= Forms("查看库存").Controls("Chart2")
Chart1.ChartType = ChartTypeEnum.Bar\' 引用窗口中的图表
Chart1.SeriesList.Clear()
Chart1.AxisX.ClearValueLabel
Series1 = Chart1.SeriesList.Add()
Series1.Length = t1.Rows.Count
For i As Integer = 0 To t1.Rows.Count - 1
Series1.X(i) = i
Series1.Y(i) = t1.Rows(i)("库存")
Chart1.AxisX.SetValueLabel(i, t1.Rows(i)("球拍型号"))
Next
Chart1.AxisX.AnnoWithLabels = True
-- 发布时间：2019/5/27 17:57:00
--
哦啦，解决了，你真是神人也