在ets上做的自由分页

-define(PAGECOUNT,3).  %定义自己的页容量

Pre = (Page -1) * ?PAGECOUNT,  %页首
Tail = Page * ?PAGECOUNT + 1,  %页尾
Query=ets:fun2ms(fun(Data=#process_state{number=Number}) when Number > Pre andalso Number < Tail -> Data end),  %选中处于编号中的元素，number为数据号码
ets:select(named_table, Query)  %执行查找