VFP 中，dbf数据库 如何分组排序后添加序号

select from

(

select row_number() over(partition by '分组' order by '日期') as rownum -- 排序并分组

, -- 所需显示的字段

from 表

) as T

where Trownum = 1

对每组的数据按日期排序并加上行号

取出时只取行号为1，也就是第一条数据。

这是我以前写的一段VB代码

把以下代码贴到一按钮click事件里，运行下。C盘就会生成一个1mdb数据库，其中id为“自动编号类型”

====================

'需引用MS ADO Ext for DDL

Dim cat As New ADOXCatalog

''建数据库

catCreate "Provider=MicrosoftJetOLEDB40;Data Source=" & "C:\1mdb"

Dim tbl1 As New Table

Dim idx1 As New ADOXIndex

tbl1Name = "KType" '字段

Set tbl1ParentCatalog = cat

tbl1ColumnsAppend "ID", adInteger '字段

tbl1Columns("ID")Properties("Autoincrement") = True ‘这句该是你要的

tbl1ColumnsAppend "KeyType", 202, 20

idx1Name = "idxFile1"

idx1ColumnsAppend "ID"

idx1PrimaryKey = True

idx1Unique = True

tbl1IndexesAppend idx1

catTablesAppend tbl1

Set cat = Nothing

以上就是关于VFP 中，dbf数据库 如何分组排序后添加序号全部的内容，包括:VFP 中，dbf数据库 如何分组排序后添加序号、VB-数据库 向表添加字段 自动编号类型 adNumeric、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！