Foxtable(狐表)用户栏目专家坐堂 → foxtable同时生成多张图改如何做


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

主题:foxtable同时生成多张图改如何做

帅哥哟,离线,有人找我吗?
rjh4078
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3358 积分:24758 威望:0 精华:0 注册:2012/3/26 21:47:00
  发帖心情 Post By:2015/4/7 17:42:00 [显示全部帖子]

你的意思我这样理解不知道对不对 :你希望根据实际数据量生成对应个数的统计表?

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


加好友 发短信
等级:狐精 帖子:3358 积分:24758 威望:0 精华:0 注册:2012/3/26 21:47:00
  发帖心情 Post By:2015/4/7 20:53:00 [显示全部帖子]

简单做了个例子 你参考下

程序自动根据表中的记录动态生成tab

你可以再添加几个品牌测试下

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:动态图表.rar

[此贴子已经被作者于2015/4/7 20:55:13编辑过]

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


加好友 发短信
等级:狐精 帖子:3358 积分:24758 威望:0 精华:0 注册:2012/3/26 21:47:00
  发帖心情 Post By:2015/4/7 21:37:00 [显示全部帖子]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:动态图表试用版.rar


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


加好友 发短信
等级:狐精 帖子:3358 积分:24758 威望:0 精华:0 注册:2012/3/26 21:47:00
  发帖心情 Post By:2015/4/9 18:47:00 [显示全部帖子]

你红色部分开始往tab里面增加控件  但是tab还没生成啊

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


加好友 发短信
等级:狐精 帖子:3358 积分:24758 威望:0 精华:0 注册:2012/3/26 21:47:00
  发帖心情 Post By:2015/4/9 18:49:00 [显示全部帖子]

你creat了 但是没add

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


加好友 发短信
等级:狐精 帖子:3358 积分:24758 威望:0 精华:0 注册:2012/3/26 21:47:00
  发帖心情 Post By:2015/4/9 18:58:00 [显示全部帖子]

你把你的例子发上来我看看 估计是哪个变量改动了

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


加好友 发短信
等级:狐精 帖子:3358 积分:24758 威望:0 精华:0 注册:2012/3/26 21:47:00
  发帖心情 Post By:2015/4/9 19:07:00 [显示全部帖子]

还有 如果你用的是外部数据源 cmd记得指定数据源名

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


加好友 发短信
等级:狐精 帖子:3358 积分:24758 威望:0 精华:0 注册:2012/3/26 21:47:00
  发帖心情 Post By:2015/4/9 19:34:00 [显示全部帖子]

原因找到了 你这个表里有空值  所以要加判断

str默认值是空值 为了稳妥起见 最好把na值的有效性先判断下  我只做了个简单判断 你可以把na值在表中查一遍 确认有效再进行下一步

For Each na As String In DataTables("statis").GetValues("第一列")
    If na<>"" Then
        str=na
        tab1.TabPages.Add(str,str)
        pan = e.Form.CreateControl("pan" & na,ControlTypeEnum.panel)
        pan.Dock = System.Windows.Forms.DockStyle.fill
        pan.AutoScroll=True
        pan.BackColor=color.DodgerBlue
                e.Form.Controls("tab1").basecontrol.tabpages(str).addcontrol(pan)

.....

.....

end if

next

[此贴子已经被作者于2015/4/9 19:36:18编辑过]

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


加好友 发短信
等级:狐精 帖子:3358 积分:24758 威望:0 精华:0 注册:2012/3/26 21:47:00
  发帖心情 Post By:2015/4/10 9:35:00 [显示全部帖子]

只能用笨的方法 先凭经验判断是哪句的问题 然后在注释掉 在这句前把涉及的变量都messagebox.show()出来

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


加好友 发短信
等级:狐精 帖子:3358 积分:24758 威望:0 精华:0 注册:2012/3/26 21:47:00
  发帖心情 Post By:2015/4/11 12:56:00 [显示全部帖子]

你先研究下帮助里的几个图表生成代码,找到符合你要求的利用数据单独生成看看效果,然后放到循环里即可

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