在表中用_Identify进行了自动编号，输出报表也很好没问题，但是往回导入问题来了，由于是只读列导不进去，求教是否有其他能自动增行编号的方法或者如何解决该问题；

手写输入不是嫌麻烦，而是制作了输入窗口上面内容不少，添加一个序号既占空间又实在影响美观，也显得不专业。求老师解答

http://www.foxtable.com/webhelp/scr/2403.htm

With DataTables("装备数据库")
    .LoadTop = "100 Percent"
    .Load()
End With
Dim m As Integer =DataTables("装备数据库").DataRows.Count-1
For i As Integer =0 To m
Dim id As Integer =DataTables("装备数据库").dataRows(i)("_Identify")
DataTables("装备数据库").dataRows(i)("序号") =id
Next

With DataTables("装备数据库")
    .LoadTop = 20
    .LoadPage = 0
    .Load()
End With

放在datacolchanged里

老师，功能是已经完成了，但是由于我是的表是分页显示的，在计算DataTables("装备数据库").DataRows.Count时只好先全加载一遍，生成序号后又分页，效率低不说，而且新增数据后光标还自动跑回第一页，有没有办法不用分页直接生成编号啊，怎么改代码，我太笨，请老师教我

感谢老师，不过原设计已经基本完成了，功能也全部在表的分页前提下实现了，就是差一个编号问题，就不换分页方式了

认真思考后，我把代码转移到保存按钮里去了~~修改完了保存一下就把序号更新不是也可以吗~

还有一点请教老师，就是]_Identify能不能用代码进行更新啊（重新编号），由于设计编号时，代码进行了引用，发现如果删除了中间行发现序号并不会自动改变，新增行就没问题，这个有点坑啊