dim rs1 as new adodb.recordset,ssql1 as string
dim rs2 as new adodb.recordset,ssql2 as string
dim i as long,j as long
ssql1="select distinct 订单批号 from cxaxiangd"
rs1.Open ssql1, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
for i=1 to rs1.recordcount
ssql2="select * from bajiaohmxxg where 订单批号='" & rs1!订单批号.value & "'"
rs2.Open ssql2, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
for j=1 to rs2.recordcount
rs2!已核销.value=-1
rs2.update
rs2.movenext
next
rs1.movenext
rs2.close
next
rs1.close
set rs1=nothing
set rs2=nothing
或者
dim rs as new adodb.recordset
dim ssql as string
dim i as long
ssql="select distinct 订单批号 from cxaxiangd"
rs.Open ssql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
for i=1 to rs.recordcount
ssql="update bajiaohmxxg set 已核销=-1 where 订单批号='" & rs!订单批号.value & "'"
currentdb.execute ssql
rs.movenext
next
rs.close
set rs=nothing