| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 简化afterOpenProject的设置 -追加问题(设置日期格式后,不能编写日期) (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=32107) |
| -- 作者：realredred -- 发布时间：2013/4/25 20:36:00 -- 简化afterOpenProject的设置 -追加问题(设置日期格式后,不能编写日期) 现在写的日期格式转換是这样 DataTables("进度").DataCols("手雕S").SetFormat("MM-dd")
好像很重复又長氣的感觉 有沒有方法简化一下. 另外就是,列是日期格式的,能否只输入月份和日期,现在要入年.月.日 很烦人.. 求教 [此贴子已经被作者于2013-5-12 18:54:56编辑过]
|
| -- 作者：e-png -- 发布时间：2013/4/25 21:45:00 -- For Each ............Next |
| -- 作者：unverse -- 发布时间：2013/4/26 -- 办法是人想出来的，你可以，将要设置格式的字段放到一个字符串集合中，用split将其拆分陈数组，然后遍历数组，一个for循环就搞定，以后再添加直接把字段放到集合中就可以了 |
| -- 作者：realredred -- 发布时间：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编辑过]
|
| -- 作者：程兴刚 -- 发布时间：2013/4/26 0:39:00 -- Dim fs() As String = {"F","S"} Dim Lst() As String = {"手雕","电雕","蜡钉","倒模","银版","银钉","修版"} For Index As Integer = 0 To fs.Length - 1 For i As Integer = 0 To lst.Length - 1 DataTables("进度").DataCols(Lst(i) & fs(Index)).SetFormat("MM-dd") Next Next |
| -- 作者：realredred -- 发布时间：2013/4/27 16:39:00 -- 出问题了, 用这样的代码的确能把已编写的日期格式转过來 与此同时,想编写新的日期时,就不能输入了.不知出了什麼事故 我是写在 afteropenproject里的 |