ScriptControl

Question

Buen dia me podrian ayudar con esto?

estoy usando el control ScriptControl de visual basic 6.0 y quiero agregarle IF y con ello me traiga un bValor pero apesar de que ejecuta la sentencia no me devuelve nada se queda en el su valor.

Me ayudarian indicandome cual es mi error

ScriptControl1.ExecuteStatement "IF txtPrv <> ""0001"" and nTotal > ""100000.01"" then bValor = True Else bValor = False End if "

Answer 1

Revisé la documentación de ScriptControl y creo que debes de utilizar el método Eval() que permite analizar una expresión y retornar un resultado. Por otro lado, el operador de comparación '>' debería aplicarse sobre operandos numéricos y no sobre cadenas, finalmente, creo que las variables no pueden resolverse dentro de la cadena.

Using ScriptControl Methods

Dim txtPrv As String
Dim nTotal As Double
Dim bValor As Boolean

txtPrv = "0002"
nTotal = 100000.02

ScriptControl1.Language = "VBScript"
bValor = ScriptControl1.Eval(txtPrv & "<> ""0001"" AND " & nTotal & "> 100000.01")

MsgBox (bValor)

---

Nuestra profesión exige tener pasión por resolver problemas de una manera óptima y eficiente.