[rnmr]

جرب هذا


يمكنك إضافة الأعمدة في التصميم بدلا من الكود

---

أو

كود :

Imports System.Data.OleDb
Public Class Form1

   Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\DB.mdb; "

   Dim Conn As New OleDbConnection(ConStr)
   Dim InfoCommand As OleDbCommand
   Dim InfoAdapter As OleDbDataAdapter
   Dim InfoTable As DataTable
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       If Conn.State = ConnectionState.Closed Then
           Conn.Open()
       End If

       InfoCommand = New OleDbCommand("SELECT * FROM Materials ORDER BY Materials_Id", Conn)
       InfoAdapter = New OleDbDataAdapter()
       InfoAdapter.SelectCommand = InfoCommand
       InfoTable = New DataTable()
       InfoAdapter.Fill(InfoTable)
       DataGridView1.DataSource = InfoTable
       DataGridView1.Columns(0).HeaderText = "التّرقيم"
       DataGridView1.Columns(1).HeaderText = "السلعة"
       DataGridView1.Columns(2).HeaderText = "الكمية"

       Dim btn As New DataGridViewButtonColumn
       btn.HeaderText = "العمود"
       btn.DefaultCellStyle.NullValue = "Button"
       btn.DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
       DataGridView1.Columns.Add(btn)

   End Sub

   Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
       If TypeOf sender.Columns(e.ColumnIndex) Is DataGridViewButtonColumn Then
           MsgBox("RowIndex: " & e.RowIndex)
       End If
   End Sub

End Class