主题：临时表的行如何才能上下移动（OK）

Dim tbl As Table = e.Form.Controls("Table1").Table

'生成显示字段表结构

Dim dtb As New DataTableBuilder("显示字段")

dtb.AddDef("序号", Gettype(Integer))

dtb.AddDef("列名", Gettype(String), 16)

dtb.AddDef("宽度", Gettype(Integer))

dtb.Build()

tbl.DataSource = dtb.BuildDataSource()

tbl.AllowEdit = True

tbl.SetColVisibleWidth("序号|45|列名|80|宽度|65")

tbl.ShowCheckBox = True