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

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

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

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

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

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

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

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

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

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

元格是字符列

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

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

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

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

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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:项目.foxdb

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-06-16 00:00:00

尾部的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
        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