運行不通過，懷疑你沒有選擇listbox1選項，
那時itemindex為-1,listbox1.items[-1]取就
會出錯。可改為
var str:string;
if listbox1.itemindex<>-1 then
str:=listbox1.items[listbox1.itemindex]
edit1.Text:=cjrxmlb.items.Strings[cjrxmlb.itemindex];
with adoquery1 do
begin
sql.Text:='delete from 勘查笔录 where cjrxm=edit1.Text';
execsql;
end;
我要实现的是将取得到的与数据库中的字段比较，相同的删除。
帮忙看一下，有问题吗？删除的时候是删掉一行吗？[8D]
i := listbox1.itemindex //得到选中的那一项的索引
if i >= 0 then
Edit1.text := listbox1.items.strings;
写的SQL语句好象有点问题，应该这样写：
定义一变量StrSql
StrSql := 'delete from 表名 where cjrxm ='''+Edit1.text+''''
或者通过参数来删除：
StrSql := 'delete from 表名 where cjrxm = :a ';
params.paramsbyname('a'
