主题：请教高手关于CurrentChanged的问题

If Forms("监造周报窗口").Opened Then

Dim fm1 As WinForm.FileManager = e.Form.Controls("FileManager1")

Dim fm2 As WinForm.FileManager = e.Form.Controls("FileManager2")

Dim fm3 As WinForm.FileManager = e.Form.Controls("FileManager3")

Dim fm As WinForm.PictureViewer = e.Form.Controls("PictureViewer1")

    If Tables("监造周报").Current("审核") IsNot Nothing  Then '如果周报已经审批       

        fm1.AddCommand.Visible = False

        fm2.AddCommand.Visible = False

        fm3.AddCommand.Visible = False

        fm.AddCommand.Visible = False

        fm1.DeleteCommand.Visible = False

        fm2.DeleteCommand.Visible = False

        fm3.DeleteCommand.Visible = False

        fm.DeleteCommand.Visible = False

        fm1.ClearCommand.Visible = False

        fm2.ClearCommand.Visible = False

        fm3.ClearCommand.Visible = False

        fm.ClearCommand.Visible = False

    Else

        fm1.AddCommand.Visible = True

        fm2.AddCommand.Visible = True

        fm3.AddCommand.Visible = True

        fm.AddCommand.Visible = True

        fm1.DeleteCommand.Visible = True

        fm2.DeleteCommand.Visible = True

        fm3.DeleteCommand.Visible = True

        fm.DeleteCommand.Visible = True

    End If

End If

.NET Framework 版本：2.0.50727.5485

Foxtable 版本：2014.10.16.1

错误所在事件：监造周报,CurrentChanged

详细错误信息：

未将对象引用设置到对象的实例。