急!编程问题! 30
我做了一个药品管理系统的“输入药品资料”表单,最后有一项“应付金额”这个不能够修改内容,必须是有“药品价格”和“自付比例”相乘的结果,我设置了属性READONLY为真,编...
我做了一个药品管理系统的“输入药品资料”表单,最后有一项“应付金额”这个不能够修改内容,必须是有“药品价格”和“自付比例”相乘的结果,我设置了属性READONLY为真,编写了它的“lostfocus”命令如下:
THISFORM.TEXT4.VALUE=THISFORM.TEXT3.VALUE*VAL(THISFORM.OPTIONGROUP1.VALUE)(命令是一行,这里写不下了)
“应付金额”是TEXT4,“药品价格”是TEXT3,“自付比例”是OPTIONGROUP1
但是运行总是无法显示出应付金额!下面是我写的“确定”按钮的click
APPE BLANK
REPL 药品编码 WITH ALLT(THISFORM.TEXT1.VALUE)
REPL 药品名称 WITH ALLT(THISFORM.TEXT2.VALUE)
REPL 药品类别 WITH ALLT(THISFORM.COMBO1.VALUE)
REPL 药品价格 WITH THISFORM.TEXT3.VALUE
REPL 自付比例 WITH VAL(THISFORM.OPTIONGROUP1.VALUE)
REPL 应付金额 WITH THISFORM.TEXT4.VALUE
THISFORM.TEXT1.VALUE=""
THISFORM.TEXT2.VALUE=""
THISFORM.TEXT3.VALUE=""
THISFORM.TEXT4.VALUE=""
THISFORM.COMBO1.VALUE=""
THISFORM.OPTIONGROUP1.VALUE=""
THISFORM.TEXT1.SETFOCUS
如果不写“应付金额”的LOSTFOCUS 那要怎么完成“药品价格”和“自付比例”相乘?能不能说的具体点 展开
THISFORM.TEXT4.VALUE=THISFORM.TEXT3.VALUE*VAL(THISFORM.OPTIONGROUP1.VALUE)(命令是一行,这里写不下了)
“应付金额”是TEXT4,“药品价格”是TEXT3,“自付比例”是OPTIONGROUP1
但是运行总是无法显示出应付金额!下面是我写的“确定”按钮的click
APPE BLANK
REPL 药品编码 WITH ALLT(THISFORM.TEXT1.VALUE)
REPL 药品名称 WITH ALLT(THISFORM.TEXT2.VALUE)
REPL 药品类别 WITH ALLT(THISFORM.COMBO1.VALUE)
REPL 药品价格 WITH THISFORM.TEXT3.VALUE
REPL 自付比例 WITH VAL(THISFORM.OPTIONGROUP1.VALUE)
REPL 应付金额 WITH THISFORM.TEXT4.VALUE
THISFORM.TEXT1.VALUE=""
THISFORM.TEXT2.VALUE=""
THISFORM.TEXT3.VALUE=""
THISFORM.TEXT4.VALUE=""
THISFORM.COMBO1.VALUE=""
THISFORM.OPTIONGROUP1.VALUE=""
THISFORM.TEXT1.SETFOCUS
如果不写“应付金额”的LOSTFOCUS 那要怎么完成“药品价格”和“自付比例”相乘?能不能说的具体点 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询