Foxtable(狐表)用户栏目专家坐堂 → 简化afterOpenProject的设置 -追加问题(设置日期格式后,不能编写日期)


  共有7150人关注过本帖树形打印复制链接

主题:简化afterOpenProject的设置 -追加问题(设置日期格式后,不能编写日期)

帅哥哟,离线,有人找我吗?
realredred
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:488 积分:3358 威望:0 精华:0 注册:2013/4/17 21:14:00
简化afterOpenProject的设置 -追加问题(设置日期格式后,不能编写日期)  发帖心情 Post By:2013/4/25 20:36:00 [显示全部帖子]

现在写的日期格式转換是这样

DataTables("进度").DataCols("手雕S").SetFormat("MM-dd")
DataTables("进度").DataCols("手雕F").SetFormat("MM-dd")
DataTables("进度").DataCols("电雕S").SetFormat("MM-dd")
DataTables("进度").DataCols("电雕F").SetFormat("MM-dd")
DataTables("进度").DataCols("蜡钉S").SetFormat("MM-dd")
DataTables("进度").DataCols("蜡钉F").SetFormat("MM-dd")
DataTables("进度").DataCols("倒模S").SetFormat("MM-dd")
DataTables("进度").DataCols("倒模F").SetFormat("MM-dd")
DataTables("进度").DataCols("银版S").SetFormat("MM-dd")
DataTables("进度").DataCols("银版F").SetFormat("MM-dd")
DataTables("进度").DataCols("银钉S").SetFormat("MM-dd")
DataTables("进度").DataCols("银钉F").SetFormat("MM-dd")
DataTables("进度").DataCols("修版S").SetFormat("MM-dd")
DataTables("进度").DataCols("修版F").SetFormat("MM-dd")
DataTables("进度").DataCols("压模").SetFormat("MM-dd")
DataTables("进度").DataCols("试版单").SetFormat("MM-dd")

 

好像很重复又長氣的感觉

有沒有方法简化一下.

另外就是,列是日期格式的,能否只输入月份和日期,现在要入年.月.日

很烦人..

求教

[此贴子已经被作者于2013-5-12 18:54:56编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
realredred
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:488 积分:3358 威望:0 精华:0 注册:2013/4/17 21:14:00
  发帖心情 Post By:2013/4/26 0:09:00 [显示全部帖子]

Dim Lst As New List(Of String)
Dim Arys() As String
Lst.Add( "手雕S")
Lst.Add( "手雕F")
Lst.Add( "电雕S")
Lst.Add( "电雕F")
Lst.Add( "蜡钉S")
Lst.Add( "蜡钉F")
Lst.Add( "倒模S")
Lst.Add( "倒模F")
Lst.Add( "银版S")
Lst.Add( "银版F")
Lst.Add( "银钉S")
Lst.Add( "银钉F")
Lst.Add( "修版S")
Lst.Add( "修版F")
Arys = Lst.ToArray() '将集合转换为数组
For Each nm As String In lst
DataTables("进度").DataCols(nm).SetFormat("MM-dd")
Next

看帮助写出來的.
是否还可以再优化呢?
还有,写代码有沒有字节限制?
[此贴子已经被作者于2013-4-26 0:14:59编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
realredred
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:488 积分:3358 威望:0 精华:0 注册:2013/4/17 21:14:00
  发帖心情 Post By:2013/4/27 16:39:00 [显示全部帖子]

出问题了,

用这样的代码的确能把已编写的日期格式转过來

与此同时,想编写新的日期时,就不能输入了.不知出了什麼事故

我是写在 afteropenproject里的


 回到顶部