主题：临时表居中

*不是整个表列

Dim cmd As New SQLCommand

cmd.CSelect '' As 图片名称,'' As 图片类型,'' As 图片大小,'' As 上传进度,'' As 错误原因,'' As 地址"

Dim dt As DataTable = cmd.ExecuteReader()

Tables("上传图片_Table1").DataSource = dt

Tables("上传图片_Table1").SetColVisibleWidth("图片名称|238|图片类型|58|图片大小|78|上传进度|120|错误原因|190")

DataTables("上传图片_Table1").SysStyles("EmptyArea").BackColor = Color.White

DataTables("上传图片_Table1").RemoveFor("True") '隐藏列

Tables("上传图片_Table1").ExtendLastCol = True

Tables("上传图片_Table1").Appearance.ShowLockTableIcon =False

Tables("上传图片_Table1").Refresh()

图片类型， 图片大小， 错误原因，  想居中。