VFP 愛用者社區

amd · 註冊時間: 2003-07-20 文章: 54 第 1 樓

之前講得不太清楚

結存要先有個值，例如：1

-------------
收料發料結存
結存 1
收10 結存 11
發5 結=6
---------- ------

結存每次都會去+ - 收／發的動作

就像存款簿格式的，那個結存的值是要每新增一筆就帶下來的

像這種我要怎麼寫呢？

..........
謝謝

syntech · 發表於: 星期一五月 04, 2009 12:13 am 文章主題:

先整理在一個TABLE/CURSOR上,
再印出來不就得了.

或是用報表變數,
以 IIF 判斷要加要減

amd · 註冊時間: 2003-07-20 文章: 54 第 3 樓

我改了一下標題，之前說得可能不是很清楚，麻煩各位教授一下吧！

謝謝

我是想要在 grid 上實現的！

是有關聯式的，有個材料主表，這個是明細

syntech · 發表於: 星期一五月 04, 2009 10:41 am 文章主題:

你應該要知道,
就算給你如來神掌密笈,你也不一定看的懂.

答案就是那樣

amd · 註冊時間: 2003-07-20 文章: 54 第 5 樓

garfield · 發表於: 星期一五月 04, 2009 11:52 am 文章主題:

寫程式不就是將手工變成電腦自動作,
你先想想如何用手工做出你要的結果,
再用電腦處理資料的方式來寫程式,
這個題目你知道如何用手工填寫帳冊的方法嗎?

amd · 註冊時間: 2003-07-20 文章: 54 第 7 樓

garfield · 發表於: 星期一五月 04, 2009 12:26 pm 文章主題:

我只能給你一些提示,
請你自己思考一下要如何變通
repl 結餘 with 上次結餘+異動數量 rest
go 剛才那筆

aizz · 註冊時間: 2007-01-29 文章: 172 第 9 樓

amd · 註冊時間: 2003-07-20 文章: 54 第 10 樓

goodnight · 發表於: 星期一五月 04, 2009 10:43 pm 文章主題:

通常你的問題應該是在報表呈現出的產品異動資料, 如果你是想在 grid 裡即時顯示
就可以參照excel 的方式, 將 grid 模擬成 excel 的模式, 而你需要在產品主檔有一個欄位是現有庫存量
然後每當 grid 去做進出的動作時, 就會更新這個欄位, 也可以在你的異動table 寫入這個值
那麼 grid 就會顯示出你要的結果了

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

找出合適的事件,
撰寫合適的code,
就會出現你要的答案.
反之,就會搞出一堆問題,
還要怪工具不對.

excel 是用 cell 為單位處理資料.
但是 foxpro 應該使用table/cursor中記錄的欄位為單位處理資料.
很多人通常搞不清楚這點,
老是想拿vfp grid 的cell 作文章.

amd · 註冊時間: 2003-07-20 文章: 54 第 13 樓

amd · 註冊時間: 2003-07-20 文章: 54 第 14 樓

amd · 註冊時間: 2003-07-20 文章: 54 第 15 樓

這是昨晚在查到微軟的範例，果然有我想要的功能！

剛才改了一些，終於達到我想要的東東囉，Excel 輸入畫面！（當然這只是一小步，也不可能 100% 完美）

更神奇的是，輸入起始結存的值之後，如有輸入第二筆，還會把第一筆給涷結起來，讓人無法進入，這也是我想要的功能！呵呵（不過我倒是不懂為什麼就是啦！）

---- 以下給有需要的人參考 -----微軟原版範例--------------------

ThisForm.Grid1.SetFocus
ThisForm.LockScreen = .T.
IF ThisForm.Grid1.RelativeRow = 1
=MESSAGEBOX("You cannot do this replacement from the top "+;
"of the Grid.",16,"")
*: If the active grid cell is in the top row of the grid, this
*: will display a message to the user.
ELSE
RepField = FIELD(ThisForm.Grid1.ActiveColumn)
ColumnNumber = "Column"+ALLTRIM(STR(ThisForm.Grid1.ActiveColumn))
ThisForm.GRID1.ACTIVATECELL(ThisForm.GRID1.RELATIVEROW-1,;
ThisForm.GRID1.RELATIVECOLUMN)
RepValue = ThisForm.Grid1.&ColumnNumber..Text1.Value
ThisForm.GRID1.ACTIVATECELL(ThisForm.GRID1.RELATIVEROW+1,;
ThisForm.GRID1.RELATIVECOLUMN)
yesno = MESSAGEBOX("Are you certain that you wish to replace "+;
CHR(13)+"Field "+UPPER(repField)+" current value?",36,"")
IF yesno = 6
REPLACE &RepField WITH RepValue
ThisForm.REFRESH
ELSE
WAIT WINDOW "Replacement Canceled" NOWAIT
ENDIF
ENDIF
ThisForm.LockScreen = .F.
-----------------------