Ничего не понял. Нужно вывести в листбоксы все поля таблицы? А чем не
устраивает TDataset->FieldCount в сочетании с
TDataset->Fields->Fields[n]->FieldName?

или я неправильно понял?


Posted via ActualForum NNTP Server 1.3

Если данные из листбокса должны попадать в поле другой таблицы - тогда
используйте DBLookupListBox.

FieldCount - возвращает количество полей в датасете
Fields->Fields[n] - дает доступ к объекту поля таблицы по номеру n
FieldName - соответственно стринг с названием поля.

Листбокс ваш можно заполнить весьма просто - если в другую таблицу значение
писать не нужно. Привожу код. Table1 - объект вашей таблицы. Fields[0] -
ссылается на первое поле таблицы. Соответственно, листбокс заполняется из
значений первого поля.

Table1->First();
for (int i=0;i<Table1->RecordCount;i++)
{
ListBox1->Items->Add(Table1->Fields-Fields[0]->AsString);
}

вроде все.


Posted via ActualForum NNTP Server 1.3

void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
IBTable1->First();
for (int i=0;i<IBTable1->RecordCount;i++)
{
ListBox1->Items->Add(IBTable1->Fields->Fields[1]->AsString);
IBTable1->Next();
}
}

ну это для примера реально работающий код. Да, кстати, Next() я забыл
поставить в предыдущем тексте. Впрочем, и так, вроде бы, понятно, что
таблицу нужно перелистывать на следующую запись.

Эксцепшн может выпадать из-за неактивности датасета, на который вы
ссылаетесь. Проще говоря, проверьте, в вашей таблице Active равен true?


Posted via ActualForum NNTP Server 1.3

кстати да, еще одно решение. впрочем, проблема с тормозами для первого
варианта снимается вызовом Application->ProcessMessages(); в теле цикла.


Posted via ActualForum NNTP Server 1.3