 
			
				28/02/2007, 16:08
			
			
			     |  
      |    |    |    Fecha de Ingreso: junio-2006  
						Mensajes: 109
					  Antigüedad: 19 años, 4 meses Puntos: 2     |        |  
  |      Re: primer elemento de datalist        Te recomendaria que utilizaras colecciones typeadas con eso ahorras mucho trabajo, pero ahi te va como recorres el datalist   
Private Sub SelectDataList() 
        Dim lista As DataList = New DataList 
        Dim ds As DataSet = New DataSet 
        ds = Run() 
        If ds.Tables.Count > 0 Then 
            lista.DataSource = ds.Tables(0) 
            lista.DataBind() 
            Dim i = 0 
            //aqui recorres el datalist 
            For i = 0 To lista.Items.Count 
//aqui coloca lo que quieres hacer con los elementos del datalist 
            Next 
        End If 
    End Sub   
    Private Function Run() As DataSet 
        Dim myConnection As SqlConnection 
        Dim mySqlDataAdapter As SqlDataAdapter   
        Try 
            Dim myDataSet As DataSet = New DataSet   
            myConnection = New SqlConnection("Server=.; UID=sa; PWD=sa; Initial Catalog=northwind; Connect Timeout=15000") 
            mySqlDataAdapter = New SqlDataAdapter("select * from customers", myConnection)   
            mySqlDataAdapter.Fill(myDataSet, "Customers")   
            Return myDataSet 
        Catch e As Exception 
            Mensaje(e.ToString()) 
        End Try   
    End Function   
    Public Sub Mensaje(ByVal strMensaje As String) 
        Me.Page.RegisterStartupScript("Mensaje", ("<script language=javascript> alert('" & strMensaje & "');</script>")) 
    End Sub            |