- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]图标问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=88997)
-- 发布时间：2016/8/13 9:28:00
-- [求助]图标问题
Dim Chart As WinForm.Chart \'定义一个图表变量
Dim Series As WinForm.ChartSeries \'定义一个图系变量
Chart = e.Form.Controls("Chart1") \' 引用窗口中的图表
Chart.DataSource = "统计表1" \'设置绑定表
Chart.SeriesList.Clear() \'清除图表原来的图系
Series = Chart.SeriesList.Add() \'增加一个图系
Series.X.DataField = "产品" \'X轴绑定到产品列
Series.Y.DataField = "数量" \'Y轴绑定到数量列
这个代码我把X轴绑定了时间类型，请问为什么生成的图表X轴变成了数字？
-- 发布时间：2016/8/13 9:56:00
--
绑定的 不是产品么，怎么会是时间类型？
-- 发布时间：2016/8/13 10:10:00
--
后面我自己改了，这个代码只是说明我是在这里修改的，谢谢！！
-- 发布时间：2016/8/13 10:17:00
--
上传例子说明
-- 发布时间：2016/8/13 10:41:00
--
比如里面的“会议签到表”的生成图表，目标
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:办公室.rar |
的结果是每个时间段开了几次会，谢谢！！
-- 发布时间：2016/8/13 11:10:00
--
Dim Chart As WinForm.Chart \'定义一个图表变量
Dim Series As WinForm.ChartSeries \'定义一个图系变量
Chart= e.Form.Controls("Chart1") \' 引用窗口中的图表
Chart.SeriesList.Clear() \'清除图表原来的图系
For Each Year As String In DataTables("统计表1").GetValues("年")
Series = Chart.SeriesList.Add() \'每年一个图系
Series.Text = Year \'指定图系名称为年份
Series.Length = 12 \'指定图系的数据点数,1年12个月
Chart.AxisX.Min = 1 \'指定X轴的最小值,也就是从1月开始
Chart.AxisX.Max = 12 \'\'指定X轴的最大值,一年只有12个月
Chart.AxisY.Min =0
For Month As Integer = 1 To 12 \'逐月设置坐标
Series.X(Month) = Month \'指定水平坐标为月份
Dim r As DataRow = DataTables("统计表1").Find("年 = " & Year & " And 月 = " & Month)\'找出对应年月的行
If r IsNot Nothing \'如果找到对应年月的行
Series.Y(Month) = r("会议次数") \'指定数量作为垂直坐标
End If
Next
Next
Chart.LegendVisible = True \'显示图列
Chart.LegendCompass= CompassEnum.South \'图列显示在南方(底端)