请各位老师看一下,如何实现这个功能**

xhsoft

现在有两个字段:客户id,下线,
比如:客户id 是：０００３，下线是：０００８
这时，０００３这个客户由于某种原因已不是再我们的客户了，所以我们要删除掉，但是下线０００８还是，所以现在要把０００８这个客户放到００００这个的下线里，如何实现，请教！！

lisb

那就在删除0003这个客户的时候发一条update语句把这个0003更新成0000呗。

jiahaiminghr

楼主，可以用代码方式实现。

xhsoft

李老师,麻烦你说详细一点好吧,新手呀具体该怎么做?

wangyinchang

好复杂!!

xhsoft

顶一下,今天 一定要解决呀!!老板崔了

lisb

比如在数据集导航条的BeforeAction事件中这样写
procedure TMainForm.DataNavigator1BeforeAction(Sender: TObject; var Accept: Boolean);
var
  lTransactionHandle: TTransactionHandle;
  lUpdateSql: string;
begin
   case (Sender as TBizDataSetAction).ID of
     BizActnConsts.ActionDataSetDelete:            //判断点击的是否是删除按钮
     begin
       if JsDialogs.ConfirmBox('确定删除吗？','提示信息',1) then
       begin
         lTransactionHandle := dsbMaster.DataSet.Connection.Transaction.Start(False);  //启动事务，保证数据集的删除和update语句在一个事务里
         try
           lUpdateSql := ' update Table1 set khid = ''0000'' '+
                       ' where khid = ''0003'' ';
           dsbMaster.DataSet.Connection.ExecuteSQL(lUpdateSql);    //发update语句

           dsbMaster.DataSet.Delete;
           dsbMaster.DataSet.ApplyUpdates;
           dsbMaster.DataSet.Connection.Transaction.Commit(lTransactionHandle);  //提交事务
         except
           dsbMaster.DataSet.Connection.Transaction.RollBack(lTransactionHandle);
           raise exception.Create('数据保存错误！');
         end;
       end;
       Accept := False;     //询问是否删除 用户点否时不做删除数据集操作
     end;
   end;
end;

atiger

??

atiger

这个帖子我先结贴了，有问题，请重新开贴