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


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

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


加好友 发短信 一级勋章
等级：狐仙 帖子：9875 积分：57596 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2013/6/15 13:21:00 [显示全部帖子]

写个变量  保存下 然后读取

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


加好友 发短信 一级勋章
等级：狐仙 帖子：9875 积分：57596 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2013/6/17 13:04:00 [显示全部帖子]

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

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


加好友 发短信 一级勋章
等级：狐仙 帖子：9875 积分：57596 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2013/6/19 7:55:00 [显示全部帖子]

赋值是必须的呀.只不过看你怎么做法.一个是打开重新赋值,另外一个是直接赋值,办法都告诉你了! 自己动动脑筋

 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  4楼 | 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编辑过]
 回到顶部
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 次数据查询