主题：判断问题

 老师你好，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