Fabson
-
Total de itens
114 -
Registro em
-
Última visita
Posts postados por Fabson
-
-
Ola
Percebi, uma diferença nessa linha
Dim dtg As DataGridItem = dtgMat.Items(i)
acho que seria
Dim dtg As DataGridRow = dtgMat.Rows(i)
Fabson
-
Olá, voce pode fazer da seguinte forma:
obs. TextBox1 deve ser substituido pelo nome do seu componente que você colocou no template
For x = 0 To gridview.Rows.Count - 1 Dim dgItem As GridViewRow = gridview.Rows(x) Dim txtConteudo As TextBox = CType(dgItem.FindControl("TextBox1"), TextBox) variavel = txtConteudo.Text Next x
Espero ter ajudado!
-
Olá,
Gostaria de saber se é preciso configurar o asp.net para
desenvolver um web site, onde vários programadores
estariam trabalhando.
Desde já agradeco
Fabs
-
Certo!
Boas dicas, eu tenho experiência em Delphi e VB6, mas vocês sabem como são as coisas, temos que nos atualizar ... rsrsrs ... e vamos lá
Mais dicas e sugestões são bem-vindas.
Obrigadão
-
Olá pessoal,
Estou precisando utilizar código de barras, na verdade imprimir etiquetas
para os produtos.
Alguém sabe como fazer isso no Delphi?
Desde já agradeço
Fabson
-
Olá pessoal, quero começar a trabalhar com o .net, gostaria de alguns conselhos de vocês, dias de bons livros e etc.
Desde já agradeço
Fabson
-
ok!
Obrigado pela dica.
-
Olá
Estou precisando de 2 coisas:
1) uma rotina de backup e restore no VB6
2) como consigo fazer Help em VB6
Alguém pode me ajudar
Desde já agradeço.
-
olá
Estou desenvolvendo uma aplicação, que terá dois níveis de usuário:
O administrador (acessa todas as opções) e usuários (que acessas opções restritas)
como posso fazer isso no VB?
Desde já agradeço
Obrigado
-
Quando inicio meu sistema, gostaria de dar um tempo na tela inicial e depois ir
para o meu principal.
Como posso fazer isso!
desde já agradeço
-
Olá!
Tenho um DBGrid com os campos nome e valor, só que é mostrado na tela
da seguinte forma:
JOSE DA SILVA 100,1
PEDRO COSTA 65,5
FRANCISCO 50
Eu queria que o valor aparecesse com mascara, só que consigo achar essa
propriedade, para ficar assim:
JOSE DA SILVA R$ 100,10
PEDRO COSTA R$ 65,50
FRANCISCO R$ 50,00
quem puder me ajudar, agradeço!
-
ola!
Qual é o banco de dados que você utilizam?
-
Olá,
Gostaria de saber como transfiro o resultado de um QRExpr para uma variável.
Ex. Tenho um componente QRExpr que faz uma soma, queria pegar o resultado
dessa soma e fazer alguns calculas, para isso teria que passar o resultado para
uma variável, como faço isso?
Desde já agradeço.
-
ok valeu, muito obrigado
-
Olá
como faço para saber o diretório corrente no delphi 6
desde já agradeço!
-
ola!
alguém tem alguma função que converte números naturais em números romanos.
exemplo 1 para I, 4 para IV
desde já agradeço obrigado
-
Ola!
Estou com um problema:
tenho um servidor Linux Conectiva 8
tenho uma estação win98SE
e quando vou compartilhar uma pasta ele dá a seguinte mensagem:
A lista de usuarios não esta disponivel no momento. Tente novamente mais tarde.
É mais intrigante porque tenho uma outra estação com win98SE e o compartilhamento funciona normalmente. já confrontei as configurações de rede das estações, esta tudo certo, uma funciona e outra não!
desde já agradeço
-
Ola!
Estou com um problema:
tenho um servidor Linux Conectiva 8
tenho uma estação win98SE
e quando vou compartilhar uma pasta ele dá a seguinte mensagem:
A lista de usuarios não esta disponivel no momento. Tente novamente mais tarde.
É mais intrigante porque tenho uma outra estação com win98SE e o compartilhamento funciona normalmente. já confrontei as configurações de rede das estações, esta tudo certo, uma funciona e outra não!
desde já agradeço
-
Ola!
Estou com um problema:
tenho um servidor Linux Conectiva 8
tenho uma estação win98SE
e quando vou compartilhar uma pasta ele dá a seguinte mensagem:
A lista de usuarios não esta disponivel no momento. Tente novamente mais tarde.
É mais intrigante porque tenho uma outra estação com win98SE e o compartilhamento funciona normalmente. já confrontei as configurações de rede das estações, esta tudo certo, uma funciona e outra não!
desde já agradeço
-
Muito obrigado ... deu certo!
-
Ola!
Alguém indicaria um bom livro para começar, já programo em VB6. Gostaria de começar em ASP.
desde já obrigado!
-
Ola!
Gostaria de saber se existe um programa que "passe" as apresentações do powerpoint.
Não gostaria de instalar o powerpoint, somente um programa que "passasse" as apresentações que seja free.
desde já agradeço.
Fabson
-
Public Function ValidEMail(sEMail As String) As Boolean
Dim nCharacter As Integer
Dim Count As Integer
Dim sLetra As String
If Len(sEMail) < 5 Then
ValidEMail = False
MsgBox "O E-Mail Digitado tem menos de 5 caracteres!!!", vbExclamation, "Atenção"
Exit Function
End If
For nCharacter = 1 To Len(sEMail)
If Mid(sEMail, nCharacter, 1) = "@" Then
Count = Count + 1
End If
Next
If Count <> 1 Then
ValidEMail = False
MsgBox "O nº de arrobas (@) do E-Mail é inválido!!!", vbExclamation, "Atenção"
Exit Function
Else
If InStr(sEMail, "@") = 1 Then
ValidEMail = False
MsgBox "O E-Mail foi iniciado com uma arroba (@)!!!", vbExclamation, "Atenção"
Exit Function
ElseIf InStr(sEMail, "@") = Len(sEMail) Then
ValidEMail = False
MsgBox "O E-Mail termina com uma arroba (@)!!!", vbExclamation, "Atenção"
Exit Function
End If
End If
nCharacter = 0
Count = 0
For nCharacter = 1 To Len(sEMail)
If Mid(sEMail, nCharacter, 1) = "." Then
Count = Count + 1
End If
Next
If Count < 1 Then
ValidEMail = False
MsgBox "O E-Mail é inválido, pois não contém pontos (.)!!!", vbExclamation, "Atenção"
Exit Function
Else
If InStr(sEMail, ".") = 1 Then
ValidEMail = False
MsgBox "O E-Mail foi iniciado com um ponto (.)!!!"
Exit Function
ElseIf InStr(sEMail, ".") = Len(sEMail) Then
ValidEMail = False
MsgBox "O E-Mail termina com um ponto (.)!!!"
Exit Function
ElseIf InStr(InStr(sEMail, "@"), sEMail, ".") = 0 Then
ValidEMail = False
MsgBox "O E-Mail não tem nenhum ponto (.) após a arroba (@)!!!", vbExclamation, "Atenção"
Exit Function
End If
End If
nCharacter = 0
Count = 0
If InStr(sEMail, "..") > InStr(sEMail, "@") Then
ValidEMail = False
MsgBox "O E-Mail contém pontos consecutivos (..) após o arroba (@)!!!", vbExclamation, "Atenção"
Exit Function
End If
For nCharacter = 1 To Len(sEMail)
sLetra = Mid$(sEMail, nCharacter, 1)
If Not (LCase(sLetra) Like "[a-z]" Or sLetra = _
"@" Or sLetra = "." Or sLetra = "-" Or _
sLetra = "_" Or IsNumeric(sLetra)) Then
ValidEMail = False
MsgBox "Foi digitado um caracter inválido no E-Mail!!!", vbExclamation, "Atenção"
Exit Function
End If
Next
If Right$(sEMail, 1) = "." Then
ValidEMail = False
MsgBox "E-Mail não Pode Terminar Com Ponto (.) ..!!!", vbExclamation, "Atenção"
End If
nCharacter = 0
ValidEMail = True
End Function
-
sim, eu estou usando o on error goto, na verdade está assim:
Dim Arquivo as String
on error goto TRATA:
Arquivo = "INSERT Into TBConta (con_codigo, con_agencia, ban_codigo, con_conta, con_nome,gravadopor, con_percentual_repasse, loc_codigo, con_dia_repasse, con_emite_cheque)
Arquivo = Arquivo & "Values(" & Proximo_Codigo & ",'" & txtAgencia & "'," & txtBanco & ",'" & txtConta & "','" & txtNomeFavoravel & "','" & GeralUsuario & " " & Date & " " & Time & "'," & IIf(Len(Trim(mbPercentual)) > 0, Replace(Format(mbPercentual, "########0.00"), ",", "."), 0) & "," & txtCodigo & "," & txtDiaRepasse & "," & ch_Cheque & ")"
BancoDados.Execute Arquivo
exit sub
TRATA:
tratarerros NomeUsuario & ", não foi possível gravar esse registro, verifique!"
estranho né?
Desenvolvimento Integrado
em .NET
Postado
Muito obrigado,
Vou checar sua sugestão
Fabs