主题：如何实现关联表的跨表引用

要实现功能如图 
此主题相关图片如下：001.png

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

测试没果，请多指点

dr = DataTables("项目跟踪表").Find("[编号] = '" & e.NewValue & "'")

 

 

改为：

 

dr = DataTables("任何表的表名，只要有数据，不管是本编还是其他表").Find("[编号] = '" & e.NewValue & "'")

根据你的图 + 你引用的帮助  没理解你的需求.

上传个例子

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:跨表引用.table

希望选择执行标准后，关联系表中的所有行执行标准自动录入，但可以改为特价标准！

就是我在项目跟踪表选了执行标准后，它的关联产品的列自动输入这个执行标准，一个项目可能有10-20个产品的，其它3-4个有可能会申请不同的执行标准价格，这个时候我们可以在关联的产品行中改执行标准！

是不是想要这样?

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:跨表引用.table

高手，就是这个效果，

你把代码复制到 控件的TextChanged事件即可