主题：[求助]保存按钮提示未找到对象

Dim TV As WinForm.TreeView = e.Form.Controls("部门档案.tv")

Dim DH As WinForm.NavBar = Forms("欢迎使用").Controls("用户使用.N")

Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")

Dim zj As WinForm.Button = e.Form.Controls("部门档案.B.增加")

Dim PL As WinForm.SplitContainer = e.Form.Controls("软件表头.S")

If Tables("部门档案").Current.DataRow Is Nothing Then

    vars("pclose") = True

    tab.TabPages(1).Visible = False

Else

    If Tables("部门档案").Current.isnull("编码规则") = True Then

        MessageBox.Show("编码不能为空!","提示")

        Return

    Else

        If Tables("部门档案").Current.isnull("编码名称") = True Then

            MessageBox.Show("名称不能为空!","提示")

            Return

        Else

            TV.Enabled=True

            DH.Enabled=True

            zj.Enabled=True

            pl.Enabled=True

            Tables("部门档案").Current.Save

            Tables("部门档案").Current.Locked=True

            Dim clr As Color = Color.FromARGB(255,228,196)

            For Each c As WinForm.Control In e.Form.Controls

                If Typeof c Is WinForm.TextBox Then '判断控件是否是文本框

                    c.BackColor = Clr

                End If

                If Typeof c Is WinForm.ComboBox Then

                    c.BackColor = Clr

                End If

            Next

            vars("pclose") = True

            tab.TabPages(1).Visible = False

        End If

    End If

End If

if  If Tables("部门档案").Current isnot nothing then