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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 查找按键代码

共有2542人关注过本帖树形打印复制链接主题：查找按键代码

120785713

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：195 积分：1395 威望：0 精华：0 注册：2014/1/21 9:45:00

查找按键代码 发帖心情

Post By：2014/12/13 19:28:00 [只看该作者]

窗口1中有订单Tables("销售主表") 编辑框1 是查询的开始日期编辑框2 是查询的结束日期编辑框3 是客户

想实现的功能是单击查询按键后当前窗口只显示符合条件的行

czy

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：6318 积分：33951 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2014/12/13 19:51:00 [只看该作者]

Dim name As String = e.Form.Controls("ComboBox1").value
If name = ""
    MessageBox.Show("客户名称不能为空")
    Return
End If
Dim d As Date = e.Form.Controls("DateTimePicker1").value
Dim d1 As Date = e.Form.Controls("DateTimePicker2").value
If d = Nothing
    MessageBox.Show("开始日期不能为空")
    Return
End If
If d1 = Nothing
    MessageBox.Show("结束日期不能为空")
    Return
End If
Tables("销售主表").Filter = "客户 = '" & name & "' and 日期 > = #" & d & "# and 日期 <= #" & d1 & "#"

120785713

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：195 积分：1395 威望：0 精华：0 注册：2014/1/21 9:45:00

Post By：2014/12/14 9:33:00 [只看该作者]

以下是引用czy在2014-12-13 19:51:00的发言：
Dim name As String = e.Form.Controls("ComboBox1").value
If name = ""
    MessageBox.Show("客户名称不能为空")
    Return
End If
Dim d As Date = e.Form.Controls("DateTimePicker1").value
Dim d1 As Date = e.Form.Controls("DateTimePicker2").value
If d = Nothing
    MessageBox.Show("开始日期不能为空")
    Return
End If
If d1 = Nothing
    MessageBox.Show("结束日期不能为空")
    Return
End If
Tables("销售主表").Filter = "客户 = '" & name & "' and 日期 > = #" & d & "# and 日期 <= #" & d1 & "#"

谢谢了不过这样查询不太方便平时查询时只输入需要的条件其他的肯定是空的应该怎么搞呢我照您的改出来好长啊

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/12/14 10:44:00 [只看该作者]

参考

http://www.foxtable.com/help/topics/1058.htm

下一主题 >> << 上一主题

主题：查找按键代码