Server.CreateObject("Scripting.Dictionary")

[feasso 0]

Criei um Server.CreateObject("Scripting.Dictionary")

 

E tem um FOR que cria uma listagem com todos existentes.

 

Como faço para apagar um ojeto e nar dar erro no For ???

 

Quando apago o último da lista, sem problemas, porém quando apago o do meio, da erro.

[hargon 64]

Estranho. Como está seu código?

 

Independente se é o primeiro ou o último é só você informar dc.Remove("nmKey"), onde nmKey é o nome que você deu e DC é o objeto.

[xanburzum 169]

exemplificando mais

o método Remove elimina uma determinado key / item a partir do objeto Dictionary.

 

Sintaxe

DictionaryObject.Remove(key)

 

Requeridod. A key associada com o item par para remover

 

<%
dim d,a,i
set d=Server.CreateObject("Scripting.Dictionary")
d.Add "x","xan"
d.Add "i","imasters"
d.Add "a","ASP"
d.Remove("x")
Response.Write("<p>valores Key :</p>")
a=d.Keys
for i=0 to d.Count-1
  Response.Write(a(i))
  Response.Write("<br />")
nextset d=nothing
%>

[feasso 0]

Estou fazendo isto p/ remover:

IF Tipo = 1 THEN

	Session("SaldoBanco").Remove(i)
	Session("ContaCorrente").Remove(i)

	response.Redirect("ListFluxoCaixaBanco.asp")

END IF

E da erro na página ListFluxoCaixaBanco.asp que tem um FOR p/ criar uma lista.

 

For i = 1 To Session("ContaCorrente").count

%>
  <tr  style="background-color:<%=vCor_Linha%>" class="textarea">
	<td width="23" height="20" align="center" class="pretoclaro"><a href="ApagarObject.asp?Tipo=1&Sessao=<%=i%>"><img src="../../img/apagar.gif" width="15" height="14" border="0"></A></td>
	<td width="466" class="pretoclaro"><%=rsQuery("BancoContaCorrente")%></td>
	<td width="110" class="pretoclaro" align="right"><%=Session("SaldoBanco").Item(i)%></td>
  </tr>
<%	
Next

[hargon 64]

E onde está?

Criei um Server.CreateObject("Scripting.Dictionary")

[feasso 0]

Set Session("ContaCorrente") = Server.CreateObject("Scripting.Dictionary")

Set Session("SaldoBanco") = Server.CreateObject("Scripting.Dictionary")

 

i = Session("ContaCorrente").Count + 1

 

Session("ContaCorrente").Add i, ContaCorrente

Session("SaldoBanco").Add i, Saldo