求DAO或ADO动态数据集筛选代码

久石让的粉丝　发表于：2014-08-05 13:17:18 　

复制

窗体1经过筛选后得到的数据

窗体1

区县道路名称

杨浦区国定路

杨浦区国定东路

闸北区长江三路

徐汇区虹漕南路

将窗体1经过筛选的定义成DAO或ADO

dim rst1 as dao.recordset

set rst1=me.sub_form.recordsetclone

窗体1经过筛选后得到的数据

区县

杨浦区

徐汇区

将窗体2经过筛选的定义成DAO或ADO

dim rst2 as dao.recordset

set rst2=me.sub_form.recordsetclone

接下来是筛选

查找rst1中区县等于rst2的记录

筛选后记录集rst1的结果如下

区县道路名称

杨浦区国定路

杨浦区国定东路

徐汇区虹漕南路

求高手指点代码

Top

煮江品茶发表于：2014-08-05 16:57:55

function Ex(byref rs2 as dao.recordset,byval str as string) as boolean
dim b as boolean
b=false
dim i as long
for i=1 to rs2.recordcount
if rs2!区县.value=str then
b=true
exit for
end if
rs2.movenext
next
Ex=b
end function

sub pr(byref rs1 as dao.recordset,byref rs2 as dao.recordset)
dim i as long
for i=1 to rs1.recordcount
if Ex(rs2,rs1!区县.value)=true then
'想干点什么事就在这里写代码
end if
rs1.movenext
next
end sub

Top

renco 发表于：2014-08-05 21:21:59

dim rst1 as dao.recordset

dim rst2 as dao.recordset

set rst1=me.窗体1.recordsetclone

set rst2=me.窗体2.recordsetclone

if rst1.eof=false then

rst1.movefirst

do until rst1.eof=true

rst2.findfirst "[区县]='" & rst1!区县 & "' And [道路名称]='" & rst1!道路名称 & "'"

if rst2.nomatch=false then

msgbox rst1!区县 & " + " & rst1!道路名称 '这里可以写其他的代码

end if

rst1.movenext

loop

end if

rst1.close

rst2.close

'以上是通过findfirst方式来寻找，通过Nomatch来判断寻找结果，用法可以参看F1的系统帮助说明

但你的要求中，说rst1要可剩下的的记录，最好以其方式显示，如把相同的记录新追加到新表中，或存在在Listbox控件里等，

不建义用rs1t的filter属性进行更改

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

求DAO或ADO动态数据集筛选代码