【结贴】删除本地数据出错。。

bfaomei

我的删除代码如下：
procedure TPACT_HOTAL_FORMDOC.SpeedButtonDELETEClick(Sender: TObject);
var
i,num: Integer;
begin
    num:=0;
    if (DataSetBrokerPACT_HOTAL_DETAL.DataSet.Active) and (not DataSetBrokerPACT_HOTAL_DETAL.DataSet.IsEmpty) then
    begin
        num:=DataGridPACT_HOTAL_DETAL.SelectedCount;
        if num=0 then
        begin
             JsDialogs.ShowMsg('请先选择要删除的记录','提示');
             SysUtils.Abort;
        end
        else
        for i := 0 to num - 1 do
        begin
          TPACT_HOTAL_SEL_INFO(infobroker.Info).DataSetPACT_HOTAL_DETAL.Bookmark := DataGridPACT_HOTAL_DETAL.SelectedRows;
          TPACT_HOTAL_SEL_INFO(infobroker.Info).DataSetPACT_HOTAL_DETAL.Delete;
        end;
    end
    else
    begin
         JsDialogs.ShowMsg('记录为空','提示');
         SysUtils.Abort;
    end;
end;

第一次执行没问题，但第二次点删除时出错（此时没有选中记录）。但不知道为什么
DataGridPACT_HOTAL_DETAL.SelectedCount的值还是以前的值而不是0？

bfaomei

DataGridPACT_HOTAL_DETAL.Options := DataGridPACT_HOTAL_DETAL.Options - [TGroupListOption.egoExtMultiSelect];
//。。。。中间你的代码
   DataGridPACT_HOTAL_DETAL.Options := DataGridPACT_HOTAL_DETAL.Options + [TGroupListOption.egoExtMultiSelect];

这样就可以了。结了

bfaomei

还是不行。。这样只能删除一条记录了。
该怎么办啊？？

atiger

你检查一下你的代码的逻辑 是否有其他的代码影响到了。
另外，你可以用“SelectCount*DataGrid”在bbs上搜索一下看看是否可以解决你的问题

bfaomei

解决了。
代码中把 TPACT_HOTAL_SEL_INFO(infobroker.Info).DataSetPACT_HOTAL_DETAL.Delete;
变为 DataGridPACT_HOTAL_DETAL.delete; 就行了

shangxy

呵呵，谢谢反馈

atiger

ok
谢谢共享方法