主题：请教引用问题

 代码是写在什么事件里的？

 那现在有什么问题呢？不是会自动设置成了True，也就是打勾了么？

 嗯嗯，应该是不关这句代码的事情的，应该是其他代码影响了。

估计是其他代码影响的，贴出你DataColChanged里的所有代码。

代码这样写好一些。但是，不是这里代码的原因。你输出所有的代码，在 杂项->输出代码，然后上传上来。

Select Case e.DataCol.Name
    Case "规格", "单价"
        Dim dr As DataRow
        dr = DataTables("仓库").Find("[规格] = '" & e.DataRow("规格") & "'")
        If dr IsNot Nothing Then
            e.DataRow("存量") = dr("存量")
        Else
            e.DataRow("存量") = Nothing
        End If    
End Select

Select Case e.DataCol.Name
    Case "交货日期"
        e.DataRow("审核")  = Not e.DataRow.IsNull("交货日期")
    Case "规格"
        If e.DataRow.IsNull("规格") = False Then
            If e.DataRow.GetChildRows("规格").Count = 0 Then
                Dim dr As DataRow = DataTables("仓库").AddNew()
                dr("规格") = e.DataRow("规格")
            End If
        End If 
    Case "配"
        If  e.DataRow("配") = True  Then
            Dim nma() As String = {"管制号","规格","加工","交货日期","客户"}
            Dim nmb() As String = {"管制号","规格","加工","交货日期","客户"}
            Dim dr As DataRow = DataTables("车床").AddNew
            For i As Integer = 0 To nma.Length - 1
                dr(nmb(i)) = e.DataRow(nma(i))
            Next
        End If
    Case "小件"
        If  e.DataRow("小件") = True Then
            Dim nma() As String = {"管制号","规格","加工","交货日期","客户"}
            Dim nmb() As String = {"管制号","规格","加工","交货日期","客户"}
            Dim dr As DataRow = DataTables("小件").AddNew
            For i As Integer = 0 To nma.Length - 1
                dr(nmb(i)) = e.DataRow(nma(i))
            Next
        End If
    Case "审核"
        Dim pr As DataRow = e.DataRow.GetParentRow("订单")
        If pr IsNot Nothing Then
            Dim crs As List(of DataRow) = pr.GetChildRows("订单明细")
            Dim cnt As Integer
            For Each cr As DataRow In crs
                If cr("审核") = True
                    cnt = cnt + 1
                End If
            Next
            pr("审核") = (crs.Count = cnt)
        End If
End Select

 经检查，没有相关影响的代码，看13楼狐爸的回帖。

 你报错的截图发上来……

 升级到最新版本，然后贴出出错的代码，你提示的截图应该大一些的，不然不知道是哪个事件出错的。

 错误提示说没有在 采购表 找到指定条件的行，你需要确定是否存在这一行数据。

 Dim dr As DataRow = DataTables("采购").Find("[规格] = '" & e.DataRow("规格") & "' And 管制号 = '" & e.DataRow("管制号") & "'")
 msgbox("[规格] = '" & e.DataRow("规格") & "' And 管制号 = '" & e.DataRow("管制号") & "'")
 dr("审核") = e.DataRow("审核")

 加入这句代码，看看条件，对比一下你的数据。如果找不到这一行，应该怎么处理？

If e.DataRow("管制号") Like "采*" = False Then
    If e.DataCol.Name = "审核" AndAlso e.DataRow("审核") = True Then
        Dim nma() As String = {"管制号","规格","数量","客户"}
        Dim nmb() As String = {"管制号","规格","数量","客户"}
        Dim dr As DataRow = DataTables("出库").AddNew
        For i As Integer = 0 To nma.Length - 1
            dr(nmb(i)) = e.DataRow(nma(i))
        Next
    End If
Else
    Select Case e.DataCol.name
        Case "审核"
            Dim dr As DataRow = DataTables("采购").Find("[规格] = '" & e.DataRow("规格") & "' And 管制号 = '" & e.DataRow("管制号") & "'")
            dr("审核") = e.DataRow("审核")
    End Select
End If