Ejecutar Funciones tomando el nombre desde una tabla
Publicado por Fernanda (28 intervenciones) el 19/04/2023 03:05:07
Hola,
Tengo una tabla con el nombre funciones y necesito que después de rescatar los nombres, cada una de esas funciones se pueda ejecutar.
Private sub EjecutaFunciones
Dim dsTable As DataSet = getDataset("Select NombreFuncion from TablaFunciones")
If dsTable.Tables.Count = 1 AndAlso dsTable.Tables(0).Rows.Count > 0 Then
For Each dr As DataRow In dsTable.Tables(0).Rows
Dim NombreFuncion As String = dr("NombreFuncion")
call nombreFuncion (NombreFuncion = PrimeraFuncion) --> esto es lo que necesito
Next
End Sub
Function PrimeraFuncion() as boolean
Return true
End function
Function SegundaFuncion() as boolean
return true
end function
Tengo una tabla con el nombre funciones y necesito que después de rescatar los nombres, cada una de esas funciones se pueda ejecutar.
Private sub EjecutaFunciones
Dim dsTable As DataSet = getDataset("Select NombreFuncion from TablaFunciones")
If dsTable.Tables.Count = 1 AndAlso dsTable.Tables(0).Rows.Count > 0 Then
For Each dr As DataRow In dsTable.Tables(0).Rows
Dim NombreFuncion As String = dr("NombreFuncion")
call nombreFuncion (NombreFuncion = PrimeraFuncion) --> esto es lo que necesito
Next
End Sub
Function PrimeraFuncion() as boolean
Return true
End function
Function SegundaFuncion() as boolean
return true
end function
Valora esta pregunta


0