| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 把表数据传递到窗口 label 控件 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=50598) |
| -- 作者：ljh29206 -- 发布时间：2014/5/9 13:57:00 -- 把表数据传递到窗口 label 控件 通过选择父表不同行 ， 获取子表的行数，并写在 窗口 label 控件上
但代码出错，求助！！！
在表的 currentchanged 事件执行
Dim a As WinForm.Label = Forms("库存管理").Controls("Label8") If e.Table.Current Is Nothing Then
求助如何改
报错内容 object reference not set to an insurance of an object |
| -- 作者：Bin -- 发布时间：2014/5/9 14:04:00 -- If e.Table.Current Isnot Nothing Then Dim a As WinForm.Label = Forms("库存管理").Controls("Label8") Dim b As WinForm.Label = Forms("库存管理").Controls("Label12") a.text =Tables("CAF库存表.CAF库存情况表").Rows.Count
b.Text =Tables("CAF库存表.CAF端数表").Rows.Count Else |
| -- 作者：lsy -- 发布时间：2014/5/9 14:04:00 -- 窗口打开没有？ |
| -- 作者：有点甜 -- 发布时间：2014/5/9 14:05:00 -- 代码没有错，不是这段代码的错。
3楼的原因 [此贴子已经被作者于2014-5-9 14:05:54编辑过]
|
| -- 作者：ljh29206 -- 发布时间：2014/5/9 14:07:00 -- 在登录系统的时候 就报错， 窗口 没打开。
bin 的代码也不行 一样报错 |
| -- 作者：有点甜 -- 发布时间：2014/5/9 14:08:00 -- If e.Table.Current IsNot Nothing Then If Forms("库存管理").opened Then Dim a As WinForm.Label = Forms("库存管理").Controls("Label8") Dim b As WinForm.Label = Forms("库存管理").Controls("Label12") a.text =Tables("CAF库存表.CAF库存情况表").Rows.Count b.Text =Tables("CAF库存表.CAF端数表").Rows.Count End If End If |
| -- 作者：ljh29206 -- 发布时间：2014/5/9 14:20:00 -- 另外 老师 在问下
我选择不同的行后
label 的数据变化 是 上行的 结果
不是当前行的 统计结果 ， 这个是什么问题呢？ |
| -- 作者：blackzhu -- 发布时间：2014/5/9 14:23:00 -- 这个代码永远是一样的数据呀 不管你怎么切换 |
| -- 作者：Bin -- 发布时间：2014/5/9 14:28:00 -- 改为统计子表行数的方式吧 a.text =DataTables("CAF库存情况表").Compute("Count(_Identify)","关联列=" & e.table.current("关联列") & "")
|
| -- 作者：ljh29206 -- 发布时间：2014/5/9 14:40:00 -- 可以 实时更新了 ，OK ！
有点搞不懂 这样统计的理由是什么 ， 好像 之前 的 也没什么错的哇！ |