- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 自动输入问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=77519)
-- 发布时间：2015/11/19 16:47:00
-- 自动输入问题
学生姓名输入框输入了学生姓名，如果是秋季，班级输入框自动输入上学期的班级加1，如果是春季，班级输入框自动输入上学期的班级。
比如：学期是；2016年春季，张文豪是301，学期是；2016年秋季，张文豪是401。求代码？谢谢！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.zip |
-- 发布时间：2015/11/19 17:16:00
--
Dim fdr As DataRow = DataTables("学生信息").find("学生姓名 like \'%" & e.sender.text & "%\'", "班级 desc,学期 desc,_Identify desc")
If fdr IsNot Nothing Then
If fdr("学期") Like "*春*" Then
e.Form.controls("班级").Text = fdr("班级")
Else
e.Form.controls("班级").Text = fdr("班级") + 100
End If
Else
e.Form.controls("班级").Text = Nothing
End If
-- 发布时间：2015/11/19 17:29:00
--
谢谢！