level 1
【不好意思】
楼主
sele table1
ss_recn='ee'
scan
s_recn=recn()
COPY TO ARRAY ttts for recn()=s_recn
go s_recn
sele table2
is_ta=.t.
scan
s1_recn=recn()
COPY TO ARRAY ttt1 for recn()=s1_recn
go s1_recn
t_n=1
do while t_n<fcount()
if ttts(t_n)<>ttt1(t_n)
is_ta=.f.
endif
t_n=t_n+1
enddo
endscan
if is_ta=.t.
ss_recn=ss_recn+','+allt(str(recn()))
endif
endscan
功能就是想筛选出两张表里相同的记录,但是感觉if条件那里可能错了大神能帮忙看下嘛感激不尽
还有第4、5、6行那里,有点不太懂,s_recn=recn()先把当前记录号赋值给了变量s_recn,然后COPY TO ARRAY ttts for recn()=s_recn把当前的记录复制到数组ttts中,然后又来句go s_recn什么意思?又执行s_recn=recn()么?不是又重复做么?
2014年04月29日 01点04分
1
ss_recn='ee'
scan
s_recn=recn()
COPY TO ARRAY ttts for recn()=s_recn
go s_recn
sele table2
is_ta=.t.
scan
s1_recn=recn()
COPY TO ARRAY ttt1 for recn()=s1_recn
go s1_recn
t_n=1
do while t_n<fcount()
if ttts(t_n)<>ttt1(t_n)
is_ta=.f.
endif
t_n=t_n+1
enddo
endscan
if is_ta=.t.
ss_recn=ss_recn+','+allt(str(recn()))
endif
endscan
功能就是想筛选出两张表里相同的记录,但是感觉if条件那里可能错了大神能帮忙看下嘛感激不尽
还有第4、5、6行那里,有点不太懂,s_recn=recn()先把当前记录号赋值给了变量s_recn,然后COPY TO ARRAY ttts for recn()=s_recn把当前的记录复制到数组ttts中,然后又来句go s_recn什么意思?又执行s_recn=recn()么?不是又重复做么?