以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  为什么原来的清不掉  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=33309)

--  作者:hbaijia
--  发布时间:2013/5/15 16:27:00
--  为什么原来的清不掉

 Dim Chart As WinForm.Chart \'定义一个图表变量
        Dim Series As WinForm.ChartSeries \'定义一个图系变量
        Dim tbl As DataTable = DataTables("统计表") \'定义一个变量tbl引用数据表
        Dim lst As List(Of String) = tbl.GetUniqueValues("", "名称") \'获得产品名称集合
        Chart = e.Form.Controls("Chart1") \' 引用窗口中的图表
        Chart.SeriesList.Clear() \'清除图表原来的图系
        Chart.ChartType = ChartTypeEnum.Bar \'设置图表类型
        Series = Chart.SeriesList.Add() \'增加一个图系
        Series.Length = lst.Count \'设置图系的长度
        For i As Integer = 0 To lst.Count - 1 \'指定每个数据点的位置
            Series.X(i) = i \'指定水平坐标
            Series.Y(i) = tbl.Compute("Sum(数量)","[名称] = \'" & lst(i) & "\'") \'指定垂直坐标
            Chart.AxisX.SetValueLabel(i, lst(i)) \'指定字符表示
        Next
        Series = Chart.SeriesList.Add() \'增加一个图系
        Series.Length = lst.Count \'设置图系的长度
        For i As Integer = 0 To lst.Count - 1 \'指定每个数据点的位置
            Series.X(i) = i \'指定水平坐标
            Series.Y(i) = tbl.Compute("Sum(价格)","[名称] = \'" & lst(i) & "\'") \'指定垂直坐标
            Chart.AxisX.SetValueLabel(i, lst(i)) \'指定字符表示
        Next

当调用另一表时,二个表内容变了,但X、Y轴的字没有去掉重合在一起了Chart.SeriesList.Clear() \'清除图表原来的图系难到不起作用

 


--  作者:Bin
--  发布时间:2013/5/15 16:32:00
--  
你清除是在最上面. 你循环了2次.肯定会这样啊
--  作者:hbaijia
--  发布时间:2013/5/15 16:49:00
--  

执行这一段没问题,二次循环同样的座标,我说的再按其他条件去形成图表时,这个图表的座标没有删除掉。另一个图表的代码是一样的,只不过X轴的取值列不同,名称不同,但却没有把上次的图表给删除,再重新生产图表时出错的,按理说我再执行一遍这个代码,应该是重新生成的,但却没被删除。


--  作者:Bin
--  发布时间:2013/5/15 16:51:00
--  
显然是已经清除了的.不然你弄个独立按钮执行
Dim Chart As WinForm.Chart \'定义一个图表变量
        Dim Series As WinForm.ChartSeries \'定义一个图系变量
        Chart = e.Form.Controls("Chart1") \' 引用窗口中的图表
        Chart.SeriesList.Clear() \'清除图表原来的图系

--  作者:hbaijia
--  发布时间:2013/5/15 16:58:00
--  
问题好象出在集合字段上面,如何将集合的内容清空,发现是二个字段合在了一起了
--  作者:Bin
--  发布时间:2013/5/15 17:00:00
--  
执行clear方法即可.
--  作者:hbaijia
--  发布时间:2013/5/15 17:42:00
--  
不是集合的问题,新建了个集合也不行,上个例子,这个例子又不知哪里有错了,
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目4.table


图片点击可在新窗口打开查看此主题相关图片如下:图表.bmp
图片点击可在新窗口打开查看

--  作者:hbaijia
--  发布时间:2013/5/16 9:38:00
--  

以上问题就是双图表代替双图表时下面的显示重叠的问题,如何解决啊


--  作者:Bin
--  发布时间:2013/5/16 9:39:00
--  
例子各种错误 根本没办法正常运作啊
[此贴子已经被作者于2013-5-16 9:41:26编辑过]

--  作者:hbaijia
--  发布时间:2013/5/16 10:20:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目4.table

这回好了,上次的例子是因为表中有空值,如果遇到空值在哪里加判断哪?二个问题