procedure TfrmTest2.btn1Click(Sender: TObject);
begin
adoquery1.Active:=False;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from frmTest1');
adoquery1.Active:=True;
begin
if cbb1.Text='升序' then
adoquery1.Recordset.Sort:='年齡 asc'
else
adoquery1.Recordset.Sort:='年齡 desc'
end;
end;
我哪里出錯了，求指導下，想的頭疼。。。
uj5u.com熱心網友回復：
在線的各位兄弟知道的教我下，在線等。。。uj5u.com熱心網友回復：
procedure TfrmTest2.btn1Click(Sender: TObject);
begin
adoquery1.Active:=False;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from frmTest1');
adoquery1.Active:=True;
begin{目測此處多了個begin}
if cbb1.Text='升序' then
adoquery1.Recordset.Sort:='年齡 asc'
else
adoquery1.Recordset.Sort:='年齡 desc'
end{目測此處多了個end}
end;
改后：
procedure TfrmTest2.btn1Click(Sender: TObject);
begin
adoquery1.Active:=False;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from frmTest1');
adoquery1.Active:=True;
if cbb1.Text='升序' then
adoquery1.Recordset.Sort:='年齡 asc'
else
adoquery1.Recordset.Sort:='年齡 desc'
end;
uj5u.com熱心網友回復：
//上面少了一個分號；
procedure TfrmTest2.btn1Click(Sender: TObject);
begin
adoquery1.Active:=False;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from frmTest1');
adoquery1.Active:=True;
if cbb1.Text='升序' then
adoquery1.Recordset.Sort:='年齡 asc'
else
adoquery1.Recordset.Sort:='年齡 desc';
end;
uj5u.com熱心網友回復：
嗯！多個end！procedure TfrmTest2.btn1Click(Sender: TObject);
begin
with qry1 do begin
close;
sql.clear;
sql.add('select * from frmTest1');
open;
if cbb1.Text='升序' then
Recordset.Sort:='年齡 asc'
else
Recordset.Sort:='年齡 desc';
end;
end;
uj5u.com熱心網友回復：
這樣，就可以了：procedure TfrmTest2.btn1Click(Sender: TObject);
var SQL:string;
begin
SQL:='select * from frmTest1 ';
if cbb1.Text='升序'
then SQL:=SQL+'order by ''年齡'''
else SQL:=SQL+'order by ''年齡'' desc ';
adoquery1.Active:=False;
adoquery1.SQL.Clear;
adoquery1.SQL.Add(SQL);
adoquery1.Active:=True;
end;
uj5u.com熱心網友回復：
adoquery1.Sort不明白為什么在前面加個recordset
sort屬性，設定 完之后不需要手工重繪的
uj5u.com熱心網友回復：
procedure TfrmTest2.btn1Click(Sender: TObject);begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from frmTest1');
adoquery1.Open;//一般情況下盡量不要用Active屬性，盡量使用Close和Open程序
case cbb1.itemindex of //盡量用CASE吧，不容易眼花
0: adoquery1.Sort:='年齡 ASC;
1: adoquery1.Sort:='年齡 DESC;
else
adoquery1.Sort:='';//重置
end;
end;
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/86051.html
標籤：數據庫相關
上一篇：出入庫 求庫存
下一篇：程式在別人電腦運行出錯誤！