Hola gracias por contestar, pero mira ya habia hecho eso de usar la propiedad del control
Código:
WebLogin1.Sistema = sisMexico.sistemas.SICEEF
pero no funciono, ya ke siempre me recibe un nothing, aunke kreo ke tendre ke practicar mas mi uso de enumeraciones.
Lo ke hice para arregarlo fue esto:
Código:
Protected Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
'Llena combo
Dim dvNotRem As DataView
Dim sistema As New Sistema
dvNotRem = sistema.GetSisSEM()
If dvNotRem Is Nothing Then
Me.LblErr.Text = "Por el momento el sistema no puede accesar a la Base de Datos"
ElseIf dvNotRem.Table.Rows.Count = 0 Then
Me.LblErr.Text = "Por el momento el sistema no encuentra ningun sistema en la Base de Datos<br>GetSisNETOSFEM"
Else
With Me.ddlSisSEM
.DataSource = dvNotRem
.DataValueField = dvNotRem.Table.Columns(0).ColumnName
.DataTextField = dvNotRem.Table.Columns(1).ColumnName
.DataBind()
.Visible = True
End With
End If
End Sub
End If
End Sub
Public Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Login()
End Sub
Public Property SistemaSelected() As String
Get
Return Me.ddlSisSEM.SelectedValue
End Get
Set(ByVal value As String)
_sistemaSelected = value
End Set
End Property
'login en base a una propiedad, sin parametros
Public Function Login() As Object
Dim oRes As Object = Nothing
If SistemaSelected <> 0 Then
Dim user As New CLUsuarios
Dim sRes, sUsu, sPass, sSys As String
sUsu = Me.Usuario
sPass = Me.Contraseña
sSys = Me.SistemaSelected
sRes = user.GetLogUsu(sSys, sUsu, sPass)
If sRes <> "" Then
LblErr.Text = sRes
oRes = Nothing
Else
LblErr.Text = "ok"
oRes = user
End If
End If
Return oRes
End Function
porke el usuario puede ver el combo y puede elegir alguna opcion y eso no me gusta!!!!
Gracias a todos, pero sigo esperando una respuesta alternativa usando enumeraciones y/o propiedades, alguien sabe!!!!?