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 a.学期 as 没报名学期, a.班级,a.学生编号,a.学生姓名,a.缴费日期 From {缴学费信息} 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 a.学期 as 已报名学期, a.班级,a.学生编号,a.学生姓名,a.缴费日期 From {缴学费信息} a INNER JOIN (Select 缴费日期,学生编号 From {缴学费信息} where 学生编号 In (Select 学生编号 from {缴学费信息} where 学期 = '" & cbx2.Text & "') And 学期 = '" & cbx1.Text & "') as b on (a.学生编号 = b.学生编号)", "数据库", True)
Tables("窗口1_Table1").AutoSizeCols()
加好友 
发短信
Post By：2013/9/20 22:41:00 [显示全部帖子]
