主题：[求助]窗口如何关联显示相关内容

Dim tbcp As WinForm.TextBox = e.Form.Controls("TextBoxcp")

If tbcp IsNot Nothing Then
    Dim Filter2 As String
    Filter2 = "[产品名称] = '" &  tbcp.Text & "'"
    If  DataTables("产品资料表").Find(Filter2) Is Nothing Then '如果对应的产品名称没有加载过
        DataTables("产品资料表").AppendLoad(Filter2) '则追载此订单的产品名称
    End If
    Dim dr As DataRow
    dr = DataTables("产品资料表").Find("[产品名称] = '" &  tbcp.text & "'" )
    If dr IsNot Nothing Then
        Tables("产品资料表").Filter = ""
        Dim wz As Integer = Tables("产品资料表").FindRow(dr)
        If wz >= 0 Then
            Tables("产品资料表").Position = wz
        End If
    End If
Else
    Tables("产品资料表").Filter = "1=2"
End If