[Kores]

задача.есть таблица

Код:

spol//датасурс для этой таблицы

...в ней столбцы:
назв/ тип/ значения
ID_pol - счетчик| 1, 2.
pol - текст | мужской, женский
spol - текст | муж, жен.
прикрепляю к этой таблице dblookupcombobox. делаю свойства такие, как надо...тоесть

Код:

object Pol: TDBLookupComboBox
    Left = 288
    Top = 48
    Width = 145
    Height = 21
    DataField = 'Pol'
    DataSource = DataMod.Scard //сюда должны добавляться значения...
    KeyField = 'ID_pol'
    ListField = 'Pol'
    ListSource = DataMod.spol // отсюда берется список значений.
    TabOrder = 6
  end

а в работе он не активен и не показывает список значений



и попутно сразу вопрос...вот кусок кода

Код:

  function Tdatamod.TestNoCard(var No: String): Boolean;
var
  CountZero: Integer;
begin
  CountZero := 8 - Length(No); // к-во незначащих нулей в номере карты. В реальной БД
                            // необходимо использовать не константу, а размер поля
  No := Copy(ZeroStr, 1, CountZero) + No; //добавляем незначащие нули до 8 знаков
  with qSearch do //делаем запрос с номером
  begin
    Parameters.Items[0].Value := No;
    Open;
    Result := RecordCount = 0; //если нет записей с тким номером, значит тест пройден
    if not Result then //если результат негативный сообщаем об этом
     showmessage('такая карта уже существует');
    Close;   //закрываем запрос
  end;
end;

ругается на showmessage - неизвестный идентификатор....
везде это катит...а тут...

[Страдалецъ]

ругается на showmessage - неизвестный идентификатор....

видимо вы его в датамодуле вызываете, а он не подключает Dialogs по умолчанию.

а в работе он не активен и не показывает список значений

Скорее всего не активны источники данных DataMod.Scard и DataMod.spol

[Kores]

так...ну активен он стал...тольк вот не значения необходимые не принимает...сделал, что бы по умолчанию муж пол был...это все делается на ура...а вот если выбрать жен пол, в таблице отображается пустота...

да, и вот еще интересный вопрос...
в таблицу - через квери спокойно передаются все данные из дбэдитов...на другой форме - дбгрид, в который загружается таблица. но...вот в чем проблема: нажал кнопку "Добавить", все сработало...форма с дбэдитами закрылась.а в дбгриде значения не обновились....
как его обновить?*

[Aristarh Dark]

как его обновить?*

Refresh ....