以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]保存按钮提示未找到对象  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=63101)
--  作者：blsu33
--  发布时间：2015/1/13 23:19:00
--  [求助]保存按钮提示未找到对象
有点甜老师，
保存按钮的代码是

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

.NET Framework 版本：2.0.50727.4984
Foxtable 版本：2014.11.11.1
错误所在事件：窗口,欢迎使用,部门档案.B.退出,Click
详细错误信息：
未将对象引用设置到对象的实例。
没看出问题呀，烦您帮忙看一下，谢谢。
--  作者：Bin
--  发布时间：2015/1/14 8:07:00
--  
加入IF判断一下

if  If Tables("部门档案").Current isnot nothing then
   再执行你的代码
end if