Foxtable(狐表) → 用户栏目 → 专家坐堂 → 未将对象引用设置到对象的实例。


  共有1829人关注过本帖树形打印复制链接

主题：未将对象引用设置到对象的实例。
帅哥哟，离线，有人找我吗？
280184850
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：87 积分：622 威望：0 精华：0 注册：2016/9/11 14:05:00 		未将对象引用设置到对象的实例。  发帖心情 Post By：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

老师们帮我看看 ，现在基本上所有窗口都出现这个问题
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：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
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：87 积分：622 威望：0 精华：0 注册：2016/9/11 14:05:00 		  发帖心情 Post By：2018/1/5 14:18:00 [只看该作者]

谢谢  了 

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询