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

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

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")

 

好像很重复又長氣的感觉

有沒有方法简化一下.

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

很烦人..

求教

For Each ............Next

办法是人想出来的，你可以，将要设置格式的字段放到一个字符串集合中，用split将其拆分陈数组，然后遍历数组，一个for循环就搞定，以后再添加直接把字段放到集合中就可以了

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

出问题了,

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

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

我是写在 afteropenproject里的