Jump to content

DatagridView


0x1d
 Share

Recommended Posts

Bons dias a todos!

Gostava que vocês me dessem uma pequena solução para este problema.

Eu tenho uma Datagridview que tá a ser carregada manualmente por um DataTable. E já criei numa variável do tipo DataRow onde construí os campos. Eu preciso de preencher todos os campos mas alguns eu queria que o utilizador não os visse.

    Dim Row As DataRow
    Dim dt As New DataTable


        dt.Columns.Add("Codigo_Guia")
        dt.Columns.Add("Linha_Guia")
        dt.Columns.Add("Referencia_Produto")
        dt.Columns.Add("Quantidade")
        dt.Columns.Add("Conteudo")
        dt.Columns.Add("Preço_Unitario")
        dt.Columns.Add("Valor_IVA")
        dt.Columns.Add("Total")

Gostava de saber como eu carrego os dados e como eu consigo guardar a informação !! 😄

Link to comment
Share on other sites

A minha ideia era o utilizador puder adicionar pela grid, ou por um form que eu já criei de pesquisa de artigos, que ao clicar, envia a informação para a grid! Se me puder ajudar com a grid agradeço, mas tb peço ideias para resolver este assunto

Link to comment
Share on other sites

é assim....se a ideia é apenas mostrar registos no datagridview, então não precisas de mostrar todos os campos!!! isso garanto eu!

Claro que depois é preciso dizer que valores da query vão para onde....isso é fácil!

Depois, podes sempre programar o doubleclick, para passar dados para um form para alteração ou eliminação....

"use windows, você merece!"

Link to comment
Share on other sites

Deixei todos os campos visíveis, apenas controlei com a propriedade ReadOnly, pq eu queria que o utilizador não consegui-se alterar o Código da Guia, demasiados problemas se desse. :nono1:

        DataGridView1.DataSource = dt
        DataGridView1.Columns(0).ReadOnly = True
        DataGridView1.Columns(1).ReadOnly = True
        DataGridView1.Columns(3).ReadOnly = True
...

E depois como eu queria guardar a informação fiz


Dim Upda As New SqlCommand
        Upda = New SqlCommand("UPDATE [Gui_Remessa_Auxiliar] SET Referencia=@reference, Quantidade=@quantidade, Conteudo=@conteudo, Preço_Unitario=@preço_uni, Valor_IVA=@val_iva, Total=@total WHERE Codigo_Guia=@codguia AND Codigo_Linha=@codline", DB)
        Upda.Parameters.Add(New SqlParameter("@Reference", SqlDbType.NVarChar, 50, ParameterDirection.Input, False, 0, 0, "Referencia_Produto", DataRowVersion.Current, Nothing))
        Upda.Parameters.Add(New SqlParameter("@quantidade", SqlDbType.NVarChar, 50, ParameterDirection.Input, False, 0, 0, "quantidade", DataRowVersion.Current, Nothing))
...
...
...

E assim sucessivamente

Desde já agradeço a ajuda prestada por todos. 😁

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.