主题：跨表比较问题

老师，帮看一下这个代码有什么问题，代码放在 datacolchanging中

Select Case e.DataCol.name
   Case "数量"
     Dim dxs As DataRow = e.DataRow
     Dim dis As DataRow
       dis = DataTables("库存明细").Find("采购编号 = '" & dxs("采购编号") & "' and 产品名称 = '" & dxs("产品名称") & "'")
      If dis("库存数量")<dxs("数量") Then
     MessageBox.Show("该价格的产品库存不足,")
    e.cancel = True
   End If
End Select