在asp.net中使用excel模板

核心提示：For iRow = 0 To dt.Rows.Count - 1dr = dt.Rows.Item(iRow)ary = dr.ItemArrayFor iCol = 0 To UBound(ary)oCells(iRow + 3, iCol + 1) = ary(iCol).ToStringResponse.Wri

　　For iRow = 0 To dt.Rows.Count - 1

　　　　dr = dt.Rows.Item(iRow)

　　　　ary = dr.ItemArray

　　　　For iCol = 0 To UBound(ary)

　　　　　　oCells(iRow + 3, iCol + 1) = ary(iCol).ToString

　　　　　　Response.Write(ary(iCol).ToString & vbTab)

　　　　Next

　　Next

End Function