[求助]DataColChanged调用的目标发生了异常 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

.NET Framework 版本：2.0.50727.8833

Foxtable 版本：2018.8.29.1

错误所在事件：表，报价明细表，DataColChanged

详细错误信息：

调用的目标发生了异常。

未将对象引用设置到对象的实例。

'报价明细表里的所有项已订购都打钩后, 报价主表里的已订购自动打钩

'报价明细表里的所有项已订购都打钩后, 报价主表里的已订购自动打钩, 发现报价明细表里有一项未订购,去掉勾后报价主表的已订购自动去掉勾勾

If e.DataCol.name="已报价" Then

Dim xdList As List(of DataRow)=e.DataTable.Select("工作号='" & e.DataRow("工作号") & "'and 已报价=true")

If xdList.count=e.DataTable.Select("工作号='" & e.DataRow("工作号") &"'").count Then

e.DataRow.GetParentRow("报价主表")("已报价")=True

Else

e.DataRow.GetParentRow("报价主表")("已报价")=False

End If

If e.DataCol.name="已订购" Then

Dim xdList As List(of DataRow)=e.DataTable.Select("工作号='" & e.DataRow("工作号") & "'and 已订购=true")

If xdList.count=e.DataTable.Select("工作号='" & e.DataRow("工作号") &"'").count Then

e.DataRow.GetParentRow("报价主表")("已订购")=True

Else

e.DataRow.GetParentRow("报价主表")("已订购")=False

End If

If e.DataCol.name="已报价" Then
    Dim pdr = e.DataRow.GetParentRow("报价主表")
    If pdr IsNot Nothing Then
        Dim xdList As List(of DataRow)=e.DataTable.Select("工作号='" & e.DataRow("工作号") & "'and 已报价=true")
        If xdList.count=e.DataTable.Select("工作号='" & e.DataRow("工作号") &"'").count Then

            pdr("已报价")=True
        Else
            pdr("已报价")=False
        End If
    End If
End If

If e.DataCol.name="已订购" Then
    Dim pdr = e.DataRow.GetParentRow
    If pdr IsNot Nothing Then
        Dim xdList As List(of DataRow)=e.DataTable.Select("工作号='" & e.DataRow("工作号") & "'and 已订购=true")
        If xdList.count=e.DataTable.Select("工作号='" & e.DataRow("工作号") &"'").count Then
            pdr("已订购")=True
        Else
            pdr("已订购")=False
        End If
    End If
End If

此主题相关图片如下：cuowu20180827184320.jpg

知道错在哪里了，谢谢！

正确的如下，回复记录一下！谢谢老师！

If e.DataCol.name="已报价" Then

Dim pdr = e.DataRow.GetParentRow("报价主表")

If pdr IsNot Nothing Then

Dim xdList As List(of DataRow)=e.DataTable.Select("工作号='" & e.DataRow("工作号") & "'and 已报价=true")

If xdList.count=e.DataTable.Select("工作号='" & e.DataRow("工作号") &"'").count Then

pdr("已报价")=True

Else

pdr("已报价")=False

End If

If e.DataCol.name="已订购" Then

Dim pdr = e.DataRow.GetParentRow("报价主表")

If pdr IsNot Nothing Then

Dim xdList As List(of DataRow)=e.DataTable.Select("工作号='" & e.DataRow("工作号") & "'and 已订购=true")

If xdList.count=e.DataTable.Select("工作号='" & e.DataRow("工作号") &"'").count Then

pdr("已订购")=True

Else

pdr("已订购")=False

End If

主题：[求助]DataColChanged调用的目标发生了异常