VFP 愛用者社區

yctsai · 註冊時間: 2003-04-11 文章: 180 第 1 樓

一個USER的要求,(零太多眼花)

a=1.000 印出來為 1
a=1.200 印出來為 1.2
a=1.230 印出來為 1.23
a=1.234 印出來為 1.234

請問報表有簡單方法設定嗎? 用VFP6,感謝協助

syntech · 發表於: 星期四十一月 08, 2007 5:17 pm 文章主題:

........... (無言中)

yctsai · 註冊時間: 2003-04-11 文章: 180 第 3 樓

感謝,已解決

jeff25 · 發表於: 星期五十一月 09, 2007 8:42 pm 文章主題:

不知你感謝誰? 如果自行解決,也可以把你的經驗提出來給大家分享,否則佔了版面,後面的人看了也無任何益處!

yctsai · 註冊時間: 2003-04-11 文章: 180 第 5 樓

1.教育 USER 也是很重要的! 感謝一句 "........... (無言中)",user 看了也無言,問題當然就消失了哈
2.syntech大師的禪話,要用心體會,講明了就不美了
3.transform(a,iif(right(str(a,13,3),3)='000','@Z 999,999',iif(right(str(a,13,3),2)='00','@Z 999,999.9',iif(right(str(a,13,3),1)='0','@Z 999,999.99','@Z 999,999.999'))))

yang1032 · 註冊時間: 2004-06-19 文章: 58 第 6 樓

func t_dec
lpara t_n1,t_l1,t_l2
*t_n1 = 1.0000
*t_l1=12
*t_l2=6
t_s1 = alltrim(str(t_n1,t_l1,t_l2))

for i=len(t_s1) to 1 step -1
*? substr( t_s1,i,1)
if not substr( t_s1,i,1) $ ".0"
exit
endif
next
if i =0
t_s2=""
else
t_s2=substr(t_s1,1,i)
endif
return t_s2