Visualizzazione dei risultati da 1 a 2 su 2
  1. #1
    Utente di HTML.it
    Registrato dal
    Jan 2003
    Messaggi
    35

    [VB.Net] Problema con loop e nodi

    Ciao,In questa treeview ci sono dei nodi che mi vengono inseriti quante sono le righe trovate tramite una query,come posso fare se il nodo ha lo stesso nome a farlglielo inserire 1 sola volta e basta?

    Grazie

    Qui vi posto uno screenshot per farvi capire.



    Questo invece è il codice:

    codice:
    Dim RicercaAll As New System.Data.SqlServerCe.SqlCeCommand("SELECT DISTINCT ORDATA,ORCODCLI,ORRAGSOC,ORNUMORD FROM Ordini ORDER BY ORCODCLI ASC", ConnSqlCe)
    
            ConnSqlCe.Open()
    
            Dim rs2 As Data.SqlServerCe.SqlCeResultSet = RicercaAll.ExecuteResultSet(Data.SqlServerCe.ResultSetOptions.Scrollable)
    
            RicercaAll.ExecuteReader()
    
            Do While rs2.Read
                If rs2.IsDBNull(0) = False Then
                    ORDATA = CStr(rs2.GetValue(0))
                    If InStr(ORDATA, "'", CompareMethod.Text) Then
                        ORDATA = ORDATA.Replace("'", "''")
                    End If
                Else
                    ORDATA = "   "
                End If
    
                If rs2.IsDBNull(1) = False Then
                    ORCODCLI = CStr(rs2.GetValue(1))
                    If InStr(ORCODCLI, "'", CompareMethod.Text) Then
                        ORCODCLI = ORCODCLI.Replace("'", "''")
                    End If
                Else
                    ORCODCLI = "   "
                End If
    
                If rs2.IsDBNull(2) = False Then
                    ORRAGSOC = CStr(rs2.GetValue(2))
                    If InStr(ORRAGSOC, "'", CompareMethod.Text) Then
                        ORRAGSOC = ORRAGSOC.Replace("'", "''")
                    End If
                Else
                    ORRAGSOC = "   "
                End If
    
                If rs2.IsDBNull(3) = False Then
                    ORNUMORD = CStr(rs2.GetValue(3))
                    If InStr(ORNUMORD, "'", CompareMethod.Text) Then
                        ORNUMORD = ORNUMORD.Replace("'", "''")
                    End If
                Else
                    ORNUMORD = "   "
                End If
    
                Dim Childname1, Childname2, Childname3 As String
                Childname1 = ORCODCLI & " " & "(" & ORRAGSOC & ")"
                childNode = rootNode.Nodes.Add(Childname1)
    
                Childname2 = ORDATA
                childNode2 = childNode.Nodes.Add(Childname2)
                childNode2.Tag = ORCODCLI
    
                Childname3 = ORNUMORD & " " & "(" & ORCODCLI & ")"
                childnode3 = childNode2.Nodes.Add(Childname3)
                childnode3.Tag = ORCODCLI
    
            Loop
    
            ConnSqlCe.Close()

  2. #2
    Usa TreeView.Nodes.Contains per controllare se esiste già: in questo caso non lo inserisci.

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.