以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  临时表设置  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=59530)
--  作者：明丰
--  发布时间：2014/11/6 9:20:00
--  临时表设置

在窗口中增加控件“Table1”，不绑定表。

 

\'窗口 AfterLoad
Dim t2 As Table = Tables(e.Form.name & "_Table1")
Dim t12 As DataTable = DataTables(e.Form.name & "_Table1")
t2.AllowEdit = True
t2.Cols.Remove("第一列","第二列","第三列","第四列","第五列","第六列","第七列","第八列","第九列","第十列")
t12.DataCols.Add("字符", Gettype(String))
t12.DataCols.Add("日期", Gettype(Date))
t12.DataCols.Add("逻辑", Gettype(Boolean))
t12.DataCols.Add("整数", Gettype(Integer))
t12.DataCols.Add("双精度小数", Gettype(Double))

 

在“日期”列输入日期，按回车时会产生警告音，请问哪里出错？
--  作者：Bin
--  发布时间：2014/11/6 9:21:00
--  
正常运作吗?
--  作者：有点甜
--  发布时间：2014/11/6 9:22:00
--  
  正常情况。如果输入的不是数字，或者输入的不符合，就有警报
--  作者：明丰
--  发布时间：2014/11/6 9:25:00
--  
输入日期，用鼠标选择其它单元格；其它列输入内容按回车键都不会产生警告音。
--  作者：有点甜
--  发布时间：2014/11/6 9:45:00
--  

 加一句 t2.Cols("日期").UsetBuildInEditor = True

 
--  作者：明丰
--  发布时间：2014/11/6 9:47:00
--  

谢谢！