专家坐堂-未将对象引用设置到对象的实例。Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  未将对象引用设置到对象的实例。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=112933)

--  作者：280184850
--  发布时间：2018/1/5 13:59:00
--  未将对象引用设置到对象的实例。
.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2017.12.18.1
错误所在事件：窗口,二级维护登记,AfterLoad
详细错误信息：
未将对象引用设置到对象的实例。

代码：If Tables("二级维护登记表").Current.IsNull("客户车牌") Then
MessageBox.Show("请输入客户车牌号码!")
Else
Dim dt As DataTable
Dim dr As DataRow
dr = DataTables("客户表").Find("客户车牌 = \'" & Tables("二级维护登记表").Current.DataRow.GetParentRow("客户表")("客户车牌") & "\'")

If dr IsNot Nothing Then
If forms("二级维护登记").Opened Then
forms("二级维护登记").Controls("TextBox1").value=dr("客户编号")
forms("二级维护登记").Controls("TextBox10").value=dr("客户单位")
forms("二级维护登记").Controls("TextBox11").value= dr("客户名称")
forms("二级维护登记").Controls("TextBox12").value= dr("客户车牌")
forms("二级维护登记").Controls("TextBox13").value= dr("车辆型号")
forms("二级维护登记").Controls("TextBox14").value=dr("车辆识别号")
forms("二级维护登记").Controls("TextBox15").value=dr("发动机编号")
forms("二级维护登记").Controls("TextBox16").value=dr("联系电话")

Else
Return
End If
End If



End If

老师们帮我看看，现在基本上所有窗口都出现这个问题

--  作者：有点甜
--  发布时间：2018/1/5 14:14:00
--
If Tables("二级维护登记表").Current Is Nothing Then
    msgbox("表数据为空")
Else
    If Tables("二级维护登记表").Current.IsNull("客户车牌") Then
        MessageBox.Show("请输入客户车牌号码!")
    Else
        Dim dt As DataTable
        Dim dr As DataRow
        Dim pdr = Tables("二级维护登记表").Current.DataRow.GetParentRow("客户表")
        If pdr Is Nothing Then
            msgbox("不存在父表")
        Else
            dr = DataTables("客户表").Find("客户车牌 = \'" & pdr("客户车牌") & "\'")

            If dr IsNot Nothing Then
                If forms("二级维护登记").Opened Then
                    forms("二级维护登记").Controls("TextBox1").value=dr("客户编号")
                    forms("二级维护登记").Controls("TextBox10").value=dr("客户单位")
                    forms("二级维护登记").Controls("TextBox11").value= dr("客户名称")
                    forms("二级维护登记").Controls("TextBox12").value= dr("客户车牌")
                    forms("二级维护登记").Controls("TextBox13").value= dr("车辆型号")
                    forms("二级维护登记").Controls("TextBox14").value=dr("车辆识别号")
                    forms("二级维护登记").Controls("TextBox15").value=dr("发动机编号")
                    forms("二级维护登记").Controls("TextBox16").value=dr("联系电话")

                Else
                    Return
                End If
            End If
        end if
    End If
end if

--  作者：280184850
--  发布时间：2018/1/5 14:18:00
--
谢谢了