ارور در علاقه مندی ها

[حاج حسین 2,098]

با عرض سلام

وقتی در بخش علاقه مندی ها هیچ رکودی نیست با این ارور ( تصویر زیر) مواجه می شوم ولی اگر رکودی را در علاقه مندی ثبت کنم

مشکل برطرف می شود. دیباگ هم گرفتم هیچ خطی را ارور نداد

لطفا بنده را راهنماییم کنید

[مجید آرتا 5,874]

حب دوست عزیز واسه Cursor که ساختی یه شرط بزار.

مثلا بنده میخام کل اطلاعات دیتابس رو بگیرم و شرط میزارم

Dim SQL1 As SQL
Dim Cr As Cursor
Cr = SQL1.ExecQuery("SELECT * FROM Table1)
If Cr.RowCount > 0 Then
   For i=0 to RowCount - 1
   StateMent
   Next
End If