Outro problema na combobox

[Rodrigo Defende 0]

Tenha esta funcao:

Public Sub MontaCombo(ByVal Objeto As ComboBox, ByVal nmTabela As String, ByVal nmCampo As String, ByVal nmId As String, ByVal Criterio As String)

		Try
			Dim Sql As String
			Dim Ds As DataSet = New DataSet

			Sql = "Select " & nmId & "," & nmCampo & " From " & nmTabela & Criterio

			Dim Da As New MySqlDataAdapter(Sql, Cn)
			Da.Fill(Ds, nmTabela)
			Dim Dv As DataView = Ds.Tables(nmTabela).DefaultView

			With Objeto
				.DataSource = Dv
				.DisplayMember = UCase(nmCampo).ToString
				.ValueMember = nmId
			End With

			Ds.Dispose()

		Catch ex As Exception
			MsgBox(ex.Message)
		End Try

	End Sub

Porque ela nao me tras todos os dados da tabela em quastao. tras apenas o primeiro.

Eu chamo ela assim:

MontaCombo(cbUser, "tbl_login", "login", "idlogin", " Order By login ASC")

Esse combox ja te me deixando de cabelo branco.....

[quintelab 91]

De uma olhada neste artigo do Macoratti, acredito que será útil: http://www.macoratti.net/vbn_cbo.htm

 

Abraços...

[Rodrigo Defende 0]

Cara ja reli esse artigo milhao de vezes.

 

Sera que nao poder alguma configuracao na propria combobox, tipo Style ou coisa assim?

 

O select esta certo pois esta retornando dados testado direto na base

[quintelab 91]

Cara tem certeza que na sua tabela tem mais de um registro. Já testou sua query direto no banco. Pois testei seu código e deu certinho, funcionou corretamente.

 

Abraços...

[Rodrigo Defende 0]

Ja testei sim - tem 3 registros.

A combo carrega apenas o primeiro registro da tabela.

 

Realmente muito estranho isso ai.