كود تعبئة الكومبو داخل الداتا قريد فيو

PHP كود :

USE [master]
GO
/****** Object:  Database [Accounts]    Script Date: 7/12/2019 5:04:01 PM ******/
CREATE DATABASE [Accounts]
GO
USE [Accounts]
GO
/****** Object:  Table [dbo].[EmployeeXT]    Script Date: 7/12/2019 5:07:57 PM ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE TABLE [dbo].[EmployeeXT](
    [ID] [int] NULL,
    [Name] [nvarchar](50) NULL,
    [Telphon] [nvarchar](50) NULL
) ON [PRIMARY]

GO
INSERT [dbo].[EmployeeXT] ([ID], [Name], [Telphon]) VALUES (1, N'Test Name 0', N'00000000')
INSERT [dbo].[EmployeeXT] ([ID], [Name], [Telphon]) VALUES (2, N'Test Name 1', N'11111111')
INSERT [dbo].[EmployeeXT] ([ID], [Name], [Telphon]) VALUES (3, N'Test Name 2', N'22222222')
INSERT [dbo].[EmployeeXT] ([ID], [Name], [Telphon]) VALUES (4, N'Test Name 3', N'33333333')

PHP كود :

Imports System.Data.SqlClient

Public Module Module1
    Public Sub FillDgvComboBox(Dgv As DataGridView, SqlString As String, ColName As String, ColInt As Int32)
        ' تعريف داتا تابيل جديد
        Dim dt As New DataTable()
        ' تعبئة الداتا تيبل من فانكشن FillDataTable
        dt = FillDataTable(SqlString)
        ' ADD COLUMNS ' تعريف عامود نوع كومبو بوكس جديد
        Dim combo As New DataGridViewComboBoxColumn()
        ' تعريف اسم العامود في الداتا جريد
        combo.HeaderText = ColName
        ' تعريف الاسم البرمجي الخاص بالعامود
        combo.Name = "combo"
        ' تعريف DataPropertyName الخاصة باسم العامود بقاعدة البيانات
        combo.DataPropertyName = ColName
        ' تعريف أرراي ليست جديدة
        Dim row As New ArrayList()
        ' FILL ARRAYLIST FROM DATATABLE
        'تعبئة الارراي ليست بالقيم من الداتا تابل عن طريق لوب 
        For Each dr As DataRow In dt.Rows
            'تعبئة الارراي ليست بالقيم من الداتا تابل المعبئة حسب الاستعلام 
            row.Add(dr(ColName).ToString())
        Next
        ' تعبئة الكومبو بوكس من الارراي ليست
        combo.Items.AddRange(row.ToArray())
        ' Remove Old Column ' حذف عامود الكومبو بوكس القديم الموجود في الجريد فيو
        Dgv.Columns.RemoveAt(ColInt)
        ' ADD THE COMBO TO DATAGRIDVIEW ' إضافة العامود الجديد المعبأ من الارراي ليست الى الجريد فيو
        Dgv.Columns.Insert(ColInt, combo)
    End Sub
    Public con As New SqlConnection("Data Source=.;Initial Catalog=Accounts;Integrated Security=True")
    Public Function FillDataTable(SqlString As String) As DataTable
        Dim adapter As New SqlDataAdapter(SqlString, con)
        Dim dt As New DataTable()
        dt.Clear()
        adapter.Fill(dt)
        Return dt
    End Function
End Module