//-------------------------------------------------------------------------------- // 功能:将 DbGrid 当前列定位到某字段上。 // 参数: pDbGrid:TDbGrid; DBGrid // pcFieldName : string 数据表字段名,字段名不区分大小写 // 返回:当表字段在 DBGrid 中存在时,返回表字段所在的列的序号,首序号为0 // 否则,返回 -1 // 引用:GetDbGridColumnIndex( ); // 例如:SetDbGridColumn( DbGrid1, ''''Price'''' ); //-------------------------------------------------------------------------------- Function SetDbGridColumn( pDbGrid:TDbGrid; pcFieldName : string ):integer; var nCol : integer ; begin Result := GetDbGridColumnIndex( pDbGrid, pcFieldName ); if nCol >= 0 then pDbGrid.SelectedIndex := Result ; end; 例子:
SetDbGridColumn( DbGrid1, ''''Price'''' ); 将DbGrid1的当前列定位到字段Price上。
|