关联表多行选择，子表列出选定行的子项 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

看帮助写了下面代码，应该不对，该怎么写？

PositionChanged

If Forms("大货用量表").Opened() '一定要判断用于模拟关联表的窗口是否已经打开

Dim t As Table = Tables("配色表")

Dim b As Table = Tables("配码表")

With Tables("大货用量表_Table1")

If .TopPosition > -1 Then '如果选定区域包括数据行

For i As Integer = .TopPosition To .BottomPosition

t.Filter = "物料ID = " & .Rows(i)("物料基本信息_物料ID")

b.Filter = "物料ID = " & .Rows(i)("物料基本信息_物料ID")

End If

End With

End If

主题：关联表多行选择，子表列出选定行的子项