none
Em VB 2010, como ordenar alfabeticamente utilizando bindingsource? RRS feed

  • Pergunta

  • Tenho um formulário com alguns textboxes.
    Estou carregando os textboxes através de binding, porém os dados estão desordenados.
    Gostaria que os dados fossem carregados em ordem alfabética tomando como base o campo "Nome" do banco de dados Access.
    Por enquanto meu código está assim, mas a parte Sort não está funcionando.
    O que está faltando?
    Poderia escrever a parte do código que está faltando?
    Sou iniciante.
    Imports System.Data.OleDb
    Imports System.Data.Common
    Public Class frmAgenda
        Private Sub Tb_dadosBindingNavigatorSaveItem_Click(sender As System.Object, e As System.EventArgs)
            Me.Validate()
            Me.Tb_dadosBindingSource.EndEdit()
            Me.TableAdapterManager.UpdateAll(Me.Banco_de_AgendaDataSet)
            Me.Banco_de_AgendaDataSet.AcceptChanges()
        End Sub
        Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
            'TODO: This line of code loads data into the 'Banco_de_AgendaDataSet.tb_dados' table. You can move, or remove it, as needed.
            '
            Me.Tb_dadosTableAdapter.Fill(Me.Banco_de_AgendaDataSet.tb_dados)
            ' Dim dados As New DataTable
            BindingSource1.DataSource = Me.Banco_de_AgendaDataSet.tb_dados
            BindingSource1.Sort = "Nome DESC"
            mostraQtdReg()
           
           
        End Sub
       
        Private Sub mostraQtdReg()
            TextBox1.Text = Me.Tb_dadosBindingSource.Position + 1 & " / " & Me.Tb_dadosBindingSource.Count
        End Sub
        Private Sub btnProximo_Click(sender As System.Object, e As System.EventArgs) Handles btnProximo.Click
            Me.Tb_dadosBindingSource.MoveNext()
            mostraQtdReg()
        End Sub
        Private Sub btnAnterior_Click(sender As System.Object, e As System.EventArgs) Handles btnAnterior.Click
            Me.Tb_dadosBindingSource.MovePrevious()
            mostraQtdReg()
        End Sub
        Private Sub btnUltimo_Click(sender As System.Object, e As System.EventArgs) Handles btnUltimo.Click
            Me.Tb_dadosBindingSource.MoveLast()
            mostraQtdReg()
        End Sub
        Private Sub btnPrimeiro_Click(sender As System.Object, e As System.EventArgs) Handles btnPrimeiro.Click
            Me.Tb_dadosBindingSource.MoveFirst()
            mostraQtdReg()
        End Sub
        Private Sub btnAdicionar_Click(sender As System.Object, e As System.EventArgs) Handles btnAdicionar.Click
            Me.Tb_dadosBindingSource.AddNew()
            mostraQtdReg()
        End Sub
        Private Sub btnExcluir_Click(sender As System.Object, e As System.EventArgs) Handles btnExcluir.Click
            Me.Tb_dadosBindingSource.RemoveCurrent()
            mostraQtdReg()
        End Sub
        Private Sub btnCancelar_Click(sender As System.Object, e As System.EventArgs) Handles btnCancelar.Click
            Me.Tb_dadosBindingSource.CancelEdit()
            mostraQtdReg()
        End Sub
        Private Sub btnSalvar_Click(sender As System.Object, e As System.EventArgs) Handles btnSalvar.Click
            Me.Tb_dadosBindingSource.EndEdit()
            Me.TableAdapterManager.UpdateAll(Me.Banco_de_AgendaDataSet)
            Me.Banco_de_AgendaDataSet.AcceptChanges()
            mostraQtdReg()
        End Sub
        Private Sub Tb_dadosBindingNavigatorSaveItem_Click_2(sender As System.Object, e As System.EventArgs) Handles Tb_dadosBindingNavigatorSaveItem.Click
            Me.Validate()
            Me.Tb_dadosBindingSource.EndEdit()
            Me.TableAdapterManager.UpdateAll(Me.Banco_de_AgendaDataSet)
        End Sub
        Private Sub Tb_dadosBindingNavigatorSaveItem_Click_1(sender As System.Object, e As System.EventArgs)
        End Sub
    End Class

    sexta-feira, 6 de janeiro de 2012 21:30

Respostas