主题：把表数据传递到窗口 label 控件

通过选择父表不同行 ， 获取子表的行数，并写在 窗口 label 控件上 

但代码出错，求助！！！

在表的 currentchanged  事件执行

Dim a As WinForm.Label = Forms("库存管理").Controls("Label8")
Dim b As WinForm.Label = Forms("库存管理").Controls("Label12")

If e.Table.Current Is Nothing Then
    Return '则返回
Else
a.text =Tables("CAF库存表.CAF库存情况表").Rows.Count
b.Text =Tables("CAF库存表.CAF端数表").Rows.Count
End If

求助如何改

报错内容     object reference not set to an insurance of an object