以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]请教czy版主,关于练手之作“成绩管理”  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=5914)

--  作者:方丈
--  发布时间:2010/1/31 13:44:00
--  [求助]请教czy版主,关于练手之作“成绩管理”
请教czy版主,关于练手之作“成绩管理”增加成绩输入问题:某一年级、某一班增加一期考试,输入成绩时,学号、学生姓名等已有信息能否自动从已有信息导入?(不然,一个学期多次考试,每一次都要重新输入学号、学生姓名等相同信息)
--  作者:程兴刚
--  发布时间:2010/1/31 14:02:00
--  

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


--  作者:czy
--  发布时间: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


--  作者:方丈
--  发布时间:2010/1/31 21:40:00
--  

谢谢C版


--  作者:地瓜
--  发布时间:2013/4/19 7:44:00
--  
请问,试用版的如何添加该模板?图片点击可在新窗口打开查看