[SOLVED]TBufDataset insert data(string Type) no disp no dbgrid

[loadymf]

when I use TBufDataset insert data(string Type) no disp no dbgrid.
Only disp ID,other field not disp?How to fix it ?
code is under

procedure TForm1.Button1Click(Sender: TObject);
var
    F:TFieldDef;

begin
     cds.Close;
   cds.FieldDefs.Clear;
      F:= cds.FieldDefs.AddFieldDef;
   f.Name:='id';
   f.Required:=true;
   f.DataType:=ftinteger;
   F:= cds.FieldDefs.AddFieldDef;
   f.Name:='QuanGuoXueJiHao';
   f.Required:=false;
   f.DataType:=ftString;
      F:= cds.FieldDefs.AddFieldDef;
   f.Name:='ShiLingErTongXingMing';
   f.Required:=true;
   f.DataType:=ftString;
   cds.CreateDataset;
   cds.Append;
    cds.FieldByName('ID').AsInteger:=1;
     cds.FieldByName('QuanGuoXueJiHao').AsAnsiString:='ymf2';
    cds.FieldByName('ShiLingErTongXingMing').AsString:='ymf';
    cds.Open;
 

[cdbc]

Hi
At least, you need a "Post" in there, to store the data, something like this:

Code: Pascal  [Select][+][-]

1.    cds.Append;
2.     cds.FieldByName('ID').AsInteger:=1;
3.      cds.FieldByName('QuanGuoXueJiHao').AsAnsiString:='ymf2';
4.     cds.FieldByName('ShiLingErTongXingMing').AsString:='ymf';
5.     cds.Post; // <--- This one
6.     cds.Open;
7.  

Regards Benny

[loadymf]

I SOLVED it
  cds.FieldDefs.Add('ID', ftinteger);//this disp OK,The length of the int type is fixed
  cds.FieldDefs.Add('QuanGuoXueJiHao', ftstring, 20);//TBufDataset use buf size ，
String type length is not fixed, if undefined, the length is zero and is not displayed
  cds.FieldDefs.Add('ShiLingErTongXingMing', ftstring, 12);   
 cds.post ;//Not required in debug mode