以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何将表日期一列设置成 MM-DD格式  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=145536)
--  作者：CHSTONE
--  发布时间：2020/1/28 18:50:00
--  如何将表日期一列设置成 MM-DD格式

老师，请教：

 

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

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

顺祝老师新快乐！
--  作者：zoyong
--  发布时间：2020/1/28 19:43:00
--  
Dim rq As Date = 日期列
Format(rq, "MM-dd")
--  作者：CHSTONE
--  发布时间：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
--  发布时间：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
--  发布时间：2020/1/28 20:52:00
--  
atiwhl5  老师，你好，问题解决了，很好，谢谢！