LIMPAR DATAGRID
Olá tenho o seguinte sub em um modolu que quando é chamada limpa os campos do form, só gostaria de saber o que devo adicionar a esta sub para que ele também me limpe os dados de uma datagrid...Obrigado.
Public Sub LimparCampos(frm As Form)
Dim controle As Control
For Each controle In frm.Controls
If TypeOf controle Is TextBox Then controle.Text = ""
If TypeOf controle Is ComboBox Then controle.ListIndex = -1
Next controle
End Sub
Public Sub LimparCampos(frm As Form)
Dim controle As Control
For Each controle In frm.Controls
If TypeOf controle Is TextBox Then controle.Text = ""
If TypeOf controle Is ComboBox Then controle.ListIndex = -1
Next controle
End Sub
Cara, não mecho muito com datagrid mas acho que deve ser isso:
E esse abaixo pra limpar as colunas celecionadas:
DataGrid1.ClearFieldsE esse abaixo pra limpar as colunas celecionadas:
DataGrid1.ClearSelCols
Não é, não funcionou mas mesmo assim obrigado.
Cara você pode fazer um BD vazio(sem dados) ai você ao clicar em limpar carrega esse banco de dados vazio, ou seja, carrega o DataSource com um BD vazio. é meio fora do cumum mas de tudo se improvisa.
Mano, dei uma varedura na net e achei isso:
é só limpar sua tabela, algo como dataset.Tables("Sua_tabela").Rows.Clear()
Agora se você precisa somente limpar o datagrid:
DataGrid.DataSource = Nothing
Eu gostaria de limpar apenas os campos abaixo do cabeçalho, só a parte que por padrão é branca..Mas ta dificil a coisa...
Citação:MAICONLS escreveu:
Eu gostaria de limpar apenas os campos abaixo do cabeçalho, só a parte que por padrão é branca..Mas ta dificil a coisa...
Cara, desculpas mas não sou adivinhante. Vou dar uma pesquisada e se encontrar algo posto aqui. Agora como moderador eu peço pra que se expresse melhor pois essas perguntas desse tipo acabam prejudicando a qualidade do fórum.
BOM TENTA ASSIM
COM VC USAR UM FOR EACH NOS CONTROLES E ESSA SUA FUNÇÃO é PUBLIC "DEVE USAR PARA VARIOS FORM COM GRID "
A UNICA MANEIRA Q CONHEÇO DE VC FAZER ISSO, é ASSIM
COLOCA NOS TAG DO DATAGRID UMA A SELECT COM O TOP 1 E COM A CONDIÇÃO Q NAUM EXISTA EX.:
Public Sub LimparCampos(frm As Form)
Dim controle As Control
For Each controle In frm.Controls
If TypeOf controle Is TextBox Then controle.Text = ""
If TypeOf controle Is ComboBox Then controle.ListIndex = -1
If TypeOf controle Is DATAGRID Then
DIM RS AS NEW ADODB.RECORDSET
RS.OPEN DATAGRID.TAG,CNN,CURSO FORWAND ,TIPOLOCAÇÃO READ
SET DATAGRID.DATASOURCE=RS
END IF
Next controle
End Sub
ESPERO TER AJUDADO
COM VC USAR UM FOR EACH NOS CONTROLES E ESSA SUA FUNÇÃO é PUBLIC "DEVE USAR PARA VARIOS FORM COM GRID "
A UNICA MANEIRA Q CONHEÇO DE VC FAZER ISSO, é ASSIM
COLOCA NOS TAG DO DATAGRID UMA A SELECT COM O TOP 1 E COM A CONDIÇÃO Q NAUM EXISTA EX.:
Public Sub LimparCampos(frm As Form)
Dim controle As Control
For Each controle In frm.Controls
If TypeOf controle Is TextBox Then controle.Text = ""
If TypeOf controle Is ComboBox Then controle.ListIndex = -1
If TypeOf controle Is DATAGRID Then
DIM RS AS NEW ADODB.RECORDSET
RS.OPEN DATAGRID.TAG,CNN,CURSO FORWAND ,TIPOLOCAÇÃO READ
SET DATAGRID.DATASOURCE=RS
END IF
Next controle
End Sub
ESPERO TER AJUDADO
Tópico encerrado , respostas não são mais permitidas