[求助]怎样把内部表转化为临时表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]怎样把内部表转化为临时表

共有16179人关注过本帖树形打印复制链接主题：[求助]怎样把内部表转化为临时表

tianhe95

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：148 积分：1665 威望：0 精华：0 注册：2008/9/1 19:40:00

[求助]怎样把内部表转化为临时表 发帖心情

Post By：2009/10/25 20:02:00 [只看该作者]

已经设计完成内部表，怎样把内部表转化为临时表

e-png

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1695 积分：10725 威望：0 精华：0 注册：2009/10/25 16:45:00

Post By：2009/10/25 20:12:00 [只看该作者]

关闭项目时delete这个内部表即可。

tianhe95

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：148 积分：1665 威望：0 精华：0 注册：2008/9/1 19:40:00

Post By：2009/10/25 20:26:00 [只看该作者]

原来是内部表，现在想做一个跟内部表一样的临时表

，表比较复杂能转换的话就简单多了

lxl

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：MVP荣誉狐帖子：858 积分：6071 威望：0 精华：19 注册：2008/9/1 9:13:00

Post By：2009/10/25 20:31:00 [只看该作者]

Dim dtb As New DataTableBuilder("新表")
For Each dc As DataCol In DataTables("原表").DataCols
    If dc.IsString Then dtb.AddDef(dc.Name, GetType(String),dc.MaxLength)
    If dc.IsNumeric Then dtb.AddDef(dc.Name, GetType(Integer))
    If dc.IsDate Then dtb.AddDef(dc.Name, GetType(Date))
    If dc.IsBoolean Then dtb.AddDef(dc.Name, GetType(Boolean))
Next
dtb.Build()

'复制默认值表达式禁止重复等信息
For Each dc As DataCol In DataTables("原表").DataCols
    With DataTables("新表").DataCols(dc.Name)
        .Unique = dc.Unique
        .DefaultValue = dc.DefaultValue
        If dc.Expression <> "" Then
            .Expression = dc.Expression
        End If
    End With
Next

缺陷是没办法区分Integer 和double等数值列。。