请将godking.conn库升级至最新版。

Code AardioLine:32复制
	
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
import win.ui;
import godking.vlistEx
import godking.conn
/*DSG{{*/
var winform = win.form(text="aardio form";right=759;bottom=469)
winform.add(
button={cls="button";text="下一页";left=520;top=400;right=616;bottom=448;z=2};
button2={cls="button";text="上一页";left=168;top=400;right=264;bottom=448;z=3};
vlist={cls="vlistEx";text="自定义控件";left=16;top=8;right=744;bottom=376;frame=1;z=1}
)
/*}}*/
var db = godking.conn.openAccess( "C:\Users\Administrator\Desktop\caiba.mdb",);
var rs = db.rs("caiba");
rs.PageSize = 10;
var curpage = 1;
winform.vlist.setTable(rs.getPageTable(curpage));
winform.button2.oncommand = function(id,event){
    if curpage<=1 return ;
    curpage--;
    winform.vlist.setTable(rs.getPageTable(curpage),false);
}
winform.button.oncommand = function(id,event){
    if curpage>=rs.PageCount return ;
    curpage++;
    winform.vlist.setTable(rs.getPageTable(curpage),false);
}
winform.show();
win.loopMessage();