Filtrar desde el el DropDownListBox
Publicado por Carlos (231 intervenciones) el 16/07/2015 20:04:40
Hola foro, pido ayuda con lo que quiero hacer.... Tengo un datawindow (dw_1) en una ventana en donde muestro varios registros.
También he creado un datawindows filtro (d_repor_esp_f1_fill) con los mismos datos del dw_1, en este he agregado 2 criterios a filtrar., y lo llamo con código, a este lo pruebo y funciona bien:
Ahora he agregado 2 DropDownListBox (ddlb_lis.Text, ddlb_dir.Text) en la ventana, mi anhelo es que al darle clic al (ddlb_lis) si es que en el (ddlb_dir.Text) haya algún texto seleccionado, entonces filtre el por los 2 criterios del (d_repor_esp_f1_fill) y si no hay algo seleccionado entonces filtre el dw_1 por 1 criterio que esta en la fila (descripc_cuenta ='AIRE ACONDICIONADO Y REFRIGERACION)
este es mi código:
if ddlb_dir.TotalItems () > 0 then
dw_1.dataObject = "d_repor_esp_f1_fill" ///este es el datawindow que tiene 2 criterios
dw_1.SettransObject(sqlca)
dw_1.Retrieve(ddlb_lis.Text, ddlb_dir.Text)
st_ttal.text=string(dw_1.RowCount())
cb_exportar.Enabled=True
else
dw_1.SetFilter("descripc_cuenta ='AIRE ACONDICIONADO Y REFRIGERACION'")
dw_1.SetRedraw(True)
dw_1.Filter()
dw_1.retrieve()
cb_exportar.Enabled=True
st_ttal.text=string(dw_1.RowCount())
st_ttal.Visible=True
dw_1.Visible=True
End If
en este código solo logro filtrar por el segundo criterio mas no obedece al primer filtro o mejor dicho a la condición If....
ayuda por favor
También he creado un datawindows filtro (d_repor_esp_f1_fill) con los mismos datos del dw_1, en este he agregado 2 criterios a filtrar., y lo llamo con código, a este lo pruebo y funciona bien:
Ahora he agregado 2 DropDownListBox (ddlb_lis.Text, ddlb_dir.Text) en la ventana, mi anhelo es que al darle clic al (ddlb_lis) si es que en el (ddlb_dir.Text) haya algún texto seleccionado, entonces filtre el por los 2 criterios del (d_repor_esp_f1_fill) y si no hay algo seleccionado entonces filtre el dw_1 por 1 criterio que esta en la fila (descripc_cuenta ='AIRE ACONDICIONADO Y REFRIGERACION)
este es mi código:
if ddlb_dir.TotalItems () > 0 then
dw_1.dataObject = "d_repor_esp_f1_fill" ///este es el datawindow que tiene 2 criterios
dw_1.SettransObject(sqlca)
dw_1.Retrieve(ddlb_lis.Text, ddlb_dir.Text)
st_ttal.text=string(dw_1.RowCount())
cb_exportar.Enabled=True
else
dw_1.SetFilter("descripc_cuenta ='AIRE ACONDICIONADO Y REFRIGERACION'")
dw_1.SetRedraw(True)
dw_1.Filter()
dw_1.retrieve()
cb_exportar.Enabled=True
st_ttal.text=string(dw_1.RowCount())
st_ttal.Visible=True
dw_1.Visible=True
End If
en este código solo logro filtrar por el segundo criterio mas no obedece al primer filtro o mejor dicho a la condición If....
ayuda por favor
Valora esta pregunta


0