主题：可招人数

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

点击浏览该文件:可招人数.zip

打开缴学费窗口，选择班级是102，可招人数窗口 "可招人数_Table1“ 102 等于0时，清除班级输入框内容并提示”102班已招满“，如果班级是101，可招人数窗口 "可招人数_Table1“ 101 小于0时，缴学费可新增。求代码？谢谢！

TextChanged事件

If forms("可招人数").Opened Then
    Dim r As Row = Tables("可招人数_Table1").Rows(0)
    Dim cname As String = ""
    For Each c As Col In Tables("可招人数_Table1").Cols
        If c.caption = e.sender.Text Then
            cname = c.name
        End If
    Next
    If cname > "" Then
        If r(cname) > 0 Then
            msgbox("可注册")
        Else
            msgbox("已招满")
        End If
    End If
End If