Guerino Postado Outubro 2, 2010 Denunciar Share Postado Outubro 2, 2010 Galera, como copiar e colar Msflexgrid em outro form sem dá erro, esta aparecendouma mensagem: Subscript out of range, 381: como faço para resolver.Segue abaixo o código:NotaFiscal.Text17.Text = fg1.TextMatrix((1), 1)NotaFiscal.Text18.Text = fg1.TextMatrix((1), 2)NotaFiscal.Text19.Text = fg1.TextMatrix((1), 3)NotaFiscal.Text20.Text = fg1.TextMatrix((1), 4)NotaFiscal.Text21.Text = fg1.TextMatrix((1), 5)NotaFiscal.Text22.Text = fg1.TextMatrix((1), 6)NotaFiscal.Text23.Text = fg1.TextMatrix((1), 7)NotaFiscal.Text24.Text = fg1.TextMatrix((1), 8)'If fg1.TextMatrix(2, 1) = (14) Then ( o erro esta aqui, na fg1 aparece a mensagem )NotaFiscal.Text25.Text = fg1.TextMatrix((2), 1)NotaFiscal.Text43.Text = fg1.TextMatrix((2), 2)NotaFiscal.Text55.Text = fg1.TextMatrix((2), 3)NotaFiscal.Text56.Text = fg1.TextMatrix((2), 4)NotaFiscal.Text57.Text = fg1.TextMatrix((2), 5)NotaFiscal.Text58.Text = fg1.TextMatrix((2), 6)NotaFiscal.Text59.Text = fg1.TextMatrix((2), 7)NotaFiscal.Text60.Text = fg1.TextMatrix((2), 8)alguém sabe? Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 kuroi Postado Outubro 9, 2010 Denunciar Share Postado Outubro 9, 2010 acho q o se flexgrid não tem a linha 2, não é isso?? Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Guerino
Galera, como copiar e colar Msflexgrid em outro form sem dá erro, esta aparecendouma mensagem: Subscript out of range, 381: como faço para resolver.
Segue abaixo o código:
NotaFiscal.Text17.Text = fg1.TextMatrix((1), 1)
NotaFiscal.Text18.Text = fg1.TextMatrix((1), 2)
NotaFiscal.Text19.Text = fg1.TextMatrix((1), 3)
NotaFiscal.Text20.Text = fg1.TextMatrix((1), 4)
NotaFiscal.Text21.Text = fg1.TextMatrix((1), 5)
NotaFiscal.Text22.Text = fg1.TextMatrix((1), 6)
NotaFiscal.Text23.Text = fg1.TextMatrix((1), 7)
NotaFiscal.Text24.Text = fg1.TextMatrix((1), 8)
'
If fg1.TextMatrix(2, 1) = (14) Then ( o erro esta aqui, na fg1 aparece a mensagem )
NotaFiscal.Text25.Text = fg1.TextMatrix((2), 1)
NotaFiscal.Text43.Text = fg1.TextMatrix((2), 2)
NotaFiscal.Text55.Text = fg1.TextMatrix((2), 3)
NotaFiscal.Text56.Text = fg1.TextMatrix((2), 4)
NotaFiscal.Text57.Text = fg1.TextMatrix((2), 5)
NotaFiscal.Text58.Text = fg1.TextMatrix((2), 6)
NotaFiscal.Text59.Text = fg1.TextMatrix((2), 7)
NotaFiscal.Text60.Text = fg1.TextMatrix((2), 8)
alguém sabe?
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.