[dubai.eig]

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

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

شفت موضوع اخونا استاذ احمد كاتب رد لاحد الاخوه وكاتب الكود

غيرة في الكود ليناسبني 

بس تطلع لي مشكله في الطلب

إقتباس :Column 'state' does not belong to table Callsign.'

وهذا الكود

كود :

Private Sub getinfo()

       System.
       Threading.
       Tasks.
       Task.
       Factory.
       StartNew(
           Sub()



               Dim url As String = String.Format("http://xmldata.qrz.com/xml/current/?s={0};callsign={1}", LKey.Text, calls.Text)
                   Timer2.Stop()

                   Dim ds As New DataSet
                   ds.ReadXml(url)

                   If ds.Tables("Callsign").Rows.Count > 0 Then
                       Dim r As DataRow = ds.Tables("Callsign")(0)

                       state.Text = r("state").Trim().ToString()


                       Lfullname.Text = r("fname")

                       qth.Text = r("addr2")

                       WORKinfo.GRIDSQUARE.Text = r("grid")

                       WORKinfo.Lqslmgr.Text = r("qslmgr")
                       WORKinfo.LAT.Text = r("lat")
                       WORKinfo.LON.Text = r("lon")
                       WORKinfo.Liota.Text = r("iota")

                   End If



           End Sub)
   End Sub

اتمنى يكون الكود صحيح


وثاني شي للتهنيق هل الكود السابق مناسب  Task  

او هذا BackgroundWorker

كود :

 Private Delegate Sub checkstatusDelgetCallsign()
   Private WithEvents bg9 As New System.ComponentModel.BackgroundWorker


   Private Sub checkstatusgetCallsign()

       Dim url As String = String.Format("http://xmldata.qrz.com/xml/current/?s={0};callsign={1}", LKey.Text, calls.Text)
       Timer2.Stop()

       Dim ds As New DataSet
       ds.ReadXml(url)

       If ds.Tables("Callsign").Rows.Count > 0 Then
           Dim r As DataRow = ds.Tables("Callsign")(0)

           state.Text = r("state").Trim().ToString()


           Lfullname.Text = r("fname")

           qth.Text = r("addr2")

           WORKinfo.GRIDSQUARE.Text = r("grid")

           WORKinfo.Lqslmgr.Text = r("qslmgr")
           WORKinfo.LAT.Text = r("lat")
           WORKinfo.LON.Text = r("lon")
           WORKinfo.Liota.Text = r("iota")

       End If


   End Sub



   Private Sub bg9_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles bg9.DoWork

       Invoke(New checkstatusDelgetCallsign(AddressOf checkstatusgetCallsign))
   End Sub

وشكرا لكم على الافادة