以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  hilo 图 怎么绑定到表?  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=64615)

--  作者:sloyy
--  发布时间:2015/2/25 17:31:00
--  hilo 图 怎么绑定到表?
我想画一个HILO图标,但是老是提示数据类型错误,错在哪里?
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table



--  作者:Bin
--  发布时间:2015/2/25 17:37:00
--  
列类型改为整数
--  作者:有点甜
--  发布时间:2015/2/25 17:38:00
--  
Dim Chart As WinForm.Chart \'定义一个图表变量
Dim Series As WinForm.ChartSeries \'定义一个图系变量
Chart= Forms("窗口1").Controls("Chart1") \' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.Hilo \'设置图表类型
Chart.SeriesList.Clear() \'清除图表原来的图系
Series = Chart.SeriesList.Add() \'增加一个图系
Series.LineThickNess = 5 \'设置线条宽度
Dim t As Table = Tables("表A")
Series.Length = t.Rows.Count \'图系包括10个数据点
For i As Integer = 0 To t.Rows.Count -1 \'指定每个数据点的位置
    Series.X(i) = i \'指定水平坐标
    Series.Y(i) = t.rows(i)("长度") \'生成最大值
    Series.Y1(i) = t.rows(i)("长度2")\'生成最小值
    Chart.AxisX.SetValueLabel(i, t.Rows(i)("时刻")) \'指定字符表示
Next
Chart.AxisX.AnnoWithLabels = True \'启用字符标示

--  作者:sloyy
--  发布时间:2015/2/25 17:53:00
--  
明白了, 长度 和长度2改为整数类型