分页取出下标小方法

来源:互联网 发布:淘宝开店教学大纲 编辑:程序博客网 时间:2024/06/12 01:48
Public Function GetRows(agrRs)If Not agrRs.Eof ThenGetRows = agrRs.GetRows()ArrNum = Ubound(GetRows,2)elseArrNum = -1end ifagrRs.Close : Set agrRs = NothingEnd Function

将表读出后对象传入,转化为数组,取出下标,并关闭数据库!
原创粉丝点击