- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 模仿没模仿成功，请老师帮忙指导一下 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=122503)
-- 发布时间：2018/7/26 21:15:00
-- 模仿没模仿成功，请老师帮忙指导一下
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:条形图表的3d效果.table |
-- 发布时间：2018/7/26 21:29:00
--
1、图表至少两行才能正常生成的。
2、代码
Dim Chart As WinForm.Chart = e.Form.Controls("Chart1")
Dim Series As WinForm.ChartSeries
Chart.VisualEffect = True
Chart.ChartType = ChartTypeEnum.Bar
Chart.SeriesList.Clear()
Series = Chart.SeriesList.Add()
Series.Length = Tables("完成比例").rows.count+1
Series.Text = "完成评估数量"
Dim i As Integer=0
Series.X(i) = i
Series.Y(i) = i
i += 1
For Each r As Row In Tables("完成比例")
Series.X(i) = i
Series.Y(i) = r("完成评估数量")
\'Chart.AxisX.SetValueLabel(i, "完成")
i += 1
Next
i=0
Series = Chart.SeriesList.Add()
Series.Length = Tables("完成比例").rows.count+1
Series.Text = "未完成评估数量"
Series.X(i) = i
Series.Y(i) = i
i+=1
For Each r As Row In Tables("完成比例")
Series.X(i) = i
Series.Y(i) = r("未完成评估数量")
Chart.AxisX.SetValueLabel(i,r("上级"))
i=i+1
Next
Chart.AxisX.AnnoWithLabels = True
Chart.LegendVisible = True
Chart.LegendCompass= CompassEnum.South
-- 发布时间：2018/7/26 21:47:00
--
效果出来了，但为啥零0坐标那么远，能近一点吗？还有就是X轴能不能没有那么线段？能在二个上面标注数量吗？
-- 发布时间：2018/7/26 22:06:00
--
此主题相关图片如下：1.png
能做出来这样的效果吗？
-- 发布时间：2018/7/26 22:21:00
--
效果出来了，但为啥零0坐标那么远，能近一点吗？还有就是X轴能不能没有那么线段？能在二个上面标注数量吗？
Dim Chart As WinForm.Chart = e.Form.Controls("Chart1")
Dim Series As WinForm.ChartSeries
Chart.VisualEffect = True
Chart.ChartType = ChartTypeEnum.Bar
Chart.SeriesList.Clear()
Series = Chart.SeriesList.Add()
Series.Length = Tables("完成比例").rows.count+1
Series.Text = "完成评估数量"
Dim i As Integer=0
For Each r As Row In Tables("完成比例")
Series.X(i) = i
Series.Y(i) = r("完成评估数量")
\'Chart.AxisX.SetValueLabel(i, "完成")
i += 1
Next
series.DataLabelText = "{#YVAL}"
i=0
Series = Chart.SeriesList.Add()
Series.Length = Tables("完成比例").rows.count+1
Series.Text = "未完成评估数量"
For Each r As Row In Tables("完成比例")
Series.X(i) = i
Series.Y(i) = r("未完成评估数量")
Chart.AxisX.SetValueLabel(i,r("上级"))
i=i+1
Next
series.DataLabelText = "{#YVAL}"
Chart.AxisX.AnnoWithLabels = True
Chart.LegendVisible = True
Chart.LegendCompass= CompassEnum.South
-- 发布时间：2018/7/26 22:21:00
--
此主题相关图片如下：1.png
能做出来这样的效果吗？
不可以，没办法。
-- 发布时间：2018/7/26 22:27:00
--
此主题相关图片如下：1.png
第二个效果没出来
Y轴能变成整数吗？
-- 发布时间：2018/7/26 22:31:00
--
看看
http://www.foxtable.com/webhelp/scr/1018.htm
http://www.foxtable.com/webhelp/scr/1020.htm
http://www.foxtable.com/webhelp/scr/1021.htm
-- 发布时间：2018/7/26 22:35:00
--
甜老师，按你的代码，第二条不显示了，不知道啥原因
-- 发布时间：2018/7/26 22:37:00
--
甜老师，按你的代码，第二条不显示了，不知道啥原因
多于1行表数据，才能正常显示的。你增加多几行数据。