[搞定]删除问题**

xhsoft

如图想实现：清除单元格的值为123456的这个单元格，那么下面的那个datagrid中的任务名称=123456的这条记录删除；
现在代码如下：var
ii :string;
begin
    ii := dsblct.DataSet.Fields[LCSYXX.TKBBD1(DocViewLCSYXX_KBBD1.Doc).datagrid2.FocusedField.index].DisplayText;
    dsblct.DataSet.ReadOnly := false;
    dsblct.DataSet.Open;
    dsblct.DataSet.Edit;
    dsblct.DataSet.Fields[LCSYXX.TKBBD1(DocViewLCSYXX_KBBD1.Doc).datagrid2.FocusedField.index].AsString := '';

    if  dsbgzrw.DataSet.FieldByName('rwmc').AsString   =  ii then
       dsbgzrw.DataSet.Open;
    dsbgzrw.DataSet.Edit;
    dsbgzrw.DataSet.Delete;
    dsbgzrw.DataSet.ApplyUpdates;
    dsblct.DataSet.ApplyUpdates;
现在删除的是：清除单元格的同时，删除下面的datagrdi当前的记录
请教

atiger

“单元格的值为123456的这个单元格”和“下面的那个datagrid中的任务名称=123456的这条记录”之间存在一个啥关系，这两个字段是否可以创建一个主从关系呢？如果可以，那么直接用主从数据集级联删除就可以了

看这个  http://bbs.justep.com/forum.php?mod=viewthread&tid=16200
也是你们咨询的

还有这个 http://bbs.justep.com/forum.php?mod=viewthread&tid=18267 也是你们再给其他的朋友的参考

xhsoft

没有关系的，想用代码实现，不知道那段代码哪里不对，已和别的数据集建立了关系，还能和这个建立关系吗？

lixy

if  dsbgzrw.DataSet.FieldByName('rwmc').AsString   =  ii then
       dsbgzrw.DataSet.Open;
你能判断字段值等于ii了，怎么还打开数据集？？？

xhsoft

请说一下怎么改，现在只是删除当前的记录

lixy

直接delete就行了。
  if  dsbgzrw.DataSet.FieldByName('rwmc').AsString   =  ii then
       dsbgzrw.DataSet.Open;
    dsbgzrw.DataSet.Edit;
这3句就是画蛇添足

xhsoft

它删除的是当前的记录吧，没有符合要求呀，要求删除任务名称=上面单元格内容的记录呀

xhsoft

ding

lixy

用数据集的Locate函数定位，不会用的话，自己搜搜论坛

zfang

具体要删除数据集的某行，需要先定位在删除，也可以自己直接用代码写delete语句执行。
  DataSetBrokerKHSJJ.DataSet.Locate('rwbh','123456',[TLocateOption.loPartialKey]);
  DataSetBrokerKHSJJ.DataSet.Delete;