for int_n as integer = 0 to gvReport.rows.count -1 listaDataFiledText.Add(gvReporte.rows(int_n).cells(i).text) next