排序Select中Option项的一个示例

2016-01-29 14:11 153 1 收藏

排序Select中Option项的一个示例,排序Select中Option项的一个示例

【 tulaoshi.com - Delphi 】

 
Form中的Select控件不支持对选择项(Option)的排序,下面我将对Option中value属性值进行排序,并调整每个Option排序后的位置,具体代码如下(这里假设每个Option中的value与其中的text内容相同):

  该函数运用了Array(数组)对象的排序(sort)方法,实现了Select排序。



function sortMe(oSel){
var ln = oSel.options.length;
var arr = new Array(); // 这是关键部分

// 将select中的所有option的value值将保存在Array中
for (var i = 0; i < ln; i++)
{

  // 如果需要对option中的文本排序,可以改为arr[i] = oSel.options[i].text;
  arr[i] = oSel.options[i].value;

}

arr.sort(); // 开始排序

// 清空Select中全部Option

while (ln--)
{
  oSel.options[ln] = null;
}

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/delphi/)

// 将排序后的数组重新添加到Select中

for (i = 0; i < arr.length; i++)
{
  oSel.add (new Option(arr[i], arr[i]));
}
}
</script


(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/delphi/) 

来源:http://www.tulaoshi.com/n/20160129/1492709.html

延伸阅读
标签: ASP
  <% dim conn dim strconn dim rs dim strsql dim strsql2 dim strsql3 dim strsql4 dim strsql5 dim strsql6 dim strsql7 dim strsql8 'strconn = Driver={SQL Server};Description=example;SERVER=222.222.1.2;UID=webexample;PWD=;DATABASE=webexample" 'Format Declare & EXEC statements that will be passed 'to t...
标签: Web开发
请选择报告类型 月度报告 季度报告 半年报告 年度报告 [Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]
  Ehlib3.0版本以上虽然支持排序功能,但不支持带有Order By的SQL语句,而且排序很慢;我写的这个排序函数,利用ADO的sort方法,排序很快,几万条数据也是很快。该函数支持Lookup字段排序,不支持计算字段排序,因为计算字段值在内存里高速运算。排序分为:升序、降序和默认三种,支持排序图标。 procedure   SortDBG...
标签: Web开发
这里是js的代码: 代码如下: jQuery.fn.size = function() { return jQuery(this).get(0).options.length; } //获得选中项的索引 jQuery.fn.getSelectedIndex = function() { return jQuery(this).get(0).selectedIndex; } //获得当前选中项的文本 jQuery.fn.getSelectedText = function() { if(this.size() == 0) { return ...
标签: ASP
  asp中有很多的文章在研究如何提高asp程序的执行效率,我们 得出结论 在<% 和 % 之间的代码执行的速度要高于 在这个 标签之外的代码,我们有没有想过 如何重复的利用这些在标签之外的代码呢? 有的人可能觉得 这个没有什么意义!但是我们可以 怀着 一种很轻松的心态来看看下面这个例子,看看 我们得到了什么有趣的现象!在这个例子中,...

经验教程

976

收藏

40
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部