主题：foxtable里面复制日期问题

在foxtable里面复制日期列的数据粘贴到excel里面显示2017/2/9  星期四 上午12：00 我这面只想让其复制到可见的2017/2/9 如何操作？

 你给日期列赋值的时候，就应该只赋值日期啊。

 

1、AfterOpenProject事件

 

Dim cd As System.Globalization.DateTimeFormatInfo = System.Globalization.DateTimeFormatInfo.CurrentInfo
cd.ShortDatePattern = "yyyy年MM月dd日"
Dim DateInfo As System.Reflection.FieldInfo = cd.Gettype.GetField("generalLongTimePattern", System.Reflection.BindingFlags.NonPublic Or System.Reflection.BindingFlags.Instance)
If  DateInfo IsNot Nothing Then
    DateInfo.SetValue(cd, "yyyy-MM-dd HH:mm:ss")
End If

 

 

2、DataRowAdded事件

 

e.DataRow("日期") = Date.today

我发现了 这个和系统时间的格式有关系 修改系统时间的格式就会改变 

按2楼AfterOpenProject事件的方法统一项目的时间格式