以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]列表来自数据表  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=49731)
--  作者：rpg2813
--  发布时间：2014/4/23 12:01:00
--  [求助]列表来自数据表
取值列和显示列都是字符，排序设置有的
现在就是如何排除重复值？
表a
张三 a
张三 b
张三 c
李四 d
李四 e
李四 a

我表b的某一列就是姓名选择
以前delphi时是在表a先去掉重复值然后赋值给表b的下来框
就是想知道foxtable如何实现？
--  作者：Bin
--  发布时间：2014/4/23 12:05:00
--  
用代码设置http://www.foxtable.com/help/topics/2125.htm
--  作者：rpg2813
--  发布时间：2014/4/23 17:34:00
--  
以下是引用Bin在2014-4-23 12:05:00的发言：
用代码设置http://www.foxtable.com/help/topics/2125.htm


代码？我不是应该从表a用某种方法或sql得出不重复的列表
然后列表值依次赋值给表b的下拉框么？
--  作者：Bin
--  发布时间：2014/4/23 17:36:00
--  
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = "SELECT DISTINCT 姓名,代码 From {表A}"
dt = cmd.ExecuteReader()


Dim dic As New Dictionary(Of String,String)
for each dr as datarow in dt.datarows
   dic.Add(dr("代码"),dr("姓名"))
next
Tables("表A").Cols("学历").CodeDictionary= dic