以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  建临时表的代码该如何写  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=91937)

--  作者:bobolan521
--  发布时间:2016/10/22 12:17:00
--  建临时表的代码该如何写

Dim dtb As New DataTableBuilder("统计")
For Each dc As DataCol In DataTables("采购资金计划表").DataCols
    dtb.AddDef(dc.name, Gettype(String), 32)
Next
dtb.Build()

以上代码可以执行,并建出了临时表 统计

但字段类型和采购资金计划表不一样了,

dtb.AddDef(dc.name, Gettype(String), 32) 这句该如何修改,才能
使代码执行后,建出的临时表,和采购资金计划表的表结构一样啊?

--  作者:有点蓝
--  发布时间:2016/10/22 14:29:00
--  
http://www.foxtable.com/webhelp/scr/1356.htm

if dc.IsString then
dtb.AddDef(dc.name, Gettype(String), 32)
elseif dc.IsNumeric then
dtb.AddDef(dc.name, Gettype(intger))
......

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