Treze
|
SÃO VICENTE
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 27/04/2008 10:53 hs
este site ele tem a mania de mudar algumas coisas, exemplo você deve colocar a barra invertida duas vezes seguindas para que apenas uma apareça. no caso do emm outros caso em que a palavra é alterada coloco um underline antes da ultima letra para se ter noção da palavra exata, ex: Findfirs_t, MoveFirs_t. Mas me diz uma coisa corrigindo a palavra funcionou? |
|
|
|
|
|
|
|
Postada em 27/04/2008 11:33 hs
parece que deve ta funcionando, mas o msflexgrid não aparece quando eu pressiono o "enter"
|
|
|
|
Treze
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 27/04/2008 12:16 hs
simplismente não aparece, ou não carrega os dados |
|
|
|
|
|
Postada em 28/04/2008 00:32 hs
se carrega os dados eu não sei, mas não aparece o grid, do vários enters e nada do grid aparecer, e eu tenho que adicionar mais um item na tabela do banco de dados e mexer no aplicativo inteiro. Esqueci 
|
|
|
|
|
|
Postada em 28/04/2008 18:38 hs
o msflexgrid quando eu digito a palavra e teclo enter simplesmente não aparece, não sei te dizer se ele carrega os dados pra memória ou não, teclo enter e não acontece nada, ele não trava e nem aparece o grid, entendeu?
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 29/04/2008 11:28 hs
If KeyAscii = 13 Then
If Trim(txtnome.Text) = Empty Then
x = MsgBox("Deseja consultar todos os registros ?", 36, "Aviso")
If x = vbYes Then
If TB.RecordCount = 0 Then
Call Limpar_Tela
Call Desligar_Tela
MsgBox "Não contem registros com esta especificação.", 64, "Aviso"
txtnome.SetFocus
txtnome.SelStart = 0
txtnome.SelLength = Len(txtnome.Text)
Else
TB.MoveMin
tabela.Cols = 10
tabela.Rows = 2
tabela.Row = 1
tabela.Col = 1
tabela.Text = TB("Codigo") & ""
tabela.Row = 1
tabela.Col = 2
tabela.Text = TB("Catalogo") & ""
tabela.Row = 1
tabela.Col = 3
tabela.Text = TB("Console") & ""
tabela.Row = 1
tabela.Col = 4
tabela.Text = TB("Nome") & ""
tabela.Row = 1
tabela.Col = 5
tabela.Text = TB("Genero") & ""
tabela.Row = 1
tabela.Col = 6
tabela.Text = TB("Armazenamento") & ""
tabela.Row = 1
tabela.Col = 7
tabela.Text = TB("Boot") & ""
tabela.Row = 1
tabela.Col = 8
tabela.Text = TB("Sistcor") & ""
tabela.Row = 1
tabela.Col = 9
tabela.Text = TB("Linguagem") & ""
Numero = 1
Linhas = 2
End If
If x = vbNo Then
Call Limpar_Tela
Call Desligar_Tela
End If Exit Sub
End If
Else
Criterio = TxtInformacao.Text & " LIKE '*" & txtnome.Text & "*'"
TB.FindMin Criterio
If TB.NoMatch Then
Call Limpar_Tela
Call Desligar_Tela
MsgBox "Não contem registros com esta especificação.", 64, "Aviso"
txtnome.SelStart = 0
txtnome.SelLength = Len(txtnome.Text)
Else
tabela.Cols = 10
tabela.Rows = 2
tabela.Row = 1
tabela.Col = 1
tabela.Text = TB("Codigo") & ""
tabela.Row = 1
tabela.Col = 2
tabela.Text = TB("Catalogo") & ""
tabela.Row = 1
tabela.Col = 3
tabela.Text = TB("Console") & ""
tabela.Row = 1
tabela.Col = 4
tabela.Text = TB("Nome") & ""
tabela.Row = 1
tabela.Col = 5
tabela.Text = TB("Genero") & ""
tabela.Row = 1
tabela.Col = 6
tabela.Text = TB("Armazenamento") & ""
tabela.Row = 1
tabela.Col = 7
tabela.Text = TB("Boot") & ""
tabela.Row = 1
tabela.Col = 8
tabela.Text = TB("Sistcor") & ""
tabela.Row = 1
tabela.Col = 9
tabela.Text = TB("Linguagem") & ""
Numero = 1
Linhas = 2
TrmProcurarOutros1.Enabled = True
End If
' Exit Sub ' <----retire este exit sub daqui
End If
End If
'
End Sub veja se funciona |
|
|
|
