生存查询窗口 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目11.zip

请指点错在哪？谢谢！

代码

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 " & StrToWide(cbx1 .Text) & "没报名,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 学生编号 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")

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()

我测试了一下，152行的数据，有144是已经报名的，明细正确吖。

主题：生存查询窗口