- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 下面这段代码有啥问题？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=157714)
-- 发布时间：2020/10/26 17:10:00
-- 下面这段代码有啥问题？
Dim time_type As String=args(0) \' 把类型做为入参,即是取时间还是取日期
Dim cmd As New SQLCommand
Dim dt As Date
cmd.C
cmd.CommandText = "Select GetDate()"
dt = cmd.ExecuteScalar()
If time_type="time" Then \'如果入参类型是Date,则返回日期,否则,返回时间
dt = dt.Date
End
Return dt
想定义一个函数，红色的这部分老是报错，屏蔽了就正常了，这是啥问题呀？
-- 发布时间：2020/10/26 17:21:00
--
提示什么错误？
-- 发布时间：2020/11/2 11:49:00
--
未知编译错误，上传图片有问题，没法传图片
\'取SQLSERVER服务器的时间
Dim time_type As String=args(0) \' 把类型做为入参,即是取时间还是取日期
Dim cmd As New SQLCommand
Dim dt As Date
cmd.C
cmd.CommandText = "Select GetDate()"
dt = cmd.ExecuteScalar()
If time_type="time" Then
Return dt
ElseIf time_type="Date" Then
Return dt.Date
Else
End
-- 发布时间：2020/11/2 11:49:00
--
可以上传图片了
此主题相关图片如下：报错.png
-- 发布时间：2020/11/2 11:52:00
--
If time_type="time" Then
Return dt
ElseIf time_type="Date" Then
Return dt.Date
End if
-- 发布时间：2020/11/2 11:53:00
--
If time_type="Date" Then
Return dt.Date
End if
Return dt