1. 首先,打开EXCEL窗体,如下图所示:
2。只需在其中输入文本进行观察。
3. 单击要开始排序的号码。例如,在这里,我想按顺序排列6中的数字。按住键盘上的CTRL键,然后将鼠标放在红色框中。单元格的右下角将出现一个加号(),然后将其下拉。
4. 最终效果如下。
5. 按照以上步骤,不仅可以下拉完成数字序列的自动输入,而且还可以对。按照前面输入数字的方法,从左到右
这个排序作分类是必须碰到的。 你这个sort不是 唯一标识 实现起来还是比较简单的。查询的时候 按照 sort排序。
点击上移或者下移 就是把 sort数值进行更新,临近数值的交换,
另外还要判断是否最顶或者最低。
<a href="do.aspx?action=Order&type=Down&id=4">下移</a>
<a href="do.aspx?action=Order&type=Up&id=4">上移</a>
<%
Dim ordertype,id
id=request("id")
ordertype=request("type")
If ordertype="Down" Then
sql="select top 2 sort from Class where id <= "&id&" order by sort desc"
Elseif ordertype="Up" Then
sql="select top 2 sort from Class where id >= "&id&" order by sort asc"
End If
set rs=server.createobject("Adodb.recordset")
rs.open sql,conn,1,3
Dim i
i= 0
If rs.recordcount=1 Then
If ordertype="Down" Then
response.Write("已经是最底部了。")
Elseif ordertype="Up" Then
response.Write("已经是最顶部了。")
End If
Else
Dim temp_this,temp_next
temp_this=rs("sort")
rs.movenext
temp_next=rs("sort")
rs.MovePrevious
rs("sort")=temp_next
rs.movenext
rs("sort")=temp_this
rs.update
End If
rs.close
set rs=nothing
%>
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)