|
Dim xq As String = e.Form.Controls("学期").Text
If xq > "" Then
e.Form.controls("Table1").Table.Fill("select * from {学生基本信息} a inner join {缴学费信息} b on a.学生编号 = b.学生编号 where 缴费项目 = '学费' and 学期 = '" & xq & "' and b.学生编号 not in (select 学生编号 from {退费信息} where 学期 = '" & xq & "')", "数据库", True)
Else
e.Form.controls("Table1").Table.Fill("Select * from {学生基本信息} a inner join {缴学费信息} b on a.学生编号 = b.学生编号 where 缴费项目 = '学费' and b.学生编号 not in (select 学生编号 from {退费信息})", "数据库", True)
End If
|
加好友 
发短信
Post By：2014/8/25 14:40:00 [显示全部帖子]
