Hi, everyone, I have this code to show a list of product qrRemision = New Query("vwlstRemisiones") // vwlstRemisiones is a view qrRemision.OrderBy = OrderBy.Asc("Fecha") dtsCatalogo = New DataSet dtsCatalogo = qrRemision.ExecuteDataSet()
When an element changed again and I want to show in the list not reflected the change, I get the old value (the same value before the change), any suggestions. Thanks You. EspaƱol Hola a todos, tengo el siguiente codigo para mostrar una lista de productos -- CODE -- Cuanto hago un cambio en un elemento, la lista no la refleja, me muestra el valor anterior, antes del cambio, alguna sugerencia. Gracias. Don Quijote de Nicaragua. Elder Soto COMPLETE CODE Try With Page.Request imRecord = Convert.ToByte(.Params("imRecord").ToString()) ipNumber = Convert.ToInt16(.Params("pIndex").ToString()) End With qrRemision = New Query("vwlstRemisiones") qrRemision.OrderBy = OrderBy.Asc("Fecha") dtsCatalogo = New DataSet dtsCatalogo = qrRemision.ExecuteDataSet() ipCount = fGetPageNumber(dtsCatalogo.Tables(0).Rows.Count, ipSize) If (ipNumber = 0) Then ipNumber = 1 Select Case imRecord Case 1 If (ipNumber > 1) Then ipNumber -= 1 Case 2 If (ipNumber < ipCount) Then ipNumber += 1 End Select iLastRow = ipNumber * ipSize iFirstRow = iLastRow - ipSize If (iLastRow > dtsCatalogo.Tables(0).Rows.Count) Then iLastRow = dtsCatalogo.Tables(0).Rows.Count iFirstRow = (ipNumber - 1) * ipSize End If If (ipCount <= 1) Then sDisabled(0) = " disabled='disabled'" sDisabled(1) = " disabled='disabled'" Else If (ipNumber = 1) Then sDisabled(0) = " disabled='disabled'" ElseIf (ipNumber = ipCount) Then sDisabled(1) = " disabled='disabled'" End If End If sHtml = "<table id='tbHead' class='sTableHead' cellspacing='1'>" & NL sHtml &= "<tr>" & NL sHtml &= "<td>" & NL sHtml &= "<table style='width:430px'>" & NL sHtml &= "<tr>" & NL sHtml &= "<td>" & NL sHtml &= "<input type='button' id='btnNew' name='btnNew' class='btnButton' " sHtml &= "value='" & strNameButton & "' onclick='" + strAccionCat + "'/>" & NL sHtml &= "</td>" & NL sHtml &= "<td valign='middle'>Buscar:</td>" & NL sHtml &= "<td>" & NL sHtml &= "<input type='text' id='txtFind' name='txtFind' value=''/>" & NL sHtml &= "<input type='button' id='btnFind' name='btnFind' class='btnButton" sHtml &= "' value='Buscar' onclick= 'GuardarCatalogos(4);'/ >" & NL sHtml &= "</td>" & NL sHtml &= "</tr>" & NL sHtml &= "</table>" & NL sHtml &= "</td>" & NL sHtml &= "<td align='right'>" & NL sHtml &= "<table style='width:250px'>" & NL sHtml &= "<tr>" & NL sHtml &= IIf(ipCount, "<td>Página:</td>", "<td></ td>") & NL sHtml &= "<td style='width:20px'>" & NL 'Boton Previo sHtml &= "<input type='button' id='btnPrev' name='btnPrev' class='navButton" sHtml &= "' value='<' onclick='sLoadLstCatalogos(1," & ipNumber & ",1," + Request.Params("iAction") + "," + Request.Params("Actividad") + ");'" sHtml &= sDisabled(0).ToString() & "/>" & NL sHtml &= "</td>" & NL sHtml &= IIf(ipCount, "<td align='center'>" & ipNumber & "</td>", "<td></td>") sHtml &= NL & "<td style='width:20px'>" & NL 'Boton Siguiente sHtml &= "<input type='button' id='btnNext' name='btnNext' class='navButton" sHtml &= "' value='>' onclick='sLoadLstCatalogos(2," & ipNumber & ",1," + Request.Params("iAction") + "," + Request.Params("Actividad") + ");'" sHtml &= sDisabled(1).ToString() & "/>" & NL sHtml &= "</td>" & NL sHtml &= IIf(ipCount, "<td align='left'>de " & ipCount & "</td>", "<td></td>") sHtml &= NL & "</tr>" & NL sHtml &= "</table>" & NL sHtml &= "</td>" & NL sHtml &= "</tr>" & NL sHtml &= "</table>" & NL 'Encabezado de los catalogos sHtml &= "<table id='tbClientes' class='sTableList' cellspacing='1'>" & NL sHtml &= "<tr>" & NL sHtml &= "<th class='sThList'>CodRemision</th>" & NL sHtml &= "<th class='sThList'>Fecha</th>" & NL sHtml &= "<th class='sThList'>No Remision</th>" & NL sHtml &= "<th class='sThList'>No Orden</th>" & NL sHtml &= "<th class='sThList'>Cliente</th>" & NL sHtml &= "<th class='sThList'>Transporte</th>" & NL sHtml &= "<th class='sThList' stytile='width: 2px;'>Modificar</th>" & NL sHtml &= "<th class='sThList' stylile='width:2px'>Borrar</ th></tr>" & NL '-------Listado de Remision -------' With dtsCatalogo.Tables(0) For r = iFirstRow To iLastRow - 1 id = .Rows(r)(0) sHtml &= "<tr>" & NL sHtml &= "<td class='sTdList'>" & .Rows(r)(1) & "</ td>" & NL sHtml &= "<td align='center' class='sTdList' style='width:5%'>" & NL 'ModCatalogos(Accion, Operacion, Modificar, CodCatalogo, Descripcion) sHtml &= "<a id='aEdit" & id & "' href='#' onclick='ModCatalogos(2 ," & intActividad & " , 0, " & id & ",""" & .Rows(r)(1) & """);'>" & NL sHtml &= "<img src='Images/user_edit.png' alt=" + .Rows(r)(1) + "" & NL sHtml &= "style='border:0'/></a></td>" & NL sHtml &= "<td align='center' class='sTdList' style='width:5%'>" & NL sHtml &= "<a id='aDel" & id & "' href='#' onclick='Delete(" & id & ")'>" & NL sHtml &= "<img src='Images/user_delete.png' alt='Borrar Registro' style=" sHtml &= "'border:0'/></a></td>" & NL & "</tr>" & NL Next End With sHtml &= "</table>" dtsCatalogo.Reset() dtsCatalogo.Dispose() Catch ex As Exception sHtml = ex.Message.ToString() End Try Response.Write(sHtml)