Ol� Fabiano, ainda n�o tive tempo de testar a sua dica... Mas o que o Lairton mandou, n�o funcionou da forma que eu queria, pois no validade_cancel ele desabilita minha coluna. Mas de qq forma, muito obrigada a todos.
T�o logo te retorno o resultado da sua dica! [ ]'s Fab�. -----Mensagem original----- De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]Em nome de [EMAIL PROTECTED] Enviada em: Ter�a-feira, 26 de Mar�o de 2002 09:23 Para: [EMAIL PROTECTED] Assunto: Re: [sqlwin] Re: 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) ================ _________________________________________________________ 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) ==============================================
