大家好，初学vf，希望大家多指教，谢谢了！

现遇到一个问题，请教大家：

有一个dbf表，字段为型号，种类，质量，（其中种类分a,b,c……e等几种，质量分123三个等级，三个字段都是字符型）

格式如下：型号              种类            质量
          2008001           a               1
          2008001           b               3
          2008001           e               2
          2008002           a               3
          2008002           b               2
          2008002           c               1
          …………        ……           ……
          …………        ……           ……
现在需要转换成以下格式的dbf表，格式如下：
   
         型号    种类a质量       种类b质量         种类c质量       ……  种类e质量   
      2008001        1              3                                       2
     
      2008002        3              2                   3
         
      …………     ……          ……               ……            ………………
请教大家怎么写程序呢，谢谢先了！！！！
给大家鞠躬了！！

[[it] 本帖最后由 iadmirevancogh 于 2008-9-10 15:29 编辑 [/it]]

自己先顶一个，谢谢大家了！

这一个问题，用EXCEL的数据透视表就可以轻松解决了。也可以用VFP的数据透视表

[[it] 本帖最后由 ibmlang_002 于 2008-9-10 16:25 编辑 [/it]]

*****创建表  bb  *****
格式：型号  种类a质量  种类b质量   种类c质量   ……  种类e质量
****************

public w_col

select 类型 from (dbf) group by 类型 into cursor LSB
count to w_col

public ary(6)
   for j=1 to 6
       ary(j)=''
   endfor
 
select LSB
scan
    ary(1) = 类型

    select (dbf)
    set filt to (dbf).类型 = LSB .类型
    go top
    scan
         do case
             case allt(种类) = 'a'
                  ary(2) = allt(质量)
             case allt(种类) = 'b'
                  ary(3) = allt(质量)
             case allt(种类) = 'c'
                  ary(4) = allt(质量)
             case allt(种类) = 'd'
                  ary(5) = allt(质量)
             case allt(种类) = 'e'
                  ary(6) = allt(质量)
         endcase
    endscan

    select bb   && 新建的表
    gather from ary

    select LSB
       for j=1 to 6
           ary(j)=''
       endfor
endscan

乖乖，写完了，不过好象有点繁哦

文本预处理：
用半角逗号分隔各个单元（逗号分隔字段，回车分隔记录）
建表，三个字段
APPEND FROM 文本文件.txt DELIMITED

也可以在文本文件中删除全部空格使其紧密结合
建立一个仅有一个字段的表（但宽度要足够）
APPEND FROM 文本文件.txt sdf
再用substr（）函数分割转移给另一张表
或者字段已知宽度比如字段一宽度＝7，字段二宽度＝1，字段三宽度＝3（对应你的例子型号7字节，种类1个字节，最后是3个字节）
如“2008001a123”共11个字节，也可以直接“app”系统会根据字段宽度自动分割字符串

do vfpxtab

学习，真是帅的叽里咕噜啊！

哈哈

学习了！！！
你们的帮助令我倍感温暖和温馨，就像春风吹在心里，
真心说声谢谢！！！
中秋国庆到了，真挚的祝愿 午丁，斑竹szy345，IBMlang__002等楼上所有朋友们中秋快乐！

合家幸福！吃饭倍儿香！身体倍儿棒！工资倍儿多！！

(*^__^*)


最后也祝所有编程论坛里的朋友合家团圆幸福美满！！愿我们的论坛越来月红火！！！

[[it] 本帖最后由 iadmirevancogh 于 2008-9-12 21:11 编辑 [/it]]

呵呵，怕斑竹没看到，顶一下哈！

谢谢，也祝你中秋快乐，合家幸福！吃饭倍儿香！身体倍儿棒！工资倍儿多！！