USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic .Net
Voltar
Autor Assunto:  Combo no VB .NET - Mostrar texto e gravar código.
André Luiz
SANTOS
SP - BRASIL
ENUNCIADA !
Postada em 17/03/2005 14:28 hs            
Pessoal, tenho o seguinte código abaixo que me carrega uma combo de lista de transportadoras:
 

Private Sub LinkComboTransp()

'Retorna os nomes das transportadoras da tabela transportadoras

Dim dbConn As System.Data.OleDb.OleDbConnection = New System.Data.OleDb.OleDbConnection(OleDbConexao)

dbConn.Open()

Dim DSet As New DataSet

Dim cmd As System.Data.OleDb.OleDbCommand

Dim dbAdaptr As System.Data.OleDb.OleDbDataAdapter = New System.Data.OleDb.OleDbDataAdapter

'cria o objeto datarow e datatable

Dim tRow As DataRow, tTbl As DataTable

With dbAdaptr

.TableMappings.Add("Table", "Transportadoras")

cmd = New System.Data.OleDb.OleDbCommand("Select Codigo, Nome from Transportadoras order by Nome", dbConn)

cmd.CommandType = CommandType.Text

.SelectCommand = cmd

.Fill(DSet)

.Dispose()

End With

DSet.AcceptChanges()

tTbl = DSet.Tables.Item(0)

DSet.Dispose()

dbConn.Close()

'preenche o combo Transportadoras

cmbTransportadora.Text = ""

cmbTransportadora.Items.Clear()

cmbTransportadora.BeginUpdate()

'carrega o combo com o nome das transportadoras

For Each tRow In tTbl.Rows

cmbTransportadora.Items.Add(New MenuItemData(tRow("Codigo"), tRow("Nome").ToString))

Next

cmbTransportadora.EndUpdate()

End Sub

 

Como eu faço para, no caso de um insert, eu pegue o código da transportadora e não o nome que aparece na combo?

   
Alan
Pontos: 2843
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 05/04/2005 11:47 hs            
André Luiz
 
Vc deve ter um classe com este nome MenuItemData que não foi postado aqui.
 
Para vc pegar o valor talvez deva ser assim:

me.caption = CType
(Me.cmbTransportadora.SelectedItem, MenuItemData).Propriedade
 
Alan
 
 
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página