以文本方式查看主题 - 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
|