全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1394
推到 Plurk!
推到 Facebook!

請教Table1與Table2的欄位資料合併

答題得分者是:christie
K1086
初階會員


發表:63
回覆:148
積分:42
註冊:2007-04-09

發送簡訊給我
#1 引用回覆 回覆 發表時間:2007-12-06 11:54:41 IP:220.131.xxx.xxx 訂閱
問題是這樣 有一Table1的欄位資料需要合併Table2部份欄位資料由2007/1/1 到2008/1/1全年度,所以小弟就運用 Table1.APPEND; 
Table1.FIELDBYNAME('日期').Value:=Table2.FIELDBYNAME('日期').Value;
Table1.FIELDBYNAME('星期').Value:=Table2.FIELDBYNAME('星期').Value;
Table1.FIELDBYNAME('價格').Value:=Table2.FIELDBYNAME('價格').Value;
TABLE1.POST;
在執行之後Table1 只加入2007/1/1第一筆欄位資料,其餘的無法完全合併,所以請教各位前輩,如果改用 Query1.SQL方式或者用目前Table1方式要如何解決?謝謝!
christie
資深會員


發表:30
回覆:299
積分:475
註冊:2005-03-25

發送簡訊給我
#2 引用回覆 回覆 發表時間:2007-12-06 14:06:58 IP:61.59.xxx.xxx 未訂閱
一筆一筆寫
while not Table2.eof do
begin
Table1.APPEND;
Table1['日期']:=Table2['日期'];
Table1['星期']:=Table2['星期'];
Table1['價格']:=Table2['價格'];
TABLE1.POST;
Table2.Next;
end;
------
What do we live for if not to make life less difficult for each other?
K1086
初階會員


發表:63
回覆:148
積分:42
註冊:2007-04-09

發送簡訊給我
#3 引用回覆 回覆 發表時間:2007-12-06 16:03:42 IP:220.131.xxx.xxx 訂閱

===================引 用 christie 文 章===================
一筆一筆寫
while not Table2.eof do
begin
Table1.APPEND;
Table1['日期']:=Table2['日期'];
Table1['星期']:=Table2['星期'];
Table1['價格']:=Table2['價格'];
TABLE1.POST;
Table2.Next;
end;
<<<==============================================================================>>>
感謝 christie 你提供方式處理,現在是有完全合併Table2 的欄位資料進入Table1了,可是並沒有依照Table1的相同欄位對映插入資料,而是另外由最後日期:例如2008/1/1之後加入,所以等於前段Table1相同日期、星期、價格欄位沒有資料,因此請問 christie 這是要如何保留原先Table1其他欄位資料,而又能合併Table2的日期、星期、價格欄位資料,因為Table1 還有購買人、時間、等級這三個欄位資料,總的說是完整的一列欄位名稱--->日期:2007/1/1、星期:一、價格:200、購買人:陳秉勳、時間:PM5、等級:乙,一直到2008/1/1為止。
麻煩christie 教導小弟好嗎?謝謝!
christie
資深會員


發表:30
回覆:299
積分:475
註冊:2005-03-25

發送簡訊給我
#4 引用回覆 回覆 發表時間:2007-12-06 16:58:30 IP:203.73.xxx.xxx 未訂閱
1.請問您的資料庫or其他
2.方便把Table欄位List?
------
What do we live for if not to make life less difficult for each other?
K1086
初階會員


發表:63
回覆:148
積分:42
註冊:2007-04-09

發送簡訊給我
#5 引用回覆 回覆 發表時間:2007-12-06 20:40:22 IP:220.131.xxx.xxx 訂閱

===================引 用 christie 文 章===================
1.請問您的資料庫or其他
2.方便把Table欄位List?
============================>>>現在小弟把 Table1 (T1K.DB) Table2(T2K.DB) 列出請邦忙,T'ks
------>>T1K.DB (Table1)



----->T2K.DB (Table2)


就是上面二個 Table 資料 由T2k.db move 日期、星期、價格到 T1k.db,然而T1k.db 購買人、時間、等級資料要保留,就是說以日期為 Key 完整合併一列資料。

christie
資深會員


發表:30
回覆:299
積分:475
註冊:2005-03-25

發送簡訊給我
#6 引用回覆 回覆 發表時間:2007-12-06 22:25:20 IP:218.171.xxx.xxx 未訂閱
while not Table2.Eof do
begin
IF Table1.Locate('日期', Table2['日期'] , []) then
begin
Table1.Edit;

Table1['星期']:=Table2['星期'];
Table1['價格']:=Table2['價格'];
TABLE1.POST;
end
ELSE
begin
Table1.APPEND;
Table1['日期']:=Table2['日期'];
Table1['星期']:=Table2['星期'];
Table1['價格']:=Table2['價格'];
TABLE1.POST;
end;

Table2.Next;
end;
------
What do we live for if not to make life less difficult for each other?
編輯記錄
christie 重新編輯於 2007-12-07 08:19:10, 註解 無‧
K1086
初階會員


發表:63
回覆:148
積分:42
註冊:2007-04-09

發送簡訊給我
#7 引用回覆 回覆 發表時間:2007-12-07 13:55:48 IP:220.131.xxx.xxx 訂閱
謝謝 christie 問題終於解決,小弟非常感謝,小弟會努力以赴,決不辜負前輩細心教導,
系統時間:2024-04-26 5:31:09
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!