Foxtable(狐表)用户栏目专家坐堂 → [求助]请教czy版主,关于练手之作“成绩管理”


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

主题:[求助]请教czy版主,关于练手之作“成绩管理”

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


加好友 发短信
等级:四尾狐 帖子:811 积分:10970 威望:0 精华:1 注册:2008/9/2 18:58:00
[求助]请教czy版主,关于练手之作“成绩管理”  发帖心情 Post By:2010/1/31 13:44:00 [只看该作者]

请教czy版主,关于练手之作“成绩管理”增加成绩输入问题:某一年级、某一班增加一期考试,输入成绩时,学号、学生姓名等已有信息能否自动从已有信息导入?(不然,一个学期多次考试,每一次都要重新输入学号、学生姓名等相同信息)

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


加好友 发短信 一级勋章
等级:超级版主 帖子:7258 积分:40773 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2010/1/31 14:02:00 [只看该作者]

应该可以,但您要提供示例文件,解决起来才顺手。
        (通过按钮“新增考试”,将所有学生的信息一次性调入,然后您就输入每个人的考试成绩即可!)


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


加好友 发短信 一级勋章 三级勋章 二级勋章
等级:超级版主 帖子:6318 积分:33963 威望:0 精华:10 注册:2008/8/31 20:56:00
  发帖心情 Post By:2010/1/31 14:53:00 [只看该作者]

可以的,这个应该很简单,用流程语句就可以增加所有的学生信息。
做这个示例的时候只是用于统计分析,并没有加入录入信息。

批量增加代码:

Dim qs As String = e.Form.Controls("TextBox1").Value
Dim bj As String = e.Form.Controls("ComboBox1").Value
if qs = "" Then
    MessageBox.Show("请输入期号!","提示",MessageBoxButtons.Ok,MessageBoxIcon.Information)
    Return
End If
if bj = "" Then
    MessageBox.Show("请输入班级!","提示",MessageBoxButtons.Ok,MessageBoxIcon.Information)
    Return
End If
Tables("成绩表").Redraw = false
Dim drs As List(Of DataRow) = DataTables("成绩表").Select("[班级] = '" & bj & "'")
For n As integer = 0 To drs.Count - 1
    Dim r As Row = Tables("成绩表").AddNew()
    r("期数") = qs
    r("班级") = bj
    r("学号") = drs(n)("学号")
    r("姓名") = drs(n)("姓名")
Next
Tables("成绩表").Redraw = true


下面是窗口模板,你应用一下即可。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:asd.rar


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


加好友 发短信
等级:四尾狐 帖子:811 积分:10970 威望:0 精华:1 注册:2008/9/2 18:58:00
  发帖心情 Post By:2010/1/31 21:40:00 [只看该作者]

谢谢C版


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


加好友 发短信
等级:小狐 帖子:382 积分:3007 威望:0 精华:0 注册:2012/8/30 16:09:00
  发帖心情 Post By:2013/4/19 7:44:00 [只看该作者]

请问,试用版的如何添加该模板?图片点击可在新窗口打开查看

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


加好友 发短信
等级:等待验证 帖子:3855 积分:20692 威望:0 精华:5 注册:2012/6/21 14:03:00
  发帖心情 Post By:2013/4/19 8:26:00 [只看该作者]

用户已被锁定

 回到顶部