تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] نقل البيانات من اليست فيو الي تيكست بوكس
#1
اريد عند الضغط علي اليست فيو نقل بيانات الاعمدة الي التيكست بوكس

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

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

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 
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم

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

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


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

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

لو في تعب ممكن تركيب الكود كامل لانة لم يعمل معي
الرد }}}}
تم الشكر بواسطة:
#4
جرب هذا الكود في الحدث 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
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}}
تم الشكر بواسطة:
#5
الكود ممتاز اخي kslawy

جزاك اللة كل خير
الرد }}}}
تم الشكر بواسطة: kslawy


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] التجميع و الفرز قواعد البيانات tifagreet 4 58 أمس, 04:21 AM
آخر رد: tifagreet
  استفسار عن الجداول المتعددة في قاعدة البيانات اكسس أبووسم 4 120 14-01-17, 12:36 PM
آخر رد: أبووسم
  ياشباب ارجو منكم المساعده لدي مشاكل في اضافه الصورة الى قاعده البيانات وعمل بحث ammar ali 3 166 13-01-17, 11:15 PM
آخر رد: ammaraliali
  [VB.NET] استقبال البيانات عن طريق serail port engmedomed@gmail.com 1 65 11-01-17, 02:13 AM
آخر رد: مساعدة
  ترتيب 2 ليست بوكس حسب احدهما samira20 6 137 06-01-17, 06:40 PM
آخر رد: samira20
  تعديل الكود (ظهور مسج بوكس عند عدم وجود الاسم) Namer 10 412 04-01-17, 01:12 AM
آخر رد: Namer
  تصدير البيانات الى PDF باستخدام ITextSharp لايدعم اللغة العربية فاطمة غ 8 343 04-01-17, 12:00 AM
آخر رد: مساعدة
  تغيير قاعدة البيانات الى .bak صبري زينوبي 5 133 01-01-17, 02:33 PM
آخر رد: صبري زينوبي
  [كود] استقسار عن الكومبوبكس والتيكست بوكس عبدالرحمن المكاوي 6 139 31-12-16, 07:35 PM
آخر رد: مساعدة
  ماهو كود اضافة صفوف الداتا قرد الي قاعدة البيانات SQL SERVER معتز الجازوي 0 70 26-12-16, 05:13 AM
آخر رد: معتز الجازوي

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


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