Foxtable(狐表)用户栏目专家坐堂 → [求助]单元格日期显示问题


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

主题:[求助]单元格日期显示问题

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/12/7 11:11:00 [显示全部帖子]

1、日期单元格,不可能显示除了日期之外的字符的;

 

2、你那个单元格是字符列?编写了drawcell事件?

 

3、请做个实例说明你的问题。


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/12/7 14:46:00 [显示全部帖子]

1、把高度拉高一点即可;因为你单元格有回车符号,换行了。

 

2、你也可以设置,自动行高度,如 Tables("这个表单元格有问题").AutoSizeRows

 

3、数字转日期,参考代码

 

Dim t As Table = Tables("这个表单元格有问题")
Dim d As Date = new Date(1900, 1, 1)
For Each r As Row In t.Rows
    For Each c As Col In t.Cols
        Dim i As Integer
        If Integer.TryParse(r(c),i) Then
            r(c) = d.AddDays(r(c))
        End If
    Next
Next


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/12/7 17:09:00 [显示全部帖子]

Dim t As Table = Tables("这个表单元格有问题")
Dim d As Date = new Date(1900, 1, 1)
For Each r As Row In t.Rows
    For Each c As Col In t.Cols
        Dim i As Integer
        If Integer.TryParse(r(c),i) Then
            r(c) = format(d.AddDays(r(c)), "yyyy-MM-dd")
        End If
    Next
Next


 

如果已经处理了,就删除 00:00:00,如代码

 

Dim t As Table = Tables("这个表单元格有问题")
Dim d As Date = new Date(1900, 1, 1)
For Each r As Row In t.Rows
    For Each c As Col In t.Cols
        r(c) = r(c).replace(" 00:00:00", "")
    Next
next
   

[此贴子已经被作者于2017/12/7 17:09:35编辑过]

 回到顶部