� s� uma id�ia ....
!!CB!! 244
Column Class: ccolLista
Cell Type? Drop Down List
Allow Text Editing? No
Class Variables
String: vsItens[*]
Instance Variables
Functions
Function: ValidaSelecao
Returns
Boolean:
Parameters
String: psMyValue
Number: pnLinhaEditada
Local variables
Number: nMax
Number: nInd
Actions
Call SalArrayGetUpperBound( vsItens, 1, nMax )
While nInd <= nMax
If vsItens[nInd] = psMyValue AND pnLinhaEditada != nInd
Call SalClearField( hWndItem )
Call SalMessageBox ( "Esse valor n�o pode.Selecione outro", "Ops", MB_Ok )
Return VALIDATE_Cancel
Set nInd = nInd + 1
Set vsItens[pnLinhaEditada] = psMyValue
Return VALIDATE_Ok
List Values
Message Actions
On SAM_Validate
Return ValidaSelecao ( MyValue , lParam )
Column Class: ccolLista
Cell Type? Drop Down List
Allow Text Editing? No
Class Variables
String: vsItens[*]
Instance Variables
Functions
Function: ValidaSelecao
Returns
Boolean:
Parameters
String: psMyValue
Number: pnLinhaEditada
Local variables
Number: nMax
Number: nInd
Actions
Call SalArrayGetUpperBound( vsItens, 1, nMax )
While nInd <= nMax
If vsItens[nInd] = psMyValue AND pnLinhaEditada != nInd
Call SalClearField( hWndItem )
Call SalMessageBox ( "Esse valor n�o pode.Selecione outro", "Ops", MB_Ok )
Return VALIDATE_Cancel
Set nInd = nInd + 1
Set vsItens[pnLinhaEditada] = psMyValue
Return VALIDATE_Ok
List Values
Message Actions
On SAM_Validate
Return ValidaSelecao ( MyValue , lParam )
----- Original Message -----
From: "Fab�" <[EMAIL PROTECTED]>
To: "Sqlwin@Virtualand. Net" <[EMAIL PROTECTED]>
Sent: Monday, March 25, 2002 8:59
PM
>
> Tenho uma tabela e uma das colunas � Drop Down List, que me traz alguns
> itens de uma tabela no banco.
> O que quero fazer �, n�o poder selecionar um mesmo item em uma linha
> diferente, me retornando apenas
> uma msg e n�o permitindo que eu possa selecion�-lo, mas que me permita
> selecionar outros itens que n�o
> os mesmos j� selecionados anteriormente.
>
> Algu�m pode me ajudar???
>
>
> _________________________________________________________
> Do You Yahoo!?
> Get your free @yahoo.com address at http://mail.yahoo.com
>
> ==============================================
> Lista de Centura SQLWindows
> Administrador : [EMAIL PROTECTED]
> [ http://www.centuraexplorer.com ]
> Para sair desta lista mande mensagem para:
> [EMAIL PROTECTED] sem nada no Subject e
> com o comando a seguir no corpo da msg:
> "unsubscribe sqlwin" (sem as aspas)
> ==============================================
>
