将DBGrid 当前列定位到指定的字段上

//--------------------------------------------------------------------------------

// 功能：将 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上。