+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كتابة نص البحث في الداتاغريد فيو (/showthread.php?tid=32431)
كتابة نص البحث في الداتاغريد فيو - ghias - 08-12-19
السلاام عليكم اخوتي أنا أستخدم الجملة التالية لاظهار لوحة البحث الخاصة بالمواد بعد كتابة الأحرف الأولى للمادة في خانة اسم المادة في الـ DATAGRID VIEW CELL المخصصة لادخال اسم المادة المادة على اللوحة الأم لكي تظهر لوحة البحث وقد كتب في خلية البحث الموجودة عليها الأحرف الأولى التي كتبتها للتو في الـ DATAGRID VIEW على اللوحة الأم.
النتيجة التي أحصل عليها الآن هي
تفتح لوحة البحث لكن دون ظهور الاحرف الأولى في خانة البحث
أرجو المساعدة لو سمحتم
علما أني احصل على النتيجة المرجوة لو كتبت الجملة البرمجية الواردة في الاسفل في الحدث CELL END EDITING في ال DATAGRID VIEW بدلا من الحدث KeyUp ولكنه غير مناسب في هذا الحدث.
Private Sub DGV_KeyUp(sender As Object, e As KeyEventArgs) Handles DGV.KeyUp
If e.KeyCode = Keys.Enter Then
Dim I As Integer = DGV.CurrentCell.RowIndex
Dim J As Integer = DGV.CurrentCell.ColumnIndex
If J = 2 Then
Dim F As New FRM_ALL_ITEME
F.TXT_SEARCH.Text = DGV.Rows(I).Cells(2).Value
F.SHOWDIALOG()
END IF
END SUB
RE: كتابة نص البحث في الداتاغريد فيو - محمد كريّم - 08-12-19
وعليكم السلام ورحمة الله وبركاته
ممكن تجرب القيمة EditedFormattedValue
بدلا من Value
RE: كتابة نص البحث في الداتاغريد فيو - ghias - 08-12-19
(08-12-19, 05:21 PM)محمد كريّم كتب : وعليكم السلام ورحمة الله وبركاته
ممكن تجرب القيمة EditedFormattedValue
بدلا من Value
مشكور أخي محمد لكنها لم تبدل شيء
كأنه لايعتبر بوجود أي قيمة للخلية التي تجري الكتابة فيها بعد.
ألف شكر للرد
RE: كتابة نص البحث في الداتاغريد فيو - محمد كريّم - 08-12-19
ممكن السبب ان ضغط Enter بينتقل للسجل التالي اللي خلاياه بدون قيمة ؟
هذا مثال شغال عندي كما طلبت (لاحظ إنه بياخذ قيمة الصف - 1)
كود :
If e.KeyCode = Keys.Enter Then
Dim I As Integer = DGV.CurrentCell.RowIndex - 1
Dim J As Integer = DGV.CurrentCell.ColumnIndex
If J = 2 Then
Dim F As New FRM_ALL_ITEME
F.TXT_SEARCH.Text = DGV.Rows(I).Cells(2).Value
F.ShowDialog()
End If
End IfRE: كتابة نص البحث في الداتاغريد فيو - ghias - 08-12-19
(08-12-19, 05:57 PM)محمد كريّم كتب : ممكن السبب ان ضغط Enter بينتقل للسجل التالي اللي خلاياه بدون قيمة ؟
هذا مثال شغال عندي كما طلبت (لاحظ إنه بياخذ قيمة الصف - 1)
كود :
If e.KeyCode = Keys.Enter Then
Dim I As Integer = DGV.CurrentCell.RowIndex - 1
Dim J As Integer = DGV.CurrentCell.ColumnIndex
If J = 2 Then
Dim F As New FRM_ALL_ITEME
F.TXT_SEARCH.Text = DGV.Rows(I).Cells(2).Value
F.ShowDialog()
End If
End If
كلام صحيح تماما. ألف شكر أخي محمد وشكرا لتعاونك مشكور