主题：[求助]怎样用table控件模拟关联表实现动态加载子表

Dim t As Table = Tables("窗口1_Table1")
With Tables("产品")
    If .Current Is Nothing Then
        t.Filter = "False"
    Else
        t.Filter = "产品编号 = " & .Current("产品编号")

if t.rows.count = 0 then '筛选后没有数据

'做加载

t.datatable.loadfilter = t.Filter

t.datatable.load

end if
    End IF
End With