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