以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  动态增加表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=74442)
--  作者：kaituozhe
--  发布时间：2015/9/11 0:04:00
--  动态增加表

下面这段代码点增加按钮在窗口中动态添加了一个表，

Dim tbl As WinForm.Table
tbl = e.Form.CreateTable("Table1", "生产计划", False)
tbl.SetBounds(320, 85, 950, 450)
e.Form.AddControl(tbl)

以下代码是把上段代码中在窗口中生成的表从窗口移除，但是没有办法保存，提示错误。

Dim tbl As WinForm.Table
tbl = e.Form.CreateTable("Table1", "生产计划", False)
e.Form.RemoveControl(tbl)
--  作者：kaituozhe
--  发布时间：2015/9/11 0:07:00
--  
追问一个问题，我在窗口中动态增加一个，可以同时添加筛选条件吗？比如某一时段的数据
--  作者：大红袍
--  发布时间：2015/9/11 0:11:00
--  

移除直接写

 

e.Form.RemoveControl("Table1")
--  作者：大红袍
--  发布时间：2015/9/11 0:12:00
--  

Dim tbl As WinForm.Table
tbl = e.Form.CreateTable("Table1", "生产计划", False)
tbl.SetBounds(320, 85, 950, 450)

tbl.Filter = "你的条件"
e.Form.AddControl(tbl)
--  作者：kaituozhe
--  发布时间：2015/9/11 12:37:00
--  
tbl.Filter = e.Form.Controls("TextBox3").value，我这样设置了，提示filter不WinForm.Table的成员，要实现这个该怎么办。
--  作者：kaituozhe
--  发布时间：2015/9/11 12:58:00
--  
有没有其他途径
--  作者：Hyphen
--  发布时间：2015/9/11 14:22:00
--  
tbl.Table.Filter = e.Form.Controls("TextBox3").value