| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 419 人关注过本帖
标题:帮我查查这段程序错在哪?
只看楼主 加入收藏
YZCZWCB
Rank: 1
等 级:新手上路
帖 子:191
专家分:5
注 册:2010-1-9
结帖率:97.14%
收藏
已结贴  问题点数:20 回复次数:2 
帮我查查这段程序错在哪?
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 编辑 ]
2010-01-11 13:59
茵梦湖
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:31
帖 子:545
专家分:2180
注 册:2009-4-25
收藏
得分:20 
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 最高限价=k.最高限价,折扣率=k.折扣率,;
                        折后单价=k.折后单价,折后总价=k.折后总价,;
                        中标价格=k.中标价格,采购总额=k.采购总额,;
                        供应商单位=k.供应商单位,供应商法人=k.供应商法人,;
                        供应商号码=k.供应商号码,供应商地址=k.供应商地址;
                   from ZFCG_SJBB k  WHERE ZFCG_SJZK.采购编号=k.采购编号
                    
ELSE
   Thisform.QueryUnload
ENDIF
2010-01-11 14:49
YZCZWCB
Rank: 1
等 级:新手上路
帖 子:191
专家分:5
注 册:2010-1-9
收藏
得分:0 


非常谢谢,通过了。
2010-01-11 14:55
快速回复:帮我查查这段程序错在哪?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.018302 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved