MSFLEXGRID....ALGUEM ?
Boa Noite a todos....
e o seguinte....
exemplo...tenho num Grid...10 registros...por tanto...10 Rows serao criados no grid....so que tem 8 Cols.....eu queria...que...exemplo...na Row 7..desabilitar a Col 5...tipo Enabled = False....tem jeito de fazer isso ou nao....?
grato desde já....
e o seguinte....
exemplo...tenho num Grid...10 registros...por tanto...10 Rows serao criados no grid....so que tem 8 Cols.....eu queria...que...exemplo...na Row 7..desabilitar a Col 5...tipo Enabled = False....tem jeito de fazer isso ou nao....?
grato desde já....
Quer desabilitar uma coluna, a partir de certa linha?
Cara..eu creio que isso n seja mesmo possÃÂÂvel fazer...infelizmente
boa sorte!
if grid1.row=7 and grid1.col=5 then
exit sub
end if
'nada acontecera se clicar na linha 7 coluna 5
exit sub
end if
'nada acontecera se clicar na linha 7 coluna 5
caramba....e isso mesmo Sinkertec.....desabilitar uma coluna em uma determinada linha......
Cara faz um contador
mas ele nao vai desabilita a coluna simplesmente ela ficara em branco
mas ele nao vai desabilita a coluna simplesmente ela ficara em branco
Da um exemplo simples aqui
Dim cont as integer
cont = 0
Dim rs as adodb.recordset
set rs = new adodb.recordset
rs.open "Select * from tabela",conn
with Grid
.cols = 2
.rows = 1
.fixedcols = 0
.row = 0
.col = 0
.text = "ID"
.col = 1
.text = "Nome"
end with
Grid.rows = 2
Grid.row = 1
if rs.eof then
msgbox "nenhum registro encontrado"
exit sub
end if
do while not rs.eof
with Grid
.col = 0
.text = rs("ID")
if cont = 5 then
else
.col = 1
.text = rs("ID")
end if
.rows = .rows + 1
.row = .row + 1
cont = cont + 1
rs.movenext
loop
facil, facil cara
espero que enteda
abraços
Dim cont as integer
cont = 0
Dim rs as adodb.recordset
set rs = new adodb.recordset
rs.open "Select * from tabela",conn
with Grid
.cols = 2
.rows = 1
.fixedcols = 0
.row = 0
.col = 0
.text = "ID"
.col = 1
.text = "Nome"
end with
Grid.rows = 2
Grid.row = 1
if rs.eof then
msgbox "nenhum registro encontrado"
exit sub
end if
do while not rs.eof
with Grid
.col = 0
.text = rs("ID")
if cont = 5 then
else
.col = 1
.text = rs("ID")
end if
.rows = .rows + 1
.row = .row + 1
cont = cont + 1
rs.movenext
loop
facil, facil cara
espero que enteda
abraços
é .text = rs("Nome") nao ID,
if cont = 5 then
else
.col = 1
.text = rs("Nome")
end if
.rows = .rows + 1
.row = .row + 1
cont = cont + 1
rs.movenext
loop
if cont = 5 then
else
.col = 1
.text = rs("Nome")
end if
.rows = .rows + 1
.row = .row + 1
cont = cont + 1
rs.movenext
loop
ow LocoBoy....valews a dica...foi isso mesmo que eu fiz...dai funcionou....
valews pela ajuda de vcs...abraços...
valews pela ajuda de vcs...abraços...
Tópico encerrado , respostas não são mais permitidas