以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  筛选出的数据从1重新排序怎么写?  (http://foxtable.com/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