Public Class Form1
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Try
            ListView1.View = View.Details
            ListView1.GridLines = True
            ListView1.FullRowSelect = True
 
            ListView1.Clear()
 
            Dim oSR As New IO.StreamReader("C:\test.csv")
            Dim nSPalten() As String = oSR.ReadLine.Split(", ")
            Dim lstCol As New ListView.ColumnHeaderCollection(ListView1)
 
            For Each sSpalte As String In nSPalten
                lstCol.Add(sSpalte)
            Next
 
            While oSR.Peek > -1
                Dim lstItem As New ListViewItem(oSR.ReadLine.Split(","))
                ListView1.Items.Add(lstItem)
            End While
 
            Return
 
        Catch ex As Exception
            Return
        End Try
    End Sub
End Class

Public Class Form1
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Try
            ListView1.View = View.Details
            ListView1.GridLines = True
            ListView1.FullRowSelect = True
 
            ListView1.Clear()
 
            Dim oSR As New IO.StreamReader("C:\test.csv")
            Dim nSPalten() As String = oSR.ReadLine.Split(", ")
            Dim lstCol As New ListView.ColumnHeaderCollection(ListView1)
 
            For Each sSpalte As String In nSPalten
                lstCol.Add(sSpalte)
            Next
 
            While oSR.Peek > -1
                Dim lstItem As New ListViewItem(oSR.ReadLine.Split(","))
                ListView1.Items.Add(lstItem)
            End While
 
            Return
 
        Catch ex As Exception
            Return
        End Try
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
 
        Dim flines As Integer = ListView1.Items.Count
        Label2.Text = flines
        Dim Lange As String = TextBox1.Text
 
 
        If TextBox1.Text = "" Then
 
        Else
 
 
            For i = 0 To flines - 1
 
                ListView1.Items(i).SubItems(1).Text = CDbl(ListView1.Items( _
                  i).SubItems(1).Text.ToString) - CDbl(Lange)
 
            Next i
 
 
        End If
 
 
 
    End Sub
 
End Class

Dim Lange As String = TextBox1.Text

Dim Lange As Double = TextBox1.Text

ListView1.Items(i).SubItems(1).Text = CDbl(ListView1.Items( _
                  i).SubItems(1).Text.ToString) - CDbl(Lange)

Dim lstItem As New ListViewItem(oSR.ReadLine.Split(","))

Zitat:

Wenn ich aber das ganz mit ; getrennt habe und keine ganzen Zahlen verwende hängt er

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles _
  Button2.Click
        Dim lvi As ListViewItem = Nothing
        lvi.SubItems(4).Text = lvi.SubItems(1).Text + lvi.SubItems(2).Text
    End Sub

