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

有三个表分别是: 学生基本信息、缴学费信息、学生缴证信息，缴证情况查询窗口有三个按钮分别是：有证已缴、有证没缴、新缴，缴证情况查询窗口还有一个ComboBox（学期）

有证已缴：

假如 e.Form.Controls("学期")是 2014年（春）时，查询出 2014年（春）原来缴过的学生信息，不包括新缴的

Dim cbx1 As WinForm.ComboBox = e.Form.Controls("学期")
e.Form.Controls("Table1").Table.Fill("Select '" & cbx1 .Text & "有证已缴" & "' As 学期, 班级, 学生编号, 学生姓名，性别，民族，家长姓名 From ？请指点代码

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

[此贴子已经被作者于2014-2-25 18:07:33编辑过]

有证已缴：

Dim txt As String = e.Form.Controls("学期").Text
Dim sql As String = "Select 学期 As " & txt.Replace("(","").Replace(")","") & "有证已缴, a.学生编号, a.学生姓名, 性别, 民族, a.家长姓名 From {学生缴证信息} a,{学生基本信息} b"
sql + = " Where 学期 = '" & txt & "' And a.学生编号 = b.学生编号"
Dim cmd As New SQLCommand
cmd.CommandText = sql
Tables(e.Form.Name & "_Table1").DataSource = cmd.ExecuteReader()

呃，没看懂你说的三个是什么意思。是不是这样？

有证已缴：同一学期，有证同时缴学费？

Dim cbx1 As WinForm.ComboBox = e.Form.Controls("学期")

e.Form.Controls("Table1").Table.Fill("Select '" & cbx1 .Text & "有证已缴" & "' As 学期, a.班级, a.学生编号, a.学生姓名, 性别, 民族, 家长姓名 From ({缴学费信息} As a inner join {学生缴证信息} As b on (a.学生编号 = b.学生编号 and a.学期 = '" & cbx1.Text & "' and b.学期 = '" & cbx1.Text & "')) inner join {学生基本信息} As c on(a.学生编号 = c.学生编号)", True)

有证没缴：同一学期，有证但没交学费？

Dim cbx1 As WinForm.ComboBox = e.Form.Controls("学期")

e.Form.Controls("Table1").Table.Fill("Select '" & cbx1 .Text & "有证没缴" & "' As 学期, 班级, b.学生编号, b.学生姓名,性别,民族,家长姓名 from (Select b.班级, b.学生编号, b.学生姓名, 家长姓名 From ({缴学费信息} As a right join {学生缴证信息} As b on (a.学生编号 = b.学生编号 And a.学期 = '" & cbx1.Text & "' and b.学期 = '" & cbx1.Text & "')) where a.学生编号 is null) as c inner join {学生基本信息} as d on (c.学生编号 = d.学生编号)", True)

新缴：指的是新增缴费的，还是新增缴证的？

学费都缴了,可能输入错误, 新缴就是以前没有缴过,不是新增

主题：查询生成