Вывод в комбобокс дбгрида столбцов другой таблицы

@helsik · Регистрация: 09.12.2013

Author24 — интернет-сервис помощи студентам

Прочел очень много тем, но ответа так и не нашел, нужно чтобы в выпадающем списке дбгрида, отображалось 2 колонки, а при клике на строку состоящую из двух колонок в ячейке выбиралось только значение первого столбца. Что у меня вышло: (делал в 2 варианта результат один)

C++

void __fastcall TForm1::DBGrid3CellClick(TColumn *Column)
{
  /*  int i;
    DataModule2->ADOTable4->First();
    for (i=0;i<DataModule2->ADOTable4->RecordCount;i++)
 {
      DBGrid3->Columns->Items[16]->PickList->Add(DataModule2->ADOTable4->FieldByName("ID")->Value);
      DBGrid3->Columns->Items[16]->PickList->Add(DataModule2->ADOTable4->FieldByName("Client")->Value);
      DataModule2->ADOTable4->Next();
 
 }  àëüòåðíàòèâíûé âàðèàíò âûâîäà 2 ñòîëáöîâ â îäíîì êîìáîáîêñå, íî åñëè ïèêíóòü êëèåíòà âûëåò ñ îøèáêîé*/
 DataModule2->ADOQuery2->SQL->Clear();
 DataModule2->ADOQuery2->SQL->Add("SELECT tblMain.[ID], tblMain.[Client] FROM tblMain;" );
 DataModule2->ADOQuery2->Active=true;
 DataModule2->ADOQuery2->Open();
 //ComboBox5->Items->Clear();
 for (int i=0; i<DataModule2->ADOQuery2->RecordCount; i++)
{
DBGrid3->Columns->Items[16]->PickList->Add(DataModule2->ADOQuery2->FieldValues["ID"]);
DBGrid3->Columns->Items[16]->PickList->Add(DataModule2->ADOQuery2->FieldValues["Client"]);
//ComboBox5->Items->Add(DataModule2->ADOQuery2->FieldValues["ID"]);
DataModule2->ADOQuery2->Next();
}
DataModule2->ADOQuery2->Close();
}

вот как пашет мой код, и что нужно:

@helsik · 21.12.2013, 03:30 **[ТС]**

Есть идеи?

@Sasha · 21.12.2013, 13:13

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

DBGrid3->Columns->Items[16]

А ты что хочешь чтобы только в 16 столбце выпадал комбобокс?

@helsik · 21.12.2013, 19:21 **[ТС]**

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

А ты что хочешь чтобы только в 16 столбце выпадал комбобокс?

да именно там.

@Sasha · 21.12.2013, 21:16

C++

 DataModule2->ADOQuery2->Close();
 DataModule2->ADOQuery2->SQL->Clear();
 DataModule2->ADOQuery2->SQL->Add("SELECT ID, Client FROM tblMain");
 DataModule2->ADOQuery2->Open();
  
  while(!DataModule2->ADOQuery2->Eof)
 {
  DBGrid3->Columns->Items[16]->PickList->Add(DataModule2->ADOQuery2->FieldValues["ID"] + " " + DataModule2->ADOQuery2->FieldValues["Client"]);
  DataModule2->ADOQuery2->Next();
 
 }

@helsik · 21.12.2013, 22:14 **[ТС]**

спасибо, но не пашет... вот такие ошибки:

@Sasha · 21.12.2013, 22:32

C++

1	DBGrid3->Columns->Items[16]->PickList->Add(DataModule2->ADOQuery2->FieldValues["ID"] +AnsiString(" ") + DataModule2->ADOQuery2->FieldValues["Client"]);

Добавлено через 2 минуты
или

C++

1	DBGrid3->Columns->Items[16]->PickList->Add(DataModule2->ADOQuery2->FieldValues["ID"] + L" " + DataModule2->ADOQuery2->FieldValues["Client"]);

C++

1	DBGrid3->Columns->Items[16]->PickList->Add(DataModule2->ADOQuery2->FieldValues["ID"] + UnicodeString(" ") + DataModule2->ADOQuery2->FieldValues["Client"]);

@helsik · 21.12.2013, 22:34 **[ТС]**

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

DBGrid3->Columns->Items[16]->PickList->Add(DataModule2->ADOQuery2->FieldValues["ID"] +AnsiString(" ") + DataModule2->ADOQuery2->FieldValues["Client"]);

спасибо, прога запустилась, но при клике куда-нибуть, вылетает такое окно:

