23/10/2006, 11:37
|
 | | | Fecha de Ingreso: agosto-2006
Mensajes: 381
Antigüedad: 18 años, 9 meses Puntos: 2 | |
| veamos agrega la referencia a Microsoft Script Control
y luego usa la siguiente funcion
function EvaluaText(CadenaEvaluar as string) as string
Dim miScript As ScriptControl
Set miScript = New ScriptControl
miScript.Language = "vbScript"
miScript.ExecuteStatement ("R=" & CadenaEvaluar )
EvaluaText= miScript.Eval("R")
set miScript=nothing
end Function
y lo ejecutas asi
calculo_1 = EvaluaText(data2.recorset![formula])
OJO no se de que tipo es Calculo_1 pero ahi tu lo comviertes yo por ahora lo devuelvo como text en la funcion |