以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]ExistControl(Name)  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=16174)
--  作者：johnbu
--  发布时间：2012/2/4 10:03:00
--  [求助]ExistControl(Name)
想问一下这个用到IF语句里面怎么用呢？？

ExistControl(Name)

它返回的逻辑值是什么样的呢？
--  作者：johnbu
--  发布时间：2012/2/4 10:22:00
--  

代码如下

If e.Form.ExistControl("Table1")=0 Then
    Dim tbl As WinForm.Table
    tbl = e.Form.CreateTable("Table1", "销售订单", True)
    tbl.SetBounds(6, 330, 663, 250)
    e.Form.Controls("SplitContainer1").Panel2.AddControl(tbl)
    Tables("销售订单").AddNew()
Else
    Tables("销售订单").DataTable.Load(False)
    e.Form.Controls("SplitContainer1").Panel2.removeControl("Table1")
    Dim tbl As WinForm.Table
    tbl = e.Form.CreateTable("Table1", "销售订单", True)
    tbl.SetBounds(6, 330, 663, 250)
    e.Form.Controls("SplitContainer1").Panel2.AddControl(tbl)
    Tables("销售订单").AddNew()
End If
--  作者：blackzhu
--  发布时间：2012/2/4 10:57:00
--  

If e.Form.ExistControl("Table1")=False Then
    Dim tbl As WinForm.Table
    tbl = e.Form.CreateTable("Table1", "销售订单", True)
    tbl.SetBounds(6, 330, 663, 250)
    e.Form.Controls("SplitContainer1").Panel2.AddControl(tbl)
End If
Tables("窗口名_Table1").AddNew()

 

 

你那个Else  后面是什么意思?
--  作者：johnbu
--  发布时间：2012/2/4 16:39:00
--  
我想把表删除掉再重新加载一下。
--  作者：程兴刚
--  发布时间：2012/2/4 19:22:00
--  
以下是引用johnbu在2012-2-4 16:39:00的发言：
我想把表删除掉再重新加载一下。

 

把表删除掉在加载？加载到哪里？这样的话还要动态再添加表，何不直接条件加载即可！