منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - نقل البيانات من اليست فيو الي تيكست بوكس

اريد عند الضغط علي اليست فيو نقل بيانات الاعمدة الي التيكست بوكس

انا حاولت بالكود دة ولكن لو في احد الاعمدة بهاقيمة فارغة يحدث خطا

وهو شغال لو الصف المختار بكامل بياناتة

Private Sub ListView8_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView8.Click
' نقل من اليست فيو الي التيكست والكودد بة مشكلة في حالة وجود عمود بية قيمة خالية

PHP كود :
If ListView8.SelectedItems.Count = 0 Then
            Exit Sub
        Else '// check if item is selected.
            With ListView8.SelectedItems.Item(0)
                TextBox3.Text = .Text '// column 1.
                TextBox4.Text = .SubItems(1).Text '// column 2.
                TextBox5.Text = .SubItems(3).Text '// column 3.
                TextBox6.Text = .SubItems(4).Text '// column 4.

            End With


        End If
    End Sub 

السلام عليكم

استخدم الكود التالي

if isnull(.SubItems(1).Text) = false then TextBox4.Text
if isnull(.SubItems(3).Text) = false then TextBox5.Text
if isnull(.SubItems(4).Text) = false then TextBox6.Text

يعطيك العافية

الكود لا ينتظم معي في التركيب isnull غير موجودة في نطاق ليست فيو ولايعمل معي DBNull ISDBNULL

لو في تعب ممكن تركيب الكود كامل لانة لم يعمل معي

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

كود :
Private Sub ListView1_ItemSelectionChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.ListViewItemSelectionChangedEventArgs) Handles ListView1.ItemSelectionChanged

        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

    End Sub

الكود ممتاز اخي kslawy

جزاك اللة كل خير

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

mazen55

abulayth

mazen55

kslawy

mazen55