vmDillenburg
-
Total de itens
3 -
Registro em
-
Última visita
Tudo que vmDillenburg postou
-
dim sDefeito as string = "" dim iDefeitos as integer dim lista as new ArrayList() dim oRow as DataRow for i as integer = 0 to dt.rows.count -1 if sDefeito = dt.rows(i)("DEFEITO").ToString() lista.add(i) iDefeitos = iDefeitos + 1 sDefeito = dt.rows(i)("DEFEITO").ToString() else oRow = dt.NewRow() oRow("DEFEITO") = sDefeito oRow("QUANTIDADE") = iDefeitos dt.rows.add(oRow) next for i as integer = lista.count - 1 to 0 step -1 dt.rows(i).delete() next
-
baixe o visual studio.
-
este não é um fórum de .NET? para WebForms o comando seria Response.Write("<script>window.print()</script>")