主题：请教：如何用代码建立临时表？

如果你的表 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 加载一下，再用以上方法