Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
做一个新增行按钮,在表中加一个ID列,同时生成自增量,新增行按钮中加一段根据ID降序排序代码,试试
Dim dr As DataRow
dr = DataTables("表A").AddNew()
dr("ID") = DataTables("表A").Compute("Max(ID)")+1
Tables("表A").Sort = "ID DESC"
Dim dr As DataRow
dr = DataTables("表A").AddNew()
dr("ID") = DataTables("表A").Compute("Max(ID)")+1
Tables("表A").Sort = "ID DESC"