Вниз
Скачать: CL | DM;

Как вставить в Listview таблицу базы данных   Найти похожие ветки 

← →
Гаврилов В.А.   (2004-12-05 18:14) [0]

Уважаемые мастера!
Помогите советом, я делаю так:

table1.first;
while not Table1.eof do
begin
listview1.items.add.caption:= table1.fieldbyname("name").assstring;
table1.next;
end;

все работает но отражается только один столбик таблице (что собственно и прописано) но а как с остальными, черт побери не могу понять.
С уважением Гаврилов Виталий


← →
begin...end ©   (2004-12-05 18:15) [1]

А для остальных столбиков SubItems имеется.


← →
Гаврилов В.А.   (2004-12-05 18:18) [2]

а точнее

listview1.items.add.subitem.caption так что ли но ведь это код меняет название столбца, да как надо то привязаться к этому subitem-у


← →
begin...end ©   (2004-12-05 18:21) [3]

> [2] Гаврилов В.А.   (05.12.04 18:18)

ListView1.Items[индекс].SubItems.Add("...")


← →
Гаврилов В.А.   (2004-12-05 18:34) [4]

это видимо так

table1.first;
while not Table1.eof do
begin
listview1.items.add.caption:= table1.fieldbyname("name").assstring;
ListView1.Items[0].SubItems.Add("city")
ListView1.Items[1].SubItems.Add("e-mail")
table1.next;
end;


← →
begin...end ©   (2004-12-05 18:40) [5]

> [4] Гаврилов В.А.   (05.12.04 18:34)

while not Table1.EOF do
begin
 with ListView1.Items.Add do
 begin
   Caption := Table1.FieldByName("name").AsString;
   SubItems.Add("city");
   SubItems.Add("e-mail")
 end;
 Table1.Next
end.



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.038 c
1-1102326103
jiran
2004-12-06 12:41
2004.12.19
Помогите перевести с с++ на Delphi вызов функции из dll !


14-1101232615
OneFragLeft
2004-11-23 20:56
2004.12.19
Раздел порта.


3-1100953359
Iova
2004-11-20 15:22
2004.12.19
rdb$...


3-1100687772
Chery
2004-11-17 13:36
2004.12.19
Нет конекта через службу Borland Socket Server.


1-1101961607
klyg
2004-12-02 07:26
2004.12.19
WebBrowser1.ExecWB(OLECMDID_COPY, OLECMDEXECOPT_DONTPROMPTUSER)




   Наверх