| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 7855 人关注过本帖
标题:将竖向排列的人名改为横向排列
只看楼主 加入收藏
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏(1)
得分:0 
回复 10楼 liuxingang28

坚守VFP最后的阵地
2016-01-29 16:26
TonyDeng
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:304
帖 子:25859
专家分:48889
注 册:2011-6-22
收藏
得分:0 
從dBASE到FoxPro/VFP,都有一個叫結構表的東西,是直接從表生成表結構的,這個表的結構是固定的,每一行就是目標表的字段描述,像普通填寫數據表那樣填好記錄,用它生成目標表就可以了。

[此贴子已经被作者于2016-1-29 17:56编辑过]


授人以渔,不授人以鱼。
2016-01-29 17:45
xs591222
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:28
帖 子:682
专家分:1299
注 册:2009-3-1
收藏
得分:0 
楼主的这个问题,在制作运动员秩序册时,是经常要用到:就是将同一项目比赛的运动员随机分组(跑道)处理。
2016-01-30 08:56
aaaaaa
Rank: 8Rank: 8
等 级:贵宾
威 望:21
帖 子:796
专家分:937
注 册:2012-9-4
收藏
得分:0 
*!*    列向转横向排列

Clear
Close Databases
Local nRow, nCol

Use Xsxx
nCol = 12  && 假设有 12 列
nRow = Ceiling(Reccount() / nCol)
Dimension A1[nRow, nCol]
For nRow = 1 To Alen( A1, 1 )
    For nCol = 1 To Alen( A1, 2 )
        If Eof()
            A1[nRow, nCol] = Space(6)
        Else
            A1[nRow, nCol] = Name
            Skip
        Endif
    Endfor
Endfor
*!*    Matrix_Show(@A1)

lcField = ""
For I = 1 To nCol
    lcField = lcField + "Name" + Transform(I) + " C(10), "
Endfor
lcField = Left(lcField, Len(lcField) - 2)

Create Cursor MyTest (&lcField )
Append From Array A1
Go Top
Browse Last

民工子弟学校22班团小组长阳光模特队长冲锋篮球队前锋小苹果合唱队领唱蓝天舞蹈队编舞
2016-02-01 11:38
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
回复 14楼 aaaaaa
代码行云流水

坚守VFP最后的阵地
2021-03-30 00:25
快速回复:将竖向排列的人名改为横向排列
数据加载中...
 
   



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

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