主题：请教引用问题

此主题相关图片如下：截图1353492283.png

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

此主题相关图片如下：截图1353567213.png

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

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

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

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

If "管制号" NOT Like '采*'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
想实现管制号不是采字开头的执行一段，是采字号开头的执行后一段，不知代码要怎么写，请指点，谢谢！！！

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

谢谢！！！问题解决。