preço medio é uma coisa relativa.
por ex se vc quer o preço medio do item da tabela acima basta pegar a qtde de registros, (no caso aí são 5) ... somar todos os valores e dividir por 5...no caso a soma seria 1,16 e o resultado 0,232..
em cód seria +- isso
no declarations
dim lista as variant
no procedure....
item= text1.text ' text1 no caso receberá o numero do item
ssql="select * from tabela where item =" & item
' aki vc vai botar a conexão do ado para pegar o numero de registros da tabela
nreg= tabela.recordcount
' redimensiona a matriz
redim lista(nreg)
agora popula a matriz com os valores da tabela...
...
depois é só somar os valores da matriz e dividir oelo numero de registros..
total=0
for i= 1 to nreg
total=total+lista(i)
next i
precomedio= total/nreg
end sub
