VFP 连号查询

lygcw9602

于 2015-02-18 02:28:47 发布

阅读量804

点赞数

分类专栏：数据处理

本文链接：https://blog.youkuaiyun.com/lygcw9602/article/details/43874709

版权

数据处理专栏收录该内容

5 篇文章

订阅专栏

Clear
Clear All
CREATE 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_A
Replace All 组 With recno()-数字
Index On 组 Tag zhu Descending Unique
Copy To Fz
Set Order To
Select 0
Use Fz
Scan
    Select test1
    Calculate Min(数字),Max(数字) To nMin,nMax For 组=Fz.组
    ?Transform(nMin)+"-"+Transform(nMax)
EndScan

Clear all
Erase test_order_A.Dbf
Erase Fz.Dbf