以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]合成查询条件一条不执行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=174030)

--  作者:洮沙
--  发布时间:2021/12/28 10:16:00
--  [求助]合成查询条件一条不执行

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

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

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

--  作者:有点蓝
--  发布时间:2021/12/28 10:48:00
--  
在哪里添加"所属期选择"这个控件的?
--  作者:洮沙
--  发布时间:2021/12/28 11:13:00
--  

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

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

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

--  作者:洮沙
--  发布时间:2021/12/28 12:06:00
--  

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

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

 

修改后的代码如下:

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

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



--  作者:有点蓝
--  发布时间:2021/12/28 12:10:00
--  
判断一下有没有值,没有值cdate肯定出错:CDate(e.PostValues("起始日期")) 
--  作者:洮沙
--  发布时间: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

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