Pesquisar na Comunidade

Ola pessoal, Sou novo nessa area e estou aprendendo as coisas basicas em CRUD no VB, porem me deparei com uma situacao que não consigo resolver, ao inserir um cadastro o gridview atualiza em tempo real, mas ao atualizar um cadastro o gridview repete as informacoes apenas modificando a linha em questao, ou seja, duplica os dados. Segue meu codigo. obg Imports MySql.Data.MySqlClient Public Class cadastro_empresas Dim con As New MySqlConnection("#####################") Dim cmd As New MySqlCommand Dim adapt As New MySqlDataAdapter Dim dt As New DataTable() 'SELECT BANCO E INSERE OS DADOS NO DATAGRID Sub carrega_dados() Dim query As String = "select * from empresas" Dim adapt As New MySqlDataAdapter(query, con) Dim ds As New DataSet() Try con.Open() adapt.Fill(dt) For Each row In dt.Rows Populate(row(0), row(1), row(2), row(3), row(4), row(5), row(6)) Next con.Close() clearTxt() DataGridView1.Refresh() Catch ex As Exception MsgBox(ex.Message) con.Close() End Try con.Close() End Sub 'CONSTROI POPULAR DATAGRID Private Sub Populate(id As String, nome As String, endereco As String, cidade As String, telefone As String, celular As String, contato As String) Dim row As String() = New String() {id, nome, endereco, cidade, telefone, celular, contato} DataGridView1.Rows.Add(row) End Sub 'CADASTRAR INFORMAÇÕES Private Sub insert() Dim cadastra As String = "INSERT INTO empresas(nome, endereco, cidade, telefone, celular, contato) VALUES (@nome, @endereco, @cidade, @telefone, @celular, @contato)" cmd = New MySqlCommand(cadastra, con) cmd.Parameters.AddWithValue("@nome", nometxt.Text) cmd.Parameters.AddWithValue("@endereco", enderecotxt.Text) cmd.Parameters.AddWithValue("@cidade", cidadetxt.Text) cmd.Parameters.AddWithValue("@telefone", telefonetxt.Text) cmd.Parameters.AddWithValue("@celular", celulartxt.Text) cmd.Parameters.AddWithValue("@contato", contatotxt.Text) Try con.Open() If cmd.ExecuteNonQuery() > 0 Then MsgBox("Cadastrado") clearTxt() carrega_dados() End If con.Close() Catch ex As Exception MsgBox(ex.Message) con.Close() End Try End Sub 'LIMPA CAMPOS FORMULARIO Private Sub clearTxt() nometxt.Text = "" enderecotxt.Text = "" cidadetxt.Text = "" telefonetxt.Text = "" celulartxt.Text = "" contatotxt.Text = "" End Sub 'CONSTRUÇÃO DATAGRID, CARREGA OS DADOS E EXIBE USUARIO LOGADO Private Sub cadastro_empresas_Load(sender As Object, e As EventArgs) Handles MyBase.Load DataGridView1.ColumnCount = 7 DataGridView1.Columns(0).Name = "id" DataGridView1.Columns(1).Name = "nome" DataGridView1.Columns(2).Name = "endereco" DataGridView1.Columns(3).Name = "cidade" DataGridView1.Columns(4).Name = "telefone" DataGridView1.Columns(5).Name = "celular" DataGridView1.Columns(6).Name = "contato" DataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect carrega_dados() sessao.Text = My.Forms.login.txtlogin.Text End Sub 'EVENTO BOTAO CADASTRA Private Sub cadastraEmpresa_Click(sender As Object, e As EventArgs) Handles cadastraEmpresa.Click insert() End Sub 'SCRIPT ATUALIZAÇÃO DE REGISTRO Private Sub atualizar(id As String) Dim sql As String = "UPDATE empresas SET nome='" + nometxt.Text + "',endereco='" + enderecotxt.Text + "',cidade='" + cidadetxt.Text + "',telefone='" + telefonetxt.Text + "',celular='" + celulartxt.Text + "',contato='" + contatotxt.Text + "' WHERE id='" + id + "'" Try con.Open() adapt.UpdateCommand = con.CreateCommand() adapt.UpdateCommand.CommandText = sql If adapt.UpdateCommand.ExecuteNonQuery() > 0 Then MsgBox("Registro atualizado com sucesso.") clearTxt() carrega_dados() End If con.Close() Catch ex As Exception MsgBox(ex.Message) con.Close() End Try End Sub 'POPULAR TEXTBOX AO CLICAR NO DATAGRID Private Sub DataGridView1_MouseClick(sender As Object, e As MouseEventArgs) Handles DataGridView1.MouseClick Dim nome As String = DataGridView1.SelectedRows(0).Cells(1).Value Dim endereco As String = DataGridView1.SelectedRows(0).Cells(2).Value Dim cidade As String = DataGridView1.SelectedRows(0).Cells(3).Value Dim telefone As String = DataGridView1.SelectedRows(0).Cells(4).Value Dim celular As String = DataGridView1.SelectedRows(0).Cells(5).Value Dim contato As String = DataGridView1.SelectedRows(0).Cells(6).Value nometxt.Text = nome enderecotxt.Text = endereco cidadetxt.Text = cidade telefonetxt.Text = telefone celulartxt.Text = celular contatotxt.Text = contato End Sub Private Sub btnAtualizar_Click(sender As Object, e As EventArgs) Handles btnAtualizar.Click Dim id As String = DataGridView1.SelectedRows(0).Cells(0).Value atualizar(id) End Sub End Class

Bom dia amigos, estou apanhando em um assunto que realmente não sei resolver. Não sou especialista em JavaScript e por isso peço ajuda. Eu tenho uma página que popula um GridView, nele dinamicamente apresento os meses de vida de uma atividade do projeto. Se o projeto tem 18 meses, por exemplo, eu abro 18 text na mesma linha para preenchimento do número de horas trabalhadas para aquela linha, que é uma pessoa do projeto. O que preciso fazer é: Quando informar no primeiro mês uma hora qualquer, através de um botão na página o usuário poderá replicar a mesma hora para todos os demais meses da mesma linha do Grid. Estava tentando fazer em Javascript, mas os exemplos que acho na internet não são para principiantes, pois não trabalho com Javascript e muita coisa me é desconhecida, se é que me entendem. Alguém poderia me ajudar? :)