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

e.Form 改成 Forms("监造周报窗口")

第二点：判断一下 If e.Table.Current IsNot Nothing Then

If Forms("周报").Opened Then

    If e.Table.Current IsNot Nothing Then

        Dim fm1 As WinForm.FileManager = Forms("周报").Controls("FileManager1")

        'Dim fm2 As WinForm.FileManager = Forms("周报").Controls("FileManager2")

        'Dim fm3 As WinForm.FileManager = Forms("周报").Controls("FileManager3")

        Dim fm As WinForm.PictureViewer = Forms("周报").Controls("PictureViewer1")

        If e.Table.Current.IsNull("审核") = False  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

            'm3.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

End If