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
