| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 请教用日期变量筛选的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=178931) |
| -- 作者：aqsunxj -- 发布时间：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.
|
| -- 作者：有点蓝 -- 发布时间：2022/7/28 17:00:00 -- msgbox(RibbonTabs("业务统计").Groups("功能组10").Items("日期输入框1").value) 这样弹出什么内容？
|
| -- 作者：aqsunxj -- 发布时间：2022/7/29 9:07:00 -- 刚才试了下 有成功了 可能是代码里 那些 标点的问题 谢谢了 蓝老师 |
| -- 作者：aqsunxj -- 发布时间：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 |