- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]窗口内按按钮打开表，再按出错，怎么办？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=22991)
-- 发布时间：2012/8/29 15:53:00
-- [求助]窗口内按按钮打开表，再按出错，怎么办？
打开后，再按打开按钮，就报错，不想出现报错，想再按按钮没反应
Dim tbl As WinForm.Table
tbl = e.Form.CreateTable("Table1", "产品表", True)
tbl.SetBounds(120, 150, 600, 400)
e.Form.AddControl(tbl)
以上是在窗口内新建表的代码，加判断是否打开的代码怎么写啊？谢谢
-- 发布时间：2012/8/29 16:13:00
--
if ........then
Dim tbl As WinForm.Table
tbl = e.Form.CreateTable("Table1", "产品表", True)
tbl.SetBounds(120, 150, 600, 400)
e.Form.AddControl(tbl)
end if
-- 发布时间：2012/8/29 16:18:00
--
楼上的说的等于没说，点点点用啥语句代替啊？
-- 发布时间：2012/8/29 16:26:00
--
我会了，试验通过~！
If e.form.ExistControl("table3")= False Then
Dim tbl As WinForm.Table
tbl = e.Form.CreateTable("Table1", "产品表", True)
tbl.SetBounds(120, 150, 600, 400)
e.Form.AddControl(tbl)
End If
-- 发布时间：2012/8/29 16:27:00
--
上面第一行table3应该为table1
If e.form.ExistControl("table1")= False Then
Dim tbl As WinForm.Table
tbl = e.Form.CreateTable("Table1", "产品表", True)
tbl.SetBounds(120, 150, 600, 400)
e.Form.AddControl(tbl)
End If