tri d'un tableau par ordre alphabétique

tri d'un tableau par ordre alphabétique - VB/VBA/VBS - Programmation

Marsh Posté le 30-03-2007 à 13:56:45    

Bonjour à tous,
 
Je developpe un site dans lequel je reçoit des données au format XML ces données sont en fait un tableau avec plusieurs colonnes ID, NOM, COMMUNE et CLASSEMENT.  
 
Le but de la page est d'afficher les communes rangées par ordre alphabétique.
 
Pour l'instant mon code est :  
 
 
Code :
 

Code :
  1. <%@ Page Language="VB" %>
  2. <%@ Import Namespace="System.Xml" %>
  3. <%@ Import Namespace="System.Data" %>
  4. <%@ Import Namespace="System.Data.OleDb" %>
  6. <script runat="server">
  8.     Public xmldoc As New XmlDataDocument()
  9.     Private idmodule As String = "module.xml"
  10.  
  11.     Sub Page_Load(ByVal obj As Object, ByVal e As EventArgs)
  12.      
  13.        
  14.         Try
  15.             xmldoc.DataSet.ReadXml(idmodule)
  17.             xmldoc.DataSet.Tables(0).DefaultView.Sort = "commune ASC"
  18.             DataGrid1.DataSource = xmldoc.DataSet.Tables(0).DefaultView
  19.             DataGrid1.DataBind()
  20.             Afficher(xmldoc.DataSet)
  22.         Catch ex As Exception
  23.         End Try
  24.      
  25.        
  26.     End Sub
  27.     Function Afficher(ByVal Dset As DataSet)
  28.         Dim Dr As DataRow
  30.         Dim id As String
  32.         Dim nom As String         ' nom
  33.         Dim commune As String     ' commune
  34.         Dim classement As String  ' classment
  36.         For Each Dr In Dset.Tables(0).Rows
  37.             ' pour chaque ligne du dataset
  38.            
  39.             nom = Dr(10).ToString()    'colonne nom
  40.             id = Dr(0).ToString()
  41.          
  42.             commune = Dr(8).ToString()    'colonne commune
  43.            
  44.             classement = Dr(11).ToString()    'colone classment
  46.            
  48.             Dim Tr As New TableRow          ' nouvelle ligne
  50.             Dim Cel_nom As New TableCell       ' cellule nom
  51.             Dim Cel_commune As New TableCell       ' cellule nom
  52.             Dim Cel_classement As New TableCell       ' cellule nom
  56.          
  57.             Cel_nom.Text = nom
  58.             Cel_commune.Text = commune
  59.             Cel_classement.Text = classement
  61.             Tr.Cells.Add(Cel_nom)
  62.             Tr.Cells.Add(Cel_commune)
  63.             Tr.Cells.Add(Cel_classement)
  64.              
  65.             Me.Table1.Rows.Add(Tr)
  66.                
  68.            
  69.         Next
  71.         Return 1
  72.      
  73.     End Function
  75. </script>
  79. <!--#include file="1.aspx" -->
  82. <form id="Form1" action="" method="get" runat="server">
  83.      <asp:Table ID="Table1" border="0" CellSpacing="10" runat="server" Font-Size="12px">
  84.         </asp:Table></span>
  85. </form>
  86.  
  89. <asp:DataGrid id="DataGrid1" runat="server"
  90.          BorderColor="black"
  91.          GridLines="Vertical"
  92.          cellpadding="4"
  93.          cellspacing="0"
  94.          width="450"
  95.          Font-Name="Arial"
  96.          Font-Size="8pt"
  97.          HeaderStyle-BackColor="#cc9966"
  98.          FooterStyle-BackColor="#cccc99"
  99.          ItemStyle-BackColor="#ffffff"
  100.          AlternatingItemStyle-Backcolor="#cccccc" />
  101.          <!--#include file="2.aspx" -->


 
Ma datarid me sert juste d'affichage de données, la finalité de ma page web est d'afficher dans un tableau (objet asp:Table) la liste des communes par ordre alphabétique.
 
 
Merci de votre aide.

Reply

Marsh Posté le 30-03-2007 à 13:56:45   

Reply

Marsh Posté le 30-03-2007 à 15:09:56    

et en quoi on doit pouvoir t'aider ?

Reply

Marsh Posté le 02-04-2007 à 14:34:54    

Effectivement, l'emploi de VB semble ici étrange, pourquoi ne par trier tes données xml via xsl, avec la fonction sort :
 
<xsl:sort select="Commune"/>
 
par exmple ?

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed