共5 条记录, 每页显示 10 条, 页签: [1]

标题：[求助]如何在启动窗口时，自动更新党龄的数据

1楼

riyuan 发表于：2024/9/9 17:25:00

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目2.zip

请教如何在启动窗口时，自动更新所有党员的党龄。

为什么现在的代码更新出来的数据全部是一样的呢

2楼

有点蓝 发表于：2024/9/9 20:14:00

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目2.zip

3楼

riyuan 发表于：2024/9/10 15:27:00

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目2.zip

此主题相关图片如下：9a203b272bcfefac95a0ba4e3e8e75d.jpg

想生成这样的一个图表，为什么提示错误，请指教

4楼

有点蓝 发表于：2024/9/10 16:05:00

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

5楼

y2287958 发表于：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) & "%"

图表.LegendVisible = True

图表.LegendCompass = CompassEnum.East

共5 条记录, 每页显示 10 条, 页签: [1]