Funciona Muy bien:
Exaple to load a combo:
Ejemplo:
call the function in CodeBehind:
<%=Prueba.CargarClientes()%>
Clase or Class:
Public Class Prueba
Public Sub Prueba()
End Sub
Public Shared Function CargarClientes() As String
Dim idtPais As System.Data.IDataReader, qrPais As
SubSonic.Query
Dim Nl As String = Environment.NewLine, sHtml As String
Try
qrPais = New SubSonic.Query("Pais")
qrPais.ORDER_BY("NombrePais Asc")
idtPais = qrPais.ExecuteReader()
sHtml = "<select id='slcPais' name='slcPais' style='width:
256px' "
sHtml &= "onchange='LoadDpto();'>" & Nl & "<option
value='0'>"
sHtml &= "Seleccione un pais de la lista</option>" & Nl
With idtPais
While .Read()
sHtml &= "<option value='"
& .GetValue(0).ToString()
sHtml &= "'>" & .GetValue(1).ToString & "</
option>"
sHtml &= Nl
End While
.Close() : .Dispose()
End With
sHtml &= "</select>"
Catch ex As Exception
sHtml = "<select id='slcPais' name='slcPais' style='width:
256px'"
sHtml &= ">" & Nl & "<option value='0' selected>Lista de
paises "
sHtml &= "vacía</option>" & Nl & "</select>"
End Try
Return sHtml
End Function
End Class
Don Quijote de Nicaragua.
Elder Soto.
On 18 mayo, 13:30, Mike <[EMAIL PROTECTED]> wrote:
> Do these work well together or cause conflicts?
