//--------------------------------------------------------------------------------// 功能:将 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上。
Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长:MinTao ICP备案号:鄂ICP备11006601号-18