主题：怎样查询

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.zip

combbox2是标准，查询combobox1的存在的学生(姓名)

请高手指教

2013年(春)缴费学生,2013年(秋)缴费学生,两个学期都缴费的学生,

比如:2013年(春)有学生; 徐  晨、李俊莲、符俊杰、肖  奎、张  为、唐俊杰、王晓同、王  一、王付涛、韩  磊

      2013年(秋)有学生；徐  晨、李俊莲、符俊杰、肖  奎、张  为、唐俊杰、王晓同、王  一、王付涛、张山（2013年(春)）

          我想查询结果是；徐  晨、李俊莲、符俊杰、肖  奎、张  为、唐俊杰、王晓同、王  一、王付涛

韩  磊2013年(秋)没有缴费，张山新缴费的

Dim cbx1 As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim cbx2 As WinForm.ComboBox = e.Form.Controls("ComboBox2")

e.Form.Controls("Table1").Table.Fill("Select '" & cbx2 .Text & "新生" & "' As 学期,b.班级,b.学生编号,学生姓名,缴费日期,性别,年龄,家长姓名,家长电话,关系,户籍地,暂住地,备注 From {学生基本信息} As a  inner join (Select 班级,缴费日期,学生编号 From {缴学费信息} where 学生编号  not In (Select 学生编号 from {缴学费信息} where 学期 = '" & cbx1.Text & "') And 学期 = '" & cbx2.Text & "') as b on (a.学期 = b.学期)", "数据库", True)
Tables("窗口1_Table1").AutoSizeCols()

是查询缴费日期是否为空,

老生未报名代码是这样写的:

Dim cbx1 As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim cbx2 As WinForm.ComboBox = e.Form.Controls("ComboBox2")

e.Form.Controls("Table1").Table.Fill("Select '" & cbx2 .Text & "没报名" & "' As 学期,b.班级,b.学生编号,学生姓名,缴费日期,性别 From {学生基本信息} As a  inner join (Select 班级,缴费日期,学生编号 From {缴学费信息} where 学生编号  not In (Select 学生编号 from {缴学费信息} where 学期 = '" & cbx2.Text & "') And 学期 = '" & cbx1.Text & "') as b on (a.学生编号 = b.学生编号)", "数据库", True)
Tables("窗口1_Table1").AutoSizeCols()

 

新生已报名代码是这样写的:

Dim cbx1 As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim cbx2 As WinForm.ComboBox = e.Form.Controls("ComboBox2")

e.Form.Controls("Table1").Table.Fill("Select '" & cbx2 .Text & "新生" & "' As 学期,b.班级,b.学生编号,学生姓名,缴费日期,性别 From {学生基本信息} As a  inner join (Select 班级,缴费日期,学生编号 From {缴学费信息} where 学生编号  not In (Select 学生编号 from {缴学费信息} where 学期 = '" & cbx1.Text & "') And 学期 = '" & cbx2.Text & "') as b on (a.学生编号 = b.学生编号)", "数据库", True)
Tables("窗口1_Table1").AutoSizeCols()

 

老生已报名代码是?

 这是我要的结果

此主题相关图片如下：筛选结果.png

谢谢执教

已搞定,代码是:

Dim cbx1 As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim cbx2 As WinForm.ComboBox = e.Form.Controls("ComboBox2")

e.Form.Controls("Table1").Table.Fill("Select '" & cbx1 .Text & "已报名" & "' As 学期,b.班级,b.学生编号,学生姓名,缴费日期,性别 From {学生基本信息} As a  inner join (Select 班级,缴费日期,学生编号 From {缴学费信息} where 学生编号  In (Select 学生编号 from {缴学费信息} where 学期 = '" & cbx1.Text & "') And 学期 = '" & cbx2.Text & "') as b on (a.学生编号 = b.学生编号)", "数据库", True)
Tables("窗口1_Table1").AutoSizeCols()