TDBGrid控件如果选择下一行记录和上一行记录

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();

	}

}

现在代码如上，仅仅是在dbgrid中焦点移动到了上一行或者下一行，而不是dbgrid的当前行移动到了上一行或者下一行，请问
怎么移动当前行到上一行记录或者下一行记录？
------解决方案--------------------
数据表里添加一个排序的字段，

你选择的时候修改排序字段的数值，然后再重新显示出来就可以了