以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]单元格日期显示问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=110668)

--  作者:湛江智
--  发布时间:2017/12/7 10:53:00
--  [求助]单元格日期显示问题

单元格值显示:2017-8-7

单击单元格值显示:2017-8-7

双击单元格显示变为:2017-8-7(8-7完成)

 

怎么设置显示完整值:2017-8-7(8-7完成)



--  作者:湛江智
--  发布时间:2017/12/7 11:00:00
--  

列名------请输入新的标题:一级_15_正式版_标记_项目

和多次表头有冲突的原因吗?

 


--  作者:有点甜
--  发布时间:2017/12/7 11:11:00
--  

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

 

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

 

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


--  作者:湛江智
--  发布时间:2017/12/7 14:16:00
--  

元格是字符列

单元格值显示:2017-8-7

单击单元格值显示:2017-8-7

双击单元格显示变为:2017-8-7(8-7完成)

 

怎么设置显示完整值:2017-8-7(8-7完成)?

还有导入的日期变400544之类的,怎么正常显示为日期;日期列也要能输入文字

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:项目.foxdb


--  作者:有点甜
--  发布时间: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


--  作者:湛江智
--  发布时间:2017/12/7 16:34:00
--  

2017-06-16 00:00:00

尾部的00:00:00,怎么批量一键删除呢?


--  作者:有点甜
--  发布时间: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编辑过]