以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 如何把Find出来2条以上相同的结果进行提示 (http://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 |