Visual Basic.NET - Error warning en una función

   
Vista:

Error warning en una función

Publicado por Miguel (56 intervenciones) el 13/01/2016 22:32:32
Tengo este error :
La función 'FiltrarBusqueda' no devuelve un valor en todas las rutas de acceso de código. ¿Falta alguna instrucción 'Return'?

No acabo de ver dicho error, la función es la que sigue.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Function FiltrarBusqueda(ByVal Texto As String, ByVal Etiqueta As String, ByVal miTabla As String) As Boolean
	Try
		If buscaDato(Texto, miTabla, Etiqueta) = True Then
			clsInicio.Inicio.clsInicio.TablaUsada = Tabla1
			CrearTabla(clsInicio.Inicio.clsInicio.TablaUsada)    'Crear tabla auxiliar
			muestraFormato()
			CargaTablaAux(clsInicio.Inicio.clsInicio.TablaUsada)
			Return True
		Else
			clsInicio.Inicio.clsInicio.fila = 0
			muestraDatagrid(clsInicio.Inicio.clsInicio.TablaUsada, clsInicio.Inicio.clsInicio.fila)
			Return False
		End If
	Catch ex As Exception
		MessageBox.Show(ex.Message)
	End Try
End Function

Si alguien me puede aclarar donde tengo la posibilidad de que dicho error se produzca le quedaría agradecido ya que yo me siento incapaz de verlo.

Gracia y un saludo
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de giancarlo

Error warning en una función

Publicado por giancarlo giangbd5@hotmail.com (280 intervenciones) el 13/01/2016 23:06:16
Despues del end try ponle return false

Cuando se ejecuta el comando try y es correctodevuelve true o false, sin embargo al ocurrir un error y se ejecuta las excepciones(catch) no deuvleve nada, por eso al terminar que devuelva false
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Imágen de perfil de Wilfredo Patricio Castillo

Error warning en una función

La idea es acostumbrarse a tener una sola salida en estos casos, haber hazle un ligero cambio y que quede así:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Public Function FiltrarBusqueda(ByVal Texto As String, ByVal Etiqueta As String, ByVal miTabla As String) As Boolean
	dim Result as Boolean=False
               Try
		If buscaDato(Texto, miTabla, Etiqueta)  Then
			clsInicio.Inicio.clsInicio.TablaUsada = Tabla1
			CrearTabla(clsInicio.Inicio.clsInicio.TablaUsada)    'Crear tabla auxiliar
			muestraFormato()
			CargaTablaAux(clsInicio.Inicio.clsInicio.TablaUsada)
			Result=True
		Else
			clsInicio.Inicio.clsInicio.fila = 0
			muestraDatagrid(clsInicio.Inicio.clsInicio.TablaUsada, clsInicio.Inicio.clsInicio.fila)
			Result=False
		End If
          Return Result
	Catch ex As Exception
		MessageBox.Show(ex.Message)
	End Try
End Function
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar