MyException - 我的异常网
当前位置:我的异常网» ASP » 一个对于小弟我来说很难的有关问题,郁闷了几天的,

一个对于小弟我来说很难的有关问题,郁闷了几天的,大哥大姐们帮帮忙吧

www.MyException.Cn  网友分享于:2013-02-06  浏览:1次
一个对于我来说很难的问题,郁闷了几天的,大哥大姐们帮帮忙吧!
问题如下:数据库中有表   num_table   表中有记录如下:
字段:    
NID         N_Time             N_Num
-----------------------------
2007         10:10:00           a
2007         10:02:00           a
2007         10:01:00           a
2006         09:22:00           b
2006         09:20:00           b
2005         08:20:00           c
------------------------------
问题是想在也面中输出一个表格,想要得到的结果如下:
┎───┯──────┯────┒
│2007     │10:10:00  │    │
┖───────────    │
│2007 │10:02:00  │ a           │就是把NID相同的N_Num的单元格合并
┖───────────    │
│2007 │10:02:00  │    │
┖───────────────┚
│2006 │09:22:00  │    │
┖───────────     b           │
│2006 │09:20:00  │    │
┖───────────────┚
│2005 │08:20:00  │ c     │
┖───────────────┚

写这个表好久哦,不知道大家看明白了吗?就是把数据中NID相同的对应的N_Num的单元格合并,不管大家用什么方法,只要能实现上面的表格就好。小生在此谢过了!




------解决方案--------------------
set rs=conn.execute( "select NID,N_Time,N_Num,(select count(NID) from num_table where N_Num=a.N_Num group by N_Num) as N_Count from num_table as a order by N_Num ")
NowNum= " "
do while not rs.eof
response.write " <tr> <Td> NID </td> <td> N_Time </td> "
if NowNum <> rs( "N_Num ") then
NowNum=rs( "N_Num ")
response.write " <td rowspan= "&rs( "N_Count ")& "> N_Num </td> "
end if
response.write " </tr> "
rs.movenext
loop
------解决方案--------------------
<%
set conn=server.CreateObject( "adodb.connection ")
str= "driver={microsoft access driver (*.mdb)};dbq= " & server.MapPath( "示例.mdb ")
conn.open str
sql= "select N_NUM,count(*) as num from demo group by N_NUM order by N_NUM "
set rs=conn.execute(sql)
dim n(),num()
i=0
do while not rs.eof
redim preserve n(i) '用于统计有多少个相同的N_NUM
redim preserve num(i) '同时记下N_NUM的内容
n(i)=rs( "num ")
num(i)=rs( "N_NUM ")
i=i+1
rs.movenext
loop
sql= "select * from demo order by N_NUM "
set rs=conn.execute(sql)
response.write " <table border=1> "
i=0:j=0
do while not rs.eof
response.Write( " <tr> ")
response.Write " <td> " & rs( "NID ") & " </td> "
response.Write " <td> " & rs( "N_TIME ") & " </td> "
if j=0 then response.Write " <td rowspan= " & n(i) & "> " & num(i) & " </td> "
if rs( "N_NUM ") <> num(i) then
i=i+1
response.Write " <td rowspan= " & n(i) & "> " & num(i) & " </td> "
end if
rs.movenext
j=j+1
response.Write( " </tr> ")
loop
response.Write( " </table> ")
set conn=nothing
%>


可能不是最好的,但是能实现你要求的效果。

文章评论

我是如何打败拖延症的
我是如何打败拖延症的
旅行,写作,编程
旅行,写作,编程
Web开发人员为什么越来越懒了?
Web开发人员为什么越来越懒了?
程序员最害怕的5件事 你中招了吗?
程序员最害怕的5件事 你中招了吗?
如何成为一名黑客
如何成为一名黑客
程序员应该关注的一些事儿
程序员应该关注的一些事儿
“肮脏的”IT工作排行榜
“肮脏的”IT工作排行榜
Java 与 .NET 的平台发展之争
Java 与 .NET 的平台发展之争
初级 vs 高级开发者 哪个性价比更高?
初级 vs 高级开发者 哪个性价比更高?
为啥Android手机总会越用越慢?
为啥Android手机总会越用越慢?
程序员的鄙视链
程序员的鄙视链
老程序员的下场
老程序员的下场
要嫁就嫁程序猿—钱多话少死的早
要嫁就嫁程序猿—钱多话少死的早
总结2014中国互联网十大段子
总结2014中国互联网十大段子
团队中“技术大拿”并非越多越好
团队中“技术大拿”并非越多越好
5款最佳正则表达式编辑调试器
5款最佳正则表达式编辑调试器
亲爱的项目经理,我恨你
亲爱的项目经理,我恨你
聊聊HTTPS和SSL/TLS协议
聊聊HTTPS和SSL/TLS协议
10个帮程序员减压放松的网站
10个帮程序员减压放松的网站
一个程序员的时间管理
一个程序员的时间管理
程序员都该阅读的书
程序员都该阅读的书
代码女神横空出世
代码女神横空出世
看13位CEO、创始人和高管如何提高工作效率
看13位CEO、创始人和高管如何提高工作效率
程序员必看的十大电影
程序员必看的十大电影
我跳槽是因为他们的显示器更大
我跳槽是因为他们的显示器更大
中美印日四国程序员比较
中美印日四国程序员比较
程序员周末都喜欢做什么?
程序员周末都喜欢做什么?
漫画:程序员的工作
漫画:程序员的工作
科技史上最臭名昭著的13大罪犯
科技史上最臭名昭著的13大罪犯
10个调试和排错的小建议
10个调试和排错的小建议
Java程序员必看电影
Java程序员必看电影
程序员和编码员之间的区别
程序员和编码员之间的区别
程序员的一天:一寸光阴一寸金
程序员的一天:一寸光阴一寸金
不懂技术不要对懂技术的人说这很容易实现
不懂技术不要对懂技术的人说这很容易实现
Web开发者需具备的8个好习惯
Web开发者需具备的8个好习惯
每天工作4小时的程序员
每天工作4小时的程序员
我的丈夫是个程序员
我的丈夫是个程序员
“懒”出效率是程序员的美德
“懒”出效率是程序员的美德
60个开发者不容错过的免费资源库
60个开发者不容错过的免费资源库
当下全球最炙手可热的八位少年创业者
当下全球最炙手可热的八位少年创业者
为什么程序员都是夜猫子
为什么程序员都是夜猫子
什么才是优秀的用户界面设计
什么才是优秀的用户界面设计
 程序员的样子
程序员的样子
程序猿的崛起——Growth Hacker
程序猿的崛起——Growth Hacker
鲜为人知的编程真相
鲜为人知的编程真相
软件开发程序错误异常ExceptionCopyright © 2009-2015 MyException 版权所有