利用Select找到相同的数据修改即可.
假如关联列是产品编号
if e.datacol.name="产品名称" then
if e.datarow.isnull("产品编号")=false then
Dim drlist As List(of DataRow) = DataTables("库存").Select("产品编号 = '" & e.DataRow("产品编号") & "'")
if drlist.count>0 then
for each dr as datarow in drlist
dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
next
end if
end if
end if