主题：代码解析，谢谢！！

If e.DataCol.Name = "取货商品名" Then

     Dim dr As DataRow
     dr = DataTables("quhuolu").Find("取货商品名 = '" & e.DataRow("取货商品名") & "'" )
     if dr IsNot Nothing

          if  dr("已取数量") >0 Then '如果找到, 则设置各列内容
               MessageBox.Show("已经点过的商品!","提示", MessageBoxButtons.OK ,MessageBoxIcon.Information)
               e.Cancel = True
           End If
      End If

End If

可谓漏洞百出！