从4个控件属性中分别提取4个整形数分别和ztsj表中4个字段 el,es,er,ep 作比较如果一样把那一行的bh字段的值赋给k这个变量。

[code delphi]
var sqllist:string;
begin
sqllist:='SELECT bh from ztsj where el=' inttostr(RadioGroup1.ItemIndex) 'and es=' inttostr(RadioGroup2.ItemIndex) 'and er=' inttostr(RadioGroup3.ItemIndex) 'and ep=' inttostr(RadioGroup4.ItemIndex)';
with adoquery1 do
begin
Close;
active:=true;
sql.Clear;
sql.Add(sqllist);
active:=false;
END;
end;[/code]
我这样写报错, 帮忙看一下。
如果我写出的代码错误 帮忙从新写一段代码
把查询出来的值赋给k的语句怎么写？

編輯記錄

我用目測, 覺得應該是小問題, 'and 前各加一個空格 ' and

sqllist:='SELECT bh from ztsj where el=' inttostr(RadioGroup1.ItemIndex) ' and es=' inttostr(RadioGroup2.ItemIndex) ' and er=' inttostr(RadioGroup3.ItemIndex) ' and ep=' inttostr(RadioGroup4.ItemIndex)';

請試試看,
這種問題可以在 open 之前 showmessge(sqllist), 然後把語句貼到 dbms 的 sql window 執行一下, 有錯應該會報出錯處, 比較好 debug

參考一下

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

[code delphi]
sqllist:='SELECT bh from ztsj where el=' inttostr(RadioGroup1.ItemIndex) ';
[/code]
我如果这样写的话
[Error] Unit2.pas(173): Unterminated string
出现这样的错误

[code delphi]
sqllist:='SELECT bh from ztsj where el='RadioGroup1.ItemIndex';
[/code]
我这样写出现这样的错误
[Error] Unit2.pas(173): Missing operator or semicolon
RadioGroup1.ItemIndex是一个控件的属性 只可能是-1到4的整数

真受夠了

[code delphi]
sqllist:='SELECT bh from ztsj where el=' '"' inttostr(RadioGroup1.ItemIndex) '"';
[/code]
用中文表示
sqllist：＝’SELECT bh from ztsj where el＝’＋’”’＋inttostr（RadioGroup1.ItemIndex）＋’”’；

------
努力會更接近成功

4楼的再说什么啊  听不懂哦
虽然听不懂你用中文表示什么意思但是还是要谢谢你

編輯記錄

他的回答是，
請把 delphi 的基礎先學好
如另一篇回你的，請先學好基礎再發問，不然版上的先進回答你的問題，你卻看不懂
那這樣怎麼解決你的問題呢?


你的案例1
[code delphi]
sqllist:='SELECT bh from ztsj where el=' inttostr(RadioGroup1.ItemIndex) '; <== 多了【 ';】請去掉
[/code]



你的案例2，很明顯是

字串 := 字串1 數字

1、字串1 和數字 中間少了
2、 請把數字加上 IntToStr ==> 這樣才是 字串1 字串2
3、最後面請把 ' <== 單引號去掉

------
價值的展現，來自於你用哪一個角度來看待它!!

編輯記錄