VETOR/ARRAY

HELDERANGEL 27/07/2009 17:21:44
#318026
Estou precisando criar um vetor/array depois de fazer um select nas notas fiscais de entrada e saida de um periodo, só que ele deve ter como chave o codigo do produto. Como faço para criar e como faço para verificar na próxima nota se o produto já existe no vetor/array????

Exemplo:

Estou na NF 1000 - produto 2, verifico se existe, caso contrario incluo este produto no vetor
Estou na NF 1001 - produto 2, verifico se existe, caso contrario incluo este produto no vetor
Estou na NF 1002 - produto 4, verifico se existe, caso contrario incluo este produto no vetor


Valeu
MARCELO.TREZE 28/07/2009 11:05:06
#318106
Minha dica Seria crie um Type com Array desta forma

Private Type NotaFiscal
  Numero As Integer
  Produto As String
End Type


Faça o select o seu select e preencha a array desta forma, ex:

Dim iNum As Integer, Nota() As NotaFiscal

sSQL = [Ô]SELECT * FROM nota_fiscal[Ô]
Set RS = CONN.Execute(sSQL)
Do While Not RS.EOF
iNum = iNum + 1
    Redim Preserve Nota(iNum)
    Nota(iNum).Numero= RS!numero
    Nota(iNum).Produto= RS!Produto
RS.MoveNext
Loop


bom para verificar se o produto existe na array seria assim

For f=1 To UBound(Nota)
If Nota(f).Numero = 0001 then
MsgBox [Ô]Produto já existe![Ô]
Exit For
End if
Next f


Veja se consegue adaptar
Tópico encerrado , respostas não são mais permitidas
Voltar