VFP 愛用者社區

[wang0970]

因為新接倉管工作，長官要求每月要看結存表，只好自己寫一個簡單的小程式來管理，已經快20年沒碰VFP，幾乎都忘光了，只好求教各位大俠。
先敘述一下小弟的兩個DBF
領用資料維護.DBF：記錄每日員工來領用的資料。
欄位：品號(ITEM)、領用日期(DATE)、領用數量(QUAN)
庫存基本資料.DBF：記錄倉庫的品項及庫存量
欄位：品號(ITEM)、品名(NAME)、單價(UNIT)、本月領用
(QUAN)
以下是小弟目前寫的程序
***** 輸入要月結的年月 *****
yy=thisform.spinner1.value
mm=thisform.spinner2.value
SELECT 領用資料維護
SET ORDER TO 2
SET FILTER TO YEAR(DATE)-1911 = YY .AND. MONTH(DATE) = MM
GO TOP
TOTAL TO TEMP ON ITEM FIEL QUAN
USE TEMP
INDEX ON ITEM TO ITEM
SELE 庫存基本資料
SET RELATION TO ITEM INTO TEMP
***********************************
接下來我想從TEMP.DBF 取用相同ITEM的QUAN欄位值，存入庫存基本資料.DBF的OUT_QUAN欄。
拜託大大們給予指導，謝謝

[CPS0204]

先回覆你一下
你的dbf 欄位名稱,有可能是保留字!
ITEM,DATE,NAME............等,請先避免

可採用1-2條的SELECT ITEM1,SUM(....)等來完成!

[syntech]

我最近接到 CLIPPER S'87 轉 VFP 的CASE,
所以這種"4 BYTES"命令嚇不了我的.


----
FIELD NAME 比較寬鬆.
不然樓主連TABLE都建不了,
哪有機會寫程式

[syntech]

老式作法:

[wang0970]

感謝樓主與CPS0204大大的熱心指導，小弟因為以前一直在單機領域裡面，SQL的語法小弟真的不懂，爬文了好幾天還是霧煞煞，最後參考john大大的寫法，把程式改成如下：
SELECT 領用資料維護
SET ORDER TO 2
SET FILTER TO YEAR(T_DATE)-1911 = YY .AND. MONTH(T_DATE) = MM
GO TOP
TOTAL TO TEMP1 ON T_STUID FIEL T_CLASS
USE TEMP1
INDEX ON t_STUID TO STUID
SELE 庫存基本資料
SET ORDER TO 1
GO TOP
SET RELATION TO STUID INTO TEMP1
DO WHILE .T.
REPL OUT_QUAN WITH TEMP1.t_CLASS
SKIP
IF EOF()
EXIT
ENDIF
ENDDO
Thisform.Release()

問題都解決了，真的感謝樓主還有這個平台所有的狐友們，幾十年了大家都還這麼熱心支持解惑，再一次感謝您們！

[wang0970]

感謝樓主幫忙，小弟改用樓主的方法SCAN....ENDACAN，程式變的更簡潔，很開心！謝謝！

[syntech]