Foxtable(狐表)用户栏目专家坐堂 → 如何将表日期一列设置成 MM-DD格式


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

主题:如何将表日期一列设置成 MM-DD格式

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


加好友 发短信
等级:婴狐 帖子:28 积分:260 威望:0 精华:0 注册:2020/1/13 17:09:00
如何将表日期一列设置成 MM-DD格式  发帖心情 Post By:2020/1/28 18:50:00 [只看该作者]

老师,请教:

 

表里面的  日期 列,输入的是正常  XXXX年-XX月-XX日,且可以使用内置输入器(日历输入),但我想输入完成后,

显示成为  MM-DD格式,如2020-01-28 ,输入后显示成为 01-28  (2020年省略) 以节约单元格空间,如何设置,请教!

顺祝老师新快乐!


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


加好友 发短信
等级:三尾狐 帖子:656 积分:7786 威望:0 精华:0 注册:2015/8/24 9:02:00
  发帖心情 Post By:2020/1/28 19:43:00 [只看该作者]

Dim rq As Date = 日期列
Format(rq, "MM-dd")

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


加好友 发短信
等级:婴狐 帖子:28 积分:260 威望:0 精华:0 注册:2020/1/13 17:09:00
  发帖心情 Post By:2020/1/28 20:12:00 [只看该作者]

不行啊,老师。,你再帮我看看!  见附图。

 

 

 

以下代码没有错的,显示的就是MM-DD,而且我已经添加到了表属性

AFTEREDIT事件里面,但测试就是没有变过来呀,什么情况这是:

 

Dim r As Row = Tables("记价表").Current

Dim DD As Date = R("日期")

Format(dd, "MM-dd")

 


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


加好友 发短信
等级:幼狐 帖子:120 积分:1151 威望:0 精华:0 注册:2019/8/10 1:23:00
  发帖心情 Post By:2020/1/28 20:37:00 [只看该作者]

表事件DrawCell:
If Tables("表名").Current IsNot Nothing Then
  If e.Col.Name = "日期" Then
      If e.Row.IsNull("日期") Then
        e.Text = ""
      Else
        e.Text =Format(cdate(e.text),"MM-dd")
      End If
  End If
end if

我是这么弄的。也许不是很好,但是功能是实现了。

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


加好友 发短信
等级:婴狐 帖子:28 积分:260 威望:0 精华:0 注册:2020/1/13 17:09:00
  发帖心情 Post By:2020/1/28 20:52:00 [只看该作者]

atiwhl5  老师,你好,问题解决了,很好,谢谢!

 回到顶部