|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Arquivos/Diretórios)
|
|
 |
Título da Dica: Carregar um combo box com os dados de um arquivo texto
|
 |
|
|
|
Postada em 3/9/2002 por Ageu Elias Rove
ageu.rover@bol.com.br
************************************************************
como char a sub
Call CarregaTxtComboBox(cmb_FiltroTabela, App.Path & "\FiltroTab.aux")
***********************************************************
Public Sub CarregaTxtComboBox(nmCombo As ComboBox, ArqTxt As String)
On Error GoTo trata_erro
Screen.MousePointer = 11
Dim ContItem As Integer
Dim Linha As String
If FileExist(ArqTxt) = False Then
Screen.MousePointer = 1
MsgBox "Arquivo " & ArqTxt & " não encontrado.", vbCritical
Exit Sub
End If
Open ArqTxt For Input As #1
ContItem = 1
Do Until EOF(1) = True
DoEvents
Line Input #1, Linha
If Mid(Linha, 1, 4) = "CMP=" Then
nmCombo.AddItem LTrim(RTrim(Mid(Linha, 5)))
nmCombo.ItemData(nmCombo.NewIndex) = ContItem
ContItem = ContItem + 1
End If
Loop
Close #1
Screen.MousePointer = 1
trata_erro:
If Err.Number <> 0 Then
Screen.MousePointer = 1
MsgBox Err.Number & Chr(13) & Err.Description, vbInformation, "Mensagem"
Exit Sub
End If
End Sub
********************************************************
exemplo do arquivo texto:
#### CAMPOS DA TABELA DE Produtos
CMP= CODPROD
CMP= DESCRICAO
CMP= EMBALAGEM
CMP= QTEST
CMP= PUNIT
CMP= PVENDA1
CMP= PVENDA2
CMP= PVENDA3
CMP= PERDESC
CMP= PERCOMISSAO
#### FIM TABELA CLIENTE
|
|
|
|
|
