- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]如何在启动窗口时，自动更新党龄的数据 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=193383)
-- 发布时间：2024/9/9 17:25:00
-- [求助]如何在启动窗口时，自动更新党龄的数据
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.zip |
请教如何在启动窗口时，自动更新所有党员的党龄。
为什么现在的代码更新出来的数据全部是一样的呢
-- 发布时间：2024/9/9 20:14:00
--
http://www.foxtable.com/webhelp/topics/0692.htm
-- 发布时间：2024/9/10 15:27:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目2.zip |
此主题相关图片如下：9a203b272bcfefac95a0ba4e3e8e75d.jpg
想生成这样的一个图表，为什么提示错误，请指教
-- 发布时间：2024/9/10 16:05:00
--
先根据组织和性别分组生成统计表：http://www.foxtable.com/webhelp/topics/3284.htm，才能根据统计表生成图表
-- 发布时间：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