Dim tb As Table =Tables("高中报名_table2")
Dim tbcd As Table=Tables("高中报名_table4")
Dim qs As Integer = e.Form.Controls("textbox2").value
Dim rs As Integer = e.Form.Controls("textbox3").value
Dim c3 As WinForm.ComboBox=e.Form.controls("combobox3")
Dim c5 As WinForm.ComboBox=e.Form.controls("combobox5")
Dim c2 As String=e.Form.controls("combobox2").value
Dim c8 As String=e.Form.controls("combobox8").value
If str(qs).length = 10
If c2 IsNot Nothing And c8 IsNot Nothing
For Each r As Row In tbcd
If r("场地")=c5.text And r("考试室")<>c3.text
messagebox.show("该考试场地已作安排")
Return
End If
Next
Dim z As Integer = qs+rs-1
messagebox.show(z)
红色代码出现：算术运算导致溢出。没想通是什么原因
加好友 
发短信
Post By：2018/6/14 18:06:00 [只看该作者]
