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
加好友 
发短信
Post By：2015/11/19 17:16:00 [显示全部帖子]
