Cryogen2003
Advanced Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Procedure FindValueByField(Grid: TcxGridDBBandedTableViewCEB;
MemTable: TkbmMemTable; FieldName: String; Value: String);
Var
Temp1: String;
Begin
Temp1 := Grid.DataController.KeyFieldNames;
Try
Grid.DataController.KeyFieldNames := FieldName;
Grid.DataController.BeginLocate;
Try
Grid.DataController.LocateByKey(Value);
Finally
Grid.DataController.EndLocate;
End;
Finally
Grid.DataController.KeyFieldNames := Temp1;
End;
End;
|
