以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  开启内置输入框的通用代码  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=14863)
--  作者：blackzhu
--  发布时间：2011/12/5 8:20:00
--  开启内置输入框的通用代码

Tables(e.Form.Name & "_Table1").Cols("到货日期").UsetBuildInEditor = True

 

  老大,只要是窗口表含有日期或者时间的列就开启内置时间输入器的通用代码怎么写?
--  作者：狐狸爸爸
--  发布时间：2011/12/5 8:58:00
--  

可以通过这个判断列的数据类型：

 

IsNumeric 判断该列是否是数值型
IsString 判断该列是否是字符串型
IsDate 判断该列是否是日期型

 

Dim t as table = Tables(e.Form.Name & "_Table1")

For each c as Col in t.Cols

    if c.DataCol.IsDate Orelse c.DataCol.IsNumeric then

         c.UsetBuildInEditor = True

    end if

next
--  作者：blackzhu
--  发布时间：2011/12/5 9:10:00
--  
谢谢,明白了.对呀可以这么写,我一直想着怎么判断列名了.