假如我现在有一张内部数据表 TableA

请问我该如何在项目运行中用代码建立一个类型为 临时表 的空表 TableB， 而且TableB的结构与TableA完全一致？

OK

问题是如何获取源表TableA各个列的数据类型呢？

Dim dt As DataTable
Dim cmd As New SQLCommand
cmd.CommandText = "Select a.name As colname, b.name As typename from syscolumns a,systypes b where a.xusertype=b.xusertype And a.id=object_id(\'TableA\')"
dt = cmd.ExecuteReader()

请问是这样吗？

在命令窗口运行结果如下：

如果你的表 TableA 已经加载

临时表 用  

Dim dtb As New DataTableBuilder("B")
For Each dc As DataCol In DataTables("A").DataCols
    dtb.AddDef(dc.name,dc.DataType)
Next
dtb.Build

窗口表 用

Dim tb As Table = e.Form.Controls("Table1").Table
tb.DataSource = DataTables("A").BaseTable.Clone
tb.DataTable.AllowEdit = True

没有加载，就select 加载一下，再用以上方法

谢谢啦！我要的就是它！

我在逛大的基础上稍稍做了点改动，这样就把A表的字符长度也复制过来了。

Dim dtb As New DataTableBuilder("B")
For Each dc As DataCol In DataTables("A").DataCols
If dc.IsString Then
    dtb.AddDef(dc.name,dc.DataType,dc.MaxLength)
Else
    dtb.AddDef(dc.name,dc.DataType)
End If
Next
dtb.Build