专家坐堂-筛选出的数据从1重新排序怎么写？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  筛选出的数据从1重新排序怎么写？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=193989)

--  作者：lrh9537
--  发布时间：2024/10/31 10:46:00
--  筛选出的数据从1重新排序怎么写？

Dim Filter As String
Filter = "[行政村] = \'**村\' "
Tables("分村统计表").Filter = Filter
MainTable = Tables("分村统计表")
以下代码需修改：
Dim i As Integer
For i = 1 To MainTable.RecordCount
MainTable.EditCurrentRecord
MainTable.Fields("序号").Value = i
MainTable.UpdateCurrentRecord
Next i

--  作者：有点蓝
--  发布时间：2024/10/31 11:08:00
--
for i as integer = 0 to Tables("分村统计表").rows.count - 1
Tables("分村统计表").rows(i)("序号") = i+1
next