26/02/2005, 10:02
|
 | | | Fecha de Ingreso: febrero-2005
Mensajes: 539
Antigüedad: 20 años, 1 mes Puntos: 1 | |
| lo siento pero no termino de ver donde seleccionas o como el servivi
ejemplo:
Else If Check1.Items(1).Selected Then
Dim ds As DataSet
Dim strSql As String
Dim MyConnection As SqlConnection
Dim MyCommand As SqlDataAdapter
strSql = " SELECT Agencia.Identificador as Agencia, Agencia.Direccion as Direccion, Agencia.Telefono as Telefono, Agencia.Cajero_Automatico as Cajero_Automatico, Estado.Nombre_Estado as Estado, Ciudad.Nombre_Ciudad as Ciudad, Ubicacion.Descripcion as Ubicación From Agencia, Estado, Ciudad, Ubicacion "
strSql += " WHERE Agencia.EstadoID=Estado.EstadoID"
strSql += " AND Agencia.CiudadID=Ciudad.CiudadID"
strSql += " AND Agencia.UbicacionID=Ubicacion.UbicacionID"
strSql += " AND Agencia.EstadoID=" &DropDownList1.SelectedItem.Value
strSql += " AND Agencia.CiudadID=" &DropDownList2.SelectedItem.Value
strSql += " AND Agencia.UbicacionID=" &DropDownList3.SelectedItem.Value
En la consulta no veo diferrencias con si chequa el servicio 1 o el 2 o el 3
Estoy con rootk en q repites mucho codigo.
Si quieres el codigo de como lo haria yo muestrame como esta almacenado servicio dentro de agencia
Es decir una agencia esta destinada a un unico servicio o puede tener varios.
Otra cosa si en tu codigo pones que si esta chekeado el servicio1 haga una consulta y la meta en el datagrid,y si entra aki ya no comprueba si esta el 2 el 3 el 4.... por q pones
if If Check1.Items(0).Selected Then
Else If Check1.Items(1).Selected Then
'Solo entrara aki si no entra en la anterior.... |