IF thisform.TEXT3.VALUE=0.OR.thisform.text4.VALUE=0.OR.thisform.TEXT6.VALUE=0.OR.thisform.TEXT7.VALUE=0
   messagebox("缺少计算商品价格要素，请检查后再计算并保存！",16,"系统提示")
   THISFORM.GRID1.SetFocus
   RETURN
ELSE
   *-------------   计算价格折扣价
   THISFORM.TEXT8.Value=THISFORM.TEXT6.Value*THISFORM.TEXT7.Value
   THISFORM.TEXT9.Value=THISFORM.TEXT4.Value*THISFORM.TEXT8.Value
   *------------    计算实际供货总价
   THISFORM.TEXT10.Value=THISFORM.TEXT4.Value*THISFORM.TEXT3.Value
ENDIF
*---------
IF messagebox("商品价格计算完毕，是否保存？",4+64,"提示窗口")=6
   SELECT ZFCG_SJZK
   UPDATE ZFCG_SJZK SET 最高限价=ZFCG_SJBB.最高限价,折扣率=ZFCG_SJBB.折扣率,;
                        折后单价=ZFCG_SJBB.折后单价,折后总价=ZFCG_SJBB.折后总价,;
                        中标价格=ZFCG_SJBB.中标价格,采购总额=ZFCG_SJBB.采购总额,;
                        供应商单位=ZFCG_SJBB.供应商单位,供应商法人=ZFCG_SJBB.供应商法人,供应商号码=ZFCG_SJBB.供应商号码,供应商地址=ZFCG_SJBB.供应商地址
                    WHERE 采购编号=ZFCG_SJBB.采购编号
                    
ELSE
   Thisform.QueryUnload
ENDIF



提示错误：WHERE 采购编号=ZFCG_SJBB.采购编号,不能识别的命令谓词


[ 本帖最后由 YZCZWCB 于 2010-1-11 14:31 编辑 ]

非常谢谢，通过了。