老师你好，dr = DataTables("采购入库").Find("[二维码] =  \'" &  e.NewValue  & "\'and [出库情况] =  \'" &  "已出库"  & "\'" )  这里判断不可以判断2列的吗麻烦给看一下，，谢谢

If e.DataCol.Name = "二维码" Then \'如果内容发生变动的是产品列
    If e.NewValue Is Nothing Then
        Else
        Dim dr As DataRow
        \'否则在产品表查找同名的产品行,将找到的行赋值给变量dr
        dr = DataTables("采购入库").Find("[二维码] =  \'" &  e.NewValue  & "\'and [出库情况] =  \'" &  "已出库"  & "\'" )
        If dr Is Nothing Then \'如果找到了同名的产品行,也就是dr不是Nothing
           MessageBox.Show("二维码已出库，请更换!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
                 e.Cancel = True
        End If
    End If
End If