主题：临时表设置

在窗口中增加控件“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))

 

在“日期”列输入日期，按回车时会产生警告音，请问哪里出错？

正常运作吗?

  正常情况。如果输入的不是数字，或者输入的不符合，就有警报

输入日期，用鼠标选择其它单元格；其它列输入内容按回车键都不会产生警告音。

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

 

谢谢！