تقييم الموضوع :
  • 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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  حل مشكلة الكود الاتي - سهل- CLARO 3 75 02-12-16, 04:06 PM
آخر رد: ali.alfoly
  كيف يتم حل مشكلة ظهور رسالة عند الضغط علي هيد داتا جريد فيو السيد الجوهري 4 50 30-11-16, 10:08 PM
آخر رد: السيد الجوهري
  [VB.NET] مشكلة عند عمل تحديث للبيانات Asmaa adel 3 69 27-11-16, 03:56 PM
آخر رد: Adrees
Rainbow [VB.NET] مشكلة طابعة الباركود محمد اسماعيل 3 264 27-11-16, 10:30 AM
آخر رد: adel27
  [SQL] مشكلة عند الاتصال بالسيكوال سيرفر تظهر الرسالة التالية Asmaa adel 8 178 21-11-16, 11:58 PM
آخر رد: Asmaa adel
  [سؤال] مشكلة في إعادة تنفيذ البرنامج wael khlak 1 52 21-11-16, 11:48 PM
آخر رد: السرور
  [VB.NET] مشكلة في كود البحث khalid475 14 216 11-11-16, 07:52 PM
آخر رد: khalid475
Question [سؤال] مشكلة محيرتني هل من مساعدة shwehdi4pc 14 2,093 10-11-16, 03:55 PM
آخر رد: أبوبكر سويدان
  [VB.NET] مشكلة في Timer 3asfa~mdmra 1 80 07-11-16, 02:09 PM
آخر رد: hassan
  [سؤال] مشكلة في حفظ البيانات باستخدام datagridview abdalla89 6 357 05-11-16, 02:47 AM
آخر رد: نايف 2006

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


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