حذف رکورد با Adodc در فرم دیگر

[yasa_sabnet68]

form4Adodc1.Recordset.MoveFirst
For I = 0 To form4.Adodc1.Recordset.RecordCount - 1
If form4.Adodc1.Recordset.Fields(0) = Text1(0).Text Then
Form4.Adodc1.Recordset.Delete
Form4.Adodc1.Recordset.MoveNext
Else
Form4.Adodc1.Recordset.MoveNext
End If
Next I

:متفکر:

[xxxxx_xxxxx]

سلام،
1) چطور تضمین می کنید که RecordCount در Adodc این فرم با فرم4 برابر هست؟
2) بعد از Delete کردن رکورد نیازی به MoveNext نیست.

یکم توضیح بدید...
چه خطایی تولید میشه؟ روی کدوم خط؟ این دستورات داخل فرم4 هست یا نه؟

[yasa_sabnet68]

سلام،
1) چطور تضمین می کنید که RecordCount در Adodc این فرم با فرم4 برابر هست؟
2) بعد از Delete کردن رکورد نیازی به MoveNext نیست.

یکم توضیح بدید...
چه خطایی تولید میشه؟ روی کدوم خط؟ این دستورات داخل فرم4 هست یا نه؟
نه خوب adodc وgraid تو فرم چهاره ولی ایرادش اینه که چند تارو پاک میکنه ولی ایراد میگیره