困难题目求助 - VFP论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 数据库技术 → 『 VFP论坛』 → 困难题目求助

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 1054 人关注过本帖

标题：困难题目求助

只看楼主加入收藏

lht

等　级：论坛游民
帖　子：59
专家分：35
注　册：2010-1-20
结帖率：100%

楼主

已结贴√ 问题点数：20 回复次数：23

困难题目求助

图片附件: 游客没有浏览图片的权限，请登录或注册

上图所示：
1、字段列数未知（也就是说不知道几列）。有可能到Q列,也有可能到M列，但不会超过26个英文字母。
2、数据表中第一行内容未知，列数未知。

问题：把字段名称替换为数据表第一行内容。
求代码！

谢谢

搜索更多相关主题的帖子: 未知　英文字母　数据表　

2012-12-10 16:27

lht

等　级：论坛游民
帖　子：59
专家分：35
注　册：2010-1-20

第 2 楼

得分:0

小弟在线等待！请大哥大姐给予回复！

2012-12-10 16:48

TonyDeng

等　级：贵宾
威　望：304
帖　子：25859
专家分：48889
注　册：2011-6-22

第 3 楼

得分:0

直接求代码是不行哟，亲！

授人以渔，不授人以鱼。

2012-12-10 16:53

tlliqi

等　级：贵宾
威　望：204
帖　子：15453
专家分：65956
注　册：2006-4-27

第 4 楼

得分:0

以下是引用TonyDeng在2012-12-10 16:53:33的发言：

直接求代码是不行哟，亲！

象来的

2012-12-10 16:54

TonyDeng

等　级：贵宾
威　望：304
帖　子：25859
专家分：48889
注　册：2011-6-22

第 5 楼

得分:0

回复 4楼 tlliqi

我这叫不与时代脱节~

授人以渔，不授人以鱼。

2012-12-10 17:05

TonyDeng

等　级：贵宾
威　望：304
帖　子：25859
专家分：48889
注　册：2011-6-22

第 6 楼

得分:0

https://bbs.bccn.net/redirect.php?tid=390511&goto=lastpost#lastpost

授人以渔，不授人以鱼。

2012-12-10 17:08

lht

等　级：论坛游民
帖　子：59
专家分：35
注　册：2010-1-20

第 7 楼

得分:0

TonyDeng版主
好不容易把你给盼来了，
帮解决一下吧！
这个问题困扰多天了！

2012-12-10 17:22

jichabc

等　级：论坛游民
威　望：2
帖　子：26
专家分：36
注　册：2011-3-30

第 8 楼

得分:0

首先读取数据1 的数据结构存入数据2
按后给数据2追加一个字段新字段名
以数据2 从1到最后做循环提取数据1中的第一条记录各字段的内容更新数据2的新字段名
再以数据2 从1到最后做循环更改数据1各字段的名称 ALTER TABLE TableName1 [RENAME COLUMN FieldName4 TO FieldName5]

只是思路！程序自己慢慢做吧！不动手就不会成长！

2012-12-10 17:49

jichabc

等　级：论坛游民
威　望：2
帖　子：26
专家分：36
注　册：2011-3-30

第 9 楼

得分:0

好好看看ALTER TABLE 命令一切都好解决了！

2012-12-10 17:51

qjbzjp

来　自：尧的故乡
等　级：贵宾
威　望：48
帖　子：1914
专家分：4397
注　册：2007-3-14

第 10 楼

得分:4

将Excel表格导入DBF表后会出现楼主的情况，下面的代码是将Excel表格导入并转换表的第一行为字段名：
SET DEFAULT TO SYS(5)+SYS(2003)

my_file=GETFILE("xls")

IMPORT FROM "&my_file" type XL5
my_dbf=JUSTSTEM(my_file)
SELECT (my_dbf)
FOR iii=1 to FCOUNT(my_dbf)
    mzd=SUBSTR("ABCDEFGHIJKLMNOPQRSTUVWSYZ",iii,1)
    mfilename=FIELD(mzd)
    m_ren="ALTER TABLE "+ "&my_dbf rename column "+ mzd+" to "+ ALLTRIM(CHRTRAN(&mfilename," ",""))
    &m_ren
NEXT
GO 1
DELETE
BROWSE

相互学习，互相交流，共同提高。

2012-12-10 18:18

快速回复：困难题目求助