主题：窗口中的Table一个小问题

判断一下窗口是否打开

If e.Table.Current Is Nothing Then '如果Current为Nothing
    '没有选定行时执行的代码
Else
    '有选定行时执行的代码
    If Forms("窗口").open
        Dim tb As Table = Tables("窗口_Table2")
        Dim flt As String = "[产品编号] = '" & e.Table.Current("产品编号") & "'"
        tb.DataTable.Load
        tb.Filter = flt
    End If
End If