01.Private Sub rad1_CheckedChanged(sender As Object, e As EventArgs) Handles radvet.CheckedChanged
02. Try
03. If Not con.State = ConnectionState.Open Then
04. con.Open()
05. End If
06. Dim da As New OleDbDataAdapter
07. Dim dt As New DataTable
08. da = New OleDbDataAdapter("SELECT * FROM Purchase1", con)
09. da.Fill(dt)
10.
11. DataGridView2.DataSource = dt.DefaultView
12.
13. DataGridView2.Columns(0).Visible = True
14. DataGridView2.Columns(1).Visible = True
15. DataGridView2.Columns(2).Visible = False
16. DataGridView2.Columns(3).Visible = True
17. DataGridView2.Columns(4).Visible = True
18. DataGridView2.Columns(5).Visible = True
19. DataGridView2.Columns(6).Visible = True
20. DataGridView2.Columns(7).Visible = False
21. DataGridView2.Columns(8).Visible = False
22. DataGridView2.Columns(9).Visible = False
23. DataGridView2.Columns.Item(0).Width = 150
24. DataGridView2.Columns.Item(1).Width = 100
25. DataGridView2.Columns.Item(3).Width = 80
26. DataGridView2.Columns.Item(4).Width = 100
27. DataGridView2.Columns.Item(5).Width = 100
28. DataGridView2.Columns.Item(6).Width = 100
29.
30. con.Close()
31.
32. Catch ex As Exception
33. MessageBox.Show(ex.Message)
34. Finally
35. End Try
