头痛……,这样还出错!
I2K 2004-12-03 03:51:12 Do While Not objRS.EOF
iRow = iRow + 1
iCol = iColOffset
For Each objField in objRS.Fields
If IsNull(objField.Value) or (objField.Value & "" = "") or (isEmpty(objField.Value)) then
objSpreadsheet.Cells(iRow, iCol).Value = ""
Else
objSpreadsheet.Cells(iRow, iCol).Value = objField.Value
End if
……
这一行还是报错: objSpreadsheet.Cells(iRow, iCol).Value = objField.Value
字段的空值问题,救命啊?!!