请问这个控制语句哪里有问题了**

trickle

关于更新的sql那个，能不能给点资料

gaihl

如何用更新sql吗？

trickle

嗯，还不知所谓的更新sql为何物，与我上面写的有什么不同？
另外，上面的究竟错在哪啊？感觉道理上来说很简单阿，为什么就不对呢

gaihl

'update QYLJB set XH=XH + 1 where QYLJB.XLID='''+DataSetXZXLSJJ.FieldByName('XLID').AsString+''' AND XH >= ' + DataSetQYLJSJJ2.FieldByName('XH').AsString
就是更新数据表的SQL，和你上面写的没什么不同。资料可以看SqlServer的联机丛书

gaihl

“删除后点保存时弹出。。。”
我想你也应当用choice控制一下，当为0时，就不提交到数据库了

trickle

不对不对，刚才单步执行了
发现删除以后，choice确实被修改为2了，但是还没运行到beforePost里，就出错了
错误就是之前说的invoke batch method error, error occur during invoke ApplyUpdates method, Update affected more than 1 record. SQL: declare @A0 nvarchar(12) select @A0=? DELETE FROM QYLJB WHERE ( XLID = @A0 )
出错地点是数据集导航条的代码
procedure TDATASETBAR.ToolBarModuleCreate(Sender: TObject);
begin
  FConfirmDelete := False;
end;

procedure TDATASETBAR.ModuleUserChanged;
begin
  if ModuleUser is TDataNavigator then
  begin
    FConfirmDelete := TDataNavigator(ModuleUser).ConfirmDelete;
  end;
end;

procedure TDATASETBAR.BeforeAction(Sender: TObject; var Accept: Boolean);
const
  cConfirmDeleteRecord = '确实要删除当前记录吗?';
  cConfirmDelete = '删除确认';
begin
//在delphi中实现  if Sender = actDelete then
//    Accept := not FConfirmDelete or
//      jsDialogs.OkCancelBox(cConfirmDeleteRecord, cConfirmDelete, 1);
//  if Accept then
    inherited;--------------------------------------------------------------------------------------------运行完这句
end;-----------------------------------------------------------------这个end单步完后就显示对话框，内容就是上面报的错误了

end.

gaihl

原来写在业务信息中的代码（保存和删除事件）删除了吗？

trickle

看来短期内上面的问题不好解决了~先退一步好了
如果要禁止删除功能，就是只能插入新数据，在插入完毕保存后不能对数据做改动，请问该如何设置导航栏？

trickle

原来的业务信息中就只写了beforePost和afterPost的代码，其他还没写

gaihl

可以隐藏，不选中就隐藏