VFP 连号查询

ClearClear AllCREATE CURSOR test (数字 N(5,0))INSERT INTO test values(7)INSERT INTO test values(88)INSERT INTO test values(9)INSERT INTO test values(8)INSERT INTO test values(103)INSERT INTO test values(12)INSERT INTO test values(11)INSERT INTO test values(102)INSERT INTO test values(101)Sort To test_order_A On 数字Create Cursor test1 (数字 N(5,0),组 I)APPEND FROM test_order_AReplace All 组 With recno()-数字Index On 组 Tag zhu Descending UniqueCopy To FzSet Order ToSelect 0Use FzScan    Select test1    Calculate Min(数字),Max(数字) To nMin,nMax For 组=Fz.组    ?Transform(nMin)+"-"+Transform(nMax)EndScanClear allErase test_order_A.DbfErase Fz.Dbf