[搞定]删除问题**

atiger

你读懂你写的代码了吗？

    if  dsbgzrw.DataSet.FieldByName('rwmc').AsString   =  ii then
       dsbgzrw.DataSet.Open;
    dsbgzrw.DataSet.Edit;
    dsbgzrw.DataSet.Delete;
    dsbgzrw.DataSet.ApplyUpdates;
    dsblct.DataSet.ApplyUpdates;

你的需求是，应该根据去dsbgzrw 数据集中找到'rwmc' 这个字段等于ii 的记录，如果找到，那么删除，如果没有，那么不做动作，而你的代码又是啥
if  dsbgzrw.DataSet.FieldByName('rwmc').AsString   =  ii then  //这是判断 dsbgzrw 这个数据集的rwmc 的值是否为II，
       dsbgzrw.DataSet.Open;  如果是打开数据集
    dsbgzrw.DataSet.Edit;  编辑这个数据集
    dsbgzrw.DataSet.Delete; 删除当前光标所在记录
    dsbgzrw.DataSet.ApplyUpdates; 提交dsbgzrw数据
    dsblct.DataSet.ApplyUpdates; 提交dsblct数据

这当然不对了，
if  dsbgzrw.DataSet.Locate('rwmc',ii,[]) = true then  
begin
    dsbgzrw.DataSet.Edit;
    dsbgzrw.DataSet.Delete;
    dsbgzrw.DataSet.ApplyUpdates;
end;
    dsblct.DataSet.ApplyUpdates;

xhsoft

搞定了，呵呵

atiger

不知道怎么称呼您
不过您的基本功欠缺的有点多哦，代码没有按自己的要求去走，肯定逻辑出问题，那么应该自己设置断点跟踪，是否在按自己的要求在走，这样很容易排除问题了。希望您抽空多看看delphi之类的书，补一下基本的。

xhsoft

公司就我一个人做，所以好有压力，希望以后给予帮助！
谢谢
还有一件事要声明的就是：我不是德州星火的，德州星火也没有买你们的软件，我是德州商储超市有限公司

atiger

哦，修改一下这个帐户的信息，把您的中文真实姓名填写一下，如果可以，填上一个能在上班时间找到您的电话。