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

1楼

老有所乐 发表于：2010/5/12 16:44:00

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

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

2楼

狐狸爸爸 发表于：2010/5/12 16:46:00

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

3楼

老有所乐 发表于：2010/5/12 16:50:00

不会设置，请指导

4楼

狐狸爸爸 发表于：2010/5/12 16:51:00

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

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

5楼

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编辑过]

6楼

老有所乐 发表于：2010/5/12 20:48:00

谢谢二位指点。

7楼

老有所乐 发表于：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楼

程兴刚 发表于：2010/5/13 7:16:00

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

9楼

老有所乐 发表于：2010/5/13 8:05:00

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

谢谢关注！

共9 条记录, 每页显示 10 条, 页签: [1]