منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

عندي مشكلة
عند وجود ناتج يظهر في text1
عندما لايجد ناتج يظهر خطا

Set rs = Nothing
If rs.State = 1 Then rs.Close
rs.CursorLocation = adUseClient

rs.Open "SELECT Sum(XXX) as ww FROM XXXX Where XXX = '" & Combo1.Text & "' and XXX='XXX' ", Adodc1.ConnectionString, 1, 3

Text1 = rs![ww]

ان استمر الخطأ اكتب قبل اعلى set

on error resume next

بارك الله فيكم
قمت باستبدالها ب datagrid