br4g4
|
RIO DE JANEIRO
RJ - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 15/10/2007 16:57 hs
Amigos Tenho um ListView que é povoado com dados básicos de Clientes (nome, telefone, endereço, e-mail, ...). Acontece que surgiu a necessidade de apresentar um novo campo de dados, mas esse novo campo relacionado a cada um cliente possui, em média, 10 registros. No access possuo uma tabela 'Clientes' e relacionada a ela terá uma nova tabela chamada 'Sinonimos' a qual possuirá vários sinônimos de um só cliente. A dúvida é a seguinte: ao clicar em qualquer um registro no ListView1, gostaria que seus sinônimos fossem visualizados em outro ListView2. Essa visualização não precisa ser obrigatóriamente em um ListView, pode ser em um ListBox, FlexGrid, DataGrid e etc. Dou preferência ao ListView pela hormônia do designer do Formulário. Quanto a esse procedimento encontrei um exemplo pronto utilizando dois DataGrid: grdMestre e grdDetalhe. Mas não estou conseguindo alterar o código para ser utilizado com dois ListView. Agradeço desde já a ajuda! Obrigado. |
|
|
|
|
|
|
|
Postada em 16/10/2007 08:32 hs
Do mesmo modo que vc preenche um listview, vai preencher o outro no evento click de acordo com o cliente selecionado. Posta um pedaço do seu código que eu mostro como mais ou menos vc deve fazer |
|
|
|
|
|
Postada em 16/10/2007 08:34 hs
Br4g4 seria melhor vc colocar o código aqui para podermos analisar e tentar lhe dar uma resposta e lhe auxiliar em sua dúvida. Flw T+
João Carlos Junior Administrador de Redes - Windows 2003 Srv, Linux Desenvolvedor Visual Basic 6.0 com Access, SQL Server, VB .Net e Crystal Reports X Iniciante em C# e ASP .NET
|
|
|
|
br4g4
|
RIO DE JANEIRO
RJ - BRASIL
|
|
Postada em 16/10/2007 11:03 hs
Nesse momento os códigos não estam comigo, mas até amanhã o postarei para melhor compreenção. Obrigado! |
|
|
|
br4g4
|
RIO DE JANEIRO
RJ - BRASIL
|
|
Postada em 17/10/2007 12:17 hs
Aqui está parte do meu código. O Fomulário possui um PictureBox (apresenta a foto do cliente), dois Label 1 e 2 (apresenta em destaque o nome e o telefone do cliente), um ComboBox (oferece a opção de procurar o cliente por nome ou código), um TextoBox (onde é digitado o nome ou o código do cliente que se deseja encontrar) e um ListView (que é povoado com os dados da tabela 'Clientes' ). Nesse mesmo formulário vai ser necessário acrescentar mais um ListView (pode ser um ListBox, FlexGrid, ...), onde ao clicar em/ou selecionar qualquer cliente no ListView1 seria visualizado no ListView2 seus possíveis sinônimos, registrados em uma nova tabela chamada 'Sinonimos' . Private Sub cmbProcurarPor_Click() txtFiltro End Sud -------------------------------------------------------------------------------- Private Sub Form_Load()
Call Conectar Verifica_rs rs.Open "select * from Clientes", cnn
Preenche_Lista
End Sub ------------------------------------------------------------------------------------ Public Sub Preenche_Lista() ListaClientes.ListItems.Clear
If rs.RecordCount = 0 Then Exit Sub
While Not rs.EOF Set lst = ListaClientes.ListItems.Add(, , rs(0))
For i = 1 To 8 lst.SubItems(i) = rs(i) Next i rs.MoveNext Wend
End Sub --------------------------------------------------- Private Sub txtProcurar_Change()
txtFiltro
End Sub --------------------------------------------------- Public Sub txtFiltro()
Dim procurarpor As String If cmbProcurarPor.ListIndex = -1 Then cmbProcurarPor.ListIndex = 1 If cmbProcurarPor.ListIndex = 0 Then procurarpor = "codigo" ElseIf cmbProcurarPor.ListIndex = 1 Then procurarpor = "nome" End If verifica_rs rs.Open "select * from Clientes where " & procurarpor & " like '" & txtProcurar & "%'"
Preenche_Lista
End Sub -------------------------------------------------------------- Private Sub ListaClientes_KeyUp(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyUp PicFoto.Picture = LoadPicture(ListaClientes.SelectedItem.Text) lblNone.Caption = ListaClientes.SelectedItem.SubItems(1) lblTelefone.Caption = ListaClientes.SelectedItem.SubItems(2) Case vbKeyDown PicFoto.Picture = LoadPicture(ListaClientes.SelectedItem.Text) lblNone.Caption = ListaClientes.SelectedItem.SubItems(1) lblTelefone.Caption = ListaClientes.SelectedItem.SubItems(2)
End Select End Sub Obrigado. |
|
|
|
|
