[alma2]

كود :

       Dim url As String = String.Format("https://www.hamqth.com/xml.php?id={0}&callsign={1} &prg=BKLOG", Label17.Text, calls.Text)

       Dim ds As New DataSet
       ds.ReadXml(url)

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

           Lfullname.Text = r("adr_name")
           state.Text = r("us_state")
           qth.Text = r("qth")
           WORKinfo.GRIDSQUARE.Text = r("grid")
           WORKinfo.Lqslmgr.Text = r("qsl_via")
           WORKinfo.LAT.Text = r("latitude")
           WORKinfo.LON.Text = r("longitude")
       End If

راجع الاسماء adr_name وus_state وgrid وqsl_via فهي ليست موجودة في ملف xml

فالجدول Callsign
لديه الأعمدة التالية
call
dxcc
name
qth
address
city
zip
license
continent
country
state
locator
latitude
longitude
website
itu
cq
eqsl
lotw
bqsl
mqsl
utf8
qslpic
prefix