小白初学，请求帮助 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 小白初学，请求帮助

共有5790人关注过本帖树形打印复制链接主题：小白初学，请求帮助

初学FT

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：24 积分：251 威望：0 精华：0 注册：2022/7/6 21:38:00

小白初学，请求帮助 发帖心情

Post By：2022/7/6 21:57:00 [只看该作者]

有点蓝老师：帮我看看吧，才学了点皮毛

悄悄学习ft有半个月了，帮助文件真实不错，非常详细。光看不练假把式，从现在开始投入开发创作，上来就被打懵。

看帮助，对着CaseStudy目录下的实例学习，与动手开发还是有区别的，帮助中的代码当然也不会全然能让我等小白拿来能用，还有举一反三的过程

请哥哥姐姐帮我看看，这个该怎么做，窗口打开后，如何在班级情况表中填充各班级男生人数、女生人数、政治面貌情况以及就读方式的统计，以及提取需要走访学生的名单

下载信息 [文件大小：下载次数： ]
点击浏览该文件:学校班级管理学习制作.table

[此贴子已经被作者于2022/7/7 10:21:19编辑过]

初学FT

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：24 积分：251 威望：0 精华：0 注册：2022/7/6 21:38:00

Post By：2022/7/7 8:54:00 [只看该作者]

这里只有一位老师有点蓝？问题没人帮助么？图片点击可在新窗口打开查看

cd_tdh

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐精帖子：3223 积分：21401 威望：0 精华：0 注册：2016/3/28 16:57:00

Post By：2022/7/7 9:09:00 [只看该作者]

看到统计那一部分，另外你参照销售统计表中的代码，同时注意理解：项目事件：MainTableChanged事件中的代码

比如：

Dim dr As DataRow = e.DataRow
Dim dt As DataTable = DataTables("学生成绩")
If e.DataCol.Name = "班级" Then
dr("男生人数") = dt.Compute("count([性别])", "[性别] = '男' and [班级] = '" & dr("班级") & "'" )
dr("女生人数") = dt.Compute("count([性别])", "[性别] = '女' and [班级] = '" & dr("班级") & "'" )
End If

[此贴子已经被作者于2022/7/7 9:31:06编辑过]

初学FT

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：24 积分：251 威望：0 精华：0 注册：2022/7/6 21:38:00

Post By：2022/7/7 10:23:00 [只看该作者]

能不能做成窗口按钮啊

有点蓝

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/7/7 10:38:00 [只看该作者]

比如

Dim dt As DataTable = DataTables("学生成绩")
for each dr as datarow in dt.datarows
dr("男生人数") = dt.Compute("count([性别])", "[性别] = '男' and [班级] = '" & dr("班级") & "'" )
dr("女生人数") = dt.Compute("count([性别])", "[性别] = '女' and [班级] = '" & dr("班级") & "'" )
next