SET ANSI ON
user0='aaaa'
paswd='bbbb'
sever='SCDB'
source='Oracle'
gnConnHandle=SQLSTRINGCONNECT('DSN=&source;uid=&user0;pwd=&paswd;server=&sever;')
SQL='SELECT JIXING AS jx,'+;
'LINGJIANTUHAO AS ljth,'+;
'JIAOFUCHEJIAN AS jfcj,'+;
'JIESHOUCHEJIAN AS jscj,'+;
'JIAOFUSHUNXU AS jfsx,'+;
'GONGYILUXIAN AS gylx,'+;
'LEIJIPIJIACI AS LJPJC '+;
'FROM T_YIJIAOJINDU'
nNum=SQLEXEC(gnConnHandle,SQL,'ZB')
SELECT ZB
COPY TO ZB
*UPDATE ZB SET LJPJC=STUFF(ALLTRIM(LJPJC),at('/',ALLTRIM(LJPJC)),1,'+') WHERE '/'$ LJPJC
MJX='J15'
JHB='jh'
MPCC='00'
PL=9
UPDATE &JHB SET jfjf=ALLTRIM(ljpjc) FROM ZB ;
where ALLTRIM(ZB.JX)==ALLTRIM(MJX) AND ALLTRIM(ZB.LJTH)==ALLTRIM(&JHB..LJTH) ;
AND ALLTRIM(ZB.JFCJ)==ALLTRIM(&JHB..JFCJ) AND ALLTRIM(ZB.JSCJ)==ALLTRIM(&JHB..JSCJ) ;
AND ALLTRIM(ZB.JFSX)==ALLTRIM(&JHB..JFSX)
UPDATE &JHB SET jfsl=Qjsl*VAL(SUBSTR(ALLTRIM(ljpjc),3,2))+VAL(RIGHT(ALLTRIM(ljpjc),LEN(ALLTRIM(ljpjc))-4)) FROM ZB ;
WHERE LEFT(ALLTRIM(ljpjc),2)=LEFT(ALLTRIM(mpcc),2) AND ljpjc>'0' ;
AND ALLTRIM(ZB.JX)==ALLTRIM(MJX) AND ALLTRIM(ZB.LJTH)==ALLTRIM(&JHB..LJTH) ;
AND ALLTRIM(ZB.JFCJ)==ALLTRIM(&JHB..JFCJ) AND ALLTRIM(ZB.JSCJ)==ALLTRIM(&JHB..JSCJ) ;
AND ALLTRIM(ZB.JFSX)==ALLTRIM(&JHB..JFSX)
[Quote=引用 11 楼 tszsc 的回复:]
SQL="SELECT JIXING AS jx,"+;
"LINGJIANTUHAO AS ljth,"+;
"JIAOFUCHEJIAN AS jfcj,"+;
"JIESHOUCHEJIAN AS jscj,"+;
"JIAOFUSHUNXU AS jfsx,"+;
"GONGYILUXIAN AS gylx,"+;
"LEIJIPIJIACI AS LJPJC "+;
"FROM T_YIJIAOJINDU"+ ;
" WHERE jx='J15' and jfcj='XL'"
[/Quote]
SQL="SELECT JIXING AS jx,"+;
"LINGJIANTUHAO AS ljth,"+;
"JIAOFUCHEJIAN AS jfcj,"+;
"JIESHOUCHEJIAN AS jscj,"+;
"JIAOFUSHUNXU AS jfsx,"+;
"GONGYILUXIAN AS gylx,"+;
"LEIJIPIJIACI AS LJPJC "+;
"FROM T_YIJIAOJINDU"+ ;
" WHERE jx='J15' and jfcj='XL'"
SQL='SELECT JIXING AS jx,'+;
'LINGJIANTUHAO AS ljth,'+;
'JIAOFUCHEJIAN AS jfcj,'+;
'JIESHOUCHEJIAN AS jscj,'+;
'JIAOFUSHUNXU AS jfsx,'+;
'GONGYILUXIAN AS gylx,'+;
'LEIJIPIJIACI AS LJPJC '+;
'FROM T_YIJIAOJINDU'+ " WHERE jx='J15' and jfcj='XL'"
我就是想问问where 条件这样加对吗?因为我vfp不是很明白,要用这个语句,前面加单引号后面是双引号我有点没看明白你要是
确认对,我回去试试
[Quote=引用 7 楼 chenyonge 的回复:]
SQL='SELECT JIXING AS jx,'+;
'LINGJIANTUHAO AS ljth,'+;
'JIAOFUCHEJIAN AS jfcj,'+;
'JIESHOUCHEJIAN AS jscj,'+;
'JIAOFUSHUNXU AS jfsx,'+;
'GONGYILUXIAN AS gylx,'+;
'LEIJIPIJIACI AS LJPJC '+;
'FROM T_YIJIAOJINDU'+ " WHERE jx='J15' and jfcj='XL'"
是这样的吗?好象不对吧
SQL='SELECT JIXING AS jx,'+;
'LINGJIANTUHAO AS ljth,'+;
'JIAOFUCHEJIAN AS jfcj,'+;
'JIESHOUCHEJIAN AS jscj,'+;
'JIAOFUSHUNXU AS jfsx,'+;
'GONGYILUXIAN AS gylx,'+;
'LEIJIPIJIACI AS LJPJC '+;
'FROM T_YIJIAOJINDU'+ " WHERE jx='J15' and jfcj='XL'"
是这样的吗?好象不对吧