.........
DA.Fill(DS, "sheet")
Dim iColumn, iRow As Integer
Dim iColumnMax, iRowMax As Integer
iRowMax = DS.Tables(0).Rows.Count - 1
iColumnMax = DS.Tables(0).Columns.Count - 1
For iRow = 0 To iRowMax
For iColumn = 0 To iColumnMax
.Cells(iRow + 2, iColumn + 1).Value = DS.Tables(0).Rows(iRow).Item(iColumn)
Next
Next
that's the way i am filling the excel sheet, but sometimes it takes almost 1 hour with big wuerie, so i decided to try something else like put firstly the values from dataset to array and then fill the sheet in one shoot. Could someone show me how i could do that on my above example?
thanks & regards

New Topic/Question
Reply




MultiQuote







|