关于shape数据构型的问题？
程序如下：
str = "shape {select 处理 as 匹配,系统发票号,结算单位,价税合计 from 系统发票头 where 处理=0 and 发票=1 order by 系统发票号 } append ({select 系统发票号,系统id,产品,产品种类,数量 from 结算单} relate 系统发票号 to 系统发票号) as a"
rs.Open str, conn1, adOpenKeyset, adLockPessimistic
rs.MoveFirst
Do While Not rs.EOF
Set rs1 = rs.Fields("a").Value
rs.MoveNext
Loop
Set VSFlexGrid1.DataSource = rs
Set VSFlexGrid2.DataSource = rs1
rs.close
rs1.close

问题：
语句中‘relate 系统发票号 to 系统发票号’的作用应该是从表‘结算单’中读出与表‘系统发票头’中系统发票号相同的数据，但是为什么赋值后：Set VSFlexGrid2.DataSource = rs1 ，VSFlexGrid2中包含了所有系统发票号的数据行？