如何实现表单元格的查询？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

窗口上，放着“表A”和"表B"，如何实现“表A”的"产品编号"做查询条件，查询到"表B"与其相对应的所有记录？

下面代码是以“表A”的"产品编号"，定位到"表B"，如何改成“表A”的"产品编号"，查询到"表B"与其相对应的所有记录？

Dim wz As Integer

Dim dr As DataRow

dr = DataTables("表B").Find("[产品编号] = '" & e.Table.Current("产品编号") & "'")

If dr IsNot Nothing Then

wz = Tables("表B").FindRow(dr)

If wz >= 0 Then

Tables("表B").Position = wz

End If

主题：如何实现表单元格的查询？