参考:http://www.foxtable.com/webhelp/scr/1451.htm
If e.DataCol.Name = "B列" Then
Dim dr As DataRow
dr = DataTables("表A").Find("[A列] = '" & e.DataRow("A列") & "'")
If dr IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing
dr ("B列") = IIF(e.NewValue = "出售","成功","")
End If
End If