تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] مشكلة في عرض القيم الفارغة على الليست فيو ؟
#1
بسم الله الرحمن الرحيم
السلام عليكم

اعاني من مشكلة بعرض القيم على الليست فيو، عندما تكون احدى تلك القيم فارغة
كود :
Sub PopulateListView()

        With ListView1
            .Clear()
            .View = View.Details
            .Columns.Add("Beda_id", 0, HorizontalAlignment.Center)
            .Columns.Add("اســم المـــادة", 250, HorizontalAlignment.Left)
            .Columns.Add("سعر الشــراء", 100, HorizontalAlignment.Center)
            .Columns.Add("سعر المبيـع", 100, HorizontalAlignment.Center)
            .Columns.Add("ربح المـادة", 100, HorizontalAlignment.Center)
            .Columns.Add("ملاحظــــات", 400, HorizontalAlignment.Left)


            .GridLines = False
            .FullRowSelect = True
            .Cursor = Cursors.Hand
            .BackColor = Color.Beige
            .ForeColor = Color.Black


            Dim Lst As New ListViewItem
            Dim List = From B In db.Fixed_Bedas Select B

            For Each x In List
                Lst = New ListViewItem(x.Beda_id)
                Lst.SubItems.Add(x.Beda_Name)

                'If IsDBNull(x.Shra_Price) Then
                '    x.Shra_Price = 0
                'End If

                'If IsDBNull(x.Mabee_Price) Then
                '    x.Mabee_Price = 0
                'End If
                

                Lst.SubItems.Add(x.Shra_Price)
                Lst.SubItems.Add(x.Mabee_Price)
                Lst.SubItems.Add(x.Mabee_Price - x.Shra_Price)
                Lst.SubItems.Add(x.Beda_Note)
                .Items.Add(Lst)
            Next
        End With


        For Each LVI As ListViewItem In ListView1.Items
            LVI.SubItems.Item(2).Text = FormatNumber(LVI.SubItems.Item(2).Text, 0)
            LVI.SubItems.Item(3).Text = FormatNumber(LVI.SubItems.Item(3).Text, 0)
            LVI.SubItems.Item(4).Text = FormatNumber(LVI.SubItems.Item(4).Text, 0)
        Next

  
  End Sub

حاولت فحص قيمة المتغير فيما ادا كان فارغا من اجل اسناد قيمة الصفر له عن طريق كتابة
كود :
'If IsDBNull(x.Shra_Price) Then
                '    x.Shra_Price = 0
                'End If

الا ان الامر لم ينجح

ارجو المساعدة في تصويب الكود، بحيث يقبل اظهار القيم الفارغة ضمن الليست فيو

والف شكر


الملفات المرفقة صورة/صور
   
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته

تفضل أخي استخدم هذه الدالة

كود :
Public Function GetValue(ByVal Value As String) As String
        Return IIf(String.IsNullOrEmpty(Value), "0", Value)
    End Function

وطريقة استعمالها

كود :
Lst.SubItems.Add(GetValue(x.Shra_Price))
        Lst.SubItems.Add(GetValue(x.Mabee_Price))
        Lst.SubItems.Add(GetValue(x.Mabee_Price - x.Shra_Price))

بالتوفيق
الرد }}}}
تم الشكر بواسطة: العزابي , kafi2030 , kslawy
#3
السلام عليكم
شكرا اخي
sooriaty
على تواصلك معي

تم تجريب ما تفضلت به حضرتك

ولكن للاسف مازالت ذات المشكلة !!!!


الملفات المرفقة صورة/صور
       
الرد }}}}
تم الشكر بواسطة:
#4
السلام عليكم ورحمة الله وبركاته

حسنا أخي جرب تعديل الدالة بحيث يكون المتغير الذي يتم تمريره من نوع Object
بهذه الطريقة

كود :
Public Function GetValue(ByVal Value As Object) As String
        Return CStr(IIf(IsNothing(Value), "0", Value))
End Function

جرب وأعلمني بالنتيجة
الرد }}}}
تم الشكر بواسطة: kafi2030
#5
كان لية اح الاسئلة المشابة ورد علية احد اعضاء المنتدي الكرام اخي kslawy

جرب هذا الكود في الحدث ItemSelectionChanged الخاص بالأداة :

PHP كود :
Private Sub ListView1_ItemSelectionChanged(ByVal sender As ObjectByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgsHandles ListView1.ItemSelectionChanged
On Error Resume Next
        
If Not e.Item Is Nothing Then
            
If e.IsSelected True Then
                With e
.Item
                    Me
.TextBox1.Text IIf(.Text IsNot Nothing, .Text"")
                    
Me.TextBox2.Text IIf(.SubItems(1).Text IsNot Nothing, .SubItems(1).Text"")
                    
Me.TextBox3.Text IIf(.SubItems(2).Text IsNot Nothing, .SubItems(2).Text"")
                
End With
            End 
If
        
End If 

هذا رابط للموضوع
http://vb4arb.com/vb/showthread.php?tid=378

وبعد لما تخلص ضع قبل الكود في نفس الحدث iهذة العبارة لتنهي احتمالية اي اخطاء
On Error Resume Next
الرد }}}}
تم الشكر بواسطة: kafi2030
#6
الف شكر
اخي sooriaty

نجح الحل المقدم من حضرتك
بارك الله فيك
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في مسار ملف xml جوال تك1 5 83 أمس, 05:28 PM
آخر رد: جوال تك1
  مشكلة بسيطة بس غلبتني يا شباب --الحمد لله اتحلت khaled12345 17 470 21-07-17, 09:59 PM
آخر رد: Amir_alzubidy
Sad [سؤال] مشكلة اغلاق البرنامج عند فتحة . MohamedAllam 11 250 19-07-17, 03:42 PM
آخر رد: MohamedAllam
  [VB.NET] مشكلة في صلاحيات Administration Yazan Alatoom 1 86 17-07-17, 11:08 AM
آخر رد: Amir_alzubidy
  [VB.NET] مشكلة حيرتنى فى شروط if المشروع مرفق الماجيك مسعد 12 280 16-07-17, 06:04 PM
آخر رد: الماجيك مسعد
  [VB.NET] مشكلة في حفظ اعدادات المشروع سعود الشامان 13 507 16-07-17, 12:42 PM
آخر رد: أبوبكر سويدان
  مشكلة الشراء باسعار مختلفه نبيل كونكت 3 99 15-07-17, 12:54 AM
آخر رد: أبوبكر سويدان
  مشكلة في عرض الفورم وتضهر هذه الرساله eng_yuyu 1 80 14-07-17, 08:56 PM
آخر رد: سعود
  مشكلة عند عرض جدول في datagridview تناسيم 1 65 12-07-17, 09:58 PM
آخر رد: نبيل كونكت
  مشكلة في اتجاه label تناسيم 0 74 12-07-17, 10:30 AM
آخر رد: تناسيم

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم