Private Sub mostrar()
Try
Dim NewTab As New TabPage
Dim Datalis As New DataGridView
Dim txtbuscar1 As New TextBox
Dim LNK As New LinkLabel
Dim cbleliminar1 As New CheckBox
Dim func As New fcliente
dt = func.mostrar
Datalis.Columns.Item("Eliminar").Visible = False
If dt.Rows.Count <> 0 Then
Datalis.DataSource = dt
txtbuscar1.Enabled = True
Datalis.ColumnHeadersVisible = True
LNK.Visible = False
Else
Datalis.DataSource = Nothing
Datalis.ColumnHeadersVisible = False
cbleliminar1.Checked = CheckState.Unchecked
LNK.Visible = False
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
btnnuevo.Visible = True
btnguardar.Visible = False
btneditar.Visible = False
cbeliminar.Checked = False
'buscar()
End Sub
espero me puedan ayudar se losagradeceria