回 帖 发 新 帖 刷新版面

主题:请教如何导出为EXCEL后,将字段改为中文名?

我想把数据表导出为EXCEL的时候,将英文的字段名改为中文表头,具体的对应关系在自由表1里的字段“英文”和“中文”里,请问如何实现?
COPY to nj xls


[em18][em18][em18][em18][em18][em18][em18][em18][em18][em18][em18][em18][em18][em18]

回复列表 (共15个回复)

沙发

Select 英文字段名 As 中文字段名 ... From ... Into Cursor ... 
Copy ...

板凳

 

3 楼

SELECT * from 表名 into cursor mycursor readw
USE 自由表1 in 0
SELECT 自由表1
FOR i=1 to RECCOUNT()
    GO i
    IF !EMPTY(中文) .and. !EMPTY(英文)
        my_repl="ALTER TABLE mycousor RENAME COLUMN "+英文+" TO "+中文
        &my_repl
    ENDIF 
NEXT
COPY TO nj xls

4 楼

临时表在打开的状态下其结构可以被修改吗?

5 楼

如果是临时表不能修改表结构,用1楼方法不是最理想的方法吗?
Select 英文字段名 As 中文字段名 ... From ... Into Cursor "临时表名"
copy to ...

6 楼

Select 英文字段名 As 中文字段名 ... From ... Into Cursor "临时表名"
copy to ...

这个怎么用啊??
比如表一字段为NJ,CZ,ZJ
    表二字段为中文,英文
      记录为:南京,NJ
              常州,CZ
              镇江,ZJ
希望将表一输出为1.EXCEL,表头为南京,常州,镇江。

7 楼

纯代码,你参考吧,希望起一点作用.
http://bbs.pfan.cn/post-292907.html

8 楼

楼主试过了吗?
SELECT * from 表一 into cursor mycursor readw
USE 表二 in 0
SELECT 表二
FOR i=1 to RECCOUNT()
    GO i
    IF !EMPTY(中文) .and. !EMPTY(英文)
        my_repl="ALTER TABLE mycousor RENAME COLUMN "+英文+" TO "+中文
        &my_repl
    ENDIF 
NEXT
COPY TO 1 xls

9 楼

我的笨办法是,导出EXL后,打开它,直接改写第一行的某列的值为中文,然后再关闭,它是在隐藏运行的,界面看不出来,缺点是系统必须安装EXCEL

10 楼

用下面的代码试试看。
STR="SELECT "
USE 表二
SCAN
STR=STR+ALLT(英文)+" "+ALLT(中文)+","
ENDS
STR=LEFT(STR,LEN(STR)-1)+" FROM 表一 INTO CURS TMP"
&STR
COPY TO ......

我来回复

您尚未登录,请登录后再回复。点此登录或注册