我的一片天
我的一片天
posts - 27, comments - 12, trackbacks - 0, articles - 16
::
首页
::
新随笔
::
联系
:: ::
管理
TABLE的排序
Posted on 2007-10-16 21:03
xyz
阅读(480)
评论(1)
编辑
收藏
引用
所属分类:
DHTML
以前学的冒泡排序法,久不用,差点用错。
<
script language
=
"
vbscript
"
>
sub
doSort()
set
ob
=
window.event.srcElement
if
ob.tagName
<>
"
TD
"
then
exit
sub
sortDir
=
""
&
ob.getAttribute(
"
sortDir
"
)
if
sortDir
=
""
then
sortDir
=
1
'
第一次点进行升序排列
else
sortDir
=-
1
*
clng
(sortDir)
end
if
idx
=
ob.cellIndex
do
while
true
if
ob.tagName
=
"
TABLE
"
then
exit
do
set
ob
=
ob.parentElement
loop
cnt
=
ob.rows.length
fromIdx
=
0
for
i
=
fromIdx
to
cnt
-
1
set
trOb1
=
ob.rows(i)
cTxt
=
trOb1.cells(idx).innerText
sort
=-
1
for
j
=
i
+
1
to
cnt
-
1
set
trOb2
=
ob.rows(j)
cTxt2
=
trOb2.cells(idx).innerText
if
sortDir
>
0
then
if
cTxt
>
cTxt2
then
sort
=
j
cTxt
=
cTxt2
end
if
else
if
cTxt
<
cTxt2
then
sort
=
j
cTxt
=
cTxt2
end
if
end
if
next
if
sort
>
0
then
ob.rows(i).swapNode ob.rows(sort)
next
set
tdOb
=
ob.rows(fromIdx).cells(idx)
tdOb.setAttribute
"
sortDir
"
,sortDir
end sub
</
script
>
<
table border
=
1
onclick
=
"
doSort
"
>
<
tr
><
td
>
3
(
1
)
</
td
><
td
>
a
</
td
><
td
>
在
</
td
><
td
>
2007
-
1
-
2
</
td
><
td
>
1a
</
td
><
td
>&
nbsp;
</
td
></
tr
>
<
tr
><
td
>
6
(
2
)
</
td
><
td
>
x
</
td
><
td
>
干
</
td
><
td
>
2006
-
5
-
1
</
td
><
td
>
ab2
</
td
><
td
>
y5t
</
td
></
tr
>
<
tr
><
td
>
8
(
3
)
</
td
><
td
>
f
</
td
><
td
>
哈
</
td
><
td
>
2007
-
3
-
5
</
td
><
td
>
3hgda
</
td
><
td
>
566
</
td
></
tr
>
<
tr
><
td
>
7
(
4
)
</
td
><
td
>
3
</
td
><
td
>
我
</
td
><
td
>
2005
-
10
-
5
</
td
><
td
>
f5465
</
td
><
td
>
32
</
td
></
tr
>
<
tr
><
td
>
2
(
5
)
</
td
><
td
>
b
</
td
><
td
>
啊
</
td
><
td
>
2005
-
2
-
5
</
td
><
td
>
6dgdf
</
td
><
td
>
77
</
td
></
tr
>
<
tr
><
td
>
6
(
6
)
</
td
><
td
>
n
</
td
><
td
>
是
</
td
><
td
>
2008
-
5
-
6
</
td
><
td
>
2gda
</
td
><
td
>
2004
-
5
-
1
</
td
></
tr
>
<
tr
><
td
>
2
(
7
)
</
td
><
td
>
u
</
td
><
td
>
吗
</
td
><
td
>
2004
-
2
-
10
</
td
><
td
>
1rds
</
td
><
td
>
哈哈
</
td
></
tr
>
</
table
>
Feedback
#
re: TABLE的排序
回复
更多评论
2008-11-04 21:18 by
vvb
http://www.cnblogs.com/cloudgamer/archive/2008/10/06/1304414.html
试试这个
刷新评论列表
只有注册用户
登录
后才能发表评论。
Powered by:
IT博客
Copyright © xyz
日历
<
2024年11月
>
日
一
二
三
四
五
六
27
28
29
30
31
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
1
2
3
4
5
6
7
公告
常用链接
我的随笔
我的评论
我参与的随笔
随笔分类
3DMAX
Delphi(14)
DHTML&ASP(3)
Lua(4)
VC6(2)
随笔档案
2011年6月 (2)
2011年5月 (1)
2010年5月 (4)
2009年11月 (1)
2009年10月 (3)
2009年9月 (1)
2009年8月 (2)
2009年7月 (1)
2009年5月 (2)
2009年4月 (1)
2008年8月 (3)
2008年7月 (1)
2008年3月 (3)
2007年9月 (2)
文章分类
3DMAX(1)
DELPHI(5)
DHTML(4)
WIN32汇编(3)
系统及安全(3)
搜索
最新评论
1. re: 汉字ASC码再ASP下还原成汉字
地方v
--舍得茶坊
2. re: Lua新手上路之千里之行始于足下(DELPHI)
不是应该返回100的么
--sohi
3. re: Lua新手上路之千里之行始于足下(DELPHI)
用floattostr 转换了一下返回是0
--sohi
4. re: Lua新手上路之千里之行始于足下(DELPHI)
attempt to call a number value
Delphi 7
--sohi
5. re: Lua新手上路之瞎子摸象(DELPHI)
LZ讲的很清晰,3Q
--turtle_2
阅读排行榜
1. Delphi的clientSocket的Socket.SendBuf(4138)
2. ICS中TWSocketServer的使用步骤(2871)
3. Lua新手上路之瞎子摸象(DELPHI)(2806)
4. Lua新手上路之小试牛刀(DELPHI) (2142)
5. TServerSocket在阻塞模式下的多线程(1831)