Questo topic e' stato chiuso dal moderatore.
09/10/09 17:47
oretovalley
Ciao a tutti ragazzi sto sviluppando un'applicazione che carica le colonne da tutto l'archivio di winforlife e ha varie funzioni, adesso stavo implementato il controllo di una colonna, ma stranamente ho provato a stampare anche le condizioni che confronto e mostrandomi in una msgbox "1 = 1" ma la condizione non si rivela e non riesco a capirne il motivo il codice che uso è questo... non ancora completato per questo problema:
secondo voi dove sta il problema?
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox14.Text <> "" And TextBox15.Text <> "" And TextBox16.Text <> "" And TextBox17.Text <> "" And TextBox18.Text <> "" And TextBox19.Text <> "" And TextBox20.Text <> "" And TextBox21.Text <> "" And TextBox22.Text <> "" And TextBox23.Text <> "" And TextBox24.Text <> "" Then Dim MyArray() As String Dim lettura As String = "" Dim leggi As New IO.StreamReader(Application.StartupPath & "/winforlife.txt") While Not leggi.EndOfStream lettura = leggi.ReadLine() MyArray = lettura.Split("- ") If TextBox14.Text = MyArray(3) Then MsgBox("ciao") End If If TextBox14.Text = MyArray(3) And TextBox15.Text = MyArray(4) And TextBox16.Text = MyArray(5) And TextBox17.Text = MyArray(6) And TextBox18.Text = MyArray(7) And TextBox19.Text = MyArray(8) And TextBox20.Text = MyArray(9) And TextBox21.Text = MyArray(10) And TextBox22.Text = MyArray(11) And TextBox23.Text = MyArray(12) And TextBox24.Text = MyArray(13) Then MsgBox("Colonna Trovata") End If End While leggi.Close() Else MsgBox("Uno o più campi risultano vuoti. Riempirli e riprovare") End If End Sub
secondo voi dove sta il problema?
aaa