我给两位大侠留言了，关于新建按钮代码问题

zerored 2011-10-09 02:37:27

http://www.access911.net/csdn/FileDescription.asp?mdb=2011-10-9&id=7&mode=3
这是上传的附件，里面的录入.scx

...全文

123 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

zhaihs 2011-11-08

打赏
举报

错了，在VALID里加入这个看看？
this.Value=STR(100*VAL(this.Value),6,2)+"%"

zhaihs 2011-11-08

打赏
举报

变为百分数可以在对应文本框的format里设置
K%

十豆七 2011-10-10

打赏
举报

谢谢十豆三大侠指教，还有就是怎么把合计结果转换成大写金额呢！如38500，转换成叁万捌仟伍佰圆整，拜谢了！！！

dfwxj 2011-10-10

打赏
举报

**金额小写转换大写
FUNC cash
PARAMETER RMB
on error return '数据出错'
PRIVATE FH,UNIT, NUMBER, I, RETVAR
UNIT = '分角圆拾佰仟万拾佰仟亿拾佰仟'
NUMBER = '零壹贰叁肆伍陆柒捌玖'
FH=''
IF RMB<0
RMB=-RMB
FH='负'
ENDI
IF RMB>=1000000000000
RETURN '数据溢出'
ENDI
RMB = INT(RMB*100+0.5)
RETVAR = ''
DO WHILE RMB>0
RETVAR = SUBSTR(NUMBER,2*(MOD(RMB,10))+1,2)+LEFT(UNIT,2)+RETVAR
RMB = INT(RMB/10)
UNIT = SUBSTR(UNIT,3)
ENDDO
RETVAR = STRTRAN(RETVAR,'零仟','零')
RETVAR = STRTRAN(RETVAR,'零佰','零')
RETVAR = STRTRAN(RETVAR,'零拾','零')
RETVAR = STRTRAN(RETVAR,'零角','零')
DO WHILE '零零'$RETVAR
RETVAR = STRTRAN(RETVAR,'零零','零')
ENDDO
RETVAR = STRTRAN(RETVAR,'零亿','亿')
RETVAR = STRTRAN(RETVAR,'零万','万')
RETVAR = STRTRAN(RETVAR,'亿万','亿零')
RETVAR = STRTRAN(RETVAR,'零零','零')
RETVAR = STRTRAN(RETVAR,'零圆','圆零')
RETVAR = STRTRAN(RETVAR,'零零','零')
RETVAR = STRTRAN(RETVAR,'零分','整')
RETVAR = IIF(RETVAR=='','零圆整',RETVAR)
on error
RETURN FH+RETVAR

十豆七 2011-10-10

打赏
举报

十豆三大侠，请问输入一个值，把它变为百分数啊？因为要用税率，所以请教一下。如0.17变为17%

十豆三 2011-10-09

打赏
举报

[Quote=引用 2 楼 szqy716 的回复:]
vfp表格内的某一列求和问题，请求十豆三大侠指教，困扰了好久
SELECT SUM(不含税金额) FROM 表名 WHERE 发票id=thisform.text3.Value TO q
thisform.text5.Value=q
[/Quote]
SELECT SUM(不含税金额) as hj into cursor t1 FROM 表名 WHERE 发票id=thisform.text3.Value
thisform.text5.Value=t1.hj

十豆七 2011-10-09