标题：[求助]怎样把内部表转化为临时表

1楼

tianhe95 发表于：2009/10/25 20:02:00

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

2楼

e-png 发表于：2009/10/25 20:12:00

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

3楼

tianhe95 发表于：2009/10/25 20:26:00

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

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

4楼

lxl 发表于：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等数值列。。

5楼

tianhe95 发表于：2009/10/25 20:35:00

谢了，有了基本结构，修改总比较方便些

6楼

lxl 发表于：2009/10/25 20:38:00

以下是引用tianhe95在2009-10-25 20:35:00的发言：

谢了，有了基本结构，修改总比较方便些

坏了，还是不行。。
代码生成的表不能保存

7楼

lxl 发表于：2009/10/25 20:49:00

还是手动设计吧。再复杂的表也不会花太长时间吧。

8楼

tianhe95 发表于：2009/10/25 21:02:00

用代码生成的临时表，在关闭项目后，将不复存在，我需要表存在于项目中，

9楼

程兴刚 发表于：2009/10/25 21:03:00

以下是引用lxl在2009-10-25 20:38:00的发言：

坏了，还是不行。。
代码生成的表不能保存

他不是要的就是临时表吗？临时表本来就不能保存的！

10楼

tianhe95 发表于：2009/10/25 21:08:00

看来只能慢慢手动设计

共11 条记录, 每页显示 10 条, 页签: [1] [2]