主题：求助，谁来帮我看看这段错误提示是什么意思？

可能是没有满足条件的结果造成的···

1、你应该有个详细的操作过程 1、2、3、4、5、............

2、你付款明细中一点数据都没有···已审批金额也没有数据······· 怎么帮你呀···

Select Case e.DataCol.name
    Case "已审批金额"
        Dim pr As DataRow = e.DataRow.GetParentRow("合同信息汇总表")
        Dim dr As DataRow = e.DataRow.GetParentRow("营销类合同")
        If pr IsNot Nothing And dr IsNot Nothing

          If  e.DataRow("已审批金额") >  pr("合同金额")
            messagebox.show("超过合同金额啦···","---")

            e.DataRow("已审批金额") = nothing
          End If 

    Case  "结账"
        If e.NewValue = True Then
            e.DataRow.Locked = True
        End If       
End Select

因为你的表中根本就不存在：GetParentRow("营销类合同")  所以与之关联的代码都要cancel掉。。。

即把  If pr IsNot Nothing And dr IsNot Nothing 改为： If pr IsNot Nothing  即可····

呵呵。我老花了···   没注意你两个主表，这样改一下：

Select Case e.DataCol.name
    Case "已审批金额"
        Dim pr As DataRow = e.DataRow.GetParentRow("合同信息汇总表")
        Dim dr As DataRow = e.DataRow.GetParentRow("营销类合同")
        If pr IsNot Nothing And CurrentTable.name = "合同信息汇总表.付款明细表"
          If  e.DataRow("已审批金额") >  pr("合同金额")
            messagebox.show("合同信息汇总表 - 超过合同金额啦···","---")
            e.DataRow("已审批金额") = Nothing
          End If 
        End If
        If dr IsNot Nothing And CurrentTable.name = "营销类合同.付款明细表"
          If  e.DataRow("已审批金额") >  dr("合同金额")
            messagebox.show("营销类合同 - 超过合同金额啦···","---")
            e.DataRow("已审批金额") = Nothing
          End If 
        End If
    Case  "结账"
        If e.NewValue = True Then
            e.DataRow.Locked = True
        End If       
End Select