浏览代码

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