Fabson

Muito obrigado, Vou checar sua sugestão Fabs

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é?