我想要用两个LISTBOX,点击LISTBOX1的一个值后,LISTBIX2显示和LISTBOX1点击的有关的内容。
procedure Tksbjform.ListBox1Click(Sender: TObject);
var
m,i:integer;
ss:array[0..1] of string;
begin
m:=listbox1.itemindex;
ss[0]:=listbox1.items[m];
ss[1]:='select * from spxlzd where ssspdl=ss[0]';
with query1 do
begin
close;
sql.clear;
sql.add(ss[1]);
open;
for i:=1 to recordcount do
begin
listbox2.Items[i-1]:=query1.fieldvalues['spxlmc'];
query1.next;
end;
end;
end;
为什么运行后会出错,是不是因为SS[0]不能放在SQL语句中?
procedure Tksbjform.ListBox1Click(Sender: TObject);
var
m,i:integer;
ss:array[0..1] of string;
begin
m:=listbox1.itemindex;
ss[0]:=listbox1.items[m];
ss[1]:='select * from spxlzd where ssspdl=ss[0]';
with query1 do
begin
close;
sql.clear;
sql.add(ss[1]);
open;
for i:=1 to recordcount do
begin
listbox2.Items[i-1]:=query1.fieldvalues['spxlmc'];
query1.next;
end;
end;
end;
为什么运行后会出错,是不是因为SS[0]不能放在SQL语句中?
解决方案 »
- DLL查询问题
- 关于NetQueryDisplayInformation问题?
- ★★★散分了,今天涨了5分信誉分,有问题要问,请大版主ARI进来一下★★★
- delphi 的 qreport的问题:
- 如何用ADO连接远程服务器上的SQL2000数据库。
- MIDAS中,远程数据模块的接口方法若要返回int,string,bool等类型,则应该怎么设呢?
- 有关EXCEL的记录数
- 有女朋友了,送分
- 有谁用过ReadStrings接收数据?
- TdxComponentPrinter已经连上dxgrid控件,但是调用它的preview(TRUE,nil)时怎么会关了adoQuery?
- delphi7中编写一个基于clx的文件上传的程序
- 那里有QR3.62 for D6的下载
多谢了。
顺便问一下,QuotedStr()这个函数是什么意思?