Foxtable(狐表)用户栏目专家坐堂 → [求助]窗口查询的相关问题


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

主题:[求助]窗口查询的相关问题

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


加好友 发短信
等级:一尾狐 帖子:452 积分:3015 威望:0 精华:0 注册:2014/4/23 17:12:00
[求助]窗口查询的相关问题  发帖心情 Post By:2014/5/7 13:11:00 [只看该作者]

各位老师中午好,不好意思我又来了
现在我要单独做一个查询窗口(档案明细查询),因为我刚开始启动这个窗口的时候不想让表加载数据,另外主窗口中又有关联表,因此没有将表绑定到明细表,而是将表定义为SQLQuery类型,并连接数据源。然后进行查询,通过查询将明细表中符合查询条件的数据在表中表示出来。以下是查询按钮的代码:
Dim filter As String
Dim dtp1 As WinForm.DateTimePicker
Dim dtp2 As WinForm.DateTimePicker
Dim cmb As WinForm.ComboBox
dtp1 = e.Form. Controls("起始日期").text
dtp2 = e.Form. Controls("结束日期").text
cmb = e.Form. Controls("档案类型").text
If dtp1 Is Nothing
    Messagebox.show("请输入起始日期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else If dtp2 Is Nothing
    Messagebox.show("请输入结束日期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else If cmb Is Nothing
    Messagebox.show("请输入档案类型!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
DataTables("档案明细查询_Table1").Fill("Select * From {档案管理明细} Where 归档日期 >= dtp1  And 归档日期 <= dtp2 And 档案类型 = cmb ","sqlserver",True)

请大家帮我看看哪地方有问题呀?

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


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

DataTables("档案明细查询_Table1").Fill("Select * From {档案管理明细} Where 归档日期 >= #" & dtp1  & "#  And 归档日期 <= #" & dtp2 & "# And 档案类型 = '" & cmb & "'","sqlserver",True)

 回到顶部