- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]请教czy版主，关于练手之作“成绩管理” (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=5914)
-- 发布时间：2010/1/31 13:44:00
-- [求助]请教czy版主，关于练手之作“成绩管理”
请教czy版主，关于练手之作“成绩管理”增加成绩输入问题：某一年级、某一班增加一期考试，输入成绩时，学号、学生姓名等已有信息能否自动从已有信息导入？（不然，一个学期多次考试，每一次都要重新输入学号、学生姓名等相同信息）
-- 发布时间：2010/1/31 14:02:00
--
应该可以，但您要提供示例文件，解决起来才顺手。
（通过按钮“新增考试”，将所有学生的信息一次性调入，然后您就输入每个人的考试成绩即可！）
-- 发布时间：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
--
请问，试用版的如何添加该模板？
