参考：
http://www.foxtable.com/webhelp/topics/0625.htm、
http://www.foxtable.com/webhelp/topics/1451.htm
If e.DataCol.Name = "产品名称" Then
If e.DataRow.IsNull("产品名称") Then
e.DataRow("产品编号") = Nothing
Else
Dim dr As DataRow
dr = DataTables("表2").Find("'" & e.NewValue & "' like '%' + [产品编号] + '%'")
If dr IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing
e.DataRow("新增一数据列) = dr("产品编号")
End If
End If
End If
加好友 
发短信
Post By：2019/7/6 13:55:00 [显示全部帖子]
