Aktív témák

• #83 lao ce aktív tag lao ce #82

  2003-11-08 00:48:35 #83

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  lao ce

  aktív tag

  válasz lao ce #82 üzenetére

  megprobalom nagyjabol leirni mi van a programban.
  
  az initnode-ban:
  if ParentNode = nil then
  begin
  ...mastertabla feltoltese recordsetbol
  ...InitialStates := InitialStates + [ivsHasChildren, ivsExpanded];
  ...MasterDataSet.next;
  end;
  
  InitChildren:
  MyMasterRec := PMyMasterRec( VST.GetNodeData(Node));
  recordset selectje (ID alapjan)
  ChildCount := DetailDataSet.RecordCount;
  if DetailDataSet.RecordCount > 0 then
  begin
  ...while not(DetailDataSet.Eof) do
  ...begin
  ......feltoltese a Detail record tomb mezoinek feltoltese [i]
  ......inc(i);
  ...end;
  end;
  
  a feltoltesnel ki is irom egy memoba, es ugy nez ki, hogy minden adat szepen a helyen van, szoval szerintem a kovetkezokben lesz az ami nem mukodik (mar hogyha nem az egesz ugy ahogy van hasznalhatatlan)
  
  GetText:
  if TextType = ttNormal then
  begin
  ...case Column of
  ...0:
  ......if Node.Parent = Sender.RootNode then
  ......begin
  .........MyMastRec := Sender.GetNodeData(Node);
  .........Text := MyMastRec.NameCol;
  ......end
  ......else
  ......begin
  .........MyMastRec := Sender.GetNodeData(Node);
  .........Text := MyMastRec.MyDetRec[Node.Index].FirstColumnToWrite;
  ......end;
  stb
  nomost, ez mar nem akar mukodni. a Node.Parent = Sender.RootNode reszen megkapom a kivan ertekeket, de a detail recordnal ures minden.
  

Aktív témák