Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教用日期变量筛选的问题


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

主题：请教用日期变量筛选的问题
帅哥哟，离线，有人找我吗？
aqsunxj
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：171 积分：1471 威望：0 精华：0 注册：2021/6/4 15:05:00 		请教用日期变量筛选的问题  发帖心情 Post By：2022/7/28 16:50:00 [只看该作者]

Dim data1 As Date
data1 = RibbonTabs("业务统计").Groups("功能组10").Items("日期输入框1").value

'g.Filter = g.Filter & "[责任起始日期] > #2022.01.01#"     ，用这个这可以
g.Filter = g.Filter & "[责任起始日期] > '" & data1 & "' "    ，换这个变量的不行，用的数据库是外部sql server库


校验能过去 但是运行会出现Conversion from string "" to type 'Date' is not valid. 
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：112364 积分：572076 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/7/28 17:00:00 [只看该作者]

msgbox(RibbonTabs("业务统计").Groups("功能组10").Items("日期输入框1").value)

这样弹出什么内容？
 回到顶部
帅哥哟，离线，有人找我吗？
aqsunxj
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：171 积分：1471 威望：0 精华：0 注册：2021/6/4 15:05:00 		  发帖心情 Post By：2022/7/29 9:07:00 [只看该作者]

刚才试了下 有成功了   可能是代码里 那些 标点的问题 谢谢了 蓝老师

 回到顶部
帅哥哟，离线，有人找我吗？
aqsunxj
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：171 积分：1471 威望：0 精华：0 注册：2021/6/4 15:05:00 		  发帖心情 Post By：2022/7/29 9:27:00 [只看该作者]

知道原因了 是因为我开始判断对DATA的取值不对

日期输入框应该取Nothing不是“”

低级错误   谢谢老师了

If RibbonTabs("业务统计").Groups("功能组10").Items("日期输入框1").value = Nothing Then
    MessageBox.Show("请将查询条件填写完整!")
    Return 
End If
'If RibbonTabs("业务统计").Groups("功能组10").Items("日期输入框2").value = "" Then
'    MessageBox.Show("请将查询条件填写完整!")
'    Return 
'End If
'If RibbonTabs("业务统计").Groups("功能组10").Items("组合框11").text = "" Then
'    MessageBox.Show("请将查询条件填写完整!")
'    Return 
'End If
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04102 秒, 4 次数据查询