Foxtable(狐表)用户栏目专家坐堂 → 为什么原来的清不掉


  共有4865人关注过本帖树形打印复制链接

主题:为什么原来的清不掉

美女呀,离线,留言给我吧!
hbaijia
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:205 积分:1404 威望:0 精华:0 注册:2013/4/16 16:20:00
为什么原来的清不掉  发帖心情 Post By: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
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/5/15 16:32:00 [只看该作者]

你清除是在最上面. 你循环了2次.肯定会这样啊

 回到顶部
美女呀,离线,留言给我吧!
hbaijia
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:205 积分:1404 威望:0 精华:0 注册:2013/4/16 16:20:00
  发帖心情 Post By:2013/5/15 16:49:00 [只看该作者]

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


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By: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
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:205 积分:1404 威望:0 精华:0 注册:2013/4/16 16:20:00
  发帖心情 Post By:2013/5/15 16:58:00 [只看该作者]

问题好象出在集合字段上面,如何将集合的内容清空,发现是二个字段合在了一起了

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/5/15 17:00:00 [只看该作者]

执行clear方法即可.

 回到顶部
美女呀,离线,留言给我吧!
hbaijia
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:205 积分:1404 威望:0 精华:0 注册:2013/4/16 16:20:00
  发帖心情 Post By:2013/5/15 17:42:00 [只看该作者]

不是集合的问题,新建了个集合也不行,上个例子,这个例子又不知哪里有错了,
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目4.table


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

 回到顶部
美女呀,离线,留言给我吧!
hbaijia
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:205 积分:1404 威望:0 精华:0 注册:2013/4/16 16:20:00
  发帖心情 Post By:2013/5/16 9:38:00 [只看该作者]

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


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/5/16 9:39:00 [只看该作者]

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

 回到顶部
美女呀,离线,留言给我吧!
hbaijia
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:205 积分:1404 威望:0 精华:0 注册:2013/4/16 16:20:00
  发帖心情 Post By:2013/5/16 10:20:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目4.table

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

 回到顶部
总数 12 1 2 下一页