[سؤال] مشكلة في عرض القيم الفارغة على الليست فيو ؟

كود :

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

PHP كود :

Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles 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