[dubai.eig]

اهلا من جديد

طلعت لي مشكله في عرض البيانات من قاعدة البيانات

إقتباس :Conversion from type 'DBNull' to type 'String' is not valid 

هنا

كود :

 Private Sub viewpage(ByVal p As Integer)
       'On Error Resume Next
       Me.lbl_start.Text = "0 / 0"
       If totalpages = 0 Then Return
       If p > totalpages Then
           p = totalpages
           page = p
       End If
       Me.lbl_start.Text = String.Format("{0} / {1}", page, totalpages)
       p -= 1
       lst1.Items.Clear()

       For i = (p * perpage) To (p * perpage) + perpage - 1
           If i = dt.Rows.Count Then Exit Sub
           Dim r As DataRow = dt.Rows(i)
           lst1.Items.Add(New ListViewItem(
         {r("Qso_id"),
                           r("CALLop"),
                           r("qso_date"),
                           r("timek"),
                           r("bands"),
                           r("modes"),
                           r("Lfullname"),
                           r("country"),
                           r("dxcc"),
                           r("cqz"),
                           r("ituz"),
                           r("rst_sent"),
                           r("rst_rcvd"),
                           r("lotw_qsl_sent"),
                           r("lotw_qsl_rcvd"),
                           r("eqsl_qsl_sent"),
                           r("eqsl_qsl_rcvd"),
                           r("qsl_sent"),
                           r("qsl_rcvd"),
                           r("qsl_sent_date"),
                           r("qsl_print"),
                           r("qth"),
                           r("LAT"),
                           r("LON"),
                           r("GRIDSQUARE"),
                           r("Lqslmgr"),
                           r("PFX"),
                           r("freq"),
                           r("iota"),
                           r("state")
                          }))
       Next

   End Sub

والسبب ان في القاعدة عند ال dxcc مثلا فاضي

   

واذا كان لا توجد بياننات في احد التيبلات يعطيني غلط

اللي اعرفه يجب اضافة

كود :

If IsDBNull(ret) Then

حاولت بس ما ضبط

بارك الله فيكم