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

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

批量增加代码：

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