cannot perform this operation on a closed dataset...(100)

我的系统若开始先点查询,就可以查到单据表里的所有内容,系统正常运行.但是如果我先执行了单据表的结账模块,之后再进入查询,当点击查询按钮时就会出现cannot perform this operation on a closed dataset!我用单步执行时过程如下先执行结账模块之后,进入单据查询窗体...我的查询模块：procedure TfrmSearchInfo.BitBtn3Click(Sender: TObject);begin DM.qryOrderDishes.Close; //单据表 <----------------------------------------------单步执行开始跳转位置 DM.qryOrderDishes.SQL.Clear; DM.qryOrderDishes.SQL.Add('SELECT * FROM OrderDishes');//查询所有 DM.qryOrderDishes.SQL.Add('WHERE 0=0'); if edtOrderDishesID.Text <> '' then DM.qryOrderDishes.SQL.Add(' AND OrderDishesID LIKE ' + QuotedStr('%'+ edtOrderDishesID.Text +'%')); if edtDiningTableID.Text <> '' then DM.qryOrderDishes.SQL.Add(' AND DiningTableID LIKE ' + QuotedStr('%'+ edtDiningTableID.Text +'%')); if edtCustomer.Text <> '' then DM.qryOrderDishes.SQL.Add(' AND Customer LIKE ' + QuotedStr('%'+ edtCustomer.Text +'%')); DM.qryOrderDishes.Open; DM.qryOrderDishes.First;end;我的结账模块中当输入用餐金额计算折扣金额的代码rocedure TfrmDiningBalance.edtTotalsMoenyChange(Sender: TObject);begin <-----------------------------------------------------------------单步执行跳转到这里! DM.qryVIP.Close; //会员表 DM.qryVIP.SQL.Clear; DM.qryVIP.SQL.Add('SELECT * FROM VIP'); DM.qryVIP.SQL.Add('WHERE 0=0'); DM.qryVIP.Open; DM.qryOrderDishes.Edit ; //单据表编辑<---------------------------单步执行到这里后出现错误信息 if edtTotalsMoeny.Text <> '' then //当输入用餐金额不为空时 DM.qryOrderDishes.FieldByName('RebateMoney').AsString := FloatToStrStrToFloatedtTotalsMoeny.Text) * DM.qryVIP.FieldByName('Discount1').AsFloat); //执行折扣金额=用餐金额*折扣率(会员表内容)end;感觉像是执行到edit,但查询窗口不允许执行edit操作,所以提示出错.但是为什么程序会发生这样的跳转? 请大虾们不吝赐教!万分感谢!

执行单据表的结账模块 时 数据集qryOrderDishes没有 open

DM.qryOrderDishes.已经关闭了，再执行edit当然就会出错了~~

cannot perform this operation on a closed dataset... -----当dataset处于关闭状态（没open，或active=false）时，不可以执行这个操作。

在DM.qryOrderDishes.edit之前加一句if not DM.qryOrderDishes.Active then DM.qryOrderDishes.open;即可。报错原因是你没有打开数据集！因为你的代码放在两个过程里面，所以对数据集的状态控制非常重要！

数据集没有打开。。自己找下就是咯。