странное обновление в cxCombobox

[Etsareva]

доброе утро! помогите решить такой вопрос: есть форма, на ней cxCombobox. в нем отображаются некоторые данные из БД (свойства). при выборе какого-либо свойства в NextGrid отображаются значения. у каждого свойства свои значения.
но вот в чем затык, если свойства имеют одинаковое название, то данные в NextGrid как-то странно обновляются: выбираешь одно из одинаковых свойств - в гриде отображаются одни значения, другое - данные те же самые (хотя на самом деле разные). ID в бд у них разные.
если выбираешь между одинаковыми свойствами какое-то другое, то данные в NexGrid меняются. с другими свойствами все нормально.

procedure ShowVals(ID:string);
begin
  FormAddField.GridValues.ClearRows;
  with StdMainForm.ADOQuery do begin
    Sql.Clear;
    SQL.Add('Select * from ListValues where List_id='+QuotedStr(ID));
    try Open
    except
      //
    end;
  end;
  with StdMainForm.DataSource.DataSet do begin
    //Добавляем значения в таблицу
    FormAddField.GridValues.BeginUpdate;
    FormAddField.GridValues.AddRow(RecordCount);
    while not Eof do begin
      FormAddField.GridValues.Cell[0, RecNo-1].AsString:=FieldByName('Val_ID').AsString;
     FormAddField.GridValues.Cell[1, RecNo-1].AsBoolean:=false;
      FormAddField.GridValues.Cell[2, RecNo-1].AsString:=FieldByName('Value').AsString;
       FormAddField.GridValues.Cell[3, RecNo-1].AsString:=FieldByName('Code').AsString;
      FormAddField.GridValues.Cell[4, RecNo-1].AsString:=FieldByName('Description').AsString;
      Next;
    end;
    FormAddField.GridValues.EndUpdate;
  end;
end;

[Sciv]

но вот в чем затык, если свойства имеют одинаковое название, то данные в NextGrid как-то странно обновляются: выбираешь одно из одинаковых свойств - в гриде отображаются одни значения, другое - данные те же самые (хотя на самом деле разные). ID в бд у них разные.
если выбираешь между одинаковыми свойствами какое-то другое, то данные в NexGrid меняются.

А давайте Вы попробуете описать по шагам и с примерами, а то непонятно ничего.

Сообщение от Etsareva

try Open
    except
      //
    end;

так себе конструкция. Если не собираетесь обрабатывать исключения - незачем и try городить.

[Etsareva]

Сообщение от Sciv

А давайте Вы попробуете описать по шагам и с примерами, а то непонятно ничего.

например: два разынх свойства с названием "Тип соединителя". у этих свойств разные значения, у первого, например: 1, 5, 6; у второго - 8, 10, 12. в БД у них разные ID. если я выбираю в combo первое свойство, в NexGrid
появляются значения 1, 5, 6; если я выбираю второе свойство, то значения не обновляются, то есть они так же и остались 1, 5, 6, хотя должны быть 8, 10, 12. Если между их выбором выбрать свойство с другим названием, но данные будут меняться в NextGrid. надеюсь, более понятней.

[Аватар]

Смотри как ID передаешь в процедуру

[Etsareva]

ID:=MasID[cmbEnumeration.ItemIndex];

[Аватар]

Ну, а как MasID формируется, может там не тот ID. Есть отладчик, поставь бряки и смотри значение чего передаешь

[Etsareva]

Аватар, ID первого из одинаковых свойств передаются правильно, а второго свойства вообще не передается

[Sciv]

Сообщение от Etsareva

надеюсь, более понятней.

Намного более.

Можете привести целиком код обработки выбора наименования свойства в комбобоксе?

[Etsareva]

Аватар, в-общем, как-то странно: если я выбираю при отладке первое из свойств, у второго ID не передается, если я выбираю, второе - у первого ID не передается....

[Etsareva]

Sciv,

procedure TFormAddField.cmbEnumerationPropertiesChange(Sender:TObject);
var
  ID:string;
begin
  if (cmbEnumeration.Text='')or(chkNominalRow.Checked and(grpValuesType.ItemIndex=1)) then exit;
  GridValues.ClearRows;
  ID:=MasID[cmbEnumeration.ItemIndex];
  ShowVals(ID);
end;

procedure ShowVals(ID:string);
begin
  FormAddField.GridValues.ClearRows;
  with StdMainForm.ADOQuery do begin
    Sql.Clear;
    SQL.Add('Select * from ListValues where List_id='+QuotedStr(ID));
    try Open
    except
      //
    end;
  end;
  with StdMainForm.DataSource.DataSet do begin
    //Добавляем значения в таблицу
    FormAddField.GridValues.BeginUpdate;
    FormAddField.GridValues.AddRow(RecordCount);
    while not Eof do begin
      FormAddField.GridValues.Cell[0, RecNo-1].AsString:=FieldByName('Val_ID').AsString;
     FormAddField.GridValues.Cell[1, RecNo-1].AsBoolean:=false; //По умолчанию отмечены все значения!!!
      FormAddField.GridValues.Cell[2, RecNo-1].AsString:=FieldByName('Value').AsString;
       FormAddField.GridValues.Cell[3, RecNo-1].AsString:=FieldByName('Code').AsString;
      FormAddField.GridValues.Cell[4, RecNo-1].AsString:=FieldByName('Description').AsString;
      Next;
    end;
    FormAddField.GridValues.EndUpdate;
  end;
end;