소스 검색

IsLeaf赋值有误

MaiXinRong 9 년 전
부모
커밋
aceb1a5feb
1개의 변경된 파일1개의 추가작업 그리고 1개의 파일을 삭제
  1. 1 1
      DataModules/BillsDm.pas

+ 1 - 1
DataModules/BillsDm.pas

@@ -193,7 +193,7 @@ procedure TBillsData.Save;
             stnNode.Rec.SerialNo.AsInteger := stnNode.MajorIndex;
 
           // 叶子节点
-          stnNode.Rec.SetBoolValue(stnNode.Rec.IsLeaf, stnNode.HasChildren);
+          stnNode.Rec.SetBoolValue(stnNode.Rec.IsLeaf, not stnNode.HasChildren);
 
           // 最底项目节父节点ID
           if (stnNode.Rec.B_Code.AsString <> '') then