请教 SDTA有关二库关联的知识
以下是引用sdta在2017-3-11 15:33:36的发言：
Note 行转列
clear all
create cursor t2 (学号 c(4),姓名 c(8),课目 c(10),成绩 n(3))
insert into t2 values ("1001","张三","数学",102)
insert into t2 values ("1001","张三","语文",120)
insert into t2 values ("1002","李四","数学",119)
insert into t2 values ("1002","李四","语文",108)
select distinct 课目 from t2 into array ajg
* 创建临时表结构及索引
lcstr=""
for lnI=1 to alen(ajg,1)
lcstr=lcstr+iif(empty(lcstr),"",",")+alltrim(ajg[lnI,1])+" N(3)"
endfor
create cursor t4 (学号 c(4),姓名 c(8),&lcstr)
index on 学号+姓名 tag xhxm
* 结束 *
* 数据处理
select t2
set relation to 学号+姓名 into "t4"
scan
km=alltrim(t2.课目)
if found("t4")
replace (km) with t2.成绩 in "t4"
else
insert into t4 (学号,姓名,&km) values (t2.学号,t2.姓名,t2.成绩)
endif
endscan
set relation to
select t4
browse
有关二库关联以前学的时候，子表要索引，关联后当前库为父表，被关联的为子表,然后用子表中某字段的记录去替换父表中某字段的记录。你这里的父表是什么？子表是什么？
create cursor t4 (学号 c(4),姓名 c(8),&lcstr)
index on 学号+姓名 tag xhxm 从代码看这是子表t4
-----------------------
select t2
set relation to 学号+姓名 into "t4" 从代码看这里是父表t2去与子表“t4”去关联
----------------------
if found("t4")
replace (km) with t2.成绩 in "t4" 从代码看这里是用父表的值去更新子表
我有点搞糊涂了，请您指教。如何来理介你的代码？
