当前位置: 代码迷 >> VFP >> 十豆三大侠
  详细解决方案

十豆三大侠

热度:252   发布时间:2016-05-05 23:48:31.0
求助 十豆三大侠
你回复我的 帖子 
http://topic.csdn.net/u/20121020/09/321451dd-aa2f-4f7e-8c2a-42459f6ee863.html

现在又遇到一小问题,就是还原的问题,
SQL code
Create Cursor T1 (列1 C(10),列2 C(10),列3 C(10))Insert Into T1 Values ('A','B','C')Insert Into T1 Values ('D','E','F')Insert Into T1 Values ('G','H','I')Browse Title "原始数据"*------------------------------------------Create Cursor T2 (列 I,行 I,值 C(10))Select T1lnFields=Fcount('T1')Scan    For lnI=1 To lnFields        Insert Into T2 Values (lnI,Recno('T1'),Evaluate('T1.'+Field(lnI,'T1')))    EndforEndscanSelect T2Index On 列 To lsBrowse Title "转换后的数据"*------------------------------------------Create Cursor T3 (列1 C(10),列2 C(10),列3 C(10))Select Max(行) As nRows Into Cursor T4 From T2Select T3For lnI=1 To T4.nRows    Append BlankEndforSelect T2Scan    lcFieldName='列'+Transform(列)    Replace All (lcFieldName) With T2.值 For Recno()=T2.行 In T3EndscanSelect T3Browse Title "又转回来的数据"



T3 列数不一定咋办??? 


------解决方案--------------------
那你举个例子吧。
本站暂不开放注册!
内测阶段只得通过邀请码进行注册!
 
  • 最近登录:Mon Aug 21 18:24:03 CST 2017
  • 最近登录:Mon Aug 21 18:24:03 CST 2017
  • 最近登录:Mon Aug 21 18:24:03 CST 2017
  • 最近登录:Mon Aug 21 18:24:03 CST 2017
  • 最近登录:Mon Aug 21 18:24:03 CST 2017