VFP 愛用者社區

shengyi · 註冊時間: 2004-07-14 文章: 35 第 1 樓

假設 TABL1如下
date money
1 AAA
2 BBB
5 CCC
5 DDD
12 EEE
12 FFF
12 GGG
22 MMM

想得到TABL2
date money
1 AAA
2 BBB
5 CCC DDD
12 EEE FFF GGG
22 MMM

我的想法是用SCAN達成,先讀一筆把資料放至變數,
再判斷下一筆資料日期是否相同,相同則把MONEY資料APPEND至變數,不相同則寫至特定TABLE,有較簡單的方法?(TABLE2的MONEY欄位要放至報表中)

syntech · 發表於: 星期四二月 05, 2009 6:28 pm 文章主題:

你的問題只有一個.
和你其他的問題一樣.

你根本不了解你的武器.

shengyi · 註冊時間: 2004-07-14 文章: 35 第 3 樓

請問一下,下面這段程式最後一個repl有誤嗎 ?
?tempid有顯示資料,但後面repl卻沒寫資料進去?

SELE table2
SCAN
tempdate=table2.date

SELE table1
SCAN for table1.date=tempdate
tempid = tempid + " " + table1.money

ENDSCAN
? tempid
REPL table2.money with tempid
tempid= ""
ENDSCAN

Terry1211 · 註冊時間: 2008-03-13 文章: 63 第 4 樓

擷取 Help裡 replace的說明
REPLACE 命令用運算式的值替換欄位中的資料。
若欄位不在選定工作區，則必須在欄位前加上資料表格別名。
注意：如果省略 IN 子句，如果記錄指標位於目前工作區中檔案的尾部，
且指定了另一個工作區中的欄位，則不發生替換。

replace前加上select table2試看看~~

shengyi · 註冊時間: 2004-07-14 文章: 35 第 5 樓

感謝Terry1211,加上sele真得可以了.
但有另外一個問題, 原本這一段是正常的
tempid = tempid + " " + table1.money

但今天執行的時候會出現"運算子/運算元....不符"訊息,後來是先改成
tempid = tempid + table1.money
發現可以執行,然後再改回tempid = tempid + " " + table1.money 又可以了,tempid是宣告為public charater(7),那裡有問題嗎?

區榮熾 · 註冊時間: 2005-11-14 文章: 191 第 6 樓

shengyi · 註冊時間: 2004-07-14 文章: 35 第 7 樓

關於"運算子/運算元....不符"問題,我在前面加上tempid = " "就可以了!

朱育興 · 發表於: 星期六二月 07, 2009 5:03 pm 文章主題:

Terry1211 · 註冊時間: 2008-03-13 文章: 63 第 9 樓

區榮熾 · 註冊時間: 2005-11-14 文章: 191 第 10 樓

(VFP6.0)在不同工作區的資料寫入動作,是一定要切回原工作區,才能寫入嗎?(除了使用INSERT INTO 就不需切回) 對?
如在 Table2 Scan DATA SELECT SCAN Table1 找到了 Table2要的資料 ENDSCAN SELECT Table2(如不切回,則工作區仍在 TABLE1) REPL TABLE2.DATA with TABLE1.DATA ENDSCAN (這樣可以成功的寫入資料?)
我的概念混淆?

fschern · 註冊時間: 2003-10-12 文章: 34 第 11 樓

以下摘錄VFP9.0的HELP=>

REPLACE Command (Visual FoxPro)

REPLACE FieldName1 WITH eExpression1 [ADDITIVE]
[, FieldName2 WITH eExpression2 [ADDITIVE]] ... [Scope]
[FOR lExpression1] [WHILE lExpression2] [IN nWorkArea | cTableAlias]
[NOOPTIMIZE]
.........
Note
If the IN clause is omitted, no replacement occurs if the record pointer is at the end of the file in the current work area and you specify a field in another work area.

syntech · 發表於: 星期二二月 10, 2009 10:24 am 文章主題:

也許這個問題在不同版本或是在其他 xbase 語法的工具上,做法有些差異,

但是最不會出問題的做法,
還是再做任何動作前 select alais ,直接設定工作區,
尤其是工作區傻傻分不清楚的時候
(只是我也還是會用 alias.field ,因為這樣還是比較清楚,我不在乎增加肌鍵炎的機會)

另外,由於foxpro屬於弱型態的工具,
變數的型態可以被自由改變,
所以宣告成public或是指定型態,並不能保證沒事.
還是要注意變數可視性,生命週期等變數管理動作

還是一句,要用心了解你的武器

區榮熾 · 註冊時間: 2005-11-14 文章: 191 第 13 樓

syntech · 發表於: 星期二二月 10, 2009 11:22 am 文章主題:

區兄,

====
SELECT table2
SCAN
tempid= ""
SELECT table1
SCAN FOR table1.date = table2.date
tempid = tempid + " " + table1.money
ENDSCAN
SELECT TABLE2
REPLACE table2.money WITH LTRIM(tempid) && 去掉左邊空白
ENDSCAN
====

應該問題是出在紅字上吧.
習慣上,我會這樣做沒錯,
可以避免很多問題.
尤其是loop太大的時候.

當然,關鍵還是在 scan....endscan 時,vfp知不知道是對哪個工作區作業,
如果vfp知道,當然就沒問題,
如果不是,當然就是完蛋.

如果使用 do while(!eof()) ...... skip enddo ,不注意工作區切換就一定出問題. XD

區榮熾 · 註冊時間: 2005-11-14 文章: 191 第 15 樓

TO Syntech兄:
我在 Shengyi兄說Repl 不進資料時,就請在 ENDSCAN後(也就是說您加上的紅字)
加 SELECT TABLE2後 VFP 才知道 REPL 的標的....
我都是如此更改資的,但看了秀出的程式碼(缺少紅字部份),就對自己的概念沒信心(因學得不深之故),才向朱育興老師請教,現經您的回答,我已清楚了,謝謝您啦!