专家坐堂-已存在具有相同键的条目。Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  已存在具有相同键的条目。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=119191)

--  作者：newsun2k
--  发布时间：2018/5/19 15:26:00
--  已存在具有相同键的条目。

代码如下，报错【已存在具有相同键的条目。】，何解？
  Dim drsMap As List(of DataRow)
Dim dmpNew As New DataMap
drsMap = DataTables("rs字典表").SQLSelect("","","")
For Each drTmp As DataRow In drsMap
dmpNew.Add(dr("字典表取值列"),dr("字典表显示列"))
Next

--  作者：有点蓝
--  发布时间：2018/5/19 15:40:00
--
字典表取值列有重复的值

试试
Dim drsMap As List(of String())
Dim dmpNew As New DataMap
drsMap = DataTables("rs字典表").SQLGetValues("字典表取值列|字典表显示列")
For Each drTmp As string() In drsMap
dmpNew.Add(drTmp(0),drTmp(1)))
Next