CARREGAR GRID VBALGRID 2.0 COM DADOS

MOREIRA 19/04/2010 23:46:53
#339756
Olá Pessoal, dei uma pesquisada aqui no site, mas nao encontrei, quero Carregar Dados de uma tabela nesse Grid.. VBALGRID 2.0

Db Mysql..
MOREIRA 21/04/2010 14:51:21
#339858
Aparentimente parecer ser simples a montagem nesse grid [Ô]SGrid[Ô].. kkkkk
veja q na linha em vermelho a baixo nao conseuir entender qual funçao q devo usar pra exibir um CheckBox, marcar e desmarcar o Check na linha.

como faço tambem pra somar uma coluna

obrigado pela atenção.

Private Sub Form_Load()
Dim i As Integer
Set Rst = New ADODB.Recordset
Sql = [Ô]Select * From Tbl_CtaReceber[Ô]
Rst.Open Sql, Conexao, 3
With Sgd
.Editable = True
[ô]Adiciona algumas colunas
.AddColumn , [Ô]Núm. Documento[Ô], ecgHdrTextALignCentre, 0, 150
.AddColumn , [Ô]Dt.Vencto[Ô], ecgHdrTextALignCentre, , 100
.AddColumn , [Ô]Vlr. Parcela.[Ô], ecgHdrTextALignCentre, , 100
.AddColumn , [Ô]Vlr. Juros[Ô], ecgHdrTextALignCentre, , 100
.AddColumn , [Ô]Vlr. Multa[Ô], ecgHdrTextALignCentre, , 100
.AddColumn , [Ô]Vlr. Total[Ô], ecgHdrTextALignCentre, , 100
End With
[ô]Add to columns menu:
Do While Not Rst.EOF
With Sgd
.Redraw = False

.ImageList = imlCheck.hIml [ô]Seta as imagens
.HighlightSelectedIcons = False
.Rows = .Rows + 1

