尧的故乡您好:
vfp SQL程序神人!
我学习了一天时间
mzd=SUBSTR("ABCDEFGHIJKLMNOPQRSTUVWSYZ",iii,1)
FCOUNT(my_dbf)
都已掌握,就是
m_ren="ALTER TABLE "+ "&my_dbf rename column "+ mzd+" to "+ ALLTRIM(CHRTRAN(&mfilename," ",""))
无论如何就是解决不了。
谢谢 尧的故乡
我永远是你的fans!
我的程序代码是这样的,就是执行不了。
CLEAR ALL
SET SAFETY OFF
SET PATH TO "c:\documents and settings\administrator\桌面\新建文件夹"
USE "c:\documents and settings\administrator\桌面\新建文件夹\bb.dbf" IN 0 ALIAS bb
SELECT * FROM bb WHERE RECNO()=1 INTO ARRAY ziduan
sm=FCOUNT('bb')
gnField = AFIELDS(gaMyArray)
?gaMyArray(1,1)
?ziduan(1)
zd=""
?sm
i=0
FOR ii=1 TO sm
?ii
IF ii=INT(sm)
zd=zd+"gaMyArray("+ALLTRIM(str(ii))+",1) as ziduan("+ALLTRIM(str(ii))+")"
ELSE
zd=zd+"gaMyArray("+ALLTRIM(str(ii))+",1) as ziduan("+ALLTRIM(str(ii))+"),"
ENDIF
NEXT
zz= "SELECT "+zd+" FROM bb INTO TABLE xy"
&(zz) 程序中间“总是令起一行”
vfp SQL程序神人!
我学习了一天时间
mzd=SUBSTR("ABCDEFGHIJKLMNOPQRSTUVWSYZ",iii,1)
FCOUNT(my_dbf)
都已掌握,就是
m_ren="ALTER TABLE "+ "&my_dbf rename column "+ mzd+" to "+ ALLTRIM(CHRTRAN(&mfilename," ",""))
无论如何就是解决不了。
谢谢 尧的故乡
我永远是你的fans!
我的程序代码是这样的,就是执行不了。
CLEAR ALL
SET SAFETY OFF
SET PATH TO "c:\documents and settings\administrator\桌面\新建文件夹"
USE "c:\documents and settings\administrator\桌面\新建文件夹\bb.dbf" IN 0 ALIAS bb
SELECT * FROM bb WHERE RECNO()=1 INTO ARRAY ziduan
sm=FCOUNT('bb')
gnField = AFIELDS(gaMyArray)
?gaMyArray(1,1)
?ziduan(1)
zd=""
?sm
i=0
FOR ii=1 TO sm
?ii
IF ii=INT(sm)
zd=zd+"gaMyArray("+ALLTRIM(str(ii))+",1) as ziduan("+ALLTRIM(str(ii))+")"
ELSE
zd=zd+"gaMyArray("+ALLTRIM(str(ii))+",1) as ziduan("+ALLTRIM(str(ii))+"),"
ENDIF
NEXT
zz= "SELECT "+zd+" FROM bb INTO TABLE xy"
&(zz) 程序中间“总是令起一行”