以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何把Find出来2条以上相同的结果进行提示  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=119856)

--  作者:蓝蚂蚁
--  发布时间:2018/6/2 10:31:00
--  如何把Find出来2条以上相同的结果进行提示
Dim dt2 As DataTable = DataTables("临时表")
For Each r As Row In Tables("计划表").Rows
      Dim dc As DataRow =DataTables("目录").Find("字典编码=\'" & r("字典编码") & "\'and 停用=False")
      If dc IsNot Nothing Then
      Dim dr2 As DataRow =dt2.AddNew()
            dr2("字典编码") = dc("字典编码")
            dr2("目录编号") = dc("目录编号") 
........(代码后面省略)
用find时字典编码(因为不是唯一的)出现2个(或以上),那么【dc("目录编号") 】如何进行确定,即是哪个dc("目录编号") 赋值给dr2("目录编号"),如果是默认是第一个,那么如何用第二个进行赋值?谢了

--  作者:有点蓝
--  发布时间:2018/6/2 11:05:00
--  
没看懂你的问题,如果要返回多个值,请使用select:http://www.foxtable.com/webhelp/scr/0400.htm