Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关于标签的显示问题


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

主题：[求助]关于标签的显示问题
帅哥哟，离线，有人找我吗？
syzsyk
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：274 积分：2303 威望：0 精华：0 注册：2008/9/12 16:46:00 		  发帖心情 Post By：2013/6/19 14:54:00 [只看该作者]

因为tzc是变量，必须要赋值，这我知道，但为什么总是第一次操作就能成功，关闭登陆窗口后，要再次主陆每次要操作2次才有效呢?

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


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2013/6/19 14:56:00 [只看该作者]

你自己调试弹出分析一下就知道了  确保tzc的值正常,  然后也要确保有执行为LABEL26赋值的代码

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


加好友 发短信
等级：童狐 帖子：274 积分：2303 威望：0 精华：0 注册：2008/9/12 16:46:00 		  发帖心情 Post By：2013/6/19 18:12:00 [只看该作者]

在要打开的窗口afterload中：

Dim lbl As WinForm.Label
lbl = e.Form.Controls("Label26")
lbl.Text = tzc 

发现登陆窗口选择一次赋值后，要打开的这个窗口必须打开2次后，label26才能显示选择的值。
 回到顶部
帅哥哟，离线，有人找我吗？
jianjingmaoyi
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：760 积分：4714 威望：0 精华：0 注册：2011/12/17 18:37:00 		  发帖心情 Post By：2013/6/19 21:28:00 [只看该作者]

唉 这么一个简单的东西搞的这么复杂 把东西上传呀

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


加好友 发短信
等级：管理员 帖子：47448 积分：251060 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2013/6/20 8:35:00 [只看该作者]

就是，做个简单例子上传，一分钟搞定。
 回到顶部
帅哥哟，离线，有人找我吗？
syzsyk
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：274 积分：2303 威望：0 精华：0 注册：2008/9/12 16:46:00 		  发帖心情 Post By：2013/6/21 10:53:00 [只看该作者]

上传例子，请大家帮忙！

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目8.foxdb
 回到顶部
帅哥哟，离线，有人找我吗？
zaianda
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：116 积分：687 威望：0 精华：0 注册：2013/5/31 14:25:00 		  发帖心情 Post By：2013/6/21 11:03:00 [只看该作者]

在确定按键里面改动，每次先关闭("屠宰检疫管理")，再打开，这样就能重新进入一次afterload事件。

Forms("屠宰检疫管理").Close()
Forms("登陆窗口").Close()
Forms("屠宰检疫管理").Open()
 回到顶部
帅哥哟，离线，有人找我吗？
syzsyk
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：274 积分：2303 威望：0 精华：0 注册：2008/9/12 16:46:00 		  发帖心情 Post By：2013/6/21 11:24:00 [只看该作者]

哈哈！折腾了半天，真是就这么简单！我前面知道了问题所在了，就是不知道先关闭要打开的窗口，再打开这样就能重新进入一次afterload事件了。

谢谢zaianda及以上朋友。
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  19楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9875 积分：57596 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2013/6/21 12:22:00 [只看该作者]

确定按钮
If e.Form.Controls("ComboBox1").Value IsNot Nothing Then
    tzc = e.Form.Controls("ComboBox1").Value
End If
If Forms("屠宰检疫管理").opened Then
    Forms("屠宰检疫管理").Controls("Label1").Text = e.Form.Controls("ComboBox1").Value
Else
    Forms("屠宰检疫管理").Open()
End If
e.Form.Close()   '这一句你可以去掉试试效果.如果保留那么这个代码只要这样改就行.



If e.Form.Controls("ComboBox1").Value IsNot Nothing Then
    tzc = e.Form.Controls("ComboBox1").Value
End If
Forms("屠宰检疫管理").Open()
e.Form.Close() 
[此贴子已经被作者于2013-6-21 12:23:19编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
syzsyk
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：274 积分：2303 威望：0 精华：0 注册：2008/9/12 16:46:00 		  发帖心情 Post By：2013/6/21 12:48:00 [只看该作者]

前面与blackzhu版主的思路一样，代码写了好多次没有成功，看来要好好学习，感谢blackzhu版主！

有个问题，zaianda的方法和blackzhu版主的代码达到了同样的效果，感觉zaianda的方法简单，blackzhu版主更正式，实际应用哪个更好？

 
 回到顶部
总数 21 上一页 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04500 秒, 5 次数据查询