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