主题：[求助]求条件加载按钮代码

SQL数据源名为： MX

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

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

 

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

 呃。

 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)
 

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

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

不是说：如果数据源是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)

 如果是sqlserver数据库，就把#改成'

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

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