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

[zerored]

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

[十豆三]

你的文本框绑定了字段，当文本框有内容时，字段也就有内容了，所以你的校验就会永远提示 卡号已存在。

你还是按我在你那个帖子中 8楼 的回复，做一个试试吧。

[十豆七]

vfp表格内的某一列求和问题，请求十豆三大侠指教，困扰了好久
SELECT SUM(不含税金额) FROM 表名 WHERE 发票id=thisform.text3.Value TO q
thisform.text5.Value=q

[十豆三]

[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

[十豆七]

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

[dfwxj]

**金额小写转换大写
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

[十豆七]

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

[zhaihs]

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

[zhaihs]

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