-
- Usuario
05 Dic 2013 04:26
Hola buenas noches a todos mi consulta es la siguiente:
Quiero hacer la busqueda de datos en una grid, en mi proyecto tengo una input y un xbutton en la input coloco cualquier campo de la base de datos que necesito consultar y le doy click al xbutton para hacer la busqueda(esto me funciona haciendo la busqueda en una listbox), pero quiero hacer lo mismo usando una grid en vez de la listbox, este es mi script que tengo en el xbutton:
Quiero hacer la busqueda de datos en una grid, en mi proyecto tengo una input y un xbutton en la input coloco cualquier campo de la base de datos que necesito consultar y le doy click al xbutton para hacer la busqueda(esto me funciona haciendo la busqueda en una listbox), pero quiero hacer lo mismo usando una grid en vez de la listbox, este es mi script que tengo en el xbutton:
---Desactive todas las casillas
Input.SetText("informacion_info", "");
Input.SetText("Total input", "");
ListBox.DeleteItem("nombre_List", -1);
---obtener una entrada de búsqueda
sSearch = Input.GetText("Search");
if sSearch ~= "" then
-- DVD_List tabla de consulta y almacenar todas las entradas en la tabla tblrs
tblRS = SQLite.QueryToTable(db, "Select * from General where (Producto LIKE '%"..Input.GetText("Search").."%') or (Codigo LIKE '%"..Input.GetText("Search").."%') or (Modelo LIKE '%"..Input.GetText("Search").."%') or (Cantidad LIKE '%"..Input.GetText("Search").."%') or (Entrada LIKE '%"..Input.GetText("Search").."%') or (Salida LIKE '%"..Input.GetText("Search").."%') or (Fecha LIKE '%"..Input.GetText("Search").."%') or (Serie LIKE '%"..Input.GetText("Search").."%') or (Nombre LIKE '%"..Input.GetText("Search").."%')")
nLastError = Application.GetLastError();
if nLastError ~= SQLite.OK then
Dialog.Message("Error", SQLite.GetLastErrorString());
end
-- si no hay errores, continuar, de lo contrario no hacer nada
if nLastError == SQLite.OK then
--recorrer la tabla
for nRow = 1,tblRS.Rows do
--obtener el título del registro actual
sTitle = tblRS.Data[nRow]["Producto"];
--añadir el elemento a la lista con el texto title =
---Mostrar diálogo de estado para el progreso de actualización
ncount = Table.Count(tInfo_List);
StatusDlg.Show(MB_ICONNONE, false);
StatusDlg.SetMeterRange(1, 50);
StatusDlg.SetMeterPos(1);
StatusDlg.SetTitle("Refrescar la Busqueda por Producto");
StatusDlg.SetMeterRange(1, nCount);
--******************************************************* y el RecordID
ListBox.AddItem("nombre_List", tblRS.Data[nRow]["Producto"], tblRS.Data[nRow]["RecordID"]);
end
end
StatusDlg.Hide();
else
end
---pantalla de resultados de búsqueda total de registros
Total = ListBox.GetCount("nombre_List");
Input.SetText("Total input", Total);
---Limpiar Input buscar
Input.SetText("Search", "");
...
