[سعود]

(16-09-17, 02:44 PM)عبدالرحمن المكاوي كتب :

كود :

    dt.Columns.AddRange(New DataColumn() {New DataColumn("title"), New DataColumn("section"), New DataColumn("link")})

       Dim wc As New Net.WebClient()
       Dim src As String = wc.DownloadString("http://arab-live.ucoz.net/Test.txt")

       For Each str As String In src.Split(vbLf) '
           Dim splt() = Split(str, ",")
           Dim r As DataRow = dt.NewRow
           r.Item("title") = splt(0)
           r.Item("section") = splt(1)
           r.Item("link") = splt(2)
           dt.Rows.Add(r)
       Next

       TextBox1_TextChanged(Nothing, Nothing)
       Dim q = From x As DataRow In dt Select x.Item("section") Distinct
       ComboBox1.Items.AddRange(q.ToArray)
       ComboBox1.SelectedIndex = 0
       TextBox1.Focus()

معذرة اخي الكريم ...لم اجد شيء سبب لرسالة الخطا.