| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 4308 人关注过本帖
标题:能否将vfp中表的数据按显示->编辑的样式导出来
只看楼主 加入收藏
aaaaaa
Rank: 8Rank: 8
等 级:贵宾
威 望:21
帖 子:796
专家分:937
注 册:2012-9-4
收藏
得分:0 
重复了,删除。

[此贴子已经被作者于2016-3-13 22:04编辑过]


民工子弟学校22班团小组长阳光模特队长冲锋篮球队前锋小苹果合唱队领唱蓝天舞蹈队编舞
2016-03-13 22:01
wengjl
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:109
帖 子:2214
专家分:3882
注 册:2007-4-27
收藏
得分:3 
tablezh.rar (1.19 KB)

是不是这样,语句比较多。理解起来容易些

只求每天有一丁点儿的进步就可以了
2016-03-14 07:58
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10607
专家分:43186
注 册:2014-5-20
收藏
得分:0 
回复 10楼 aaaaaa
空记录间隔多余,可以不要。
程序代码:
Create Table Test1 (Id Int, 姓名 C(20), Q1 Int, Q2 Int, Q3 Int, Q4 Int)
Insert Into Test1 Values(1, '老张', 1000, 2000, 4000, 5000)
Insert Into Test1 Values(2, '小李', 3000, 3500, 4200, 5500)
CREATE CURSOR tt (S1 C(10), S2 C(10))
SELECT Test1
SCAN
    FOR i = 1 TO FCOUNT()
        ss1 = FIELD(i)
        ss2 = TRANSFORM(EVALUATE(ss1))
        INSERT INTO tt VALUES (ss1, ss2)
    ENDFOR
ENDSCAN
SELECT tt
GO TOP 
BROWSE
2016-03-14 08:11
liuxingang28
Rank: 11Rank: 11Rank: 11Rank: 11
来 自:山东济南
等 级:贵宾
威 望:47
帖 子:658
专家分:2180
注 册:2014-2-7
收藏
得分:3 
create cursor t1 (fld1 c(50))
select 0
use 表
scan
    for i = 1 to fcount()
        cFldName = field(i)
        insert into t1 (fld1) values (cFldName+":"+tran(eval(cFldName)))
    next
endscan
select t1
copy to 结果.xls xl5

泉城飞狐
2016-03-14 08:23
aaaaaa
Rank: 8Rank: 8
等 级:贵宾
威 望:21
帖 子:796
专家分:937
注 册:2012-9-4
收藏
得分:0 
使用 Browse 命令的 Edit 模式显示

Browse REdit
图片附件: 游客没有浏览图片的权限,请 登录注册

民工子弟学校22班团小组长阳光模特队长冲锋篮球队前锋小苹果合唱队领唱蓝天舞蹈队编舞
2016-03-14 08:27
阿狸bccn
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2014-8-20
收藏
得分:0 
就是将这表
图片附件: 游客没有浏览图片的权限,请 登录注册
转化为这表
图片附件: 游客没有浏览图片的权限,请 登录注册
2016-03-14 10:22
liuxingang28
Rank: 11Rank: 11Rank: 11Rank: 11
来 自:山东济南
等 级:贵宾
威 望:47
帖 子:658
专家分:2180
注 册:2014-2-7
收藏
得分:0 
俺再将代码微调一下:

create cursor t1 (fld1 c(20),fld2 c(30))
select 0
use 表
scan
    for i = 1 to fcount()
        cFldName = field(i)
        insert into t1 (fld1,fld2) values (cFldName+":",tran(eval(cFldName)))
    next
    appe blank in t1
endscan
select t1
copy to 结果.xls xl5

泉城飞狐
2016-03-14 10:52
厨师王德榜
Rank: 18Rank: 18Rank: 18Rank: 18Rank: 18
等 级:贵宾
威 望:199
帖 子:991
专家分:4966
注 册:2013-2-16
收藏
得分:3 
很有意思的讨论,转换后的格式,有点像XML 格式了,只是没有字段定义语句而已,我在想把它转换为XML ,再去掉那些格式描述,之后剩下的,是不是就是你要的东西了呢?可惜暂时没时间去试。
2016-03-14 17:29
aaaaaa
Rank: 8Rank: 8
等 级:贵宾
威 望:21
帖 子:796
专家分:937
注 册:2012-9-4
收藏
得分:0 
Close Databases
Create Cursor Test1 (Id Int, Name C(10), XingBie C(2), PhoneNum C(5))
Insert Into Test1 Values(1, '张三', '男', '12345')
Insert Into Test1 Values(2, '李四', '女', '61897')
Insert Into Test1 Values(3, '王五', '男', '13354')

Select Id, Field(1) + ':' As 字段A, (Select PadL(Id, 10, " ")       As 字段B From Test1 Where Id = A.Id) From Test1 As A ;
    Union ;
Select Id, Field(2) + ':' As 字段A, (Select Name                    As 字段B From Test1 Where Id = A.Id) From Test1 As A ;
    Union ;
Select Id, Field(3) + ':' As 字段A, (Select XingBie                 As 字段B From Test1 Where Id = A.Id) From Test1 As A ;
    Union ;
Select Id, Field(4) + ':' As 字段A, (Select PadL(PhoneNum, 10, " ") As 字段B From Test1 Where Id = A.Id) From Test1 As A ;
     Into Cursor Query

Select 字段A, 字段B From Query
  
图片附件: 游客没有浏览图片的权限,请 登录注册


[此贴子已经被作者于2016-3-14 19:33编辑过]


民工子弟学校22班团小组长阳光模特队长冲锋篮球队前锋小苹果合唱队领唱蓝天舞蹈队编舞
2016-03-14 19:21
whinda
Rank: 6Rank: 6
等 级:贵宾
威 望:13
帖 子:253
专家分:418
注 册:2012-2-4
收藏
得分:3 
use x.dbf
fhandle=fcreate("c:\temp.txt")
for nRec=1 to reccount()
   go nRec
   for nfcount=1 to fcount()
       cString=field(nfcount)+": "+(field(nfcount))
       =fput(fhandle,cString)
   endfor
   =fput(fhandle,chr(10)+chr(13))
endfor
=fclose(fhandle)
生成一个txt格式文件,从excel导入即可。
2016-03-14 22:11
快速回复:能否将vfp中表的数据按显示->编辑的样式导出来
数据加载中...
 
   



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

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