以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  临时表查询窗口的下拉框  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=124435)
--  作者：foxstudent
--  发布时间：2018/9/6 10:25:00
--  临时表查询窗口的下拉框
我表A、表B、表C，三个表结构不同，只有部分列相同，三个表数据都在后台，初始不加载。
我做了个查询窗口，通过不同查询条件组合，将需要的字段查询出来生成临时表。
查询条件中有“叫车单位”、“用车单位”，我做成文本输入框，查询没有问题，但是因为单位名称很多，我想做成下拉框，比如查询“用车单位”，可以下拉显示三个表中的不重复的用车单位，这个下拉框的代码应该怎么弄？
--  作者：有点甜
--  发布时间：2018/9/6 10:46:00
--  

参考代码

 

 

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

 
--  作者：foxstudent
--  发布时间：2018/9/6 11:49:00
--  
搞定了，谢谢甜版