'==============================================='PageSize 属性'设置每一页的分页大小'===============================================Public Property Let PageSize(int_PageSize) If IsNumeric(Int_Pagesize) Then XD_PageSize=CLng(int_PageSize) Else str_error=str_error & "PageSize的参数不正确" ShowError() End IfEnd Property