回复 4楼 hyhosd
呵呵,楼上的朋友确实厉害,是多行一列的数组,也就是你前几天给我回答的那个行专列的问题,我把我修改后的代码附上,由于初学,
CREATE CURSOR XZZW (JGID C(20),副主任 C(10),副主任1 C(10),副主任2 C(10),副主任3 C(10),副主任4 C(10))
select Gz02tmp
(此表有三个字段(jgid ,行政职务,姓名))
SELECT
JGID
FROM ALIAS() GROUP BY JGID INTO ARRAY AREC
FOR I=1 TO ALEN(AREC,1)
SELECT 姓名 FROM Gz02tmp
where jgid = AREC(i)
INTO ARRAY ASS (AREC数组有两个值,1401和1402)
SELECT("XZZW")
append BLANK
REPLACE JGID With AREC(I)
FOR I1=2 TO FCOUNT("XZZW")
REPLACE RECORD RECCOUNT() (Field(I1)) With ASS(I1-1)
ENDFOR
ENDFOR
GZ02TMP表数据如下
JGID
行政职务
姓名
N1
FZR
M1
N1
FZR
M2
N1
FZR
M3
N1
FZR
M4
N1
FZR
M5
N2
FZR
M7
N1这一行记录,可以替进去,但到了N2行替进M7后 就开始提示超出范围。
[
本帖最后由 hyhosd 于 2012-8-28 19:19 编辑 ]