Soyez le premier à donner votre avis sur cette source.
Snippet vu 12 077 fois - Téléchargée 39 fois
<%@ Page Language="VB" %> sub ouonaffichedatatable(...) 'ndc est à remplacer par le nombre de colonnes-1 dim a(ndc),numligne,i,num as integer dim rapport as datatable=new datatable 'à mettre juste avant l'affichage: numligne=rapports.rows.count if numligne>1 then for i=0 to numligne-1 randomize num=int(rnd*(numligne-i))+i a(0)=rapport.rows(num).item("colonne1") '...une ligne par colonne... a(ndc)=rapport.rows(num).item("dernière colonne") rapport.rows(num).item("colonne1")=rapport.rows(i).item("colonne1") '...une ligne par colonne... rapport.rows(num).item("dernière colonne")rapport.rows(i)("dernière colonne") rapport.rows(i).item("colonne1")=a(0) '...une ligne par colonne... rapport.rows(i).item("dernière colonne")=a(ndc) next end if 'maintenant on affiche ledatagrid.datasource=rapport ledatagrid.databind end sub
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.