listbox的问题,好长时间了?在线等.........

yltest 2003-04-24 11:03:18
有listbox1,listbox2,table1,table2
listbox1显示table1记录,table2为空,现在我想从listbox1中选取几条记录到listbox2中并插入到table 中,如何做?
...全文
66 点赞 收藏 3
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
yltest 2003-04-25
:dh9450(谁有我菜),也许我更菜,不过:nj_wangzhen(我爱DELPHI) 的更实用些!!
回复
nj_wangzhen 2003-04-24
首先要将listbox1的MultiSelect属性设为true
for I:=0 to listbox1.Count-1 do
begin
if listbox1.Selected[i] then
listbox2.Items.Add(listbox1.Items[i]);
end;
插入空表就不写了不就是从listbox2 中循环插入一遍嘛

回复
dh9450 2003-04-24
很久以前写的了
参考下
procedure Tfrm_cx.tolClick(Sender: TObject);
var
i,cz:integer;itemstr:string;
begin
if lb1.itemindex>-1 then
begin
cz:=0;
itemstr:=lb1.Items.Strings[lb1.itemindex];
for i:=0 to lb2.Items.Count-1 do
begin
if lb2.Items.strings[i]=itemstr then
begin
cz:=1;
break;
end
end;
if cz=0 then
begin
lb2.items.add(itemstr);
button1.enabled:=true;
qysave.enabled:=true;
table2.append;
table2.FindField('字段名').asstring:=itemstr ;
end
else
application.MessageBox('您所选择的字段已存在输出列表中,请不要重复。','错误',16);
end
else
showmessage('请选择要输出的字段.');
end;
回复
发帖
数据库相关
创建于2007-08-02

2451

社区成员

Delphi 数据库相关
申请成为版主
帖子事件
创建了帖子
2003-04-24 11:03
社区公告
暂无公告