托管计划表列有年级列,类型(整数)
Dim ary() As String = Functions.Execute("Xueqi")
SQL = e.Sender.Value
Dim r As Integer = IIF(SQL = "一年级",1,IIF(SQL = "二年级",2,IIF(SQL = "三年级",3,IIF(SQL = "四年级",4,IIF(SQL = "五年级",5,IIF(SQL = "六年级",6,IIF(SQL = "七年级",7,IIF(SQL = "八年级",8,IIF(SQL = "九年级",9,"")))))))))
dr = DataTables("托管计划").SQLFind("学期 = '"& ary(0) &"' And 年级 = "& r &"")
If dr IsNot Nothing Then
MessageBox.Show(e.Sender.Value &" 已录入,请检查")
End If
有没有简洁方法,请老师指教,谢谢!
dr = DataTables("托管计划").SQLFind("学期 = '"& ary(0) &"' And CLNum(年级) & ‘年级’= '"& SQL &"'")If dr IsNot Nothing Then MessageBox.Show(e.Sender.Value &" 已录入,请检查")End If
[此贴子已经被作者于2019/10/16 8:12:37编辑过]