TDBGrid控件如果选择上一行记录和下一行记录
TDBGridEh *RzDBGrid_ZLCF;
TDataSource *DS_ZLCF;
TTable *TB_ZLCF;
void __fastcall Tfm1::m_pclPreClick(TObject *Sender)
{
int selectindex = this->TB_ZLCF->RecNo;
if(selectindex -1>0 )
{
this->RzDBGrid_ZLCF->SelectedIndex = selectindex-1;
this->RzDBGrid_ZLCF->DataSource->DataSet->Prior();
}
else
{
this->RzDBGrid_ZLCF->SelectedIndex = this->TB_ZLCF->RecordCount-1;
this->RzDBGrid_ZLCF->DataSource->DataSet->Last();
}
}
//---------------------------------------
//下一条指令
void __fastcall Tfm1::m_pclNextClick(TObject *Sender)
{
int selectindex =this->TB_ZLCF->RecNo;
if(selectindex < this->TB_ZLCF->RecordCount)
{
this->RzDBGrid_ZLCF->DataSource->DataSet->Next();
}
else
{
this->TB_ZLCF->RecNo = 1;
this->RzDBGrid_ZLCF->DataSource->DataSet->First();
}
}
