主题：自动输入班级

一年级3个班分别：101、102、103

二级2个班分别;201、202

101、102升二年级分别到201、202

代码是

Dim fdr As DataRow = DataTables("学生信息").find("学期 = '2016年春季' And 学生姓名 = '" & e.Form.controls("学生姓名").Text & "'")
If fdr IsNot Nothing Then
    If fdr("学期") Like "*春*" Then
        e.Form.controls("班级").Text = fdr("班级")+100
    Else
        e.Form.controls("班级").Text = fdr("班级")
    End If
End If

那么103升二年级分别到201或202，可招人数比较多的班级去，求代码？谢谢！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.zip