Foxtable(狐表)用户栏目专家坐堂 → 关于标签显示最末行数据问题


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

主题:关于标签显示最末行数据问题

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


加好友 发短信
等级:三尾狐 帖子:746 积分:6673 威望:0 精华:1 注册:2008/9/1 11:46:00
关于标签显示最末行数据问题  发帖心情 Post By:2010/5/12 16:44:00 [只看该作者]

我想用标签显示表A某列(假如是表A [B] 列 )最末行不为空行的数据,应该如何才能实现。用标签绑定列,显示的是该列的第一行数据。谢谢!

[此贴子已经被作者于2010-5-12 16:45:07编辑过]

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2010/5/12 16:46:00 [只看该作者]

这就不能用绑定,只能直接将控件的值设置为最后一行的某列的值。

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


加好友 发短信
等级:三尾狐 帖子:746 积分:6673 威望:0 精华:1 注册:2008/9/1 11:46:00
  发帖心情 Post By:2010/5/12 16:50:00 [只看该作者]

不会设置,请指导

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2010/5/12 16:51:00 [只看该作者]

1、你找出最末不为空的行dr

2、Foms("XXX").Controls("yyyy").Value = dr("列名")

 


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


加好友 发短信
等级:一尾狐 帖子:444 积分:4847 威望:0 精华:3 注册:2009/7/4 13:40:00
  发帖心情 Post By:2010/5/12 20:37:00 [只看该作者]

Dim dr As Row = Tables("表A").Rows(Tables("表A").Rows.Count-1)
if  dr("第一列")<> Nothing then
    e.Form.Controls("Label1").text = dr("第一列")
end if
[此贴子已经被作者于2010-5-12 20:39:57编辑过]

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


加好友 发短信
等级:三尾狐 帖子:746 积分:6673 威望:0 精华:1 注册:2008/9/1 11:46:00
  发帖心情 Post By:2010/5/12 20:48:00 [只看该作者]

谢谢二位指点。

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


加好友 发短信
等级:三尾狐 帖子:746 积分:6673 威望:0 精华:1 注册:2008/9/1 11:46:00
  发帖心情 Post By:2010/5/13 6:30:00 [只看该作者]

这是标签单击代码

    Dim dr As Row = Tables("表A").Rows(Tables("日常收支").Rows.Count-1) 

if  dr("余额")<> Nothing then  

    e.Form.Controls("Label2").text = dr("余额")

end if

 

这是标签鼠标离开代码

    Dim dr As Row = Tables("表A").Rows(Tables("日常收支").Rows.Count-1) 

if  dr("余额")<> Nothing then  

    e.Form.Controls("Label2").text = “”

end if

 

但是当鼠标离开后,再单击标签就不再显示余额了,如何才能做到再单击又显示,再离开又为空。

先谢谢!

[此贴子已经被作者于2010-5-13 6:32:24编辑过]

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


加好友 发短信 一级勋章
等级:超级版主 帖子:7258 积分:40773 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2010/5/13 7:16:00 [只看该作者]

不必要单击,自动刷新是可以的,发文件!

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


加好友 发短信
等级:三尾狐 帖子:746 积分:6673 威望:0 精华:1 注册:2008/9/1 11:46:00
  发帖心情 Post By:2010/5/13 8:05:00 [只看该作者]

已解决,原来是标签的自动大小要设置为False

谢谢关注!


 回到顶部