Foxtable(狐表)用户栏目专家坐堂 → [求助]合成查询条件一条不执行


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

主题:[求助]合成查询条件一条不执行

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


加好友 发短信
等级:四尾狐 帖子:826 积分:7130 威望:0 精华:0 注册:2017/8/31 12:07:00
[求助]合成查询条件一条不执行  发帖心情 Post By:2021/12/28 10:16:00 [只看该作者]

 老师,你好!以下代码是我合成查询条件代码,为什么“所属期选择”项不起作用?实在是水平有限,找不出问题了,麻烦老师看一下,谢谢!

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:代码.txt

[此贴子已经被作者于2021/12/28 10:34:17编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110792 积分:563898 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/12/28 10:48:00 [只看该作者]

在哪里添加"所属期选择"这个控件的?

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


加好友 发短信
等级:四尾狐 帖子:826 积分:7130 威望:0 精华:0 注册:2017/8/31 12:07:00
  发帖心情 Post By:2021/12/28 11:13:00 [只看该作者]

http://www.foxtable.com/mobilehelp/topics/0152.htm

一步一步参考以上例子,合适了,谢谢!

[此贴子已经被作者于2021/12/28 11:17:21编辑过]

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


加好友 发短信
等级:四尾狐 帖子:826 积分:7130 威望:0 精华:0 注册:2017/8/31 12:07:00
  发帖心情 Post By:2021/12/28 12:06:00 [只看该作者]

老师,追加一个问题,1楼代码我做了查询条件修改,现在执行显示如下错误: 

 .NET Framework 版本:4.0.30319.42000
Foxtable 版本:2021.12.22.1
错误所在事件:自定义函数,web_业务资料列表
详细错误信息:
调用的目标发生了异常。
从字符串“”到类型“Date”的转换无效。

 

修改后的代码如下:

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:代码2.txt

我反复查找,不知哪里出错了?麻烦老师看一下,谢谢!



 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110792 积分:563898 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/12/28 12:10:00 [只看该作者]

判断一下有没有值,没有值cdate肯定出错:CDate(e.PostValues("起始日期")) 

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


加好友 发短信
等级:四尾狐 帖子:826 积分:7130 威望:0 精华:0 注册:2017/8/31 12:07:00
  发帖心情 Post By:2021/12/28 12:20:00 [只看该作者]

Dim d1 As Date
Dim y1 As Integer
Dim m1 As Integer
If e.PostValues("起始日期") > "" Then
    d1  = CDate(e.PostValues("起始日期"))
    y1  = d1.Year
    m1  = d1.Month
End If

修改成这样,好像合适了,谢谢!


 回到顶部