VFP 愛用者社區

[狼人]

緊急求援:I0404001為單號,輸入下一個單號時自動變為I0404002,I0404003等
I永遠不變,第一個04為年份,另一個04為月份,001為順序號
以后新增單號時,只要年份月份不變,就依順序號排列.
年份月份變化,則將第2-5位依年份月份變化,順序號從001開始.

[garfield]

還是那句老話: 請先搜尋, 再問.

參考 http://vfp.sunyear.com.tw/viewtopic.php?t=671&highlight=%BDs%B8%B9

[小桑•無痕]

我記得網站裡面好像已經有類似的東西了...狼人...你可以搜尋看看...

我習慣適用一個單號記錄檔記錄(SNO.DBF)
SNO.DBF
SNO01 C.10 PK
SNO02 N.08.0 (OR 使用 INT)

INDEX NAME:SNO KEY:SNO01

-----------------------------------------------------------

USE SNO ALIAS SNO IN 0 ORDER SNO
cNO = "I" + SUBSTR(DTOS(DATE()),3,4)
SELE SNO
SEEK cNO
IF FOUND()
REPL SNO02 WITH SNO.SNO02 + 1
ELSE
APPEND BLANK
REPL SNO01 WITH cNO
REPL SNO02 WITH 1
ENDIF
c單號 = cNO + RIGHT(STR(SNO.SNO02+1000,4),3)
-----------------------------------------------------------
大約是這樣...我沒測試過...狼人..你斟酌修改使用
注意工作區、索引、Share或EXCLUSIVE的問題
可以的話...變成函數使用
(我自己是配合公司軟體的環境變成函數在使用 )

試得如何...記得告訴我

[garfield]

狼人, 你的貼上的另一個問題因為標題太長了, 造成看不到內容, 所以在此回答你:
還是那句老話: 請先搜尋, 再問.

參考
http://vfp.sunyear.com.tw/viewtopic.php?t=48&highlight=%A4%E9%B4%C1+%A4%40%A4%D1

[狼人]

煩請看我寫的在什麼問題?

SELECT * from invoice_main WHERE YEAR(invoice_main.date)=YEAR(DATE()) AND MONTH(invoice_main.date)=MONTH(DATE()) ORDER BY invoice_main.no INTO CURSOR tmp1
SELECT tmp1
IF _tally >0
SELECT tmp1
GOTO BOTTOM
s=tmp1.no
s=VAL(SUBSTR(s,6,3))
s=1000+s
s=SUBSTR(STR(s),2,4)
a='I'+SUBSTR(dtos(DATE()),3,4)
c=a+s
thisform.text1.Value=c
ELSE
a=SUBSTR(STR(YEAR(DATE())),3,2)
b=STR(MONTH(DATE()))
IF LEN(b)=1
b='0'+b
ENDIF
c='I'+a+b+'001'
thisform.text1.Value=c
ENDIF

[Mibh]

這是我在我系統中的用法，參考看看

fieldname：欄位名稱
tablename：資料表名稱

function keyno(fieldname,tablename)
Select MAX(&fieldname) as maxkey FROM &tablename WHERE left(&fieldname,5)="I"+left(dtos(date()),4) into cursor tmp1
If _tally>0
syskey=alltrim(str(val(right(tmp1.maxkey,3))+1))
Do case
Case len(syskey)=1
syskey="I"+left(dtos(date()),4)+"00"+syskey
Case len(syskey)=2
syskey="I"+left(dtos(date()),4)+"0"+syskey
Case len(syskey)=3
syskey="I"+left(dtos(date()),4)+syskey
Endcase
Else
syskey="I"+left(dtos(date()),4)+"001"
Endif
return syskey
endfunc

[狼人]

thanks, 另外問你一個很笨的question:
combo控件放在一個表單中,設什麼屬性可使表單
運行時combo控件里就顯示一個值.(eg:123,abx)
不要笑?

[Ruey]

[狼人]

運行時combo1控件會顯示空白,我希望能顯示一個值.

[freedom]

请参考：thisform.combo1.displayvalue="123,abc"