主题：下拉框问题

Dim dt1 As DataTable = DataTables("表A")
Dim dt2 As DataTable = DataTables("表B")
Dim ls As new List(Of String)
For Each dr As DataRow In dt1.datarows
    If ls.Contains(dr("第一列")) = False Then
        ls.add(dr("第一列"))
    End If
Next
For Each dr As DataRow In dt2.datarows
    If ls.Contains(dr("第一列")) = False Then
        ls.add(dr("第一列"))
    End If
Next
Dim str As String = String.Join("|", ls.ToArray)
msgbox(str)
Tables("表C").cols("第一列").ComboList = str

prepareEdit事件

 

If e.Col.name = "第二列" Then
    Dim dt1 As DataTable = DataTables("表A")
    Dim dt2 As DataTable = DataTables("表B")
    Dim ls As new List(Of String)
    For Each dr As DataRow In dt1.Select("第一列 = '" & e.Row("第一列") & "'")
        If ls.Contains(dr("第二列")) = False Then
            ls.add(dr("第二列"))
        End If
    Next
    For Each dr As DataRow In dt2.Select("第一列 = '" & e.Row("第一列") & "'")
        If ls.Contains(dr("第二列")) = False Then
            ls.add(dr("第二列"))
        End If
    Next
    Dim str As String = String.Join("|", ls.ToArray)
    e.Col.ComboList = str
End If

 没看懂你6楼表达的意思。现在有什么问题？

 两个表？

 

Dim cb As WinForm.ComboBox = e.Form.Controls("ComboBox3")
Dim txt As String = cb.Text '定义一个变量的值

Dim dt1 As DataTable = DataTables("表A")
Dim dt2 As DataTable = DataTables("表B")
Dim ls As new List(Of String)
For Each dr As DataRow In dt1.Select("第一列 like '%" & txt & "%'")
    If ls.Contains(dr("第二列")) = False Then
        ls.add(dr("第二列"))
    End If
Next
For Each dr As DataRow In dt2.Select("第一列 like '%" & txt & "%'")
    If ls.Contains(dr("第二列")) = False Then
        ls.add(dr("第二列"))
    End If
Next
Dim str As String = String.Join("|", ls.ToArray)

cb.ComboList = str