
10/11/2004, 09:41
|
| | Fecha de Ingreso: septiembre-2004
Mensajes: 141
Antigüedad: 20 años, 5 meses Puntos: 0 | |
ya como mi problema era llenar los dropdown , ya hasta que con la penultima forma que me diste se llenaron ok, funcionaron, pero el problama que al mirar la pagina se ven vacios uno pincha para que salga el flag del dropdown hacia abajo y sale en blanco , pero si le digo buscar o aprieto el boton, cuando vuelve hay se hacen visibles, adjunto el CODE solamente para ver si hay algun error porfa si puedes ver porque no se ven cuando carga la pagina por primera vez
---------------CODIGO-----------------
Sub Getinforme(Sender As Object, E As EventArgs)
dim fechai as String = Request.QueryString("fechai")
dim fechaf as String = Request.QueryString("fechaf")
'-----------------------------CAPTURA DROPDOWN DE FECHAS INICIO Y FINAL--------------------------
fechai= dia_i.selectedItem.text & "/" & mes_i.selectedItem.text & "/" & ano_i.selectedItem.text
fechaf= dia_f.selectedItem.text & "/" & mes_f.selectedItem.text & "/" & ano_f.selectedItem.text
'----------------------------CAPTURA DATOS DROPDOWN PROVEEDOR,RECEPTOR ESTADO Y TIPO -----------------
dim proveedor as String = Request.QueryString("proveedorid")
' proveedor= proveedorid.selecteditem.text
dim receptor as String = Request.QueryString("RECEPTORid")
' receptor = receptorid.selecteditem.text
dim estado as String = Request.QueryString("ESTADO")
'estado = estadoid.selecteditem.text
dim tipo as String = Request.QueryString("TIPO")
'tipo = tipoid.selecteditem.text
'---------------------------------Envia STORE PROCEDURE a la base de datos ------------------------------------
Dim DS As DataSet
Dim MyConnection As SqlConnection
Dim MyCommand As SqlDataAdapter
MyConnection = New SqlConnection("Persist Security Info=False;User ID=docsadm;pwd=docsadm;Initial Catalog=SBIFBBVA;Data Source=TESTEDMS;Packet Size=4096;Workstation ID=ISRV_EDMS")
MyCommand = New SqlDataAdapter("DOCSADM.sp1", MyConnection)
MyCommand.SelectCommand.CommandType = CommandType.StoredProcedure
MyCommand.SelectCommand.Parameters.Add(New SqlParameter("@fechai", SqlDbType.DateTime))
MyCommand.SelectCommand.Parameters("@fechai").Valu e = fechai
MyCommand.SelectCommand.Parameters.Add(New SqlParameter("@fechaf", SqlDbType.DateTime))
MyCommand.SelectCommand.Parameters("@fechaf").Valu e = fechaf
DS = new DataSet()
MyCommand.Fill(DS, "Sales")
MyDataGrid.DataSource=DS.Tables("Sales").DefaultVi ew
MyDataGrid.DataBind()
'---------------------------------------------DROPDOWN RECEPTOR---------------------------------------
Dim myCommand2 As SqlDataAdapter
myCommand2 = New SqlDataAdapter("SELECT distinct user_id,system_id FROM DOCSADM.people", myConnection)
Dim ds2 As DataSet
ds2= new Dataset()
Mycommand2.fill(ds2,"receptor")
'receptorid.DataSource = ds2
'receptorid.DataSource = ds2.Tables(0)
'receptorid.DataTextField = ds2.Tables(0).Columns("user_id").ColumnName.ToStri ng()
'receptorid.DataValueField = ds2.Tables(0).Columns("system_id").ColumnName.ToSt ring()
'receptorid.DataBind()
receptorid.DataSource = ds2
receptorid.DataSource = ds2.Tables(0)
receptorid.DataTextField = "user_id"
receptorid.DataValueField = "system_id"
receptorid.DataBind()
'---------------------------------------------DROPDOWN PROVEEDOR---------------------------------------
Dim myCommand3 As SqlDataAdapter
myCommand3 = New SqlDataAdapter("SELECT distinct emp_prov_email,system_id FROM DOCSADM.profile", myConnection)
Dim ds3 As DataSet
ds3= new Dataset()
Mycommand3.fill(ds3,"Proveedor")
' proveedorid.DataSource = ds3
' proveedorid.DataSource = ds3.Tables(0)
' proveedorid.DataTextField = ds3.Tables(0).Columns("emp_prov_email").ColumnName .ToString()
' proveedorid.DataValueField = ds3.Tables(0).Columns("system_id").ColumnName.ToSt ring()
' proveedorid.DataBind()
receptorid.DataSource = ds3
proveedorid.DataSource = ds3.Tables(0)
proveedorid.DataTextField = "EMP_PROV_EMAIL"
proveedorid.DataValueField = "system_id"
proveedorid.DataBind()
End Sub
Sub Page_Load()
If Not IsPostBack Then
MyDataGrid.Visible = false
Else
MyDataGrid.Visible = true
End If
End Sub
'------------------------------------------------------------ |