السلام عليكم اخواني
عندي مشكلة صغير في استخدام الاداة DataGrid
ارغب في اعادة تسمية عناوين الشبكة
لكن لم افلح في ذالك
استخدمة الكود التالي
وكل مرة تظهر لي مشكلة ان الاجراء لم يتم العثور عليه
ما اعرف هل ناقص العمل شي او هل استخدم امر ثاني مكان
.TextArray
ارجو منكم المساعدة وتفسير لي المشكلة
Private Sub Form_Load() On Error GoTo hell Set RS = New ADODB.RecordSet RS.CursorLocation = adUseClient RS.Open "SELECT * FROM tblBooks", CN, adOpenDynamic, adLockOptimistic Set DataGrid1.DataSource = RS DisplayRecords With frmMain.ImgList32 cmdReport(1).Picture = .ListImages(6).Picture cmdReport(0).Picture = .ListImages(6).Picture End With Exit Sub hell: Handler Err Resume Next Set DataGrid1.DataSource = RS With DataGrid1 .TextArray(0) = "الرقم" .TextArray(1) = "العنوان" .TextArray(2) = "الهاتف" .TextArray(3) = "الحالة" .TextArray(4) = "الرقم الخاص" .TextArray(5) = "الجنسية" .TextArray(6) = "العمل" End With End Sub
