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

       Dim dr As DataRow
    dr = DataTables("quhuolu").Find("取货商品名 = " & "\'" & e.DataRow("取货商品名") & "\'" )
   If dr IsNot Nothing And dr("已取数量") >0  Then \'如果找到, 则设置各列内容
   MessageBox.Show("已经点过的商品)","提示", MessageBoxButtons.OK ,MessageBoxIcon.Information)
    e.Cancel = True
       End If
End If

、

如果取货商品名 发生变化，

1 查询quhuolu 表是否有相同的 值，

 if 有同的值，并且 quhuolu 表中的（已取数量）>0    then  提示： 该商品已经被点过。

if 有相同的值 ，并且quhuolu 表中的（已取数量）= 0 then 用当前表的“ 数量” 替换 （已取数量）

如果以上两个条件都不符合时，则在quhuolu中 添加新行。（这个我会）  上面两行麻烦各位大师指点一下啊！

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

可谓漏洞百出！

是说我的吧，哈哈，谢谢了，