Foxtable(狐表)用户栏目专家坐堂 → 筛选出的数据从1重新排序怎么写?


  共有213人关注过本帖树形打印复制链接

主题:筛选出的数据从1重新排序怎么写?

帅哥哟,离线,有人找我吗?
lrh9537
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:380 积分:3154 威望:0 精华:0 注册:2012/11/16 12:19:00
筛选出的数据从1重新排序怎么写?  发帖心情 Post By: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

 回到顶部