[txt-color=#e80000] .CellDetails .Rows, 1, Rst!NumDoc, DT_LEFT Or DT_LEFT, -- >>> Check [/txt-color] .CellDetails .Rows, 2, Format(Rst!DtVencto, [Ô]dd/mm/yyyy[Ô]), DT_CENTER
.CellDetails .Rows, 3, Format(Rst!VlrParc, [Ô]###,##0.00[Ô]), DT_RIGHT
.CellDetails .Rows, 4, Format(Rst!VlrJuros, [Ô]###,##0.00[Ô]), DT_RIGHT
.CellDetails .Rows, 5, Format(Rst!VlrMulta, [Ô]###,##0.00[Ô]), DT_RIGHT
.CellDetails .Rows, 6, Format(Rst!VlrTotal, [Ô]###,##0.00[Ô]), DT_RIGHT
Rst.MoveNext
.Redraw = True
End With
Loop
End Sub
MOREIRA 21/04/2010 20:26:06
#339876
ninguem....
MOREIRA 22/04/2010 02:13:33
#339895
Olá pessoal. alguem pode dá uma ajudinha...
Aparentimente parecer ser simples a montagem nesse grid [Ô]SGrid[Ô].. kkkkk
veja q na linha em vermelho a baixo nao conseuir entender qual funçao q devo usar pra exibir um CheckBox, marcar e desmarcar o Check na linha.

como faço tambem pra somar uma coluna

obrigado pela atenção.

Private Sub Form_Load()
Dim i As Integer
Set Rst = New ADODB.Recordset
Sql = [Ô]Select * From Tbl_CtaReceber[Ô]
Rst.Open Sql, Conexao, 3
With Sgd
.Editable = True
[ô]Adiciona algumas colunas
.AddColumn , [Ô]Núm. Documento[Ô], ecgHdrTextALignCentre, 0, 150
.AddColumn , [Ô]Dt.Vencto[Ô], ecgHdrTextALignCentre, , 100
.AddColumn , [Ô]Vlr. Parcela.[Ô], ecgHdrTextALignCentre, , 100
.AddColumn , [Ô]Vlr. Juros[Ô], ecgHdrTextALignCentre, , 100
.AddColumn , [Ô]Vlr. Multa[Ô], ecgHdrTextALignCentre, , 100
.AddColumn , [Ô]Vlr. Total[Ô], ecgHdrTextALignCentre, , 100
End With
[ô]Add to columns menu:
Do While Not Rst.EOF
With Sgd
.Redraw = False

.ImageList = imlCheck.hIml [ô]Seta as imagens
.HighlightSelectedIcons = False
.Rows = .Rows + 1

[txt-color=#e80000].CellDetails .Rows, 1, Rst!NumDoc, DT_LEFT Or DT_LEFT, -- >>> Check .CellDetails .Rows, 2, Format(Rst!DtVencto, [Ô]dd/mm/yyyy[Ô]), DT_CENTER[/txt-color]
.CellDetails .Rows, 3, Format(Rst!VlrParc, [Ô]###,##0.00[Ô]), DT_RIGHT
.CellDetails .Rows, 4, Format(Rst!VlrJuros, [Ô]###,##0.00[Ô]), DT_RIGHT
.CellDetails .Rows, 5, Format(Rst!VlrMulta, [Ô]###,##0.00[Ô]), DT_RIGHT
.CellDetails .Rows, 6, Format(Rst!VlrTotal, [Ô]###,##0.00[Ô]), DT_RIGHT
Rst.MoveNext
.Redraw = True
End With
Loop
End Sub
TOMPRATA 22/04/2010 04:33:50
#339896
Olá,

Pelo que eu saiba não tem como colocar um checkbox diretamente na célula. O que eu faço é colocar o ícone da célula como ticado/nao ticado).
Lembrando que o Sgrid 2.0 permite 2 icones em cada célula.

Vc pode também colocar o formato do dado quando insere a cluna, não precisando formatar quando inserir o dado, como vc está fazendo.


[ ][ô],s
Tomás
MOREIRA 22/04/2010 09:32:43
#339905
qual seria a forma correta a fazer..
Private Sub Form_Load()
Dim i As Integer
Set Rst = New ADODB.Recordset
Sql = [Ô]Select * From Tbl_CtaReceber[Ô]
Rst.Open Sql, Conexao, 3
With Sgd
.Editable = True
[ô]Adiciona algumas colunas
.AddColumn , [Ô]Núm. Documento[Ô], ecgHdrTextALignCentre, 0, 150
.AddColumn , [Ô]Dt.Vencto[Ô], ecgHdrTextALignCentre, , 100
.AddColumn , [Ô]Vlr. Parcela.[Ô], ecgHdrTextALignCentre, , 100
.AddColumn , [Ô]Vlr. Juros[Ô], ecgHdrTextALignCentre, , 100
.AddColumn , [Ô]Vlr. Multa[Ô], ecgHdrTextALignCentre, , 100
.AddColumn , [Ô]Vlr. Total[Ô], ecgHdrTextALignCentre, , 100
End With
[ô]Add to columns menu:
Do While Not Rst.EOF
With Sgd
.Redraw = False

.ImageList = imlCheck.hIml [ô]Seta as imagens
.HighlightSelectedIcons = False
.Rows = .Rows + 1

[txt-color=#e80000] .CellDetails .Rows, 1, Rst!NumDoc, DT_LEFT Or DT_LEFT, -- >>> Check .CellDetails .Rows, 2, Format(Rst!DtVencto, [Ô]dd/mm/yyyy[Ô]), DT_CENTER[/txt-color]
.CellDetails .Rows, 3, Format(Rst!VlrParc, [Ô]###,##0.00[Ô]), DT_RIGHT
.CellDetails .Rows, 4, Format(Rst!VlrJuros, [Ô]###,##0.00[Ô]), DT_RIGHT
.CellDetails .Rows, 5, Format(Rst!VlrMulta, [Ô]###,##0.00[Ô]), DT_RIGHT
.CellDetails .Rows, 6, Format(Rst!VlrTotal, [Ô]###,##0.00[Ô]), DT_RIGHT
Rst.MoveNext
.Redraw = True
End With
Loop
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar