Ошибка DBCombobox

← →
Balepa (2004-04-03 20:04) [0]

У меня такой вопрос на форме есть 2 DBCombobox"a DataSource у обоих один. При выборе итема у 1-го дбкомбобокса не происходит позиционирование (может и происходит только вот во 2-ом текст не меняется) потом тыкаеш на стрелке у второго дбкомбобокса и вылазит ошибка:

Project Project1.exe raised exception class EDatabaseError with message "AdoTable1: Dataset not in edit or insert mode".

Вот код:

procedure TForm1.AddToCb(cb: TDBCombobox; FieldData:
String; TableName: String; Query: TAdoQuery; Index: byte);

//Это моя процедура

begin
cb.Items.Clear;
Query.SQL.Clear;
Query.SQL.Text:= "Select Distinct ["+FieldData+"] from "+TableName;
Query.Active:= True;
with Query do
while not eof do
begin
cb.Items.Add(Fields[index].AsString);
Next;
end;
Query.Active:= False;
end;

procedure TForm1.DBComboBox1Change(Sender: TObject);
begin
DataSource1.DataSet.Locate("Название",DBCombobox1.Text,[]);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
AddToCb(DBCombobox1,"Название","Каталог",AdoQuery1,0);

AddToCb(DBCombobox2,"Автор","Каталог", AdoQuery1,0);
end;

procedure TForm1.DBComboBox2Change(Sender: TObject);
begin
DataSource1.DataSet.Locate("Автор",DBCombobox2.Text,[]);
end;

end.

← →
Balepa (2004-04-03 20:55) [1]

Спасибо за ваши ответы.

> Balepa (03.04.04 20:55) [1]

Дык выходные, народу в форуме почти нет, чего ты хотел ? Подожди понедельника.

Ошибка DBCombobox Найти похожие ветки