回复 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 编辑 ]