Delphi 手工创建TClientDataset 及动态添加数据后最后一条记录不显示的解决方法

落日映苍穹つ 2023-10-09 13:13 14阅读 0赞

procedure TForm1.Button6Click(Sender: TObject);
    var
    dsTemp:TClientDataSet;
    begin
       dsTemp:=TClientDataSet.Create(nil);
     { 添加字段 }
      with dsTemp.FieldDefs.AddFieldDef do
      begin
        Name := 'ID';
        DataType := ftInteger;
      end;
    
      with dsTemp.FieldDefs.AddFieldDef do
      begin
        Name := 'Name';
        DataType := ftString;
        Size := 12; { ftString 类型的 Size 默认 20 }
      end;
    
      with dsTemp.FieldDefs.AddFieldDef do
      begin
        Name := 'Age';
        DataType := ftWord;
      end;
    
      with dsTemp.FieldDefs.AddFieldDef do
      begin
        Name := 'Sex';
        DataType := ftBoolean;
      end;
    
      { 构建数据集, 不可缺少的一步 }
      dsTemp.CreateDataSet;
    
      { 显示; 如果在设计时已挂接或不需要显示, 可省略下两行 }
      ds.DataSet := dstemp;
    
      { 添加数据 }
      dsTemp.AppendRecord([1, '张三', 33, True]);
      dsTemp.AppendRecord([2, '李四', 44, False]);
      dsTemp.AppendRecord([3, '王五', 55, True]);
      dsTemp.AppendRecord([4, '刘七', 505, True]);
    
         //QryCom.DataSource:=ds;
       MainView.ClearItems;
       MainView.DataController.CreateAllItems();
       QryComAfterOpen(ds.DataSet);
      //DBGrid1.DataSource := DataSource1;
    
      { 保存为 cds 或 XML }
      dsTemp.SaveToFile('C:\Temp\TestBinary.cds');
      dsTemp.SaveToFile('C:\Temp\TestXMLUTF8.xml', dfXMLUTF8);
    end;

手工CreateDataSet之后，如果添加数据是循环动态添加的，**在最后操作完成后一定要加上Dataset.Post; 否则会出现最后一条记录消失的情况。**

Dataset.DisableControls;
      for j := 0 to ja.Length - 1 do
      begin
        Dataset.Append;
        jf := ja.o[j];
        for k := 0 to Dataset.FieldCount - 1 do
        begin
          sValue := jf.AsObject.GetValues.AsArray[k].AsString;  //取DATA节点下的字段值
          Dataset.FieldByName(ColList[k]).AsString := sValue;
          // Dataset.AppendRecord(sValue); //用这个方法要先拼接字符串
        end;
        // Dataset.AppendRecord([1, '张三', 33, True]);
      end;
      Dataset.Post; //不加这句，最后一条记录看不到
      Dataset.EnableControls;