hola que tal saludos a todos, mi problema es el sig. tengo esta función

Código:

Private Sub cargadatos(ByVal tabla As String)
        Try
            dataset.Clear()
 
            query = "select * " + _
                    "from " & tabla & " "
 
 
            'cadconsul = "select codigo,descripcion,p_v,existencia from productos where descripcion like '%" & Me.codigo.Text & "%' or (codigo like '%" & Me.codigo.Text & "%')"
            con = dbpool.Open
            adaptador.SelectCommand = New SqlCommand(query, con)
            adaptador.Fill(dataset, "lineas")
            datatable = dataset.Tables("lineas")
            datacat.MultiSelect = False
            datacat.DataSource = datatable
        Catch ex As Exception
            MsgBox(ex.ToString)
        Finally
            dbpool.Close(con)
        End Try
        datacat.Width = 403
        datacat.Columns.Item(0).Width = 60
        datacat.Columns.Item(1).Width = 300
 
    End Sub

como se muestra la función carga los datos de determinada tabla en un mismo stringrid (cuando se oprime el botón 1 se muestra una tabla, cuando se oprime el botón dos se muestra otra tabla), el problema que cuando se a mostrado la primera y se oprime otro botón las columnas se van agregando, como puedo hacer para que se muestren únicamente las columnas de la tabla seleccionada gracias agradesere la ayuda

Saludos:

Solo debes limpiar el Datasource del DGV antes de volverlo a asignar:

With datacat
.DataSource = Nothing
.DataSource = datatable
End With

Espero ayude.


JOSE LUIS

Iniciado por josel.vi

Saludos:

Solo debes limpiar el Datasource del DGV antes de volverlo a asignar:

With datacat
.DataSource = Nothing
.DataSource = datatable
End With

Espero ayude.


JOSE LUIS

hola oye no me funciono la funcion la deje asi y nada sige agregando las columnas de las otras tablas

Código:

Private Sub cargadatos(ByVal tabla As String)
        Try
            dataset.Clear()
 
            query = "select * " + _
                    "from " & tabla & " "
 
 
            'cadconsul = "select codigo,descripcion,p_v,existencia from productos where descripcion like '%" & Me.codigo.Text & "%' or (codigo like '%" & Me.codigo.Text & "%')"
            con = dbpool.Open
            adaptador.SelectCommand = New SqlCommand(query, con)
            adaptador.Fill(dataset, "lineas")
            datatable = dataset.Tables("lineas")
            'datacat.MultiSelect = False
            With datacat
                .DataSource = Nothing
                .DataSource = datatable
            End With
 
            datacat.DataSource = datatable
        Catch ex As Exception
            MsgBox(ex.ToString)
        Finally
            dbpool.Close(con)
        End Try
        'datacat.Width = 403
        datacat.Columns.Item(0).Width = 60
        datacat.Columns.Item(1).Width = 300
 
    End Sub

Saludos:

Tienes dos veces la asignacion del Datasource, despues del nothing.

Ademas tienes que instanciar los objetos, no limpiarlos con Clear():

dataset = New Dataset
datatable = New Datatable

Espero ayude.


JOSE LUIS