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


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

主题:[求助]关于标签的显示问题

帅哥哟,离线,有人找我吗?
syzsyk
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:274 积分:2303 威望:0 精华:0 注册:2008/9/12 16:46:00
[求助]关于标签的显示问题  发帖心情 Post By:2013/6/15 12:47:00 [显示全部帖子]

如图:

要求是在打开另一个窗口时,在窗口上想要利用标签(Label26)始终显示“中江屠宰场”。如果表有数据直接绑定“屠宰场名称”的列即可,这个容易解决.但进入时当天没有数据时,如何显示“中江屠宰场”?

我采取的方法是,在窗口AfterLoad中写了如下代码:

Dim lbl As WinForm.Label
lbl = e.Form.Controls("Label26")
lbl.Text = "" & Forms("屠宰检疫管理登陆").Controls("ComboBox1").Value & ""

这个方法也可以按要求显示“中江屠宰场”,但关闭"屠宰检疫管理登陆"窗口后,显示:

怎么解决这个问题?望大侠们帮忙!


图片点击可在新窗口打开查看此主题相关图片如下:登陆2.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:登陆3.jpg
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
syzsyk
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:274 积分:2303 威望:0 精华:0 注册:2008/9/12 16:46:00
  发帖心情 Post By:2013/6/15 20:57:00 [显示全部帖子]

blackzhu版主帮忙,变量怎么写、如何保存?

 回到顶部
帅哥哟,离线,有人找我吗?
syzsyk
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:274 积分:2303 威望:0 精华:0 注册:2008/9/12 16:46:00
  发帖心情 Post By:2013/6/17 12:35:00 [显示全部帖子]

 

 

1、定义一个public变量

在项目管理全局代码中:

 

Public tzc As String

 

2、屠宰检疫管理登陆窗口的BeforeClose事件:

 

tzc = Forms("屠宰检疫管理登陆").Controls("ComboBox1").Value

 

3、另一个窗口:

 

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

 

怎么Label26不显示内容?

[此贴子已经被作者于2013-6-17 12:35:32编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
syzsyk
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:274 积分:2303 威望:0 精华:0 注册:2008/9/12 16:46:00
  发帖心情 Post By:2013/6/17 19:15:00 [显示全部帖子]

感谢有点甜及blackzhu版主,如果lbl.Text = tzc ,现在Label26可以显示tzc的值,但有个问题,如果第一次登陆选择的屠宰场名,在Label26显示是正确的,但是关闭窗口后,再次登陆时,选择另一个屠宰场时,打开的窗口Label26显示的是上一次登陆时选择的屠宰场名,而不是这次选择的,怎么回事?


 回到顶部
帅哥哟,离线,有人找我吗?
syzsyk
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:274 积分:2303 威望:0 精华:0 注册:2008/9/12 16:46:00
  发帖心情 Post By:2013/6/19 0:48:00 [显示全部帖子]

以上功能可以实现了,但为什么重新赋值需要2次?
在屠宰检疫管理窗口选择某屠宰场如中江屠宰场后,Label1显示的是上一次选择的屠宰场名,只有再次选择中江屠宰场后进入的窗口Label1才会显示中江屠宰场,怎样才能解决每次选择后在打开的窗口上显示所选择的内容,而不是需要选2次,请大家帮忙!

 回到顶部
帅哥哟,离线,有人找我吗?
syzsyk
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

 回到顶部
帅哥哟,离线,有人找我吗?
syzsyk
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | 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才能显示选择的值。


 回到顶部
帅哥哟,离线,有人找我吗?
syzsyk
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

上传例子,请大家帮忙!

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目8.foxdb


 回到顶部
帅哥哟,离线,有人找我吗?
syzsyk
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

谢谢zaianda及以上朋友。


 回到顶部
帅哥哟,离线,有人找我吗?
syzsyk
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | 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版主更正式,实际应用哪个更好?

 


 回到顶部
总数 12 1 2 下一页