主题：临时表日期时间设置

 Dim b As New DataTableBuilder("扫描清单")
b.AddDef("记录单编号", Gettype(String), 50)
b.AddDef("报告编号", Gettype(String), 50)
b.AddDef("节点", Gettype(String), 20)
b.AddDef("时间", Gettype(Datetime))
Tables("节点扫码_Table1").DataSource = b.BuildDataSource()
Tables("节点扫码_Table1").AllowEdit = True
Tables("节点扫码_Table1").EnterKeyActionDown = True
Tables("节点扫码_Table1").Cols("记录单编号").Width = 120
Tables("节点扫码_Table1").Cols("报告编号").Width = 100
Tables("节点扫码_Table1").Cols("节点").Width = 70

参考：http://www.foxtable.com/webhelp/topics/1611.htm