主题：[求助]

设计了一个窗口，想实现对产品和人员的搜索功能，这是界面 

此主题相关图片如下：`r1rfis78{m8bk21su}mzaf.png

 姓名/产品 涉及人员表和物资表      编号和 人员 产品相对应

我想要  点击人员的时候，人员/产品 的下拉菜单只显示产品名称，可以从下拉菜单选择也可以直接输入，然后点击搜索，就显示出来产品的各种信息。  选择 人员时一样

开始搜索 的代码

If e.Form.Controls("人员").Checked = True
    Dim  t = Tables("人员")
    Dim Filter As String
    With e.Form.Controls("ComboBox1")
        If .Value IsNot Nothing Then
            Filter = "物资 = '" & .Value & "'"
        End If
    End With
    With e.Form.Controls("ComboBox2")
        If .Value IsNot Nothing Then
            If Filter > "" Then
                Filter = Filter & " And "
            End If
            Filter = Filter & "人员 = '" & .Value & "'"
        End If
    End With
   
    t.Filter = Filter
ElseIf e.Form.Controls("物资").Checked = True
    Dim  t = Tables("物资")
End If 

AfterLoad的代码

 

Dim cmb1 As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim cmb2 As WinForm.ComboBox = e.Form.Controls("ComboBox2")
cmb1.ComboList = DataTables("人员").GetComboListString("姓名") And DataTables("物资").GetComboListString("物资名称")
cmb2.ComboList = DataTables("人员").GetComboListString("编号") And DataTables("物资").GetComboListString("编号") 

我预览进行搜索时 提示发生错误 

 

 

并且下拉菜单什么都没有

请问  我这到底是哪里出错了？ 该怎么该？  哪位好心人可以指点一下！！！  

此主题相关图片如下：错误.png

Dim cmb1 As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim cmb2 As WinForm.ComboBox = e.Form.Controls("ComboBox2")
cmb1.ComboList = DataTables("人员").GetComboListString("姓名") & "|" & DataTables("物资").GetComboListString("物资名称")
cmb2.ComboList = DataTables("人员").GetComboListString("编号") & "|" &  DataTables("物资").GetComboListString("编号")