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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مشكلة في حفظ بيانات من الجدولين dark1459 8 116 أمس, 10:35 PM
آخر رد: dark1459
  مشكلة في اجبار المستخدم ان يحفظ صورة في قاعدة بيانات shado1796 96 6,251 أمس, 04:03 AM
آخر رد: khodor1985
  [VB.NET] مشكلة المسارات Fantastico 1 49 24-02-17, 12:40 PM
آخر رد: Master Hacker
  مشكلة ف الحفظ والتعديل بعد تحويل المشروع لملف تنفيذي apo yousef 3 91 23-02-17, 12:28 PM
آخر رد: ssayed111
  مشكلة في عرض النص بالعربي في #Region فقط ali.alfoly 1 77 22-02-17, 02:50 AM
آخر رد: مساعدة
  ار جو المساعدة ما هي مشكلة كود التعديل والحذف boofa2015 2 58 21-02-17, 10:58 AM
آخر رد: boofa2015
  [VB.NET] مشكلة في كيفية اعادة الاتصال في TcpClient YazanOtoum 1 60 20-02-17, 01:03 PM
آخر رد: YazanOtoum
  [VB.NET] كيفية حل مشكلة Global.[String] فى ملف Settings.Designer.vb الماجيك مسعد 2 62 20-02-17, 03:08 AM
آخر رد: الماجيك مسعد
  [VB.NET] مشكلة في حدف صورة من مسار بمجلد بالكمبيوتر ناصر شير 6 123 18-02-17, 02:37 PM
آخر رد: ناصر شير
  [سؤال] حل مشكلة برنامج لتغير التاريخ عبدالرحمن المكاوي 6 145 17-02-17, 11:19 PM
آخر رد: EnormousSoft

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


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