[Resolvido] problema com um for com qdt de 49

[Ewerton93 0]

Ola pessoal beleza,

 

estou com um problema pois tenho um bloco de impressão com 49 paginas e eles possui um numero

o meu aki e 7051 e vai ate 7100 então nas minha contas ele possui 49 paginas ate um novo bloco.

 

mas ai que ta o problema eu digito o primeiro valor 7051 e quantidade que e 49, mas olha so o que tras na tela pra mim.

 

7051-7052-7053-7054-7055-7056-7057-7058-7059-7060-7061-7062-7063-7064-7065-7066-7067-7068-7069-7070-7071-7072-7073-7074-7075-7076-7077-7078-7079-7080-7081-7082-7083-7084-7085-7086-7087-7088-7089-7090-7091-7092-7093-7094-7095-7096-7097-7098-7099-

 

la vai o for onde estou cm o problema.

 

if opc = "I" then

qdt = request.form("qdt")
num = request.form("ini")

For cont = 1 To qdt step 1
 response.Write(num) & "-"
  'sql = "insert into tabela(campo,campos)  values ('" & num  & "','" & 0 & "')"
  'set ccliente = Database.Execute(sql)
 num = num + 1
Next
end if

podem me ajudar?

[Régis Corrêa 0]

especifica melhor o problema. você passa a querystring de cada pagina q quer imprimir? poste o codigo inteiro para podermos ajudar.

[Silvafabiano 0]

Opa tudo bom,

 

O for estar correto.

 

Pq quando você atinge a qtd de 49 a variavel num vai estar com 50, mas como o for vai só até 49 ele nao vai mostrar.

 

Entendeu?

 

Caso nao tenha entendido

Faça o seguinte que você vai perceber o que to falando

 

qdt = 3
num = 1

For cont = 1 To qdt  'quando a qtd for 3 o valor de num vai ser 4 , mas ele nao vai mostar 4 pq ultrapassou a qtd
	response.Write(num) & "-"  'var mostrar só até 3
	  'sql = "insert into tabela(campo,campos)  values ('" & num  & "','" & 0 & "')"
	  'set ccliente = Database.Execute(sql)
	num = num + 1
Next

Response.Write(num) ' aqui fora do loop vai mostrar 4 como havia dito.

ou seja para q você possa ir até 4 ou você coloca a qtd até 4 ou entao começa o seu for com 0

 

no seu caso ou você começa o sua qtd com 50 ou entao começa o seu for com 0

 

Espero que tenha entendido

 

Fabiano

[Ewerton93 0]

Opa tudo bom,

 

O for estar correto.

 

Pq quando você atinge a qtd de 49 a variavel num vai estar com 50, mas como o for vai só até 49 ele nao vai mostrar.

 

Entendeu?

 

Caso nao tenha entendido

Faça o seguinte que você vai perceber o que to falando

 

qdt = 3

num = 1

 

For cont = 1 To qdt 'quando a qtd for 3 o valor de num vai ser 4 , mas ele nao vai mostar 4 pq ultrapassou a qtd

response.Write(num) & "-" 'var mostrar só até 3

'sql = "insert into tabela(campo,campos) values ('" & num & "','" & 0 & "')"

'set ccliente = Database.Execute(sql)

num = num + 1

Next

 

Response.Write(num) ' aqui fora do loop vai mostrar 4 como havia dito.

 

ou seja para q você possa ir até 4 ou você coloca a qtd até 4 ou entao começa o seu for com 0

 

no seu caso ou você começa o sua qtd com 50 ou entao começa o seu for com 0

 

Espero que tenha entendido

 

Fabiano

ola fabiano valu pela ajuda mas o meu erro era no cont que ta igual a um e contava um a menos

 

coloquei assim

For cont = 0 To qdt step 1
	response.Write(num) & "-" 
	  'sql = "insert into tabela(campo,campos)  values ('" & num  & "','" & 0 & "')"
	  'set ccliente = Database.Execute(sql)
	num = num + 1
Next

agora assim funcionou do jeito que eu queria

 

problema resolvido

 

vlw pela ajuda