none
ScriptControl RRS feed

  • Pregunta

  • 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 "

    miércoles, 9 de agosto de 2017 16:33

Todas las respuestas

  • 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.
    jueves, 10 de agosto de 2017 5:46