listview.selected.caption可以得到小区名字
再用SQL语句:select * form 数据库 where 小区名=caption
最后rzListView1.Items.Add
再用SQL语句:select * form 数据库 where 小区名=caption
最后rzListView1.Items.Add
解决方案 »
- 太离谱了吧:编译好的EXE程序居然能够在运行时解释运行PASACAL代码,DELPHI能这样用?
- 请教treeview通过大量数据库信息建立树的问题
- 强烈要求CSDN社区解决以下问题!!!!!(顺便散分)
- 怎样可以使QRDBText控件里加上TLabel的Layout属性和功能呢???重分谢答
- 使用clientdataset发布时的问题
- 特别的问题盼望回应
- Delphi5与Access的连接问题
- 小问题,但需要有一定经验,并且非常着急!!!
- 使用idhttp组件做的网络爬虫,运行后处于time_wait状态的数量太多
- 求救,delphi7如何显示生僻字
- 一数与MEMO1中一列数对比.当两数相等,在MEMO2中写入"相等";当两数不相等,在MEMO2中写入"不相等";到底怎么写,我怎么会写出一列不相等,只要
- 怎么样才能实现form2上能使用form1上的音量控制,在线等候
双击时你用下面代码if ListView1.Selected <> nil then
with Query1 do
begin
Close;
sql.clear;
sql.add('select username from table1 where xiaoqu='''+ListView1.Selected.Caption+'''');
Open;
end;
然后在把所有sql的反回数据加到ListView2中。
再用SQL语句:select * form 数据库 where 小区名=caption
最后用ListView2.Items.Add把选择到的记录添加了LISTVIEW2
再用SQL语句:select * form 数据库 where 小区名=caption
最后用ListView2.Items.Add把选择到的记录添加了LISTVIEW2
var
ListItem : TListItem;
i : Integer;for i:= 0 to Query.RecordCount-1 do
Begin
ListItem := ListView2.Add();
ListItem.Caption := Query.Fields[i];
End
循环中最后要加个Query.Next;
Fields[i],应该是Fields[0]
如果你选种了表里的多列,可以用ListItem.SubStrings.Add(const String);继续添加