[الوادي]

يا عبدالرحمن،

أضف كلمة Distinct لتكون مثل

PHP كود :

Dim q = From x As DataRow In dt Select x.Item("section") Distinct 


وطالما أن كلمة All تكون من الملف، فاحذف السطر

PHP كود :

ComboBox1.Items.Insert(0, "All") 


أيضاً عدل التالي

PHP كود :

Dim q As IEnumerable(Of DataRow) 

If ComboBox1.Text = "All" Then
    q = From x As DataRow In dt
        Where x.Item("title").ToString.ToLower.StartsWith(Me.TextBox1.Text.Trim.ToLower)
Else
    q = From x As DataRow In dt
        Where x.Item("section").ToString.ToLower.StartsWith(Me.ComboBox1.Text.Trim.ToLower) _
        And x.Item("title").ToString.ToLower.StartsWith(Me.TextBox1.Text.Trim.ToLower)
End If 


ليصيح بعد حذف If كالتالي

PHP كود :

Dim q As IEnumerable(Of DataRow) =
    From x As DataRow In dt
    Where x.Item("section").ToString.ToLower.StartsWith(Me.ComboBox1.Text.Trim.ToLower) _
    And x.Item("title").ToString.ToLower.StartsWith(Me.TextBox1.Text.Trim.ToLower)