主题：未将对象引用设置到对象的实例

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2016.7.29.1
错误所在事件：窗口,人员新增,AfterClose
详细错误信息：
未将对象引用设置到对象的实例。

For Each dt As DataTable In DataTables           '保存做了改变的含有"员工"名称的表
    If dt.name.Contains("退休") AndAlso dt.HasChanges = True Then
        dt.save
    End If
Next

Tables("退休信息").AllowEdit = False

'------- 以下是定义人员类别栏-----------------------
Dim fll As WinForm.TopicBar = Forms("退休管理").Controls("分类栏")
Dim lbfl As WinForm.TopicPage = fll.Pages("人员类别")
For Each rylb As String In DataTables("基础信息").GetComboListString("名称","类别 = '人员类别'","_identify").Split("|")
    Dim kg As String = new String(" ",24 - rylb.Length*2)   '定义前面的对齐空格
    Dim rs As String = DataTables("退休信息").Compute("count(_identify)","人员类别 = '" & rylb & "'")  '定义统计的数量
    Dim kg2 As String = new String(" ",3-rs.Length)
    lbfl.Links.Add(rylb,rylb & kg & "(" & kg2 & rs  & "人)")
Next
'------- 以上是定义人员类别栏-----------------------

'--------以下是定义人员性别栏-----------------------
Dim xbfl As WinForm.TopicPage = fll.Pages("性别")
xbfl.Links.Clear
For Each xb As String In DataTables("基础信息").GetComboListString("名称","类别 = '性别'","_identify").Split("|")
    Dim kg As String = new String(" ",24 - xb.Length*2)    '定义前面的对齐空格
    Dim rs As String =  DataTables("退休信息").Compute("count(_identify)","性别 = '" & xb & "'")   '定义统计的数量 只能用string  不能用 Integer,因为整数型不能统计长度
    Dim kg2 As String  = new String(" ",3- rs.Length)      '定义人数括号数字间的空格
    xbfl.Links.Add(xb,xb & kg & "("  & kg2 &  rs  & "人)")    '合成标题
Next
'--------以上是定义人员性别栏-----------------------

'--------以下是定义退休职称栏-----------------------
Dim txzc As WinForm.TopicPage = fll.Pages("退休职称")
txzc.Links.Clear

For Each zclb As String In DataTables("基础信息").GetComboListString("名称","类别 = '退休职称'","_identify").Split("|")
    Dim kg As String = new String(" ",24 - zclb.Length*2)    '定义前面的对齐空格
    Dim rs As String =  DataTables("退休信息").Compute("count(_identify)","退休职称 = '" & zclb & "'")   '定义统计的数量 只能用string  不能用 Integer,因为整数型不能统计长度
    Dim kg2 As String  = new String(" ",3- rs.Length)      '定义人数括号数字间的空格
    txzc.Links.Add(zclb,zclb & kg & "("  & kg2 &  rs  & "人)")    '合成标题
Next
'--------以上是定义退休职称栏-----------------------