程序代码:
CREATE CURSOR test (x01 c(10), x02 c(10), x03 c(10), x04 c(10), x05 c(10), x06 c(10), x07 c(10), x08 c(10), x09 c(10), x10 c(10)) TEXT TO lc NOSHOW TEXTMERGE A,B,C,D,,E,F,,, a,b,c,,d,,e,f,, 1,2,3,,4,5,6,,, ENDTEXT = ALINES(la, lc) FOR i = 1 TO ALEN(la,1) = ALINES(lb, la[i], ",") DIMENSION lb[1, ALEN(lb,1)] INSERT INTO test FROM ARRAY lb ENDFOR BROWSE