读书人

再请问一个关于复制表的有关问题

发布时间: 2013-07-04 11:45:55 作者: rapoo

再请教一个关于复制表的问题
表结构(rno,z1,z2,z3,z4,z5...)
想把该表字段(rno,z1,z3,z5...)及数据拷贝到另一表,请问该用什么命令啊?

[解决办法]

lcStr="Create Cursor t1 (rno i"
For lnI=1 To 50
lcStr=lcStr+",z"+Transform(lnI)+" i"
Endfor
lcStr=lcStr+")"
&lcStr.
Browse&& 建立了 51 个字段(rno,z1,...,z50)

lnStart=2&& 开始从第2个字段开始取
lnStep=10&& 步长,也就是你说的等差序列

lcStr2='Select rno'
Select t1
lnFields=Fcount('t1')&& 总字段数
For lnI=lnStart+1 To lnFields Step lnStep
lcStr2=lcStr2+","+Field(lnI,'t1')
Endfor
lcStr2=lcStr2+" From t1"
&lcStr2.

读书人网 >VFP

热点推荐