السلام عليكم جميعا انا صممت برنامج موظفين ووضعت طريقة بحث داتا غريد ...بحيث اذا بحثت عن اسم احمد فيظهر لي كل اسماء احمد في جدول الداتا غريد ولهون والخطةات تمام بس عندي مشكلة صغيرة انا حاولت اطبع نتائج البحث التي ظهرت معي في جدول الداتا غريد ولكن لم استطع ربطها بداتا ريبورت ..وطباعتها .. فهذا هو الكود ارجو الاطلاع عليه :
Private Sub Form_Load()
'MsgBox "البحث بالاسم لايعمل حاليا" & s, vbCritical + vbMsgBoxRight + vbOKOnly, "خطاء"
Skin1.ApplySkin Me.hWnd
Dim s
'As String
s = InputBox("ادخل الاسم المراد البحث عنه", "بحث")
If s = "" Then
MsgBox "رجاء ادخل الاسم للبحث", vbExclamation + vbMsgBoxRight + vbOKOnly, "تاكيد"
Else
Adodc1.Refresh
Adodc1.Recordset.Find ("name = ' " & s & " ' ")
If Adodc1.Recordset.EOF Then
MsgBox "لايوجد سجل لهذا الاسم" & s, vbExclamation + vbMsgBoxRight + vbOKOnly, "خطاء"
DataGrid1.Visible = False
Else
n = s
's = n
DataEnvironment2.Connection1.Close
DataEnvironment2.Connection1.Open
DataEnvironment2.search n
DataGrid1.DataMember = "search"
DataGrid1.Visible = True
End If
End If
End Sub
لهذه الخطوة وتظهر لي النائج اوكي بعد ذلك عندما ربطه في داتا ريبورت فانه يعطيني جميع السجلات ولا يعطيني النتيجة التي ظهرت معي في داتا غريد فارجوكم جاوبوني ...وجزالكم الله خير
