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


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

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

帅哥哟,离线,有人找我吗?
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)

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

 回到顶部