BlogJava-Java 人生-随笔分类-delphihttp://www.blogjava.net/ejinmy/category/9389.htmljava (Java EE)&Linuxzh-cnTue, 27 Feb 2007 15:39:01 GMTTue, 27 Feb 2007 15:39:01 GMT60delphi在TclientDataSet中動態創建表http://www.blogjava.net/ejinmy/archive/2006/04/10/40207.htmljinmy liaojinmy liaoMon, 10 Apr 2006 04:49:00 GMThttp://www.blogjava.net/ejinmy/archive/2006/04/10/40207.htmlhttp://www.blogjava.net/ejinmy/comments/40207.htmlhttp://www.blogjava.net/ejinmy/archive/2006/04/10/40207.html#Feedback0http://www.blogjava.net/ejinmy/comments/commentRss/40207.htmlhttp://www.blogjava.net/ejinmy/services/trackbacks/40207.htmlprocedure TForm1.Button1Click(Sender: TObject);
var
  table:TclientDataSet;
  i:integer;
begin
   table:=TClientDataset.Create(Application);
   // 添加字段定?
   table.FieldDefs.Add('ID',ftInteger,0,False);

  table.FieldDefs.Add('partno',ftString,10,False);

  table.FieldDefs.Add('orderno',ftString,0,False);


   table.CreateDataset;

   table.Open;

   for i:=1 to 5 do

  begin

   table.Append;

   table.FieldByName('ID').AsInteger:=i;

   table.FieldByName('partno').AsString:='sdfa';

   table.FieldByName('orderno').AsString:='dfa';

   table.Post;

 end;
  showmessage(table.FieldByName('id').AsString);


end;



jinmy liao 2006-04-10 12:49 发表评论
]]>