以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于标签显示最末行数据问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=7087)
--  作者：老有所乐
--  发布时间：2010/5/12 16:44:00
--  关于标签显示最末行数据问题

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

[此贴子已经被作者于2010-5-12 16:45:07编辑过]
--  作者：狐狸爸爸
--  发布时间：2010/5/12 16:46:00
--  
这就不能用绑定，只能直接将控件的值设置为最后一行的某列的值。
--  作者：老有所乐
--  发布时间：2010/5/12 16:50:00
--  
不会设置，请指导
--  作者：狐狸爸爸
--  发布时间：2010/5/12 16:51:00
--  

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

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

 
--  作者：ybmjy
--  发布时间：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编辑过]
--  作者：老有所乐
--  发布时间：2010/5/12 20:48:00
--  
谢谢二位指点。
--  作者：老有所乐
--  发布时间：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编辑过]
--  作者：程兴刚
--  发布时间：2010/5/13 7:16:00
--  
不必要单击，自动刷新是可以的，发文件！
--  作者：老有所乐
--  发布时间：2010/5/13 8:05:00
--  

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

谢谢关注！