主题：[求助]数据表关联问题

 放一个窗口，放一个table控件，显示内容。

 currentChanged事件写代码：

Dim nr As Row = e.Table.current
If nr IsNot Nothing Then
    Dim filter As String = "1=2"
    For Each s As String In nr("安全员").split("/")
        filter &= " or 姓名 = '" & s & "'"
    Next
    forms("窗口1").controls("table1").Table.filter = filter
End If