作者在 2015-04-11 18:41:43 发布以下内容
* VFP9.0 CODE
Create Cursor Tt (Kh C(3))
Insert Into Tt Values ("001")
Insert Into Tt Values ("001")
Insert Into Tt Values ("002")
Insert Into Tt Values ("003")
Insert Into Tt Values ("001")
Insert Into Tt Values ("003")
Insert Into Tt Values ("002")
Insert Into Tt Values ("001")
Insert Into Tt Values ("002")
Insert Into Tt Values ("001")
Select *,Recno() as Bz From Tt Into Cursor Dd ReadWrite
Delete A From Dd A Inner Join Dd B On A.Kh=B.Kh AND A.Bz<B.Bz
Browse
