Foxtable(狐表)用户栏目专家坐堂 → 编译错误:未声明名称“DateYMD”怎么修改代码


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

主题:编译错误:未声明名称“DateYMD”怎么修改代码

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


加好友 发短信
等级:幼狐 帖子:135 积分:946 威望:0 精华:0 注册:2012/8/26 23:34:00
编译错误:未声明名称“DateYMD”怎么修改代码  发帖心情 Post By:2012/10/23 15:11:00 [只看该作者]

不知道为什么,我在教程那里复制过去的代码,用来计算工龄的,输入之后系统弹出窗口:编译错误:未声明名称“DateYMD”
Select Case e.DataCol.name
    Case "入职日期"
        If e.DataRow.IsNull("入职日期"Then
            e.DataRow("工龄_年") = Nothing
            e.DataRow("工龄_月") = Nothing
            e.DataRow("工龄_日") = Nothing
        Else
            Dim y,m,d As Integer
            DateYMD(e.DataRow("入职日期"),Date.Today,y,m,d)
            e.DataRow("工龄_年") = y
            e.DataRow("工龄_月") = m
            e.DataRow("工龄_日") = d
        End If

End
 Select



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


加好友 发短信
等级:狐神 帖子:6885 积分:43595 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By:2012/10/23 15:24:00 [只看该作者]

我没有提示的,把你的文件传上来。

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


加好友 发短信
等级:幼狐 帖子:135 积分:946 威望:0 精华:0 注册:2012/8/26 23:34:00
  发帖心情 Post By:2012/10/23 15:33:00 [只看该作者]

麻烦您看一下

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


加好友 发短信
等级:狐神 帖子:6885 积分:43595 威望:0 精华:0 注册:2009/3/2 14:07:00
  发帖心情 Post By:2012/10/23 15:38:00 [只看该作者]

没有文件,如何看?

 回到顶部
帅哥,在线噢!
狐狸爸爸
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/10/23 15:41:00 [只看该作者]

你要升级到最新版本,DateYMD是新加入的函数,老版本没有的

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


加好友 发短信
等级:幼狐 帖子:135 积分:946 威望:0 精华:0 注册:2012/8/26 23:34:00
  发帖心情 Post By:2012/10/23 15:45:00 [只看该作者]

这样啊,那我在主页重新下载,再安装,可以吗?

 回到顶部
帅哥,在线噢!
狐狸爸爸
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/10/23 15:51:00 [只看该作者]

可以的

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


加好友 发短信
等级:幼狐 帖子:135 积分:946 威望:0 精华:0 注册:2012/8/26 23:34:00
  发帖心情 Post By:2012/10/23 16:49:00 [只看该作者]

谢谢!

 回到顶部