主题:请教如何导出为EXCEL后,将字段改为中文名?
			 useasd
				 [专家分:0]  发布于 2010-04-22 09:51:00
 useasd
				 [专家分:0]  发布于 2010-04-22 09:51:00							
			我想把数据表导出为EXCEL的时候,将英文的字段名改为中文表头,具体的对应关系在自由表1里的字段“英文”和“中文”里,请问如何实现?
COPY to nj xls
[em18][em18][em18][em18][em18][em18][em18][em18][em18][em18][em18][em18][em18][em18]
						
					 
		
			
回复列表 (共15个回复)
		
								
				沙发
				
					 fyyylyl [专家分:8550]  发布于 2010-04-22 11:12:00
fyyylyl [专家分:8550]  发布于 2010-04-22 11:12:00				
				Select 英文字段名 As 中文字段名 ... From ... Into Cursor ... 
Copy ...
							 
						
				板凳
				
					 qjbzjp [专家分:8830]  发布于 2010-04-22 13:32:00
qjbzjp [专家分:8830]  发布于 2010-04-22 13:32:00				
				 
							 
						
				3 楼
				
					 qjbzjp [专家分:8830]  发布于 2010-04-22 13:39:00
qjbzjp [专家分:8830]  发布于 2010-04-22 13:39:00				
				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 楼
				
					 foxbase [专家分:60]  发布于 2010-04-22 14:13:00
foxbase [专家分:60]  发布于 2010-04-22 14:13:00				
				临时表在打开的状态下其结构可以被修改吗?
							 
						
				5 楼
				
					 hw2007name [专家分:4790]  发布于 2010-04-22 19:34:00
hw2007name [专家分:4790]  发布于 2010-04-22 19:34:00				
				如果是临时表不能修改表结构,用1楼方法不是最理想的方法吗?
Select 英文字段名 As 中文字段名 ... From ... Into Cursor "临时表名"
copy to ...
							 
						
				6 楼
				
					 useasd [专家分:0]  发布于 2010-04-23 09:26:00
useasd [专家分:0]  发布于 2010-04-23 09:26:00				
				Select 英文字段名 As 中文字段名 ... From ... Into Cursor "临时表名"
copy to ...
这个怎么用啊??
比如表一字段为NJ,CZ,ZJ
    表二字段为中文,英文
      记录为:南京,NJ
              常州,CZ
              镇江,ZJ
希望将表一输出为1.EXCEL,表头为南京,常州,镇江。
							 
						
				7 楼
				
					 zhadalou [专家分:480]  发布于 2010-04-23 18:09:00
zhadalou [专家分:480]  发布于 2010-04-23 18:09:00				
				纯代码,你参考吧,希望起一点作用.
http://bbs.pfan.cn/post-292907.html
							 
						
				8 楼
				
					 qjbzjp [专家分:8830]  发布于 2010-04-23 21:22:00
qjbzjp [专家分:8830]  发布于 2010-04-23 21:22:00				
				楼主试过了吗?
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 楼
				
					 zhaoyufei [专家分:550]  发布于 2010-04-23 22:23:00
zhaoyufei [专家分:550]  发布于 2010-04-23 22:23:00				
				我的笨办法是,导出EXL后,打开它,直接改写第一行的某列的值为中文,然后再关闭,它是在隐藏运行的,界面看不出来,缺点是系统必须安装EXCEL
							 
						
				10 楼
				
					 sywzs [专家分:5650]  发布于 2010-04-24 14:08:00
sywzs [专家分:5650]  发布于 2010-04-24 14:08:00				
				用下面的代码试试看。
STR="SELECT "
USE 表二
SCAN
STR=STR+ALLT(英文)+" "+ALLT(中文)+","
ENDS
STR=LEFT(STR,LEN(STR)-1)+" FROM 表一 INTO CURS TMP"
&STR
COPY TO ......
							 
									
			
我来回复