كيف يمكن اضافة حقل حسابي ؟

أنظر هذا الموضوع للأخ waleedhm الله يجزاه خير

/index.ph...topic=72342&hl=

السلام عليكم

يُفترض كأفضلية أن تكون قيم الجدول الذي إحتوى على القيم 1 و 0 , إحتواها من جدول مساعد

بحيث الجدول يكون فيه عامودان الاول القيم الرقمية و الثاني القيم النصية المقروءة .

و من ثم يسهل عليك عرض أيهما حسب ما تشاء .

الطريقة التي توصلت لها هي كالتالي

ننشئ عامود جديد column و عنصر من نوع صف row

ثم نقوم بعملية الدوران حول الاعمدة لمعرفة ايهم يأخذ القيمة صفر ونسند بدلها القيمة لا

و الثاني نعم و غيرهما ( غير معروف) مع إخفاء العامود الذي يحتوى على القيمتين صفر و واحد.

شاهد النصوص البرمجية التالية .

 'Sex_ID إخفاء العامود السابق وهو 
        Me.Ds1.LOOKUPSex.Sex_IDColumn.ColumnMapping = MappingType.Hidden

        'DataSet تعبئة الـ
        Me.da.Fill(Ds1)

        'إنشاء عنصر من نوع صف
        Dim r As DataRow

        'إنشاء عنصر من نوع عامود
        Dim col As New DataColumn

        'إسناد قيم لخصائص العامود
        With col
            .DataType = Type.GetType("System.String")
            .Caption = "Gender"
            .ColumnName = "col"
        End With

        'DataGrid ضم العامود في الجدول المعروض في الـ
        Me.Ds1.LOOKUPSex.Columns.Add(col)

        ' Sex_ID حلقة للتحقق من قيم العامود 
        For Each r In Me.Ds1.LOOKUPSex.Rows
            If r("Sex_ID") = 1 Then
                'إسناد القيمة نعم وفقاً للقيمة 1 في العامود الجديد
                r("col") = "نعم"

            ElseIf r("Sex_ID") = 2 Then
                r("col") = "لا"
            Else
                r("col") = "غير معروف"
            End If
        Next

بالتوفيق إن شاء الله .

شكرا لكما .