【求助】如何用代码修改表的显示列标题

天下无光

如何用代码修改表的显示列标题？
并且做到：

1、本表立即更新显示为最新列标题
2、修改后台表属性性中的列标题

admin

Dim tbl As SmGrid=Proj.CurrentSmGrid

tbl.DataTableHelp.Database.ExecuteNonQuery("Update SysColumnSchema Set FSsCaption='新的列标题' where FSsColumnName='列名称' and FSzTableID=(select FSzTableID from SysTableSchema where FSsTableName='" & tbl.DataTableHelp.DataBaseTableName & "')")
tbl.Cols("列名称").Caption="新的列标题"

'如果是多行标题，可以考虑直接对单元格进行赋值，表标题也可以看作单元格操作
'将第1行第5列单元格填充为“新的列标题”
tbl(0,4)="新的列标题"
复制代码

这种只能处理那种常规的基础表的场景，一些SQL和存储过程、平台内的视图加载的数据无法通过这种方法更改标题。那些只能自己想办法了。