procedure TForm1.Button2Click(Sender: TObject);
begin
with query1 do
begin
sql.Clear;
sql.Add('delete form employee');
sql.Add('where tmpno=:v7');
parambyname('v7').asstring:=table1.FieldValues['tmpno'];
execsql;
end;
table1.Refresh;
end;

系统提示是invalid use of keyword
但我找不出原因。

------
新手。。

sql.Add('where tmpno=:v7');

SQL 的語法並非 Delphi 你把2者混用了
改成這樣試試吧~
sql.Add('where tmpno=v7');

===================引 用 57605993 文 章===================
procedure TForm1.Button2Click(Sender: TObject);
begin
with query1 do
begin
sql.Clear;
sql.Add('delete form employee');
sql.Add('where tmpno=:v7');
parambyname('v7').asstring:=table1.FieldValues['tmpno'];
execsql;
end;
table1.Refresh;
end;

系统提示是invalid use of keyword
但我找不出原因。

------
無限的想像，無盡的延伸。

按照你的方法改了，出现了另外一个错误：
table1:field 'tmpno' not found.
我使用的数据表是D7里面自带的employee，这个tmpno应该没搞错，里面确实有。
是不是那个设置 索引字段 的问题，这个概念我太明白，
以前用Table的时候出现关于索引字段的问题，把Indexname属性值设置成字段名。
这个Query里，我找不到那个属性值。
能帮我讲解一下 索引字段，还有主键的概念吗？

------
新手。。

不好意思，我對 Delphi 並不了解，只能稍稍看一下
從您這段程式中無法看出，tabel1對SQL所做的動作
所以無從得知為什麼會出現這樣的訊息...
tabel 的元件 我本身尚未使用過，所以對其使用方
法不甚了解 ^^"

------
無限的想像，無盡的延伸。

編輯記錄

請在 where 之前, 加一個空白看看

另外, 用 debug 方式, trace 程式, 看 sql.text 內容, 語法是否正常

from 吧 !


===================引 用 57605993 文 章===================
procedure TForm1.Button2Click(Sender: TObject);
begin
with query1 do
begin
sql.Clear;
sql.Add('delete form employee');
sql.Add('where tmpno=:v7');
parambyname('v7').asstring:=table1.FieldValues['tmpno'];
execsql;
end;
table1.Refresh;
end;

系统提示是invalid use of keyword
但我找不出原因。

虽然不想，但我还是要问这个会让你抓狂的问题:
什么是。。debug方式,trace程式。
因为这些代码都是我从书上看的。
基本上。。我还是个新手。
===================引 用 cwc65536 文 章===================
請在 where 之前, 加一個空白看看

另外, 用 debug 方式, trace 程式, 看 sql.text 內容, 語法是否正常

------
新手。。

哈！这个确实是个错误，粗心的错误。
但改过来以后问题依然存在，在WHERE前面加了空格，也不行
提示错误还是：table1: field 'tmpno' not found;
我想应该不是语法错误了。

===================引 用 cwc65536 文 章===================
from 吧 !


===================引 用 57605993 文 章===================
procedure TForm1.Button2Click(Sender: TObject);
begin
with query1 do
begin
sql.Clear;
sql.Add('delete form employee');
sql.Add('where tmpno=:v7');
parambyname('v7').asstring:=table1.FieldValues['tmpno'];
execsql;
end;
table1.Refresh;
end;

系统提示是invalid use of keyword
但我找不出原因。

------
新手。。

請比對這句SQL 與你的有那裡不同
delete from employee where tmpno=:v7

from 被我打成 form。呵呵，不好意思，太粗心。
现在我把代码改过来。
procedure TForm1.Button2Click(Sender: TObject);
begin
with query1 do
begin
sql.Clear;
sql.Add('delete from employee');
sql.Add('where tmpno=:v7');
parambyname('v7').asstring:=table1.FieldValues['tmpno'];
execsql;
end;
table1.Refresh;
end;
但是问题依然出现：,table1:field 'tmpno' not found；
===================引 用 P.D. 文 章===================
請比對這句SQL 與你的有那裡不同
delete from employee where tmpno=:v7

------
新手。。

对不起各位。我太粗心了，这次又是搞错；
把字段名empno打成tmpno了。。。麻烦大家这么长时间！不好意思

------
新手。。

下回要先打屁股三下