以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  为什么这段代码一直不起作用?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=5531)
--  作者：blackzhu
--  发布时间：2009/12/17 17:18:00
--  为什么这段代码一直不起作用?
Dim t As WinForm.Table
t = e.Form.CreateControl("表A", ControlTypeEnum.Table)
t.SetBounds(10,10,400,300)
e.Form.AddControl(t)


我测试了很多次一直不行?难道不能同生成控件一样单独生成表的吗?
--  作者：czy
--  发布时间：2009/12/17 17:31:00
--  
帮助过时了。
--  作者：czy
--  发布时间：2009/12/17 17:32:00
--  
正确的方法：

e.Form.RemoveControl("Table1")
Dim t As WinForm.Table
t = e.Form.CreateTable("Table1","表A",true)
t.SetBounds(12,12,500,340)
e.Form.AddControl(t)
--  作者：blackzhu
--  发布时间：2009/12/17 17:32:00
--  
以下是引用czy在2009-12-17 17:31:00的发言：
帮助过时了。

 哦,不能用了.
--  作者：czy
--  发布时间：2009/12/17 17:39:00
--  
3楼有可用的。
--  作者：菜鸟foxtable
--  发布时间：2009/12/17 18:41:00
--  
学习
--  作者：blackzhu
--  发布时间：2009/12/18 8:14:00
--  
以下是引用czy在2009-12-17 17:32:00的发言：
正确的方法：

e.Form.RemoveControl("Table1")
Dim t As WinForm.Table
t = e.Form.CreateTable("Table1","表A",true)
t.SetBounds(12,12,500,340)
e.Form.AddControl(t)

  试一下.
--  作者：blackzhu
--  发布时间：2009/12/18 8:26:00
--  
e.Form.RemoveControl("Table1")
Dim t As WinForm.Table
t = e.Form.CreateTable("Table1","表A",true)
t.SetBounds(12,12,500,340)
e.Form.AddControl(t)


C版,这段代码将e.Form.RemoveControl("Table1")这段话去除才能用.
--  作者：菜鸟foxtable
--  发布时间：2009/12/18 9:17:00
--  
这样行不行？
If e.Form.ExistControl("Table1") = True Then
    e.Form.RemoveControl("Table1")
Else
    Return
End If
Dim t As WinForm.Table
t = e.Form.CreateTable("Table1","表A",true) 
t.SetBounds(12,12,500,340) 
e.Form.AddControl(t)
[此贴子已经被作者于2009-12-18 9:17:21编辑过]
--  作者：blackzhu
--  发布时间：2009/12/18 9:44:00
--  
以下是引用菜鸟foxtable在2009-12-18 9:17:00的发言：
这样行不行？
If e.Form.ExistControl("Table1") = True Then
    e.Form.RemoveControl("Table1")
Else
    Return
End If
Dim t As WinForm.Table
t = e.Form.CreateTable("Table1","表A",true) 
t.SetBounds(12,12,500,340) 
e.Form.AddControl(t)
[此贴子已经被作者于2009-12-18 9:17:21编辑过]

应该行,不要这么麻烦的