Foxtable(狐表)用户栏目专家坐堂 → 怎样查询


  共有4033人关注过本帖树形打印复制链接

主题:怎样查询

帅哥哟,离线,有人找我吗?
良才
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:788 积分:6291 威望:0 精华:0 注册:2012/6/11 17:21:00
怎样查询  发帖心情 Post By:2013/8/3 11:26:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.zip

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

请高手指教


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/8/3 11:32:00 [只看该作者]

combbox2是标准,查询combobox1的存在的学生(姓名)  不是很理解你的意思.

 回到顶部
帅哥哟,离线,有人找我吗?
良才
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:788 积分:6291 威望:0 精华:0 注册:2012/6/11 17:21:00
  发帖心情 Post By:2013/8/3 11:36:00 [只看该作者]

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

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

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

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

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

[此贴子已经被作者于2013-8-3 11:59:06编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/8/3 11:53:00 [只看该作者]

.
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table


 回到顶部
帅哥哟,离线,有人找我吗?
良才
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:788 积分:6291 威望:0 精华:0 注册:2012/6/11 17:21:00
  发帖心情 Post By:2013/8/3 12:35:00 [只看该作者]

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


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2013/8/3 12:40:00 [只看该作者]

已缴费根据什么判断? 不是根据缴费日期是否为空判断吗?

 回到顶部
帅哥哟,离线,有人找我吗?
lsy
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2013/8/3 15:41:00 [只看该作者]

楼主,问题解决没有?

 回到顶部
帅哥哟,离线,有人找我吗?
lsy
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2013/8/3 16:03:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:查找缴费信息.zip


 回到顶部
帅哥哟,离线,有人找我吗?
良才
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:788 积分:6291 威望:0 精华:0 注册:2012/6/11 17:21:00
  发帖心情 Post By:2013/8/4 8:32:00 [只看该作者]

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

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

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
图片点击可在新窗口打开查看
[此贴子已经被作者于2013-8-4 10:05:23编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
lsy
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2013/8/4 8:44:00 [只看该作者]

咨询的时候,一是上实例,二是就实例,详细说明需求。

特别是查询结果,你可以手工填写一张查询结果表,告诉别人,我就要这样的结果。

别人帮你写完代码,做测试的时候,就以你填写的结果为准,符合就成,不符合就改。

省的多个回合的问来问去,什么名堂也没有。


 回到顶部
总数 12 1 2 下一页