以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]关于不同电脑日期格式的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=65656)
--  作者：huangfanzi
--  发布时间：2015/3/19 23:14:00
--  [求助]关于不同电脑日期格式的问题

项目表事件中有以下二句代码：

Dim i As Integer=len(CStr(e.DataRow("起始时间")))
e.DataRow("记录标记")=CStr(e.DataRow("起始时间")).SubString(0,i) & e.DataRow("工序") & e.DataRow("卷号")
这二句代码是生成一个记录标记，由于大家用的电脑的日期设置不一样，导致生成的记录标记各种各样，如：

2015/1/1 轧机1号CS150101

2015-01-01轧机1号CS150101

 

我也不可能天天盯着这些电脑的日期设置，这个记录标记在整个项目中多处用到，是个关键数据，有何办法可以统一起来。

[此贴子已经被作者于2015/3/19 23:14:41编辑过]
--  作者：有点甜
--  发布时间：2015/3/19 23:37:00
--  

Dim i As Integer=len(CStr(e.DataRow("起始时间")))
e.DataRow("记录标记")=CStr(e.DataRow("起始时间")).SubString(0,i) & e.DataRow("工序") & e.DataRow("卷号")

 

改成


e.DataRow("记录标记") = Format(e.DataRow("起始时间"), "yyyy-MM-dd") & e.DataRow("工序") & e.DataRow("卷号")