| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1054 人关注过本帖
标题:困难题目求助
只看楼主 加入收藏
月沐庭轩
Rank: 9Rank: 9Rank: 9
来 自:京城
等 级:贵宾
威 望:17
帖 子:393
专家分:1106
注 册:2011-7-24
收藏
得分:4 
回复 楼主 lht
单纯就楼主的问题,并用楼主上传的表,写了如下代码,测试能过。
程序代码:
USE bb
SCATTER TO arraynames&&将第一行数据读入数组
iii=1
FOR EACH new IN arraynames
    old=SUBSTR("ABCDEFGHIJKLMNOPQRSTUVWSYZ",iii,1)
    ALTER TABLE bb RENAME &old TO &new  &&改变字段名
    iii=iii+1
ENDFOR
BROWSE


[ 本帖最后由 月沐庭轩 于 2012-12-10 20:46 编辑 ]

坚持学习vfp,QQ:306805680
2012-12-10 20:44
taifu945
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:80
帖 子:1545
专家分:3298
注 册:2012-7-6
收藏
得分:4 
核心代码如下:

SELECT * FROM BB WHERE RECNO()=1 INTO ARRAY 字段
SELECT BB
COPY TO BB2  &&备份一下
FOR AB=1 TO FCOUNT()
   原字段名=FIELD(AB)
   现字段名=字段(1,AB)
   ALTER TABLE BB RENAME &原字段名 TO &现字段名
NEXT
DELETE FROM BB WHERE RECNO()=1  &&对本应是标题的假记录打上删除标记
PACK   &&彻底删除假记录

另外,楼主以后在FoxPro中导入Excel工作表的时候用向导,然后把开始导入的记录改成第2行即可。


[ 本帖最后由 taifu945 于 2012-12-10 20:56 编辑 ]
2012-12-10 20:50
lht
Rank: 2
等 级:论坛游民
帖 子:59
专家分:35
注 册:2010-1-20
收藏
得分:0 
谢谢尧的故乡、谢谢蝙蝠侠!
我非常感谢你们,在百忙之中给予回复!
2012-12-10 20:56
lht
Rank: 2
等 级:论坛游民
帖 子:59
专家分:35
注 册:2010-1-20
收藏
得分:0 
感谢月沐庭轩、感谢taifu945,感谢所有的朋友!
2012-12-10 20:59
chychychy
Rank: 2
等 级:论坛游民
帖 子:293
专家分:98
注 册:2015-4-18
收藏
得分:0 
回复 22楼 taifu945
留个脚印学习了
3 天前 14:42
快速回复:困难题目求助
数据加载中...
 
   



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

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