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()
图片类型, 图片大小, 错误原因, 想居中。