P
plwei
Unregistered / Unconfirmed
GUEST, unregistred user!
sub:=query1.Fieldbyname('porder').asstring;
if application.messagebox('确实在删除该纪录吗？','提示框',
mb_YesNo+mb_iconinformation)=idyes then
begin
sqlsub:='update partyman.db'+#13+#10+
'set porder=porder-1'+#13+#10+
'where porder>'+sub;
with query1do
begin
Delete;
close;
sql.Clear;
sql.add(sqlsub);
try
execSQL;
except
open;
end;
end;
end;
在表中porder是关键字.当程序执行到execsql时系统提示如下错误：
“key violation”。
请指教。
我用这段代吗的主要目的是，想在删除掉一个纪录后自动将该纪录后的纪录
上移.即将后面纪录的关键字porder依次减1.
有没有更简便的方法？
if application.messagebox('确实在删除该纪录吗？','提示框',
mb_YesNo+mb_iconinformation)=idyes then
begin
sqlsub:='update partyman.db'+#13+#10+
'set porder=porder-1'+#13+#10+
'where porder>'+sub;
with query1do
begin
Delete;
close;
sql.Clear;
sql.add(sqlsub);
try
execSQL;
except
open;
end;
end;
end;
在表中porder是关键字.当程序执行到execsql时系统提示如下错误：
“key violation”。
请指教。
我用这段代吗的主要目的是，想在删除掉一个纪录后自动将该纪录后的纪录
上移.即将后面纪录的关键字porder依次减1.
有没有更简便的方法？