关于LISTVIEW和数据库的问题(100分)

紫

紫色芳香

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-04

• #1

请问：
1、怎么将LISTVIEW中所有的ITEM作为一个字段的内容添加进表？
2、两个LISTVIEW，如何比较出两者之间哪些ITEM相同？并返回值。

 

D

djdsz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-04

• #2

用循环吧，最笨的方法之一

 

紫

紫色芳香

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-04

• #3

能不能帮忙写一下具体的程序，我是新手，谢谢

 

Z

zhangkan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-04

• #4

tv.Items.Clear;
TV.Items.AddFirst(nil,'root');
TV.Selected:=TV.Items.Item[0];
table1.first;
while not table1.eof do
begin
tv.Items.Add(tv.selected,table1.fields[0].asstring);
table1.next;
end;

 

D

djdsz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-04

• #5

你不会是想用ListView来代替DbGrid显示数据吧：）

 

Z

zhangkan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-04

• #6

糟糕，没看仔细，以为是TreeView，ListView应该差不多吧。

 

紫

紫色芳香

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-04

• #7

To djdsz: 就是的，我讨厌DBGrid里面的线

To zhangkan：我是要把LISTVIEW中的内容添加进表里，做为一个字段添加到不同的记录中，你好象理解反了

 

D

djdsz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-04

• #8

只是讨厌线吗？设置DBGrid的OPtions就可以了，没必要用ListView的。
实在要用就：
var
s:array of const;
setlength(s,listview1.columns.count);
for i:=0 to listview1.items.count-1 do
begin
s[0]:=listview1.items.caption;
for j:=0 to listview1.items.subitems.count-1 do
s[j+1]:=listview1.items.subitems[j];
dataset.insertrecord(s);
end;

 

Y

yanzi_wy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-05

• #9

for(int i=0;i<lvHoldItem->Items->Count;i++)
{
AssDM->qryGkbRepShopInfo->Close();
AssDM->qryGkbRepShopInfo->SQL->Clear();
AssDM->qryGkbRepShopInfo->SQL->Add("insert into ShopSerItem (Serv_TermNo,ServItemNo,SerStartDate,SerEndate) valuesstn2,:sin,:ssd,:sed)");
AssDM->qryGkbRepShopInfo->ParamByName("stn2")->AsString=edtServ_TermNo->Text;
AssDM->qryGkbRepShopInfo->ParamByName("sin")->AsString=lvHoldItem->Items->Item->Caption ;
AssDM->qryGkbRepShopInfo->ParamByName("ssd")->AsDateTime=dtpSerStartDate->DateTime;
AssDM->qryGkbRepShopInfo->ParamByName("sed")->AsDateTime=dtpSerEndate->DateTime;
AssDM->qryGkbRepShopInfo->ExecSQL();
}

 

紫

紫色芳香

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-05

• #10

多人接受答案了。