08-10-13, 01:09 AM
بسم الله الرحمن الرحيم
السلام عليكماعاني من مشكلة بعرض القيم على الليست فيو، عندما تكون احدى تلك القيم فارغة
كود :
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
الا ان الامر لم ينجح
ارجو المساعدة في تصويب الكود، بحيث يقبل اظهار القيم الفارغة ضمن الليست فيو
والف شكر