'***************************************** ' 类型： 属性 ' 目的： 设置显示标题时单元格的宽度 ' 输入： a_strTleWidth:单元格宽度字符串 ' 返回： 无 '***************************************** Public Property Let TleWidth(a_strWidth) SW_strTleWidth = a_strWidth End Property
'***************************************** ' 类型： 属性 ' 目的： 设置显示标题时单元格分隔线的类型 ' 输入： a_intBDType 单元格分隔线的类型 ' 返回： 无 '***************************************** Public Property Let TleBDType(a_intBDType) SW_intTleBDType = a_intBDType End Property
'***************************************** ' 类型： 过程 ' 目的： 统计总记录数、计算总页数 ' 输入： 无 ' 返回： 无 '***************************************** Sub Init() Dim intPostion,strError,i,objRSTemp,lngTotalRecord
If Not (SW_blnConn and SW_blnOpenRS and SW_blnPageSize and SW_blnGetURL) Then Call ShowErrors() Exit Sub End If
If SW_objRS.Eof And SW_objRS.Bof Then strError = strError & "<br>库中无任何记录" End If
'计算总计录数 Set objRSTemp = SW_objConn.Execute("SELECT * FROM SW_RecCount") lngTotalRecord = CLng(objRSTemp("SW_RecCount").Value) SW_lngTotalRecord = lngTotalRecord If (SW_lngTotalRecord<=2147483647 AND SW_lngTotalRecord>=-2147483648) Then SW_lngTotalRecord = CLng(SW_lngTotalRecord) Else strError = strError & "<br>分页初始化时：总记录数溢出" End If If SW_lngTotalRecord <=0 Then strError = strError & "<br>分页初始化时：总记录数小于零"
'计算总页数 If SW_lngTotalRecord Mod SW_intPageSize = 0 Then SW_lngTotalPage = CLng(SW_lngTotalRecord \ SW_intPageSize * -1)*-1
精品推荐