procedure TMainForm.UniButton1Click(Sender: TObject);
begin
with UniDBGrid1 do
if WebOptions.Paged then
JSInterface.JSCall('pagingBar.movePrevious', []);
end;
procedure TMainForm.UniButton2Click(Sender: TObject);
begin
with UniDBGrid1 do
if WebOptions.Paged then
JSInterface.JSCall('pagingBar.moveNext', []);
end;
C Code is Here:
1)下一页
void __fastcall TUniFormUser::UniBitBtn10Click(TObject *Sender)
{
if(UniDBGrid1->WebOptions->Paged)
{
UniDBGrid1->JSInterface->JSCall("pagingBar.moveNext", "[]");
}
}
2)上一页
void __fastcall TUniFormUser::UniBitBtn9Click(TObject *Sender)
{
if(UniDBGrid1->WebOptions->Paged)
{
UniDBGrid1->JSInterface->JSCall("pagingBar.movePrevious", "[]");
}
}