以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]求条件加载按钮代码  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=27572)
--  作者：lsf5138
--  发布时间：2013/1/4 22:50:00
--  [求助]求条件加载按钮代码

SQL数据源名为： MX

表名：织机生产 列名：生产日期 生产条码 生产数量 

窗口控件 起始日期：DateTimePicker1 结束日期：DateTimePicker2 加载按钮：Button1

 

请问如何按起始日期到结束日期加载织机生产表的数据，求按钮代码！

[此贴子已经被作者于2013-1-4 22:51:03编辑过]
--  作者：lin_hailun
--  发布时间：2013/1/5 11:40:00
--  
 呃。

 dim sDate as date = e.form.controls("DateTimePicker1").value
 dim eDate as date = e.form.controls("DateTimePicker2").value

 Datatables("织机生产").Fill("select 生产日期,生产条码,生产数量 from 织机生产 where 日期 >= #" & sDate & "# And 日期 <= #" & eDate & "#", "MX", False)
 
--  作者：lsf5138
--  发布时间：2013/1/5 12:41:00
--  

会提示：当前表存在关联，不允许使用此方法加载数据！

这个表的关联是不可少的，还有方法吗？

不是说：如果数据源是SQl SERVER，日期常量用单引号而不是#号括起来 ？

 

 

If e.Form.Controls("DateTimePicker1").Value Is Nothing OrElse e.Form.Controls("DateTimePicker2").Value Is Nothing Then
    MessageBox.Show("请输入开始日期和结束日期")
    Return
End If
Dim sDate As Date = e.form.controls("DateTimePicker1").value
Dim eDate As Date = e.form.controls("DateTimePicker2").value
If sDate > eDate Then
    MessageBox.Show("开始日期不能晚于结束日期")
    Return
End If
DataTables("织机生产").Fill("select 生产日期,生产条码,挡车工,交货数量,交货重量 from 水洗 where 日期 >= #" & sDate & "# And 日期 <= #" & eDate & "#", "mx", False)

[此贴子已经被作者于2013-1-5 13:34:07编辑过]
--  作者：lin_hailun
--  发布时间：2013/1/5 14:06:00
--  
 如果是sqlserver数据库，就把#改成\'

 如果不行的话，就这样弄吧，看看帮助。

With DataTables("织机生产")    
    .LoadFilter = "日期 >= \'" & sDate & "\' And 日期 <= \'" & eDate & "\'"
    .Load
End With