VFP 愛用者社區

CPS0204 · 註冊時間: 2014-08-24 文章: 475 第 1 樓

我有一個spinner 希望上下可跑年月
range= 2010.01 至 2050.12 ,已有一個V_cursor12 暫存檔,欄名=MYR CHAR(7)放進來

請問如何設計spinner 到12月後的下一筆,是下年度的一月!

ckp6250 · 註冊時間: 2004-07-30 文章: 1645 第 2 樓

其實, 如果您已建有V_cursor12 暫存檔
何不用 combobox ?
用拉的應該會比用上下點要快些

syntech · 發表於: 星期六八月 29, 2015 11:21 pm 文章主題:

如果月大於12, 年+1,月=1
如果月小於1,年-1,月=12

perry · 註冊時間: 2014-07-20 文章: 203 第 4 樓

如樓上大大所說的.
不過個人還是覺得您是在自找麻煩,才會想用spinner = ='''
單純的增加2個commandbutton (上,下),用 gomonth() 就可達到您要的

proc spinner1.InteractiveChange
priv t_v1
t_v1=righ(str(this.value,7,2),2)
if t_v1>'12'
this.value=int(this.value)+1.01
else
if t_v1<'01'
this.value=int(this.value)-0.88
endi
endi
endproc