- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请教，在SQL Table中，动态加载的表的列名称更改 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=4679)
-- 发布时间：2009/10/19 16:49:00
-- 请教，在SQL Table中，动态加载的表的列名称更改
在SQL Table中，动态加载的表的列名称原是英文的，想在表中显示列标题为所需的中文格式，如何用代码实现？
-- 发布时间：2009/10/19 16:56:00
--
Initialize
数据已经加载，所有的DataTable都已经生成，即将生成Table和窗口的时候执行，通常在此添加全局变量，以及针对DataTable的初始化设置。
例如将Initialize事件代码设为：
Vars.Add("Aggregate",GetType(Boolean),False)
DataTables("订单").DataCols("日期").DefaultValue = Date.Today()
上面的代码增加了一个逻辑型全局变量Aggregate，并将订单表日期列的默认值设置当天日期。
利用Initialize事件，还可以动态设置列标题：
With
DataTables("表B").DataCols("Name").Caption = "姓名"
.DataCols("ID").Caption = "编号"
.DataCols("Date").Caption = "日期"
End With
不能在Initialize事件中出现针对Table、Col和窗口的代码，因为此时上述对象还未生成。
-- 发布时间：2009/10/19 17:03:00
--
|
在SQL Table中 |
-- 发布时间：2009/10/19 17:04:00
--
在SQLTable的Select语句中，可以用As关键词改名
Select Name As 姓名, Id As 编号....
-- 发布时间：2009/10/19 17:05:00
--
谢了，明白。
-- 发布时间：2024/3/15 10:53:00
--
Dim tbl As WinForm.Table
tbl = Frm.CreateS
QLTable("Table1", "Se
lect 姓名 As Name,性别 As Gender,年龄 As Age,From {表A}", "")
tbl.SetBounds(0, 10, 600, 400)
frm.AddControl(tbl)
---------------
动态加载表，修改列名，出现错误
此主题相关图片如下：微信图片_20240315105049.png