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


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

主题：如何将表日期一列设置成 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


加好友 发短信
等级：三尾狐 帖子：675 积分：8019 威望：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 积分：1157 威望：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  老师，你好，问题解决了，很好，谢谢！

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04492 秒, 4 次数据查询