If e.DataCol.Name = "产品编号" then
Dim dr as datarow = datatables("表B").find("产品编号= '" & e.NewValue & "'")
if dr is nothing then
dim r as datarow = datatbles("表B").AddNew
r("产品编号") = e.datarow("产品编号")
end if
加好友 
发短信
Post By：2012/3/13 8:03:00 [显示全部帖子]
