以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]怎样动态删除控件?怎样动态设置控件,使之对容器自适应?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=42711)

--  作者:卧美吻花
--  发布时间:2013/11/20 0:51:00
--  [求助]怎样动态删除控件?怎样动态设置控件,使之对容器自适应?
Dim SQLCHANPIN As String = "Select  xxxxxxxxxxx Where 货品id = \'" & 货品型号 & "\' Order By 成交时间"

If ExistControl("销售详情") = True Then RemoveControl("销售详情")

Dim tbl As WinForm.Table

tbl = e.Form.CreateSQLQuery("销售详情", SQLCHANPIN,"xx服务器")

tbl.SetBounds(0,0, 920, 325)

e.Form.Controls("TabControl1").Tabpages(0).AddControl(tbl)

这是代码的一部分

保存的时候说

编译错误:未声明名称 “ExistControl”

帮助文件在这里
http://www.foxtable.com/help/topics/1409.htm

请问如何解决?


另,屏蔽掉判断控件是否存在的情况下,首次可以运行

但是,应该怎样设置该控件的属性?
[此贴子已经被作者于2013-11-20 0:51:15编辑过]

--  作者:卧美吻花
--  发布时间:2013/11/20 1:05:00
--  
对应 createSQLquery
有没有removeSQLquery?

--  作者:程兴刚
--  发布时间:2013/11/20 2:40:00
--  
e.Form.RemoveControl("销售详情")
--  作者:卧美吻花
--  发布时间:2013/11/20 9:47:00
--  
程版,请问如何判断是否存在控件??
--  作者:程兴刚
--  发布时间:2013/11/20 9:52:00
--  

您自己不是会吗?

 

If e.Form.ExistControl("销售详情") = True

[此贴子已经被作者于2013-11-20 9:52:29编辑过]

--  作者:卧美吻花
--  发布时间:2013/11/20 11:05:00
--  
呃,这个样子的啊。。。。。没法编译


最新的开发板
[此贴子已经被作者于2013-11-20 11:05:13编辑过]

--  作者:卧美吻花
--  发布时间:2013/11/20 11:08:00
--  
请程版仔细看问题图片点击可在新窗口打开查看
--  作者:Bin
--  发布时间:2013/11/20 11:42:00
--  
请您仔细看程版的回复!
--  作者:程兴刚
--  发布时间:2013/11/20 11:48:00
--  
哈哈,您总不会end if 都不会自己加上吧?要不还有啥问题!