如何将表中的重复字段数据显示成这样？
我有一access表中有如下记录：
ID name lb
1 a dkdf
2 a daf
3 a dfadf
4 b 422
5 b 323
6 c 32
7 d 78998
8 d 72233
.....
如何用ASP显示效果成这样：(也就是按ID降序分组排name，再列出)
d
78998
72233
c
32
b
422
323
a
dkdf
daf
...
我该如何。请教？
问题点数：20、回复次数：5Top
1 楼zorou_fatal（The world and system is even）回复于 2003-08-01 12:46:12 得分 5
我回复过了啊。Top
2 楼liuyann（liuyann）回复于 2003-08-01 12:58:24 得分 15
可参照下面,不过注意conn为你要打开的联接,说实话20点也太少了点
dim strsql
dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
strsql = "select name,lb from yourtable order by name desc,lb desc"
rs.open strsql, conn, adOpenForwardOnly, adLockReadOnly
dim sOldName
sOldName = ""
do while not rs.eof
if sOldName <> rs.fields(0).value then
response.write " "
response.write rs.fields(0).value
response.write <br>
sOldName = rs.fields(0).value
end if
response.write " "
response.write " "
response.write rs.fields(1).value
response.write <br>
rs.movenext
loop
rs.close
Top
3 楼lvjack（追逐梦想）回复于 2003-08-01 13:11:26 得分 0
select * from tab
order by name desc
group by name
然后处理记录集Top
4 楼conner（测试）回复于 2003-08-01 13:26:07 得分 0
<%
dim fieldName=""
response.write "<table border=0>"
do while not rs.eof
if rs("name")<>fieldName then
response.write "<tr><td colspan='2'>"
response.write rs("name")&"</td></tr>"
response.write "<tr><td> </td><td>"&rs("lb")&"</td></tr>"
else
response.write "<tr><td> </td><td>"&rs("lb")&"</td></tr>"
end if
fieldName = rs("name")
rs.movenext
loop
%>Top
5 楼cabecbbc（）回复于 2003-08-01 13:40:08 得分 0
Set rs = Server.CreateObject("ADODB.Recordset")
strsql = "select name,lb from yourtable order by name desc,lb desc"
rs.open strsql, conn, adOpenForwardOnly, adLockReadOnly
dim sOldName
sOldName = ""
do while not rs.eof
if sOldName <> rs.fields(0).value then
response.write " "
response.write rs.fields(0).value
response.write <br>
sOldName = rs.fields(0).value
end if
response.write " "
response.write " "
response.write rs.fields(1).value
response.write <br>
rs.movenext
loop
rs.closeTop
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
