Oi Fab�,
Outra forma que voc� poderia fazer isso seria assim:
1) Setar a propriedade da coluna em Drop DownList -> Allow Text Editing =
No
2) Implementar a rotina abaixo:
On SAM_AnyEdit
nRow = VisTblFindString (hWndTable, 0, hWndColumn, MyValue)
If nRow != -1
Call SalMessageBox( 'Voc� deve escolher um valor diferente das
demais linhas!', 'Erro', MB_IconStop)
Return FALSE
Else
Return TRUE
Considera��es:
- O Se nRow = -1 � porque n�o existe correspondente na mesma coluna
(hWndColumn)
- O 2� par�metro � a linha da tabela em que come�a a pesquisa, no
caso 0 (zero) � sempre a primeira linha.
- O �ltimo par�metro � a string que se est� procurando, no caso o
valor escolhido (MyValue)
- Caso a fun��o VisTblFindString n�o estea dispon�vel, inclua a
library VTTBLWIN.APL ou VT.APL que ficam no diret�rio de instala��o do
Centura
Espero que ajude
[ ]'s
Fabiano Reis
WestLB - Banco Europeu
Systems Development
"lairton" <[EMAIL PROTECTED]>
Sent by: [EMAIL PROTECTED]
25/03/02 23:11
Please respond to sqlwin
To: <[EMAIL PROTECTED]>
cc:
Subject: [sqlwin] Re:
� 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 +
����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
> Boa noite pessoal...
>
> 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)
> ==============================================
>
********************************************************************
********************************************************************
Diese Nachricht ist vertraulich. Sie ist ausschliesslich fuer
den im Adressfeld ausgewiesenen Adressaten bestimmt.
Sollten Sie nicht der vorgesehene Empfaenger sein, so bitten
wir um eine kurze Nachricht. Jede unbefugte Weiterleitung
oder Fertigung einer Kopie ist unzulaessig. Da wir nicht die
Echtheit oder Vollstaendigkeit der in dieser Nachricht
enthaltenen Informationen garantieren koennen, schliessen wir
die rechtliche Verbindlichkeit der vorstehenden Erklaerungen
und Aeusserungen aus. Wir verweisen in diesem Zusammenhang
auch auf die fuer die Bank geltenden Regelungen ueber die
Verbindlichkeit von Willenserklaerungen mit verpflichtendem
Inhalt, die in den bankueblichen Unterschriftenverzeichnissen
bekannt gemacht werden.
This message is confidential and may be privileged. It is
intended solely for the named addressee. If you are not the
intended recipient please inform us. Any unauthorised
dissemination, distribution or copying hereof is prohibited.
As we cannot guarantee the genuineness or completeness of
the information contained in this message, the statements
set forth above are not legally binding. In connection
therewith, we also refer to the governing regulations of
WestLB concerning signatory authority published in the
standard bank signature lists with regard to the legally
binding effect of statements made with the intent to
obligate WestLB.
********************************************************************
********************************************************************
=============================================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)
=============================================
