供方考核表
供应商名称 供方名
上海松下 上海松下电子有限公司
天津森子天 天津森子天电子有限公司
恩赐 福建恩赐电子有限司
供方表
供应商名称
上海松下电子有限公司
天津森子天电子有限公司
福建恩赐电子有限司
如何实现《供方考核表》以字段“供应商名称”查找《供方表》的匹配的数据，赋值给“《供方考核表》的“供方名”的字段里？
If e.DataCol.Name = "供应商名称" Then '如果内容发生变动的是品名列
If e.NewValue Is Nothing Then '如果新值是空白,也就是品名列的内容为空
e.DataRow("供应商名称") = Nothing '那么清空此行单价列的内容
Else
Dim dr As DataRow
'否则在产品表查找同名的产品行,将找到的行赋值给变量dr
dr = DataTables("供方名单").Find("[供应商名称] = '" & e.NewValue & "'")
If dr IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing
e.DataRow("供方名称") = dr("供应商名称")
End If
End If
End If
加好友 
发短信
Post By：2022/11/10 17:43:00 [只看该作者]
