Postada em 16/07/2009 17:28 hs
Nesse Ponto carrego o Grid:
Dim TotalLB As String
With Tabela_LM
.CursorType = adOpenStatic
.CursorLocation = adUseClient
.LockType = adLockPessimistic
.Source = "SELECT [ID],[OF],[RC],Descricao,Posicao,Quantidade,Sobra,Dispositivo,Origem,Destino,Prazo,Recebido,Obra,Fabrica,Codigo,ObsItem FROM Dados WHERE LM_1 = '" & Lb_Lista.Caption & "' ORDER BY ID"
.ActiveConnection = Banco2
.Open
If .BOF = True And .EOF = True Then Exit Sub
Grid.Rows = .RecordCount + 1
Do Until .EOF = True
Row = Row + 1
Grid.Col = 0
Grid.Row = Row
Grid.TextMatrix(Row, 0) = Nnull(!ID)
Grid.TextMatrix(Row, 1) = Nnull(!Posicao)
Grid.TextMatrix(Row, 2) = Nnull(!Quantidade)
Grid.TextMatrix(Row, 3) = Nnull(!Dispositivo)
Grid.TextMatrix(Row, 4) = Nnull(!Descricao)
Grid.TextMatrix(Row, 5) = Nnull(!Origem)
Grid.TextMatrix(Row, 6) = Nnull(!Destino)
Grid.TextMatrix(Row, 7) = Nnull(!Of)
Grid.TextMatrix(Row, 8) = Nnull(!Sobra)
Grid.TextMatrix(Row, 9) = Nnull(Format(!Prazo, "DD/MM/YYYY"))
Grid.TextMatrix(Row, 10) = Nnull(!Recebido)
Grid.TextMatrix(Row, 11) = Nnull(!Obra)
Grid.TextMatrix(Row, 12) = Nnull(!Fabrica)
Grid.TextMatrix(Row, 13) = Nnull(!Codigo)
TotalLB = Nnull(!ObsItem)
.MoveNext
Loop
End With
Grid.Redraw = True
Tabela_LM.Close
Set Tabela_LM = Nothing
Private Sub Grid_Click()
intRow = Grid.Row
intRowSel = Grid.RowSel
If intRow = intRowSel Then
If TotalLB <> "" Then
CmbMsg.Enabled = True
End If
End If
End Sub
Bom, tenho um documento de número 0001 com 03 items, tenho um campo na tabela de nome (ObsItem) onde gravo uma observação caso haja, para cada item. Para esse exemplo somente o segundo item o campo (ObsItem) tem uma observação. A ideia é a seguinte: ao navegar nas linhas do grid, quando posicionar na segunda, acionado atraves do evento click do Grid o (CmbMsg) q é um CommandButton fique com enabled=true. Quanto ao posicionamento no click estou conseguindo fazer, só não estou conseguindo carregar na variavel (TotalLB) o dados do campo (ObsItem) para esse item. Sera q tenho q fazer um Laço? Como fazer?
|
