Dim dt As New DataTable
 
Private Sub Button1_Click(ByVal sender As System.Object, _
 ByVal e As System.EventArgs) Handles Button1.Click
	Dim gefundenDR() As DataRow
	gefundenDR = dt.Select("Wert = " & _
	 0.00000022799712721576855.ToString( _
	 New System.Globalization.CultureInfo("en-US")))
	MsgBox(gefundenDR.Length)
	gefundenDR = dt.Select("Wert = " & _
	 0.000009620028368341238.ToString( _
	 New System.Globalization.CultureInfo("en-US")))
	MsgBox(gefundenDR.Length)
	gefundenDR = dt.Select("Wert = " & _
	 0.0049195039746205028.ToString( _
	 New System.Globalization.CultureInfo("en-US")))
	MsgBox(gefundenDR.Length)
End Sub
 
Private Sub Form1_Load(ByVal sender As System.Object, _
 ByVal e As System.EventArgs) Handles MyBase.Load
	Dim dr As DataRow
	Dim werte() As Double = {0.00000022799712721576855, _
	 0.000009620028368341238, 0.0049195039746205028, _
	 0.00000022799712721576855, 0.00000022799712721576855, _
	 0.00000022799712721576855, 0.00000022799712721576855, _
	 0.00000022799712721576855, 0.00000022799712721576855, _
	 0.000009620028368341238}
	dt.Columns.Add("ID", System.Type.GetType("System.Int32"))
	dt.Columns.Add("Wert", System.Type.GetType("System.Double"))
	For i As Integer = 0 To 9
		dr = dt.NewRow
		dr!ID = i
		dr!Wert = werte(i)
		dt.Rows.Add(dr)
	Next
End Sub

Gru? Patrick
---
Wer nicht fragt, bleibt dumm.