Foxtable(狐表)用户栏目专家坐堂 → [求助]求条件加载按钮代码


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

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

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


加好友 发短信
等级:童狐 帖子:242 积分:2235 威望:0 精华:0 注册:2011/8/16 22:33:00
[求助]求条件加载按钮代码  发帖心情 Post By:2013/1/4 22:50:00 [显示全部帖子]

SQL数据源名为: MX

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

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

 

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

[此贴子已经被作者于2013-1-4 22:51:03编辑过]

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


加好友 发短信
等级:童狐 帖子:242 积分:2235 威望:0 精华:0 注册:2011/8/16 22:33:00
  发帖心情 Post By: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编辑过]

 回到顶部