obtener valor del dropdownlist

[maialenlopez]

Hola;

Voy a poner todo el código de nuevo para haber si me podéis echar una mano que es que lo necesito urgente.

Lo que necesito es, una vez que el usuario haya elegido una de las opciones del combobox, coger el valor de ese combobox.

HojaLiquidacionGastos.aspx

Código ASP:

<%@ Page Title="Hoja de Liquidacion Gastos" Language="vb" MasterPageFile="~/Site.Master" AutoEventWireup="false" CodeBehind="HojaLiquidacionGastos.aspx.vb" Inherits="HojaDeGastos.HojaLiquidacionGastos" %>
 
<asp:Content ID="HeaderContent" runat="server" ContentPlaceHolderID="HeadContent">
</asp:Content>
<asp:Content ID="BodyContent" runat="server" ContentPlaceHolderID="MainContent">
    <h2>
        HOJA DE LIQUIDACIÓN DE GASTOS
    </h2>
    <p>
        DEPARTAMENTO:
        <asp:DropDownList ID="ComboBoxDepartamentoLG" runat="server" 
            Enabled = "True" Height="25px" Width="197px" BackColor="#CCCCCC" AutoPostBack="True">
        </asp:DropDownList>
    </p>
</asp:Content>
 

HojaLiquidacionGastos.aspx.vb

Código vb.net:

Imports System.Web
Imports System.Web.Configuration
Imports System.Data
Imports System.Data.SqlClient
 
Public Class HojaLiquidacionGastos
    Inherits System.Web.UI.Page
 
    Dim iva As String = "1180"
 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        cargarComboBoxDepartamento()
    End Sub
 
    Protected Sub cargarComboBoxDepartamento()
        Dim conn As New SqlConnection(WebConfigurationManager.ConnectionStrings("conexion").ConnectionString)
 
        Dim comm1 As SqlCommand = New SqlCommand("SELECT * " & _
                                                "FROM dbo.temp_departamento", conn)
        Dim reader1 As New SqlDataAdapter(comm1.CommandText, conn)
 
        Dim ds As New DataSet
 
        Try
 
            conn.Open()
 
            reader1.Fill(ds)
 
            ComboBoxDepartamentoLG.DataSource = ds
            ComboBoxDepartamentoLG.DataValueField = "id_dept"
            ComboBoxDepartamentoLG.DataTextField = "nombre_dept"
            ComboBoxDepartamentoLG.DataBind()
 
        Catch ex As Exception
            MsgBox("Error en BD" & Chr(13) & Chr(13) & ex.Message)
        Finally
            If conn.State = ConnectionState.Open Then
                conn.Close()
                conn.Dispose()
            End If
        End Try
    End Sub
 
    Protected Sub BtnGuardarLG_Click(ByVal sender As Object, ByVal e As EventArgs) Handles BtnGuardarLG.Click
        Dim dept As Integer
        dept = ComboBoxDepartamentoLG.SelectedValue
    End Sub
 

Esto es lo que tengo en el aspx y en el aspx.vb. Si os fijais el comobobox lo tengo puesto como AutoPostBack="True". Si lo pongo a "true" por mucho que elija por ejemplo la tercera opción del combobox, una vez seleccionada se me vuelve a colocar en el combo la primera opción.

Ya no se que hacer mas.