RETORNO EM PROPRIEDADE OCX

EPISCOPAL 02/05/2010 00:41:39
#340730

CÓDIGO:

Public Property Get ValueTable(IndexCol As Integer) As Long

If IsCell = False Then ValueTable(IndexCol) = -1: Exit Property

Select Case IndexCol

Case Is = 0
ValueTable(IndexCol) = ReadTableIn
Case Is >= 1
ValueTable(IndexCol) = ReadTable(IndexCol)
End Select


End Property

Public Property Let ValueTable(IndexCol As Integer, lWidth As Long)

[ô]VALOR DA TABELA

End Property


ESTE E O CODIGO DE UMA PROPRIEDADE DA MINHA OCX ........ SO QUE ELA SEMPRE RETORNA UM ZERO QDO EXECUTADO .... PQ SERÁ???

SE EU INSERIR:

Case Is = 0
ValueTable(IndexCol) = ReadTableIn >>>>>>>. nao funciona
MsgBox ReadTableIn >>>>>>>>> funciona


onde táo grilooooo???