1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
type
TForm2 = class(TForm)
ADOConnection1: TADOConnection;
ADOStoredProc1: TADOStoredProc;
ADOStoredProc1Cat: TStringField;
...
DBGrid1: TDBGrid;
DataSource1: TDataSource;
BitBtn2: TBitBtn;
ComboBox1: TComboBox;
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.BitBtn2Click(Sender: TObject);
begin
ADOStoredProc1.Locate(FldName, ComboBox1.Text, [loCaseInsensitive,loPartialKey]);
end;
// Поле FldName - не индексировано
Вместо первой записи, удовлетворяющей условию значение FldName соответствует ComboBox1.Text при [loCaseInsensitive,loPartialKey], указатель в Grid устанавливается на другой записи, которая может оказаться от первой до последней, в зависимости от значений FldName и ComboBox1.Text. И это только для первой колонки Grid , к которому привязано выходное значение процедуры c именем Cat (FldName).
Что это было?
Модератор: Пользуйтесь тегом (кнопкой) SRC для оформления кода, пожалуйста.