Public Class Form1
 
    Dim dt As New cDataTableCSV
 
    Dim bs As New BindingSource
 
    Dim dgv As New DataGridView With _
        {.Parent = Me, .DataSource = bs, .Top = 50}
 
 
    Dim txtFilter As New TextBox With _
        {.Parent = Me, .Width = 200}
 
    Dim WithEvents btnFilter As New Button With _
        {.Parent = Me, .Left = 210, .Width = 100, .Text = "Filter"}
 
 
    Private Sub Form1_Load(sender As System.Object, _
       e As System.EventArgs) Handles MyBase.Load
 
        If Not dt.LoadFile("C:\Daten\Numbers.csv", System.Text.Encoding.UTF8) _
          Then
            MsgBox("Datei konnte nicht geladen werden")
        Else
            'Beispiel für das Berechnen einer neuen Spalte 
            'incl. Konvertierung der Zeichenfolgen in numerische Werte  
            dt.Columns.Add("Computed", GetType(Double), _
                   "Convert(SP_1, 'System.Double') + _
                    Convert(SP_2, 'System.Double')")
            'Datenbindung herstellen
            bs.DataSource = dt
        End If
 
    End Sub
 
 
    Private Sub btnFilter_Click(sender As Object, _
        e As System.EventArgs) Handles btnFilter.Click
 
        Dim value As Double
 
        If Not Double.TryParse(txtFilter.Text, value) Then
            'Filter aufheben (leere oder falsche Filterangabe)
            bs.Filter = ""
        Else
            'Filter setzen
            bs.Filter = "Convert(SP_1, 'System.Double') = " & value
        End If
 
    End Sub
End Class

100;150;Text;blau
100;250;Text;rot
300;350;Text;grün
400;450;Text;schwarz
500;350;Text;braun
600;600;Text;gelb

dt.Columns.Add("Computed", GetType(Double), _
         "Convert(SP_0, 'System.Double') + Convert(SP_1, 'System.Double')")

Zitat:

habe alles so gemacht wie Manfred X beschrieben: Den Pfad zur csv habe ich angepasst. = C:\test1.csv Leider lädt er die Daten nicht. An was kann das liegen ?

Me.Columns.Add("Nummer", GetType(String))
Me.Columns.Add("Länge", GetType(String))
Me.Columns.Add("Breite", GetType(String))
Me.Columns.Add("Bezeichnung", GetType(String))

Dim value As Double
 
        If Not Double.TryParse(txtFilter.Text, value) Then
            bs.Filter = ""
        Else
            bs.Filter = "Convert(Länge, 'System.String') = " & value
        End If

Public Class frmDataExpression2
 
    Dim dt As New cDataTableCSV
 
    Dim bs As New BindingSource
    Dim dgv As New DataGridView With _
       {.Parent = Me, .DataSource = bs, _
        .Top = 50, .Width = 480, .Height = 400}
 
    'Filter-Controls
    Dim txtLaenge As New TextBox With _
        {.Parent = Me, .Width = 200}
    Dim txtBreite As New TextBox With _
        {.Parent = Me, .Width = 200, .Left = 210}
 
    Dim WithEvents btnFilter As New Button With _
        {.Parent = Me, .Left = 420, .Width = 100, .Text = "Filter"}
 
 
    Private Sub Form1_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
 
        Me.Size = New Size(500, 500)
 
        If Not dt.LoadFile("C:\Daten\Numbers2.csv", System.Text.Encoding.UTF8) _
          Then
           MsgBox("Datei konnte nicht geladen werden")
        Else
           dt.Columns(0).ColumnName = "Laenge"
           dt.Columns(1).ColumnName = "Breite"
           bs.DataSource = dt
        End If
    End Sub
 
 
    Private Sub btnFilter_Click(sender As Object, _
        e As System.EventArgs) Handles btnFilter.Click
 
        Dim Laenge, Breite As Decimal, filter As String = String.Empty
 
        bs.Filter = "" 
 
        'ggf. erste Filterbedingung setzen
        If Decimal.TryParse(txtLaenge.Text, Laenge) Then
            filter = "Convert(Laenge, 'System.Decimal') = " & _
            Laenge.ToString(System.Globalization.CultureInfo.InvariantCulture)
        End If
 
        ggf. zweite Filterbedingung setzen
        If Decimal.TryParse(txtBreite.Text, Breite) Then
            'falls erste Bedingung gegeben --- Verknüpfung einschieben
            If Not filter = String.Empty Then filter &= " And "
 
            'zweite Bedingung setzen 
            filter &= "Convert(Breite, 'System.Decimal') = " & _
             Breite.ToString(System.Globalization.CultureInfo.InvariantCulture)
        End If
 
        'Filterstring zuweisen 
        bs.Filter = filter
 
    End Sub
End Class

Zitat:

Suche ein Möglichkeit nach zwei Kriterien gleichzeitig zu suchen. Beide sollen aber funktionieren wenn nur eine Textbox gefüllt ist.

EALA FREYA FRESENA

EALA FREYA FRESENA

Zitat:

So weit mir bekannt, werden Windows.Forms.Controls vom MicroSoft nicht mehr unterstützt.

If Decimal.TryParse(txtNummer.Text, Nummer) Then
            filter = "Convert(Nummer, 'System.Decimal') = " & _
            Nummer.ToString(System.Globalization.CultureInfo.InvariantCulture)
        End If

If Decimal.TryParse(txtNummer.Text, Nummer) Then
            filter = "Convert(Nummer, 'System.Decimal') = " & _
            Nummer.ToString(System.Globalization.CultureInfo.InvariantCulture)
        End If

Public Class frmLinqFind
 
    Dim dt As New DataTable
 
    Private Sub frmLinqFind_Load(sender As System.Object, _
                        e As System.EventArgs) Handles MyBase.Load
 
        'Testspalte und Testdaten (0-1)
        dt.Columns.Add("Values", GetType(Decimal))
        Dim rndm As New Random
        For i As Integer = 0 To 99
            dt.Rows.Add(CDec(rndm.NextDouble))
        Next i
 
        'zu suchende Untergrenze
        Dim limit As Decimal = 0.5D
 
        Dim q As Decimal = _
            Aggregate row As DataRow In dt.AsEnumerable _
                Where row.Field(Of Decimal)("Values") >= limit
            Into Min(row.Field(Of Decimal)("Values"))
 
    End Sub
End Class

Public Class Form1
 
    Dim dt As New cDataTableCSV
 
    Dim bs As New BindingSource
    Dim dgv As New DataGridView With {.Parent = Me, .DataSource = bs, .Top = _
      50, .Width = 464, .Height = 509}
 
    'Filter-Controls
    Dim txtNummer As New TextBox With {.Parent = Me, .Width = 90, .Left = 52, _
      .Top = 20}
    Dim txtLaenge As New TextBox With {.Parent = Me, .Width = 90, .Left = 152, _
    .Top = 20}
    Dim txtBreite As New TextBox With {.Parent = Me, .Width = 90, .Left = 252, _
    .Top = 20}
 
    Dim WithEvents btnFilter As New Button With {.Parent = Me, .Left = 8, .Top _
      = 20, .Width = 30, .Text = "Go"}
 
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) _
      Handles MyBase.Load
 
        Dim sAppPath As String
        sAppPath = Application.StartupPath
        Me.Size = New Size(480, 597)
 
        If Not dt.LoadFile(sAppPath & "\Seiten.csv", System.Text.Encoding.UTF7) _
          Then
            MsgBox("Datei konnte nicht geladen werden")
        Else
            dt.Columns(0).ColumnName = "Nummer"
            dt.Columns(1).ColumnName = "Laenge"
            dt.Columns(2).ColumnName = "Breite"
            dt.Columns(3).ColumnName = "Bezeichnung"
            bs.DataSource = dt
        End If
 
 
    End Sub
 
 
    Private Sub btnFilter_Click(sender As Object, _
        e As System.EventArgs) Handles btnFilter.Click
 
        Dim Laenge, Breite, Nummer As Decimal, filter As String = String.Empty
 
        bs.Filter = ""
 
        ' Teilenummer
        If Decimal.TryParse(txtNummer.Text, Nummer) Then
            filter = "Convert(Nummer, 'System.Decimal') = " & _
            Nummer.ToString(System.Globalization.CultureInfo.InvariantCulture)
        End If
 
        ' Länge
        If Decimal.TryParse(txtLaenge.Text, Laenge) Then
            filter = "Convert(Laenge, 'System.Decimal') = " & _
            Laenge.ToString(System.Globalization.CultureInfo.InvariantCulture)
        End If
 
        ' Breite
        If Decimal.TryParse(txtBreite.Text, Breite) Then
            'falls erste Bedingung gegeben --- Verknüpfung einschieben
            If Not filter = String.Empty Then filter &= " And "
 
            'zweite Bedingung setzen 
            filter &= "Convert(Breite, 'System.Decimal') = " & _
             Breite.ToString(System.Globalization.CultureInfo.InvariantCulture)
        End If
 
        'Filterstring zuweisen 
        bs.Filter = filter
 
    End Sub
 
 
End Class

   'Laenge
   If Decimal.TryParse(txtlaenge.Text, laenge) Then
      Dim filterlaenge As Decimal = _
           Aggregate row As DataRow In dt.AsEnumerable _
              Where Not IsDBNull(row("Laenge")) AndAlso _
                    laenge <= CDec(row.Field(Of String)("Laenge"))
           Into Min(CDec(row.Field(Of String)("Laenge")))
 
      filter = "Convert(Laenge, 'System.Decimal') = " & _
      filterlaenge.ToString(System.Globalization.CultureInfo.InvariantCulture)
   End If