Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何在启动窗口时，自动更新党龄的数据


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

主题：[求助]如何在启动窗口时，自动更新党龄的数据
帅哥哟，离线，有人找我吗？
riyuan
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：404 积分：3086 威望：0 精华：0 注册：2013/4/9 11:49:00 		[求助]如何在启动窗口时，自动更新党龄的数据  发帖心情 Post By：2024/9/9 17:25:00 [只看该作者]

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

请教如何在启动窗口时，自动更新所有党员的党龄。
为什么现在的代码更新出来的数据全部是一样的呢
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111381 积分：566969 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/9/9 20:14:00 [只看该作者]

http://www.foxtable.com/webhelp/topics/0692.htm

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.zip
 回到顶部
帅哥哟，离线，有人找我吗？
riyuan
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：404 积分：3086 威望：0 精华：0 注册：2013/4/9 11:49:00 		  发帖心情 Post By：2024/9/10 15:27:00 [只看该作者]

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


图片点击可在新窗口打开查看此主题相关图片如下：9a203b272bcfefac95a0ba4e3e8e75d.jpg
图片点击可在新窗口打开查看
想生成这样的一个图表，为什么提示错误，请指教 
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111381 积分：566969 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/9/10 16:05:00 [只看该作者]

先根据组织和性别分组生成统计表：http://www.foxtable.com/webhelp/topics/3284.htm，才能根据统计表生成图表

 回到顶部
帅哥哟，离线，有人找我吗？
y2287958
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：4771 积分：34663 威望：0 精华：0 注册：2008/8/31 22:44:00 		  发帖心情 Post By：2024/9/10 16:40:00 [只看该作者]

Dim 数据源名 As String = "dyxx" '数据源名(空白时为内数据表)
Dim sql分组统计生成器 As New SQLGroupTableBuilder("党员信息表", "党员信息表")
sql分组统计生成器.ConnectionName = 数据源名
sql分组统计生成器.Groups.AddExp("所属党组织", "trim(所属党组织)")
sql分组统计生成器.Groups.AddDef("性别")
sql分组统计生成器.Totals.AddExp("数量", "1") '根据日期按年分组
sql分组统计生成器.GrandProportion = True
Dim 临时表 As DataTable = sql分组统计生成器.Build(True)
Forms("testt").close
Forms("testt").Open 
Dim 图表 As WinForm.Chart = Forms("testt").Controls("Chart1")
图表.SeriesList.Clear()
图表.ChartType = ChartTypeEnum.Pie
Dim 图系 As WinForm.ChartSeries
图表.VisualEffect = True
For Each 行 As DataRow In 临时表.dataRows
    图系 = 图表.SeriesList.Add() '增加一个图系
    图系.Length = 1
    图系.Text = 行("所属党组织") & " " & 行("性别") & " " & 行("数量")
    图系.Y(0) = 行("数量")
    图系.DataLabelText = 行("所属党组织") & vbCrLf & 行("性别") & vbCrLf & Round2(行("数量gdr") * 100 , 2) & "%"
Next
图表.LegendVisible = True
图表.LegendCompass = CompassEnum.East
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04712 秒, 7 次数据查询