以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  图表显示问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=21852)

--  作者:zhangc2000
--  发布时间:2012/7/26 9:44:00
--  图表显示问题

下面程序是为在图表上显示数据表(代理商业绩表)中选择出记录的趋势图,其中CD是全局代码,负责传递代理商编号。在调试时,图形显示不出来,总是出错。

请问:是否有什么地方有问题?

另:遇到空值时,怎样处理?

Dim Chart As WinForm.Chart \'定义一个图表变量
Dim Series As WinForm.ChartSeries \'定义一个图系变量
Chart = e.Form.Controls("Chart1") \' 引用窗口中的图表
Chart.SeriesList.Clear() \'清除图表原来的图系
Series = Chart.SeriesList.Add() \'增加一个图系
Dim drs As List(of DataRow)
drs = DataTables("代理商业绩").Select("[代理商编号] = \'"& cd &"\'", "结算日期")
Dim i As Integer = 0 \'计数统计
For Each dr As DataRow In drs
   Series.X(i) = dr("结算日期")
   Series.Y(i) = dr("代理商进货额")
   i = i + 1
Next


--  作者:blackzhu
--  发布时间:2012/7/26 10:14:00
--  
drs = DataTables("代理商业绩").Select("[代理商编号] = \'"& cd &"\'And 代理商编号 Is  Not  Null", "结算日期")