Exemplo de ComboBox

Colocar no select quando houver necessidade:

Código:

  onChange="document.formulario.submit();

Código:

        <select name="empresa" >
        <script language=speedscript>
        def var situacao as char init "".
             for each net-empresas no-lock:
                if request_method = "Post" then
                do:
                     if get-value("empresa") = string(net-empresas.cod-empr) then
                       assign situacao = "selected".
                     else
                       assign situacao = "".
                end.
        </script>
            <option `situacao` value="`net-empresas.cod-empr`">`net-empresas.nome`</option>
        <script language=speedscript>
             end.
        </script>
        </select>