[ابو ليلى]

و عليكم السلام و رحمة الله و بركاته
يمكن استخدام اكثر من طريقة للعمل
على فرض DataSource الخاص بـ GridCntrol مضبوط مسبقاً
او عبر الكود

PHP كود :

   Sub Load_Data()
        Dim dt As New DataTable
        dt.Columns.Add(New DataColumn With {.ColumnName = "Num"})
        dt.Columns.Add(New DataColumn With {.ColumnName = "Idemploye"})
        dt.Columns.Add(New DataColumn With {.ColumnName = "nameemploye"})
        GridControl1.DataSource = dt
        GridView1.PopulateColumns()


        Using Cn As New SqlClient.SqlConnection("Data Source = .;Initial Catalog=SalesDB;Integrated Security=True")

            Using Cmd As New SqlClient.SqlCommand("SELECT * From Tableemploye", Cn)
                Cn.Open()

                Using Drr As SqlClient.SqlDataReader = Cmd.ExecuteReader
                    dt.Load(Drr)
                    GridControl1.DataSource = dt
                End Using

            End Using

        End Using
    End Sub 


او باستخدام الطريقة AddNewRow 

PHP كود :

Sub Load_Rows()
        Dim dt As New DataTable
        dt.Columns.Add(New DataColumn With {.ColumnName = "Num"})
        dt.Columns.Add(New DataColumn With {.ColumnName = "Idemploye"})
        dt.Columns.Add(New DataColumn With {.ColumnName = "nameemploye"})
        GridControl1.DataSource = dt
        GridView1.PopulateColumns()


        Using Cn As New SqlClient.SqlConnection("Data Source = .;Initial Catalog=SalesDB;Integrated Security=True")

            Using Cmd As New SqlClient.SqlCommand("SELECT * From Tableemploye", Cn)
                Cn.Open()

                Using Drr As SqlClient.SqlDataReader = Cmd.ExecuteReader

                    Dim I As Integer = 0
                    Dim newRowHandle As Integer = GridControl1.NewItemRowHandle

                    While Drr.Read
                        I += 1
                        GridView1.AddNewRow()
                        GridView1.SetRowCellValue(newRowHandle, GridView1.Columns(0), I)
                        GridView1.SetRowCellValue(newRowHandle, GridView1.Columns(1), Drr.Item("Code").ToString)
                        GridView1.SetRowCellValue(newRowHandle, GridView1.Columns(2), Drr.Item("Name").ToString)
                        GridView1.UpdateCurrentRow()
                    End While

                End Using

            End Using

        End Using
    End Sub