以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  foxtable里面复制日期问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=95935)

--  作者:zchlln
--  发布时间:2017/2/9 9:19:00
--  foxtable里面复制日期问题
在foxtable里面复制日期列的数据粘贴到excel里面显示2017/2/9  星期四 上午12:00 我这面只想让其复制到可见的2017/2/9 如何操作?


--  作者:有点色
--  发布时间:2017/2/9 9:24:00
--  

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

 

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


--  作者:zchlln
--  发布时间:2017/2/10 8:41:00
--  
我发现了 这个和系统时间的格式有关系 修改系统时间的格式就会改变 
--  作者:有点蓝
--  发布时间:2017/2/10 8:56:00
--  
按2楼AfterOpenProject事件的方法统一项目的时间格式