[aftfm]

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

هذا اجراء لارسال بيانات حقل بدون تكرار الى اداة ListBox

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

كود :

Using MYDataAdapter As New OleDbDataAdapter("Select DISTINCT Tar FROM tbl1", Con)
            Call DataSet2.Clear()
            Me.ListBox1.Items.Clear()
            '==========
            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
                    ListBox1.Items.Add(a)
                End If
            Next
        End Using

[aftfm]

تم الحل

كود :

Using MYDataAdapter As New OleDbDataAdapter("SELECT DISTINCT Tar FROM tbl1", 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
                    MYDataAdapter.Fill(DataSet2)
                    DataGridView1.DataSource = DataSet2.Tables(0).DefaultView
                End If
            Next
        End Using

[vbnet]

-
استخدم DataTable طالما أنك تتعامل مع جدول واحد.

كود :

Using da As New OleDbDataAdapter("SELECT DISTINCT [Tar] FROM [tbl1] WHERE ([Tar] IS NOT NULL) AND (TRIM([Tar]) <> '') ", Con)
    Dim dt As New DataTable
    da.Fill(dt)
    DataGridView1.DataSource = dt
End Using

[aftfm]

الله ينور عليك ويزيدك علماً

ما هو الفرق بين DataSet , DataTable

[حريف برمجة]

(11-05-14, 11:11 AM)aftfm كتب : الله ينور عليك ويزيدك علماً

ما هو الفرق بين DataSet , DataTable

DataTable = وضع فيه جدول واحد فقط .
DataSet = امكانية وضع فيها اكثر من جدول .

ولأختيار جدول من ضمن الجداول الموجوده في DataSet كالتالي :

كود :

DataSet.Tabel(0)      صفر يعني أول جدول قمت بتعبئته في الداتا سيت

DataSet.Tabel(1)      واحد يعني ثاني جدول قمت بتعبئته في الداتا سيت

DataSet.Tabel(2)       أثنين يعني ثالث جدول قمت بتعبئته في الداتا سيت

وهكذا او ممكن بأسمه مباشرة

كود :

DataSet.Tabel("Tab1")

Tab1 يعني اسم الجدول في الداتا سيت

[aftfm]

الف شكر اخي العزيز

لم اقصد هذا ولكن

Dim ds as new DataSet
&
Dim dt as new DataTable