Problems filtering string/double in datagridview

[batserra]

Hi ,

I have a problem filteting a datagrid that read his information from a txt file, the grid has this.

Pendiente Longitud Parametro Vertice
0 0 0 0
0,733333 120 20007,04 9365,221
6,73122 50 9292,37 9562,563
12,111977 62,627 1250 9661,794
-37,99 76,629 2100 9796,755
-1,5 58,4 1600 10164,71
-38 190 2500 10603,699
38 127,75 3500 10981,034
1,5 57,5 5000 11247,151
-10 192 4000 11784,128
38 127,75 3500 12152,33
1,5 301,486 8305,4 12489,698
37,8 72,6 2000 12982,12
1,5 67,5 15000 13232,408
6 96 4000 13455,722
30 57 2000 14328,915
1,5 0 0 0

This grid all rows, are DataGridViewCellStyle ,without format

i'm trying it load datagrid to a datatable, filter and upload again datatable to grid (not surre if it's the best way)

Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click

Dim dset As New DataSet
For i As Integer = 0 To DataGridView1.ColumnCount - 1
dset.Tables(0).Columns.Add(DataGridView1.Columns(i).HeaderText)
Next

Dim dr1 As DataRow
For i As Integer = 0 To DataGridView1.RowCount - 1
dr1 = dset.Tables(0).NewRow
For j As Integer = 0 To DataGridView1.Columns.Count - 1
dr1(j) = DataGridView1.Rows(i).Cells(j).Value
Next
dset.Tables(0).Rows.Add(dr1)
Next

Dim dv As New DataView
Dim filtro As String

dv = dset.Tables(0).DefaultView

filtro = "Longitud<" & "'" & TextBox1.Text.ToString & "'"
dv.RowFilter = filtro
DataGridView1.Rows.Clear()
DataGridView1.Columns.Clear()
DataGridView1.Refresh()
DataGridView1.DataSource = dv

end sub

textboxt1.text there is a 50 ,after click button 3 ,grid show me this

Pendiente Longitud Parametro Vertice
0,733333 120 20007,04 9365,221
-38 190 2500 10603,699
38 127,75 3500 10981,034
-10 192 4000 11784,128
38 127,75 3500 12152,33
1,5 301,486 8305,4 12489,698
1,5 0 0 0


Wha'ts wrong? ,the filter take some more than Longitud>50 and left some <50

I don't know how to fix it...

Thanks for all

[thetimmer]

Please remember to wrap your code in tags

Hi ,

I have a problem filteting a datagrid that read his information from a txt file, the grid has this.

Pendiente	Longitud	Parametro	Vertice
0	0	0	0
0,733333	120	20007,04	9365,221
6,73122	50	9292,37	9562,563
12,111977	62,627	1250	9661,794
-37,99	76,629	2100	9796,755
-1,5	58,4	1600	10164,71
-38	190	2500	10603,699
38	127,75	3500	10981,034
1,5	57,5	5000	11247,151
-10	192	4000	11784,128
38	127,75	3500	12152,33
1,5	301,486	8305,4	12489,698
37,8	72,6	2000	12982,12
1,5	67,5	15000	13232,408
6	96	4000	13455,722
30	57	2000	14328,915
1,5	0	0	0

This grid all rows, are DataGridViewCellStyle ,without format

i'm trying it load datagrid to a datatable, filter and upload again datatable to grid (not surre if it's the best way)

Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click

Dim dset As New DataSet
For i As Integer = 0 To DataGridView1.ColumnCount - 1
dset.Tables(0).Columns.Add(DataGridView1.Columns(i).HeaderText)
Next

Dim dr1 As DataRow
For i As Integer = 0 To DataGridView1.RowCount - 1
dr1 = dset.Tables(0).NewRow
For j As Integer = 0 To DataGridView1.Columns.Count - 1
dr1(j) = DataGridView1.Rows(i).Cells(j).Value
Next
dset.Tables(0).Rows.Add(dr1)
Next

Dim dv As New DataView
Dim filtro As String

dv = dset.Tables(0).DefaultView

filtro = "Longitud<" & "'" & TextBox1.Text.ToString & "'"
dv.RowFilter = filtro
DataGridView1.Rows.Clear()
DataGridView1.Columns.Clear()
DataGridView1.Refresh()
DataGridView1.DataSource = dv

end sub

textboxt1.text there is a 50 ,after click button 3 ,grid show me this

Pendiente	Longitud	Parametro	Vertice
0,733333	120	20007,04	9365,221
-38	190	2500	10603,699
38	127,75	3500	10981,034
-10	192	4000	11784,128
38	127,75	3500	12152,33
1,5	301,486	8305,4	12489,698
1,5	0	0	0

Wha'ts wrong? ,the filter take some more than Longitud>50 and left some <50

I don't know how to fix it...

Thanks for all

[thetimmer]

The filter is seeing your values like 301,486 as the number 301,486 ( three hundred and one thousand four hundred and eighty six ). I think you'll want to do a replace on your commas with periods in the filter string...

filtro = "Longitud<" & "'" & TextBox1.Text.ToString.Replace(",", ".") & "'"

[TnTinMN]

It will be easier to define a typed DataTable and use that table as the DataSource for the DataGridView. This way the DataBindings created when you assign the DataSource will handle everything for you and the values you type in the DataGridView will be stored in the DataTable directly.

You could create a DataSet (Project Menu->Add New Item->DataSet) and then define a typed DataTable in the designer, but for this example I created the minimum need definition in the code instead.

I misinterpreted your post originally and thought you were loading the data from a text file, so there is code include to do that if you decide you want to use it.

Public Class Form1
 
   Private MyData As New MyDataTable
 
   ' define a DataTable with the needed columns and datatypes
   Private Class MyDataTable
      Inherits DataTable
      Public Sub New()
         With Columns
            .Add("Pendiente", GetType(Double))
            .Add("Longitud", GetType(Double))
            .Add("Parametro", GetType(Double))
            .Add("Vertice", GetType(Double))
         End With
      End Sub
   End Class
 
   Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
      ' Do not include the next line in your code.
      ' I needed to change the culture to handle your use of a comma as the decimal mark
      My.Application.ChangeCulture("de-DE")
 
      'LoadData() ' this method would load the data from a text file if you need that.
      DataGridView1.DataSource = MyData.DefaultView
   End Sub
 
   Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
      Dim Longitud As Double
      If Double.TryParse(TextBox1.Text, Longitud) Then
         MyData.DefaultView.RowFilter = "[Longitud] < " & TextBox1.Text
      Else
         MyData.DefaultView.RowFilter = String.Empty
      End If
   End Sub
 
   Private Sub DataGridView1_DataError(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewDataErrorEventArgs) Handles DataGridView1.DataError
      MsgBox("Please enter a valid number or nothing")
   End Sub
   Private Sub LoadData()
      Dim sr As New IO.StreamReader("textfile1.txt")
      Dim newRow As DataRow
      Dim data() As String
 
      Do While Not sr.EndOfStream
         data = sr.ReadLine().Split()
         If data.Length = MyData.Columns.Count Then
            newRow = MyData.NewRow ' get a new typed datarow
            Try
               ' let the datarow handle the parsing
               ' an exception will be raised if the string can not be coverted into the proper type
               newRow.ItemArray = data
               MyData.Rows.Add(newRow)
            Catch ex As Exception
               ' log invalid data
            End Try
         Else
            ' log invalid data
         End If
      Loop
   End Sub
 
End Class