Textbox com conteudo respectivo para outra textbox

[Diogo Ribeiro]

Boas.

Estou com um pequeno problema em que tenho duas textbox.,

E pretendia inserir um valor numa text e que a outra text preenche sozinha.

Eu tenho o seguinte código mas não esta a resultar.

PaísesBindingSource.MoveFirst()
	Dim encontrou As Boolean = False
	Dim x As Integer = 0


	While PaísesBindingSource.Count > 1
		x = x + 1

		If PaísesBindingSource.Current("CodPais") = CodPaísTextBox.Text Then
			PaísTextBox.Text = PaísesBindingSource.Current("País")
		End If
		PaísesBindingSource.MoveNext()
	End While

Edited May 16, 2012 at 01:59 PM by Caça
GeSHi

[thoga31]

Utiliza o evento TextChanged da Textbox onde estás a escrever para ir actualizando o texto na outra.

[Diogo Ribeiro]

Boas,

Eu estava a utilizar o evento leave,

E mesmo com textchange, quando chego a essa parte o programa "não responde".

Existe outra mais de o fazer

[thoga31]

EDIT: percebi mal o teu código, deixa-mo analisar bem...

EDIT2: ok, não terás algo mal na condição do While? Aquilo parece-me que dê sempre True...

Edited May 16, 2012 at 03:08 PM by thoga31

[Diogo Ribeiro]

Boas,

PaísesBindingSource.MoveFirst()

Dim encontrou As Boolean = False

Dim x As Integer = 0

While PaísesBindingSource.Count > 1

x = x + 1

If PaísesBindingSource.Current("CodPais") = CodPaísTextBox.Text Then

PaísTextBox.Text = PaísesBindingSource.Current("País")

End If

PaísesBindingSource.MoveNext()

End While

("País") e ("CodPais") - são campo de base de dados

[thoga31]

O código já lá estava em cima, não era preciso colocá-lo de novo... e utiliza o GeSHi para dar cor.

My point is, a condição que estás a utilizar no ciclo... a condição tem de dar False a uma determinada altura para parar, e a tua condição, salvo erro, é sempre True.

[Diogo Ribeiro]

Não existe outra maneira de o fazer.

[thoga31]

Mudando a condição, salvo erro, irá resolver o teu problema. Tu incrementas um x e não sei para quê, e o PaísesBindingSource.Count é sempre maior que 1, por isso é que o programa "não responde" - a condição nunca se torna False para "saltar" do ciclo - é um loop infinito.

Quanto ao resto... de BDs já percebo pouco.

[Diogo Ribeiro]

Boas,

Aindo não consigui resolver o problema

[thoga31]

Boas,

Aindo não consigui resolver o problema

Só assim, não podemos ajudar muito... O que alteraste?

[Diogo Ribeiro]

Boas.

PaísesBindingSource.MoveFirst()

While PaísesBindingSource.Count > 1

If PaísesBindingSource.Current("CodPais") = CodPaísTextBox.Text Then

PaísTextBox.Text = PaísesBindingSource.Current("País")

End If

PaísesBindingSource.MoveNext()

End While