COMPARAR COLUNA NO DATAGRID
Como faço para verificar se todos os registros de uma determinada coluna (coluna 8) no DataGrid são iguais.
Tente
Dim s as string
Dim i as long
Dim d as boolean
Tabela.Col = 8
For i = 1 to tabela.rows
Tabela.row = I
if i = 1 then
s = Tabela.Text
else
if Tabela.Text <> s then
d = True
exit for
end if
end if
next
If d then
Msgbox " A coluna contem itens diferentes
end if
Dim s as string
Dim i as long
Dim d as boolean
Tabela.Col = 8
For i = 1 to tabela.rows
Tabela.row = I
if i = 1 then
s = Tabela.Text
else
if Tabela.Text <> s then
d = True
exit for
end if
end if
next
If d then
Msgbox " A coluna contem itens diferentes
end if
Tópico encerrado , respostas não são mais permitidas