'判断一个字段是否在表中 Function BlnField(sTblName As String, sFldName As String) As Boolean 'sTblName 源表名 '要查找的字段名 Dim fld As Field Dim rs As DAO.Recordset BlnField = False Set rs = CurrentDb.OpenRecordset(sTblName) rs.Fields.Refresh For Each fld In rs.Fields If fld.Name = sFldName Then BlnField = True Exit For End If Next rs.Close Se...[ 查看全文 ]
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中...[ 查看全文 ]
************************************** */ package vod; import java.sql.*; import java.util.*; public class PageCt { private long l_start; //开始纪录 private long l_end; //结束纪录 private long l_curpage; //当前页数 private long l_totalnum;//总记录数 private int int_num=5; //每页10条 private long l_totalpage; //总的页数 public void Init(long currentpage,long totalnum) { l_...[ 查看全文 ]