وضع قيمة معينة في DATA GRID

روزا

وضح اكثر

السؤال غير واضح

مثلاً لوكان عندي جدول الكتب يحتوي على رقم الكتاب(primary key) وبيانات اخرى عن الكتاب

وجدول الكتب المفقودة يحتوي على رقم الكتاب فقط .حيث أن بعض الكتب تكون مفقودة وبعضها لا

أريد أن أعرض في data grid الجدولين وفي جدول الكتب المفقودة أذا كان الكتاب موجود أكتب في الحقل المعروض

لرقم الكتاب( مفقود) وأذا كان غير موجود (غير مفقود)

حالة عدم الوجود أعرفها وهي

 Dim grdColStyle5 As New DataGridTextBoxColumn()
            With grdColStyle5
                .NullText = "لايوجد"
            End With

لكن الحالة الأولى الوجود ماأعرفها. مالحل؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

السلام عليكم

الحل بسيط جداً أختي

فقط قومِ بإنشاء عنصر من نوع DataRow و أجعليه في حلقة Loop كل مرة يتم إستدعاء البيانات

سواءً عن طريق التحميل أو عن طريق أي حدث ترينه مناسب لإستبدال رقم الكتاب بالكلمة "موجود"

سيكون بهذا الشكل

'Change the DataGrid Values
    '<<<<<<<<<<<<<>>>>>>>>>>>>>
    Private Sub CDGValue()
        Dim r As DataRow
        For Each r In Me.DsMain1.Books.Rows
            If Not r(1) Is Nothing Then
                r(1) = "موجود"
            End If
        Next
    End Sub

تحليل النصوص البرمجية

أولاً العنصر r وهو من نوع DataRow سيكون مسؤول عن الصفوف الموجودة في الجدول Book هذا طبعاً نسبةً إلى مثالي

يتم إسناد المسؤولية عن طريق الحلقة ForEach التي عينت العنصر r كمراقب على الصفوف في الجدول Book

كما ذكرت آنفاً

الأن الشرط if يتحقق من القيمة بشرط أن لا تكون فارغة Null // Nothing اي هنالك رقم كتاب إذا قم بإستبدالة بالكلمة

موجود .. تلاحظين الرقم 1 هذا يعني أن العامود المراد إستبدالة هو العامود الثاني , لان الأول هو صفر

وبهذا يتم إستدعاء الإجراء CDGValue كل مرة يتم ملئ البيانات

والله أعلم

السلام عليكم

DsMain1

object من نوع أيش ؟؟؟؟

شاكرأً لك تعاونك....