|
|
Postada em 23/01/2010 18:10 hs
Pessoal o meu código está assim :
With GridConsClientes
.Rows = 1
.Visible = False
Do While Not rsCDC.EOF
.AddItem ""
.Row = .Rows - 1
.TextMatrix(.Row, 0) = rsCDC!id_cliente
.TextMatrix(.Row, 1) = rsCDC!Nome_RZSocial
If Mid(rsCDC!Natureza, 1, 1) = "J" Then
.TextMatrix(.Row, 2) = Format(rsCDC!Cnpj_Cpf, "##.###.###/####-##")
Else
.TextMatrix(.Row, 2) = Format(rsCDC!Cnpj_Cpf, "###.###.###-##")
End If
.TextMatrix(.Row, 3) = Format(rsCDC!Telefone, "(##)####-####")
.TextMatrix(.Row, 4) = Format(rsCDC!Celular, "(##)####-####")
.TextMatrix(.Row, 5) = rsCDC!E_Mail
.TextMatrix(.Row, 6) = rsCDC!Restricao
For I = 1 To .Cols - 1
.Col = I
Next I
rsCDC.MoveNext
Loop
Até aí tudo bem, mas quando eu passo os dados do banco de dados o cpf, por exemplo 03697009612 e quando passo o valor ele tira o zero e atrapalha tudo.
Por já agradeço
|
|
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
Postada em 24/01/2010 22:58 hs
faça desta forma With GridConsClientes
.Rows = 1
.Visible = False
Do While Not rsCDC.EOF
.AddItem ""
.Row = .Rows - 1
.TextMatrix(.Row, 0) = rsCDC!id_cliente
.TextMatrix(.Row, 1) = rsCDC!Nome_RZSocial
If Mid(rsCDC!Natureza, 1, 1) = "J" Then
.TextMatrix(.Row, 2) = Format(CStr(rsCDC!Cnpj_Cpf), "@@.@@@.@@@/@@@@-@@")
Else
.TextMatrix(.Row, 2) = Format(CStr(rsCDC!Cnpj_Cpf), "@@@.@@@.@@@-@@")
End If
.TextMatrix(.Row, 3) = Format(CStr(rsCDC!Telefone), "(@@)@@@@-@@@@")
.TextMatrix(.Row, 4) = Format(CStr(rsCDC!Celular), "(@@)@@@@-@@@@")
.TextMatrix(.Row, 5) = rsCDC!E_Mail
.TextMatrix(.Row, 6) = rsCDC!Restricao
For I = 1 To .Cols - 1
.Col = I
Next I rsCDC.MoveNext
Loop
|
|
|
|
|
|
Postada em 25/01/2010 09:46 hs
Vou Tenta.....
Valew pela ajuda.....
|
|
|
|
|
|
Postada em 25/01/2010 09:54 hs
Consegui.....
Muito obrigado....
Ass:Diogo Alló
|
|
|
|
|
