espero puedan ayudarme a resolverlo.
Gracias
Código:
Dim consulta2 As FbCommand = conexion.CreateCommand() consulta2.CommandText = "SELECT * FROM INVE01 WHERE CVE_ART = @articulo" consulta2.Parameters.AddWithValue("@articulo", fila.Cells(1).Value.ToString()) consulta2res = New FbDataAdapter(consulta2) consulta2ds = New DataTable consulta2res.Fill(consulta2ds) cprom = consulta2ds.Rows(0).Item(18) usal = consulta2ds.Rows(0).Item(4) exis = consulta2ds.Rows(0).Item(17)