Problemas con el datagrid

[natyvydaddd]

Hola a todos les cuento que tengo problemas con un datagrid, tengo que filtrarlo, es decir, de mi tabla solo quiero mostrar algunos datos y no se como realizarlo, la verdad no se como llenar mi datagrid lo estoy realizando de esta manera :

Dim fila1 As DataRow
Dim form3 As New WebForm3
Dim tabla As New DataTable
Dim strcomando As String
Dim adaptador As OleDb.OleDbDataAdapter
Dim contfila As Integer
Dim dt As New DataTable
'REALIZANDO LA CONECCION PARA REQUISICIONES
Dim conexion As New OleDbConnection("provider=vfpoledb.1;data source=C:\requisiciones\ad_reqi.dbf;")
conexion.Open()
strcomando = "select numreq,descri from ad_reqi"
adaptador = New OleDb.OleDbDataAdapter(strcomando, conexion)
' CB = New OleDbCommandBuilder(adaptador)
adaptador.Fill(ds3, "ad_reqi")

For Each fila1 In ds3.Tables("ad_reqi").Rows
contfila += 1 'Response.Write(fila.Item("clave"))
Next
Dim x, band As Integer
Dim numreq, cortar As String
band = 0
fila1 = ds3.Tables("ad_reqi").Rows(x)
For cont As Integer = 1 To contfila
fila1 = ds3.Tables("ad_reqi").Rows(x)
numreq = fila1.Item("numreq")
cortar = Mid("numreq", 3, 4)
If (StrComp(Session("depto"), cortar)) Then
la variable de session que tengo es por que los datos deben ser igual a la variable que tengo y en cortar en por que, tengo que cortar una cadena que extrigo por que solo necesito dos caracteres de esa cadena

Aqui intento refrescar el datatagrid, pero la maquina se bloquea
datagrid1.datasource=ds3
Else
x += 1
End If
Next

aqui el datagrid me devuelve todos los campos(no los ocupo asi)
DataGrid1.DataSource = ds3
DataGrid1.DataBind()
conexion.Close()

Espero alguien me pueda ayudar por que la verdad no se ni que onda, ojala me pudiesen orientar, gracias y nos seguimos escribiendo.

[RootK]

Veo que tienes un code no muy bien estructurado..

para empezar que es lo que deseas filtrar..??

Es que noto que haces un for each, pero en que lo estas ocupando si a fin de cuentas le pasas el ds3 tal cual...

Explicanos un poco mas y con muchjo gusto te podemos echar un cable..

Salu2

[natyvydaddd]

hola, tienes razon como que mi codigo esta un poco raro, mira esto es lo nuevo que estoy intentando:

Try
Dim conexion As New OleDbConnection("provider=vfpoledb.1;datasource=C: \requisiciones\ad_reqi.dbf;")

' Filtrar los resultados de acuerdo al valor que tienes en tu
'variable de sesión

Dim strcomando As String = "select numreq,descri from ad_reqi where numreq like '%?%' "

Dim adaptador As New OleDb.OleDbDataAdapter(strcomando, conexion)
adaptador.SelectCommand.Parameters.Add(New OleDbParameter("@clave", OleDbType.VarChar, 2))
adaptador.SelectCommand.Parameters("@clave").Value = CType(Session.Item("depto"), String)
adaptador.Fill(ds3, "ad_reqi")
DataGrid1.DataSource = ds3
DataGrid1.DataBind()
Catch ex As Exception
Response.Write("Error" & vbCrLf & ex.Message)
End Try)

Para no confundirte te voy a explicar con un ejemplo que es lo que se quiere filtrar:

tengo en mi tabla los siguientes datos

21601232
12603694
15106392

los únicos caracteres que debo tomar en cuenta son el 3 y 4. Es decir tengo una variable de session que lleva dos numeros(p.e 60) entonces mi filtro debe de mostrar solo los dos primeros por que son los que coinciden con mi variable se session en los caracteres 3 y 4. Espero que me haya dado a entender.

El código anterior me muestra un error de Feature is not available, no se realmente como deba realizar mi seleccion, trabajo en visual basic .net con una coneccion oledb.

Te agradezco de antemano.Nos seguimos escribiendo