标题:热点求助:如何把一个有250多列(即有250多个字段名)的DBF表按一定规则排列 ...
只看楼主
xuevfp89
Rank: 1
等 级:新手上路
帖 子:93
专家分:0
注 册:2014-1-22
得分:0 
按6楼的编程已可解决,但执行编程后,只临时显示一个“查询”表,关闭后,“查询”表也跟着消失了。要怎样才能把“查询”表转化为“结果表”,可随时打开观看?

CREATE CURSOR T (FIELD_NAME C(10),NUM N(4)) && 过渡表
SELECT * FROM 样本表 INTO TABLE TEMP
INSERT INTO TEMP ((FIELD(2))) VALUES (PADC("小计",FSIZE(FIELD(2)),"-"))
FOR I=3 TO FCOUNT()-2
    IF TYPE(FIELD(I))="N"
       COUNT TO HJ FOR EMPTY(EVALUATE(FIELD(I))) AND RECNO()<RECCOUNT()
       REPLACE RECORD RECCOUNT() (FIELD(I)) WITH HJ IN TEMP
       INSERT INTO T VALUES ((FIELD(I,[TEMP])),HJ)
    ENDIF
ENDFOR
SELECT * FROM T ORDER BY 2 DESC INTO CURSOR TEMP1
LCSTR=[]
SCAN
   LCSTR=LCSTR+ALLTRIM(FIELD_NAME)+IIF(RECNO()<RECCOUNT(),[,],[])
ENDSCAN
SELECT 期数,种类,&LCSTR,类别,期号 FROM 样本表



2014-03-12 16:47
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:323
帖 子:9621
专家分:26174
注 册:2012-2-5
得分:0 
回复 11楼 xuevfp89
10楼回帖看了吗
建议楼主多学点基础知识,这么简单的问题还要问,真是无语。

坚守VFP最后的阵地
2014-03-12 16:50
xuevfp89
Rank: 1
等 级:新手上路
帖 子:93
专家分:0
注 册:2014-1-22
得分:0 
不好意思,我刚发出新的提问,就已看到sdta您给我的答案,谢谢大师级人物的您。
2014-03-12 16:53
xuevfp89
Rank: 1
等 级:新手上路
帖 子:93
专家分:0
注 册:2014-1-22
得分:0 
我交了600元到一个电脑培训中心学VFP编程,可那个培训中心的老师道德不好,老是找各种理由挑逗我,他不正经,不怀好意。我不想跟他学了。我是自学的,
2014-03-12 16:57
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:323
帖 子:9621
专家分:26174
注 册:2012-2-5
得分:0 
先从VFP的帮助文件开始学,边看边练,理论结合实际,这样才能打下坚实的基础。

坚守VFP最后的阵地
2014-03-12 17:05
xuevfp89
Rank: 1
等 级:新手上路
帖 子:93
专家分:0
注 册:2014-1-22
得分:0 
又有一个与上述无关的新问题:DBF表每列空出的边框空隙,怎样才能自动让边框紧挨汉字?也即是边框的大小刚好能容纳下汉字?例如下表,“种类”字段名是宽度为8的字符型,它刚好能容纳4个汉字,但“种类”的右边边框还留有很多空隙,怎样才能使右边边框紧挨汉字?图解说明如下:

原来的表:                                                               紧挨汉字的表:
                                


2014-03-12 17:19
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:323
帖 子:9621
专家分:26174
注 册:2012-2-5
得分:0 
用VFP9版本吧

坚守VFP最后的阵地
2014-03-12 17:24
xuevfp89
Rank: 1
等 级:新手上路
帖 子:93
专家分:0
注 册:2014-1-22
得分:0 
哦,我试试。
2014-03-12 19:12
xs591222
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:28
帖 子:680
专家分:1287
注 册:2009-3-1
得分:0 
600元要去要回来 啊
2014-03-12 19:31
xs591222
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:28
帖 子:680
专家分:1287
注 册:2009-3-1
得分:0 
600元要去要回来 啊

怎么会自动发了二次啊
2014-03-12 19:31



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-428351-1-1.html




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

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