Foxtable(狐表) → 用户栏目 → 专家坐堂 → 动态添加控件请教


  共有6139人关注过本帖树形打印复制链接

主题：动态添加控件请教
帅哥哟，离线，有人找我吗？
有点甜
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/6/26 9:21:00 [只看该作者]

以下是引用逛逛在2014-6-26 7:48:00的发言：

动态添加的表控件，卸载的时候，要用Unload 卸载对应的Datatable

 

测试，好像是unload不了的。
 回到顶部
帅哥哟，离线，有人找我吗？
hbhb
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5059 积分：13077 威望：0 精华：0 注册：2014/5/15 21:34:00 		  发帖心情 Post By：2014/6/26 9:53:00 [只看该作者]

图片点击可在新窗口打开查看图片点击可在新窗口打开查看     幼儿园学生解哥德巴赫猜想             
                                     
 回到顶部
帅哥哟，离线，有人找我吗？
hbhb
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5059 积分：13077 威望：0 精华：0 注册：2014/5/15 21:34:00 		  发帖心情 Post By：2014/6/26 11:07:00 [只看该作者]

还没有解决，有劳大师

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/6/26 11:20:00 [只看该作者]

以下是引用hbhb在2014-6-26 11:07:00的发言：
还没有解决，有劳大师

 

1、要么不动态生成或移除表，改成隐藏和显示；

 

2、哪里没有解决？
 回到顶部
帅哥哟，离线，有人找我吗？
hbhb
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5059 积分：13077 威望：0 精华：0 注册：2014/5/15 21:34:00 		  发帖心情 Post By：2014/6/26 11:43:00 [只看该作者]

甜大师：您好！
按照您的方法解决了单、双击的报错问题，谢谢了。
但如果我要继续用代码引用此表时如何写表控件名

Dim frm As WinForm.Form = Forms("Main")
Dim tbl As Table = frm.Controls(Vars("Pcode") & "Table1" & Format(Date.now, "hhmmss").Table
If tbl.Current Is Nothing Then
    tbl.addnew
End If

此时的表控件存在吗？
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/6/26 12:21:00 [只看该作者]

 回复15楼，你可以用一个变量存储此表的名字。

 

vars("名字") = Vars("Pcode") & "Table1" & Format(Date.now, "hhmmss"
 回到顶部
帅哥哟，离线，有人找我吗？
逛逛
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：1693 积分：12135 威望：0 精华：7 注册：2013/7/11 10:52:00 		  发帖心情 Post By：2014/6/26 12:47:00 [只看该作者]

以下是引用有点甜在2014-6-26 9:21:00的发言：

 

测试，好像是unload不了的。

俺试了一个上午，点快了都不行，好像是只有你的那种方法可行。

 
 回到顶部
帅哥哟，离线，有人找我吗？
hbhb
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5059 积分：13077 威望：0 精华：0 注册：2014/5/15 21:34:00 		  发帖心情 Post By：2014/6/26 13:25:00 [只看该作者]

还不是一样吗？时间变量

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/6/26 14:08:00 [只看该作者]

以下是引用hbhb在2014-6-26 13:25:00的发言：
还不是一样吗？时间变量

 

这样写

 

Dim frm As WinForm.Form = Forms("Main")

vars("名字") = Vars("Pcode") & "Table1" & Format(Date.now, "hhmmss")

Dim tbl As Table = frm.Controls(vars("名字")).Table
If tbl.Current Is Nothing Then
    tbl.addnew
End If
[此贴子已经被作者于2014-6-26 14:08:41编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
hbhb
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5059 积分：13077 威望：0 精华：0 注册：2014/5/15 21:34:00 		  发帖心情 Post By：2014/6/26 14:51:00 [只看该作者]

大师:还是不行
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:请教项目(答1）.zip
 回到顶部
总数 39 上一页 1 2 3 4 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 5 次数据查询