請教各位先進，我有一員工資料表，想利用程式讀取員工資料表裡的員工姓名到新的資料表，並且有這些資料欄位(姓名、日期、業績一、業績二、業績三、當日業績)，日期欄位自動填入當月的總天數，例如四月1日~四月30日????

//這段可以取得當月最後一天，若將其中的now 替換成其它你所指定的日期也可 var     lastdate:integer; begin    //取得下個月1號，再減1天，即得當月最後一天    ADOQuery1.SQL.text:='SELECT format(dateadd("d",-1,format(dateadd("m",1,now),"yyyy/mm")+"/01"),"dd")';     ADOQuery1.Active:=true;     lastdate := ADOQuery1.Fields[0].AsInteger; end;    取得當月最後一天，則可以使用for 迴圈從1 到lastdate 增加每一天的資料 例： insert into SDate(useDate) values (format(now,"yyyy/mm/")+format('+inttostr(i)+',"00"))'    其餘的自己練習，有問題再討論 < src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=8147403&CC=182217"> 發表人 - ddy 於 2003/04/30 15:47:40

insert into SDate(useDate) values (format(now,"yyyy/mm/") format(' inttostr(i) ',"00"))' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 沒試出來 我是新手...So 我資質很淺 我的問題是:姓名與日期同時增加到空的資料表，例如: 張三|1日 張三|2日 ........ 張三|31日 接下來 李四|1日 李四|2日 ........ 李四|31日

沒有試出來喔~~ 那把你的code 貼上來吧，我們看看你那裡出了問題?    

應該是少了姓名,及值(紅色部分) insert into SDate(姓名,useDate) values (姓名,format(now,"yyyy/mm/") format(' inttostr(i) ',"00"))'

提示：二個loop 第一個loop 由另一table 取得員工姓名 第二個loop 由01--30  (日期天數)    

可否做個簡單的範例讓我參考....... 實在是寫不出來................快瘋了

uses DateUtils; procedure TForm1.Button1Click(Sender: TObject); var xDay , n : Integer; BEGIN ADOQuery1.First; while NOT ADOQuery1.Eof do begin xDay := DaysinMonth(now); // 計算當下月份有多少天 for n:=1 to xDay do begin with ADOQuery2 do begin Append; FieldByName('姓名').AsString := ADOQuery1.FieldByName('姓名').AsString; // 員工姓名 FieldByName('日期').AsString := IntToStr(n) '日'; // 日期 = 1日,2日,3日.......31日 Post; end; end; ADOQuery1.Next; end; END;