主题：临时表查询窗口的下拉框

参考代码

Dim ls1 As List(Of String) = DataTables("表A").getvalues("第一列")
Dim ls2 As List(Of String) = DataTables("表A").getvalues("第一列")
Dim ls3 As List(Of String) = DataTables("表A").getvalues("第一列")
For Each s As String In ls2
    If ls1.Contains(s) = False Then
        ls1.add(s)
    End If
Next
For Each s As String In ls3
    If ls1.Contains(s) = False Then
        ls1.add(s)
    End If
Next
msgbox(String.join("|",ls1.ToArray))

如果你没有加载表格，建议你用sqlcommand处理：先union all三个表，然后临时表dt.GetComboListString

http://www.foxtable.com/webhelp/scr/0696.htm