回复 48楼 sylknb
程序代码:
close databases create cursor tt (Name C(12), Xm C(8), Km1 N(6, 0), Kc1 C(30), Zf1 C(3), Qk1 C(1),Km2 N(6, 0), Kc2 C(30), Zf2 C(3), Qk2 C(1)) select tt index on name+xm tag mm select * from tesk order by name,kch into cursor ttt set relation to name+xm into tt scan scatter to aa if found("tt") replace km2 with aa[3],kc2 with aa[4],zf2 with aa[5],qk2 with aa[6] in tt else insert into tt(name,xm,km1,kc1,zf1,qk1) values (aa[1],aa[2],aa[3],aa[4],aa[5],aa[6]) endif endscan set relation to select tt browse
结果
坚守VFP最后的阵地