运行中增加Table控件

动态添加Table

窗口中的Table不能用CreateControl来创建，Form使用另外三个方法来创建Table。

CreateSQLTable

用于创建SQLTable类型的Table，语法：

CreateSQLTable(Name, SqlText , ConnectionName)

参数说明:

Name：控件名称
SQLText： Select语句
ConnectionName：数据源名称

CreateSQLQuery

用于创建SQLQuery类型的Table，语法：

CreateSQLQuery(Name, SqlText , ConnectionName)

参数说明:

Name：控件名称
SQLText： Select语句
ConnectionName：数据源名称

CreateTable

用于创建Normal型Table，语法:

CreateTable(Name, TableName, IsCopy)

Name：控件名称
TableName：数据表名称
IsCopy：逻辑型，是否作为副本，设为True作为副本。

示例一

创建一个SQLTable型Table控件，从nwind数据源中加载产品表的数据：

Dim tbl As WinForm.Table
tbl = e.Form.CreateSQLTable("Table1", "Select * From {产品}","nwind")
tbl.SetBounds(10, 10, 600, 400)
e.Form.AddControl(tbl)

示例二

创建一个SQLQuery型Table控件，加载内部数据源中的产品表：

Dim tbl As WinForm.Table
tbl = e.Form.CreateSQLQuery("Table1", "Select * From {产品}","")
tbl.SetBounds(10, 10, 600, 400)
e.Form.AddControl(tbl)

示例三

创建一个Normal型Table控件，将订单表移到窗口中：

Dim tbl As WinForm.Table
tbl = e.Form.CreateTable("Table1", "订单", False)
tbl.SetBounds(10, 10, 600, 400)
e.Form.AddControl(tbl)

示例四

创建订单表的副本：

Dim tbl As WinForm.Table
tbl = e.Form.CreateTable("Table1", "订单", True)
tbl.SetBounds(10, 10, 600, 400)
e.Form.AddControl(tbl)