Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
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