开始以为没有进行ParentKey的设置，后来设了ParentKey也一样有问题.
后来无意中将DataSet进行了Post发现OK了
Self.cdsMain.Append;
if s <> '' then
Self.cdsMain.FieldByName('FParentIndex').AsInteger := StrToInt(s);
Self.cdsMain.FieldByName('FIndex').AsInteger := 0;
Self.cdsMain.FieldByName('FParentCaption').AsString := s1;
self.cdsMain.Post; //如果没有这句会跳到第一条
