Daew!
Bom o negócio é o seguinte:
Estou começando o trbalhar em um sistema. Uma das telas que eu estou alterando funciona da seguinte maneira:
É um cadastro de números de série dos produtos. No campo produto existe um evento Keydown que chama outra tela "FrmListar".
Esta tela é usada para fazer buscas de Cliente, fornecedores e Produtos usando uma variável TELA para fazer as identificações e etc...
Nesta tela ("FrmListar") existe um List q trás as informações das tabelas e um evento keypress para inserir os dados nos campos da tela onde ela("FrmListar") foi chamada.
No entanto na minha tela de Números de série quero que traga apenas o código do produto para o campo na tela ("FrmCadSerie"), porém esta trazendo o item do list inteira tudo junto (Código e nome).
Se alguém entender pode me ajudar a trazer somente o código?
Na tela ("Frmlistar")
Private Sub Listar()
If DTPM.BOF Then DTPM.MoveMin
List1.Clear
For x = 0 To 13
If Tabela = "CadCli" Then
List1.AddItem Space(10 - Len(DTPM!CODICLI)) & DTPM!CODICLI & Space(2) & DTPM!NomeCli
ElseIf Tabela = "CadFor" Then
List1.AddItem Space(10 - Len(DTPM!Codigo)) & DTPM!Codigo & Space(2) & DTPM!Descricao
ElseIf Tabela = "CadPro" Then
List1.AddItem Space(16 - Len(DTPM!Codigo)) & DTPM!Codigo & Space(2) & DTPM!Descricao
ElseIf Tabela = "CadEquip" Then
List1.AddItem DTPM!ident & Space(10 - Len(DTPM!ident & "")) & Left(DTPM!equipamento & "", 15) & Space(16 - Len(Left(DTPM!equipamento & "", 15))) & Left(DTPM!Marca & "", 8) & Space(9 - Len(Left(DTPM!Marca & "", 8))) & Left(DTPM!Modelo & "", 8) & Space(9 - Len(Left(DTPM!Modelo & "", 8))) & (DTPM!Local & "")
End If
DTPM.MoveNext
If DTPM.EOF Then Exit For
Next x
End Sub
depois
if tela = frmcadserie then
FrmCadSerie.Text(0) = List1.List(List1.ListIndex)
end if
Blz.
