[محمد اسماعيل]

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

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

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

[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

السلام عليكم

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

[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

[محمد اسماعيل]

(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

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