UC知道想用vf把一个横表变成一个纵表
来源：百度知道 编辑：UC知道 时间：2024/05/25 02:40:50
bj yw sx wy
1 28 33 34
2 29 45 36
bj cj
1 28
1 33
1 34
2 29
2 45
2 36
即实现从第一个表到第二个表 用vf 怎么写程序 谢了
1 28 33 34
2 29 45 36
bj cj
1 28
1 33
1 34
2 29
2 45
2 36
即实现从第一个表到第二个表 用vf 怎么写程序 谢了
**首先建立tab1表并输入内容.
**CREATE TABLE tab1(bj n(2),yw n(2),sx n(2),wy n(2))
CREATE TABLE tab2(bj n(2),cj n(2))
sele tab1 && bj yw sx wy
go top
do while not eof()
for n=1 to 3
SELECT tab1
cField1=FIELD(1)
cField2=FIELD(n+1)
SELECT tab2 && bj cj
appe blan
repl bj with tab1.&cfield1,cj with tab1.&cField2
ENDFOR
SELECT tab1
IF NOT EOF()
SKIP
ELSE
EXIT
ENDIF
ENDDO
SELECT tab2
brow
RETURN