自动输入班级 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim ary() As String = Functions.Execute("Xueqi")
Dim fdr = DataTables("学生基本信息").SQLFind("学生编号 = '"& e.Form.Controls("学生编号").Text & "'")
If fdr IsNot Nothing Then
    e.Form.Controls("学生姓名").Text = fdr("学生姓名")
End If
Dim s1 As Integer = val(Left(ary(1),4))
cmd.ConnectionName = "数据库"
cmd.CommandText ="Select TOP 1 班级 From {缴退费信息} WHERE 缴费项目 = '学费' And 缴费状态 = '已缴'And 学生编号 = '"& e.Form.controls("学生编号").Text &"' ORDER BY 缴费日期 Desc"
dt = cmd.ExecuteReader()
If dt.DataRows.Count > 0 Then
    Dim m As Integer = dt.DataRows(0)("班级") + 100
    Dim bjs As List(Of String) = DataTables("招生计划").SQLGetValues("班级","学期 = '"& ary(1) &"' and 班级 = '" & m & "'")
    Dim drs = DataTables("招生计划").Select("学期 = '"& ary(1) &"' and 班级 like '" & cstr(m).Substring(0,1) & "%'", "班级")
    If ary(1) Like "*秋*" Then
        Dim count As Integer
        Dim newbj As String = ""
        If bjs.Contains(cstr(m)) Then
            For Each dr As DataRow In drs
                If dr("班级") = m Then
                    count = DataTables("缴退费信息").SQLCompute("count(学生编号)","学期 = '" & ary(1) & "'And 班级='" & m & "' And 缴费项目 = '学费' And 缴费状态 = '已缴'")
                    If count < dr("计划人数") Then
                        newbj = dr("班级")
                        Exit For
                    End If
                End If
            Next
            If newbj > "" Then
                e.Form.controls("班级").Text = newbj
            Else
                e.Form.controls("班级").Text = "已招满"
            End If
        End If
        If newbj = "" Then
            For Each dr As DataRow In drs
                count = DataTables("缴退费信息").SQLCompute("count(学生编号)","学期 = '" & ary(1) & "'And 班级='" & dr("班级") & "' And 缴费项目 = '学费' And 缴费状态 = '已缴'")
                If count < dr("计划人数") Then
                    newbj = dr("班级")
                    Exit For
                End If
            Next
            If newbj > "" Then
                e.Form.controls("班级").Text = newbj
            Else
                e.Form.controls("班级").Text = "已招满"
            End If
        End If
    Else
        If bjs.Contains(cstr(m)) Then
            If m = 1 Then
                e.Form.controls("班级").Text = "001"
            Else
                e.Form.controls("班级").Text = m
            End If
        End If
    End If
End If

主题：自动输入班级