#72003/9/2 15:13:12
呵呵。这要谈到数据库两张表了:
洲表字段:zhouid zhouming jianjie
国家表字段:guojiaid guojiaming jianjie zhouid
其中国家表字段zhouid要为长整型,并在关系里把洲表zhouid和国家表zhouid两个同名字段设为“一对多”对应关系。ok,这是前奏,到这步,数据库设置完毕。
接下来就是建造记录集,在dw-mx建recordset1为洲,建recordset2为国家。选择服务器重复行为,分别加在两个记录集上,假设都为显示全部记录。转到代码编辑模式下,修改为:
<%
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
Dim Recordset2
Dim Recordset2_numRows
Set Recordset2 = Server.CreateObject("ADODB.Recordset")
Recordset2.ActiveConnection = MM_XXXXXXX_STRING
Recordset2.Source = "SELECT * FROM tb2 where zhouid="&Recordset1.Fields.Item("zhouid").value&""
Recordset2.CursorType = 0
Recordset2.CursorLocation = 2
Recordset2.LockType = 1
Recordset2.Open()
Recordset2_numRows = 0
Dim Repeat2__numRows
Dim Repeat2__index
Repeat2__numRows = -1
Repeat2__index = 0
Recordset2_numRows = Recordset2_numRows + Repeat2__numRows
%>
<%=(Recordset1.Fields.Item("zhouming").value)%>
<%
While ((Repeat2__numRows <> 0) AND (NOT Recordset2.EOF))
%>
<%=(Recordset2.Fields.Item("guojiaming").value)%>
<%
Repeat2__index=Repeat2__index+1
Repeat2__numRows=Repeat2__numRows-1
Recordset2.MoveNext()
Wend
%>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset1.MoveNext()
Wend
%>
一 切 ok 了……
编辑历史:[这消息被b小调雨后编辑过(编辑时间2003-09-02 15:14:39)]