- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 查询生成 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=46569)
-- 发布时间：2014/2/25 18:03:00
-- 查询生成
有三个表分别是: 学生基本信息、缴学费信息、学生缴证信息，缴证情况查询窗口有三个按钮分别是：有证已缴、有证没缴、新缴，缴证情况查询窗口还有一个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编辑过]
-- 发布时间：2014/2/25 20:09:00
--
有证已缴：
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()
-- 发布时间：2014/2/25 20:36:00
--
呃，没看懂你说的三个是什么意思。是不是这样？
有证已缴：同一学期，有证同时缴学费？
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)
新缴：指的是新增缴费的，还是新增缴证的？
-- 发布时间：2014/2/25 20:49:00
--
谢谢
-- 发布时间：2014/2/26 8:53:00
--
学费都缴了,可能输入错误, 新缴 就是以前没有缴过,不是新增