标题：筛选出的数据从1重新排序怎么写？

1楼

lrh9537 发表于：2024/10/31 10:46:00

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

2楼

有点蓝 发表于：2024/10/31 11:08:00

for i as integer = 0 to Tables("分村统计表").rows.count - 1

Tables("分村统计表").rows(i)("序号") = i+1

共2 条记录, 每页显示 10 条, 页签: [1]