以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  内部函数  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=90638)
--  作者：mamuaiqing
--  发布时间：2016/9/19 1:15:00
--  内部函数

在内部函数写入代码获得服务器日期,用于窗口调用函数写入日期

Dim cmd As New SQLCommand
Dim rq As Date = Args(0)
cmd.C
cmd.CommandText = "Select GetDate()"
rq = cmd.ExecuteScalar()
rq = rq.Date

 

 

Output.Show(Functions.Execute("函数名"),rq)

 

请教老师代码错在哪里了,谢谢

[此贴子已经被作者于2016/9/19 1:15:26编辑过]
--  作者：有点蓝
--  发布时间：2016/9/19 9:34:00
--  
Dim cmd As New SQLCommand 
Dim dt As Date
cmd.ConnectionName = "数据源名称"
cmd.CommandText = "Select GetDate()"
return cmd.ExecuteScalar()

dim d as date = Functions.Execute("函数名")
Output.Show(d)
--  作者：mamuaiqing
--  发布时间：2016/9/19 21:29:00
--  

谢谢有点甜老师