以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  数值转字符  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=141995)
--  作者：良才
--  发布时间：2019/10/16 8:12:00
--  数值转字符
托管计划表列有年级列，类型(整数)
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编辑过]
--  作者：有点蓝
--  发布时间：2019/10/16 8:34:00
--  
增加一个辅助列，一年级存储1，二年级存储2，以此类推
--  作者：良才
--  发布时间：2019/10/16 8:58:00
--  
好的，谢谢