@helsik · 21.12.2013, 22:36 **[ТС]**

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

DBGrid3->Columns->Items[16]->PickList->Add(DataModule2->ADOQuery2->FieldValues["ID"] + L" " + DataModule2->ADOQuery2->FieldValues["Client"]);

ошибки как тут:

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

спасибо, но не пашет... вот такие ошибки

Добавлено через 1 минуту

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

1
DBGrid3->Columns->Items[16]->PickList->Add(DataModule2->ADOQuery2->FieldValues["ID"] + UnicodeString(" ") + DataModule2->ADOQuery2->FieldValues["Client"]);

а на этот код пишет ошибку:
[C++ Error] Unit1.cpp(155): E2268 Call to undefined function 'UnicodeString'

@Sasha · 21.12.2013, 22:42

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

ошибки как тут:

Добавлено через 1 минуту

а на этот код пишет ошибку:
[C++ Error] Unit1.cpp(155): E2268 Call to undefined function 'UnicodeString'

Я просто думал что у тебя версия билдера не 6

@helsik · 22.12.2013, 00:07 **[ТС]**

Sasha, огромное спасибо за помощь, во всяком случае теперь знаю, что не все так легко(как я думал..) а как в той проге(в которой я увидел эту фишку) вставляется в поле int в picklist два поля int и текст, наверно можно обьяснить каким-то левым компонентом, явно не простым dbgrid. Но буду рад если кто-то знает как это сделать:

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	21.12.2013, 22:42	10
	Сообщение от helsik ошибки как тут: Добавлено через 1 минуту а на этот код пишет ошибку: [C++ Error] Unit1.cpp(155): E2268 Call to undefined function 'UnicodeString' Я просто думал что у тебя версия билдера не 6 1

@helsik 12 / 12 / 3 Регистрация: 09.12.2013 Сообщений: 142
	22.12.2013, 00:07 [ТС]	11
	Sasha, огромное спасибо за помощь, во всяком случае теперь знаю, что не все так легко(как я думал..) а как в той проге(в которой я увидел эту фишку) вставляется в поле int в picklist два поля int и текст, наверно можно обьяснить каким-то левым компонентом, явно не простым dbgrid. Но буду рад если кто-то знает как это сделать: Миниатюры 0

@helsik 12 / 12 / 3 Регистрация: 09.12.2013 Сообщений: 142
	21.12.2013, 03:30 [ТС]	2
	Есть идеи? 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	21.12.2013, 13:13	3
	Сообщение от helsik DBGrid3->Columns->Items[16] А ты что хочешь чтобы только в 16 столбце выпадал комбобокс? 0

@helsik 12 / 12 / 3 Регистрация: 09.12.2013 Сообщений: 142
	21.12.2013, 19:21 [ТС]	4
	Сообщение от Sasha А ты что хочешь чтобы только в 16 столбце выпадал комбобокс? да именно там. 0

@helsik 12 / 12 / 3 Регистрация: 09.12.2013 Сообщений: 142
	21.12.2013, 22:14 [ТС]	6
	спасибо, но не пашет... вот такие ошибки: Миниатюры 0

@helsik 12 / 12 / 3 Регистрация: 09.12.2013 Сообщений: 142
	21.12.2013, 22:34 [ТС]	8
	Сообщение от Sasha DBGrid3->Columns->Items[16]->PickList->Add(DataModule2->ADOQuery2->FieldValues["ID"] +AnsiString(" ") + DataModule2->ADOQuery2->FieldValues["Client"]); спасибо, прога запустилась, но при клике куда-нибуть, вылетает такое окно: Миниатюры 0

@helsik 12 / 12 / 3 Регистрация: 09.12.2013 Сообщений: 142
	21.12.2013, 22:36 [ТС]	9
	Сообщение от Sasha DBGrid3->Columns->Items[16]->PickList->Add(DataModule2->ADOQuery2->FieldValues["ID"] + L" " + DataModule2->ADOQuery2->FieldValues["Client"]); ошибки как тут: Сообщение от helsik спасибо, но не пашет... вот такие ошибки Добавлено через 1 минуту Сообщение от Sasha 1 DBGrid3->Columns->Items[16]->PickList->Add(DataModule2->ADOQuery2->FieldValues["ID"] + UnicodeString(" ") + DataModule2->ADOQuery2->FieldValues["Client"]); а на этот код пишет ошибку: [C++ Error] Unit1.cpp(155): E2268 Call to undefined function 'UnicodeString' 0