منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - اختيار البيانات غير مكررة من الداتاتابل

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

لدي داتاتابل وبها عمود واحد بية بيانات مكررة اريد استخراج البيانات التي لم تكر ر

AM3
AM2
AM3
AM4
AM2
AM3

اريد النتيجة النهائية ان تكون القيمة بالداتاتابل بعد استبعاد الكل == AM4

حاولات بالطريقة الاتية بلا نتيجة ..

كود :

Public Function RemoveDuplicateRowsG(ByVal dTable As DataTable) As DataTable

     For intI = dTable.Rows.Count - 1 To 0 Step -1

         For intJ = intI - 1 To 0 Step -1

             If dTable.Rows(intI)(0) = dTable.Rows(intJ)(0) Then

                 dTable.Rows.RemoveAt(intI)

                 dTable.Rows.RemoveAt(intJ)

                 Exit For

             End If

         Next

     Next

     dTable.AcceptChanges()

     Return dTable

 End Function

كود :

       Dim da As New OleDbDataAdapter()

        Dim dt As New DataTable()

        da.SelectCommand = New OleDbCommand("Select YourField,count(YourField) from YourTable order by YourField", cn)

        da.Fill(dt)

        Dim r As DataRow

        For Each r In dt.Rows

            if r.Item(1) = 0 then

'  افعل شيء ما                         الحققول الغير مكررة

               else

' الحقول المكررة                      افعل عسكه

            endif

        Next

السلام عليكم

حاول الكود التالي:

السلام عليكم

يمكنك استخدام

كود :

Select [item] from (

SELECT [item] , Case when Count ([item]) > 1 then 0 else Count ([item]) end as ItemC 

  FROM [tst].[dbo].[Data]

  Group by [item]) Dt

  where dt.ItemC <> 0

(22-04-21, 06:43 PM)messry كتب : [ -> ]

كود :

Dim da As New OleDbDataAdapter() Dim dt As New DataTable() da.SelectCommand = New OleDbCommand("Select YourField,count(YourField) from YourTable order by YourField", cn) da.Fill(dt) Dim r As DataRow For Each r In dt.Rows if r.Item(1) = 0 then ' افعل شيء ما الحققول الغير مكررة else ' الحقول المكررة افعل عسكه endif Next
السلام عليكم

حاول الكود التالي:

(23-04-21, 08:16 AM)d3vc0d كتب : [ -> ]السلام عليكم

يمكنك استخدام

كود :

Select [item] from ( SELECT [item] , Case when Count ([item]) > 1 then 0 else Count ([item]) end as ItemC FROM [tst].[dbo].[Data] Group by [item]) Dt where dt.ItemC <> 0

كل الشكرل لكم علي المساعدة
تم الحل انشاء الله

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

محمد اسماعيل

messry

d3vc0d

محمد اسماعيل