|
|
Postada em 08/08/2007 21:04 hs
Olá pessoal,
bem, está dando um erro bem estranho quando eu mando atualizar o grid
vejam o codigo:
Set consultacap = Base.OpenRecordset("SELECT DiagP.PergDesc, Diag.Positivo FROM DiagP INNER JOIN Diag ON DiagP.PergCod = Diag.Pergunta WHERE Diag.Cliente LIKE '" + FRMclientes.LBLcod.Caption + "*' AND DiagP.Capilar = true", dbOpenSnapshot)
If consultacap.RecordCount = 0 Then
Set consultacap = Base.OpenRecordset("SELECT PergDesc FROM DiagP WHERE Capilar = true", dbOpenSnapshot)
linha = 1
Do While Not consultacap.EOF
GRDcap.Row = linha
GRDcap.Col = 0
GRDcap.Text = consultacap("PergDesc")
linha = linha + 1
consultacap.MoveNext
Loop
consultacap.Close
Else
linha = 1
Do While Not consultacap.EOF
GRDcap.Row = linha
GRDcap.Col = 0
GRDcap.Text = consultacap("PergDesc")
GRDcap.Col = 1
If consultacap("Positivo") = True Then
GRDcap.Text = "þ"
Else
GRDcap.Text = "q"
End If
linha = linha + 1
consultacap.MoveNext
Loop
consultacap.Close
End If
bem... o erro é quando vai fazer o loop... ele da o erro "Run-time error '30009':" "Invalid Row Value"
só que mesmo se eu atribuir o valor 5 para a row, ele da o mesmo erro.
já fiz assim em outros projetos, não sei o pq desse erro
|
|
|
|
|
|
LCRamos
|
GOIANIA
GO - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 09/08/2007 07:36 hs
Veja se dá certo: For Linha = 0 To consultacap.RecordCount If Linha > 0 Then
GRDcap.Row = linha
GRDcap.Col = 0
GRDcap.Text = consultacap("PergDesc") End If
Next Linha vlu//
Loop
|
|
|
|
Alptraum
|
CURITIBA
PR - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 09/08/2007 15:43 hs
obrigado, deu certo e agora eu já consigo até salvar os dados no banco
só que eu não consigo alterar, quando faço a rotina para alterar ele altera qualquer registro não respeitando se é do cliente X ou Y
estou fazendo assim
For r = 1 To GRDcap.Rows - 1
diag.Edit
If GRDcap.TextMatrix(r, 1) = "þ" Then
diag("Positivo") = True
End If
diag.Update
Next
gostaria de saber como alterar os registros apenas do cliente selecionado
|
|
|
|
LCRamos
|
GOIANIA
GO - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 13/08/2007 04:10 hs
Mude veja se é isto. For r = 1 To GRDcap.Rows - 1
If GRDcap.TextMatrix(r, 1) = "þ" Then diag.Edit
diag("Positivo") = True diaf.Update
End If
Next vlu//
|
|
|
|
