[aftfm]

السلام عليكم ورحمة الله وبركاته

اخواني الاعزاء جزاكم الله الف خير

هذا كود اقوم من خلاله ارسال البيانات من اداة ListBos العمود الاول من اداة DataGridView

كود :

Me.DataGridView13.Rows.Clear()
        For Each it In ListBox1.Items
            Dim Ro As DataGridViewRow = DataGridView13.Rows(DataGridView13.Rows.Add())
            Ro.Cells(0).Value = it
        Next

المطلوب نفس الفكرة لكن من خلال ارسال البيانات من متغير يحمل بيانات الى العمود الاول من القريد

[aftfm]

هذا كود جلب البيانات من قاعدة البيانات الى المتغير

كود :

Using MYDataAdapter As New OleDbDataAdapter("SELECT DISTINCT Tar FROM DB_Info ", Con)
            Call MYDataAdapter.Fill(DataSet2, "TarTable")

            For Each MYRow As DataRow In DataSet2.Tables("TarTable").Rows
                Dim a As String = MYRow.Item("Tar")
                If String.IsNullOrEmpty(a) = Nothing Then
                    ListTar = a.ToArray
                    MsgBox(ListTar )
                End If
            Next
        End Using