Issue 4: 产生错误:运行时错误 6 溢出
Status:  Accepted
Owner:
Project Member Reported by deepcast, Aug 24, 2007
What steps will reproduce the problem?
1. 准贷记卡明细表记录有10万多条
2. 导出准贷记卡明细表为EXCEL时

What is the expected output? What do you see instead?
1, 正确应该导出65536条记录
2. 产生错误:运行时错误 6 溢出

Please use labels and text to provide additional information.
溢出,EXCEL



Aug 24, 2007
Project Member #1 deepcast
把Excel输出函数的记录数记录Irowcount的定义改为Long即可

Public Function ExporToExcel(strOpen As String)
'*********************************************************
'* 名称:ExporToExcel
'* 功能:导出数据到EXCEL
'* 用法:ExporToExcel(sql查询字符串)
'*********************************************************
Dim Rs_Data As New ADODB.Recordset
'Dim Irowcount As Integer
'Dim Icolcount As Integer
Dim Irowcount As Double '在vb中integer的长度2字节,最大只有65536/32768(算正负号),否则溢出错
误.
Dim Icolcount As Double