【结】能否代码设置两信息的主从关系？

jwei

例如：两个数据集A和B，A.AA=B.AA  或A.AA=B.CC,
我想根据条件，代码设置两者的关系，如何设置（功能中）！

zhangxupeng

请先参考一下
http://bbs.justep.com/forum.php?mod=viewthread&tid=553

jwei

按照楼上的介绍，动态的创建了主从关系。
新的问题出来了，当我将主从关系从A.AA=B.AA（此种状态下有记录）,变换为A.AA=B.CC时（无记录），主表显示空记录，但从表却显示记录（主从关系改变前从表的记录），这种情形如何解决？

anla

把你的代码贴上来看看。

jwei

procedure TYDJGDZJHCT.tbSHOWClick(Sender: TObject);
var
  lYearMonth,lmonth:String;
  lDeptID,lFilter,lshbz:String;
begin
  //Inherited;
  if FResultDeptID='' then
    lDeptID:=FDeptID
  else
    lDeptID:=FResultDeptID;

  if FECalendar1.Month<=9 then
    lmonth:='0'+IntToStr(FECalendar1.Month);
  if FECalendar1.Month>=10 then
    lmonth:=IntToStr(FECalendar1.Month);

  lYearMonth:=IntToStr(FECalendar1.Year)+'-'+lmonth;

  if Length(FDeptID)<8 then            //局级
  begin
    if cmbZT.ItemIndex=1 then
    begin
      SetMasterDetail_J;
      lshbz:=' AND AUD_FLAG=''ZY0308'' AND JDH_LEVEL=2 ';
    end
    else
    begin
      SetMasterDetail_E;
      lshbz:=' AND AUD_FLAG>=''ZY0306'' AND JDH_LEVEL=1 ';
    end;
  end
  else if Length(FDeptID)=8 then      //二级
  begin
    if cmbZT.ItemIndex=1 then
    begin
      SetMasterDetail_E;
      lshbz:='AND AUD_FLAG=''ZY0306'' AND JDH_LEVEL=1 ';
    end
    else
    begin
      SetMasterDetail;
      lshbz:='AND AUD_FLAG>=''ZY0302'' AND JDH_LEVEL=0 ';
    end;
  end
  else                                //三级
    lshbz:=' ';

  lFilter:='JDH_DATE='''+lYearMonth+''' AND JDH_ORG_CODE LIKE '''+lDeptID+'%'' ';

  TSqlDataSet(dsbJGDZJH.DataSet).SqlFilter:=lFilter+lshbz;
  TSqlDataSet(dsbJGDZJH.DataSet).SqlFiltered:=True;
  dsbJGDZJH.DataSet.Active:=True;
  dsbJGDZJHMX.DataSet.Active:=True;
  dsbJGDZJHAfterScroll(nil);
end;

procedure TYDJGDZJHCT.SetMasterDetail; //设置主从数据
begin
  dsbJGDZJH.DataSet.Close;
  dsbJGDZJHMX.DataSet.Close;
  dsbJGDZJHMX.DataSet.Relation.Master := InfoBroker1.Info.DataSetByID('JGDZJHSJJ');
  dsbJGDZJHMX.DataSet.Relation.MasterFieldNames := 'GUID';
  dsbJGDZJHMX.DataSet.Relation.KeyFieldNames := 'JDH_CODE';
  dsbJGDZJH.DataSet.Open;
  dsbJGDZJHMX.DataSet.Open;
end;

procedure TYDJGDZJHCT.SetMasterDetail_E; //设置主从数据
begin
  dsbJGDZJH.DataSet.Close;
  dsbJGDZJHMX.DataSet.Close;
  dsbJGDZJHMX.DataSet.Relation.Master := InfoBroker1.Info.DataSetByID('JGDZJHSJJ');
  dsbJGDZJHMX.DataSet.Relation.MasterFieldNames := 'GUID';
  dsbJGDZJHMX.DataSet.Relation.KeyFieldNames := 'EJ_CODE';
  dsbJGDZJH.DataSet.Open;
  dsbJGDZJHMX.DataSet.Open;
end;

wuchao

楼主，您那边的版本号？

jwei

X3_3088

wuchao

楼主，我们在3088版本上测试了您说的问题。
在不通过平台设定关联关系的情况下，通过代码直接配置主从关系可以实现您需要的功能。
看了您贴上来的代码似乎也没有问题。请您仔细检查其他相关代码是否有其他问题。
比如通过平台设置了2个数据集的主从关系之类的干扰因素？

jwei

看我3楼的描述信息。
当主从关联变化时，如果有记录对应，系统是可以关联过去，但问题出在，当我从一种状态，切换到另一种状态时，这种情况下，按照新的主从关系找不到记录时，从表显示的是上一次主从关系对应的记录。

wuchao

楼主，我这边照您说的方式测试了，没问题呀