专家坐堂-窗口实例化错误问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  窗口实例化错误问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=77978)

--  作者：yeyijun
--  发布时间：2015/11/30 8:40:00
--  窗口实例化错误问题

各位大虾：
运行以下代码产生了错误：

Dim CBAddVar As WinForm.CheckBox = e.Form.Controls("CBAddNew")
\'Dim TBLBill2 As Table=Tables("Bill2")
\'Dim TBLCo2 As Table=Tables("Co2")
\'Dim FrmNameSWxx As String =Vars("FrmNameSW")
\'Dim FrmNamexx As String= Vars("FrmName")

If vars("FrmNameSW")="BOM建立" And vars("FrmName")="Bill2" And Tables("Bill2").Current("ParentItem")<>"" And CBAddVar.checked=True
Tables("Bill2").addnew
End If

If vars("FrmName")="co2" And Tables("Co2").Current("Item")<>"" And CBAddVar.checked=True
Tables("Co2").addnew
End If

错误提示信息如下：

.NET Framework 版本：2.0.50727.5485

Foxtable 版本：2015.11.2.1

错误所在事件：窗口,添加货号,CBAddNew,CheckedChanged

详细错误信息：

System.NullReferenceException: 未将对象引用设置到对象的实例。

   在 UserCode.AVGpXwrwtSIwZYXE7(ControlEventArgs e)

怎样修改呀！！

叶

--  作者：Hyphen
--  发布时间：2015/11/30 8:52:00
--

If Tables("Bill2").Current IsNot Nothing Then
    If vars("FrmNameSW")="BOM建立" And vars("FrmName")="Bill2" And Tables("Bill2").Current("ParentItem") > "" And CBAddVar.checked=True
        Tables("Bill2").addnew
    End If
End If

If Tables("Co2").Current IsNot Nothing Then
    If vars("FrmName")="co2" And Tables("Co2").Current("Item") > "" And CBAddVar.checked=True
        Tables("Co2").addnew
    End If
End If

--  作者：yeyijun
--  发布时间：2015/11/30 13:23:00
--
谢谢！按你的办法，已解决问题。