共17 条记录, 每页显示 10 条, 页签: [1] [2]

标题：为什么这段代码一直不起作用?

1楼

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)

我测试了很多次一直不行?难道不能同生成控件一样单独生成表的吗?

2楼

czy 发表于：2009/12/17 17:31:00

帮助过时了。

3楼

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)

4楼

blackzhu 发表于：2009/12/17 17:32:00

以下是引用czy在2009-12-17 17:31:00的发言：
帮助过时了。

哦,不能用了.

5楼

czy 发表于：2009/12/17 17:39:00

3楼有可用的。

6楼

菜鸟foxtable 发表于：2009/12/17 18:41:00

学习

7楼

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)

试一下.

8楼

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")这段话去除才能用.

9楼

菜鸟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编辑过]

10楼

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编辑过]

应该行,不要这么麻烦的

共17 条记录, 每页显示 10 条, 页签: [1] [2]