主题：[求助]关于图表生成的数据源

Series.Y(i) = Val(t.Rows(i)("数值"))

Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Dim t As Table = e.Form.Controls("Tablelablist").Table '定义一个变量t引用数据表
 
Chart= e.Form.Controls("Chartlab") ' 引用窗口中的图表
Chart.SeriesList.Clear() '清除图表原来的图系
Chart.AxisX.ClearValueLabel
Series = Chart.SeriesList.Add() '增加一个图系
Series.Length = t.Rows.Count '设置图系的长度
For i As Integer = 0 To t.Rows.Count - 1 '指定每个数据点的位置
    Series.X(i) = i '指定水平坐标
    Series.Y(i) = val(t.Rows(i)("lvalue")) '指定垂直坐标
    Chart.AxisX.SetValueLabel(i, format(t.Rows(i)("time"), "yyyy-MM-dd")) '指定字符表示
Next
Chart.AxisX.AnnoRotation = -45
Chart.AxisX.AnnoWithLabels = True '启用字符标示

 

其他正常，水平轴不显示

 

 

 你的列，为什么不改成 日期列 ？

 

Chart.AxisX.SetValueLabel(i, format(cDate(t.Rows(i)("time")), "yyyy-MM-dd")) '指定字符表示

老师的意思是？

加了cDATE  就不能排序了？

 

此主题相关图片如下：2017-06-14_101445.gif

我原先在afterload里面做了个 dt.sort = "time DESC"

Dim t As Table = e.Form.Controls("Tablelablist").Table '定义一个变量t引用数据表
t.sort = "time DESC"

 

这个我之前设置过了，是afterload事件，绑定表排序也可以了，但是图表好像不能排序
此主题相关图片如下：2017-06-14_121534.gif

按照老师的建议，直接改成 日期列

 

此主题相关图片如下：2017-06-14_125220.gif

 

 Series.X(i) = cDate(t.Rows(i)("time"))'指定水平坐标
    Series.Y(i) = val(t.Rows(i)("value")) '指定垂直坐标

 做个具体的实例上传上来测试。

谢谢 搞定了。  还有一个问题，窗口sqlquery表 希望默认不加载数据，设置 where xx is null （可以，但是感觉会迟滞时间长，难道也要先搜库？） 还是在加载前事件设置？怎么设置好？

 你是在属性里面设置的，还是写代码设置的？如果改成 where 1=2 呢？