vfp简单表单程序设计求助

显示全部楼层 · 2012-6-1 17:49:39

select 订货明细表locate for alltrim(thisform.text1.value)==alltrim(订货明细表.订单号)if found()thisform.text2.value=订货明细表.总金额 thisform.refreshelsemessagebox("没有这个订单！",0,"订单金额查询")endif...

千问 · 2012-6-1 17:49:39

t1=alltrim(thisform.text1.value) t2=alltrim(thisform.text2.value) 你的意思可能要设计成windows附件的计算器一样吧？你可以设置和它一样的界面Y...

千问 · 2012-6-1 17:49:39

LOCAL C_DDHC_DDH=ALLTRIM(THISFORM.TXT订单号.VALUE)SELECT 订单表名LOCATE FOR 订单号=C_DDHIF FOUND() THISFORM.TXT订单金额.VALUE = 订单表名.订单金额ELSE THISFORM.TXT订单金额.VALUE = 0MESSAGEBOS...