首先根据（出库编号，日期，部门名称）查找表a，如果找到，直接赋值即可
dim dr as datarow = datatables("表a").Find(查找条件)
tables("表a").Current("订单id") = dr("订单id")
加好友 
发短信
Post By：2015/10/9 15:14:00 [显示全部帖子]
