[VB.NET] ListBox e selezione prima riga

[Bertoz]

Ciao a tutti,ho ancora un piccolo (o grande,dipende dai punti di vista...) problemino...

Ho una listbox e una treeview dove vengono popolate con dei dati.
Selezionando la riga o il nodo dovrebbero comparire in alcune texbox dei dati specifici per quella riga o nodo selezionato,il problema sta nel fatto che se seleziono la prima riga o il primo nodo non succede niente,mentre con tutti gli altri funziona...
Come posso risolvere???

Grazie

[LeleFT]

Innanzitutto postando un po' di codice, che permetta alla gente di capire dove c'è l'errore.


Ciao.

[Bertoz]

Hai ragione :P Mi sono dimenticato di postare il codice...

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAgg.Click
If ListBox1.SelectedItem Then
If txtqta.Text = Nothing Then
MsgBox("Q.ta Non Presente")
Else
Dim rootNode, childNode As TreeNode
Dim ChildName1, ChildName2, ChildName3 As String
RootName = ListBox1.Text
rootNode = TreeView1.Nodes.Add(RootName)
ChildName1 = "Qta" & " " & txtqta.Text
ChildName2 = "Prezzo" & " " & txtpre.Text

childNode = rootNode.Nodes.Add(ChildName1)
childNode2 = rootNode.Nodes.Add(ChildName2)

Trovato = InStr(ChildName2, "Prezzo")
If Trovato > 0 Then
A = ChildName2.Substring(7, 10)
A = A.TrimEnd
Somma1 = (CDec(txtpre.Text) * CDec(txtqta.Text))
ChildName3 = "Totale" & " " & Somma1
childNode3 = rootNode.Nodes.Add(ChildName3)
End If
If TreeView1.Nodes.Count = 1 Then

Somma1 = CDec(txtpre.Text) * CDec(txtqta.Text)
txttot.Text = Somma1
Else

Somma2 = (CDec(txtpre.Text) * CDec(txtqta.Text))
txtsomma.Text = Somma2

txttot.Text = CDec(txttot.Text) + CDec(Somma2)
End If

'Scrive File Ordini Temporaneo

Dim writer2 As IO.StreamWriter = _
New IO.StreamWriter("\prova\TMP\ORTMP.TXT", True)
Ordini.ORCODCLITMP = Ordini.ORCODCLITMP.PadRight(20)
ORCODART = txtcodi.Text
ORCODART = ORCODART.PadRight(15)
ORQTA = txtqta.Text
ORQTA = ORQTA.PadRight(10)
ORLIS = txtlis.Text
ORLIS = ORLIS.PadRight(3)
ORPREZ = txtpre.Text
ORPREZ = ORPREZ.PadRight(10)
DESART = ListBox1.Text
DESART = DESART.PadRight(30)
PR = CDec(ORPREZ) * CDec(ORQTA)
PR = PR.PadRight(10)
DATA = Ordini.Data
DATA = Ordini.Data.PadRight(8)
'NOR = Ordini.txtornum.Text
'NOR = NOR.padright(4)

writer2.WriteLine(Ordini.ORCODCLITMP & ORCODART & ORQTA & ORLIS & ORPREZ & DESART & PR & DATA) ' & NOR)
writer2.Close()
End If
End If
End Sub

[Bertoz]

Sorry, ho copiao il codice sbagliato!!!!

Nella prima If non è If ListBox1.SelectedItem Then ma è

If ListBox1.SelectedIndex Then

:P