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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] أحاول أخذ باك أب لقاعدة البيانات من نوع mySQL ولكن لا أستطيع مرفق الكود dametucorazon 11 115 منذ 7 ساعة مضت
آخر رد: elgokr
  الاتصال بقاعدة البيانات من خلال ip atefkhalf2004 7 108 أمس, 02:30 PM
آخر رد: HASAN6.0
  [سؤال] كيف اقوم بتحديث اخر سجل في قاعدة البيانات بشرط معين ؟ dametucorazon 3 40 18-06-18, 02:41 AM
آخر رد: elgokr
  التحقق من قيمة حقل في قاعدة البيانات ZaerAllail 3 71 16-06-18, 03:31 PM
آخر رد: حريف برمجة
  [سؤال] مشكله فى ادخال قاعد البيانات الي الفيجوال Mahmoud Nasser 1 43 10-06-18, 04:34 PM
آخر رد: elgokr
  اريد بعد ان اقوم بطباعة البيانات في PDF بعد ادخالها وحفظها وبتنسيق معين farah112233 16 268 10-06-18, 07:51 AM
آخر رد: عبدالله الدوسري
  [سؤال] كود عبارة عن التحقق من ملف تنفيذي موجود في الويندوز وازا تحقق الشرط يطلع مسج بوكس same1 3 63 10-06-18, 05:49 AM
آخر رد: elgokr
  هل يمكن ان اجعل جدول على شكل مسودة اي بعد الحذف تحول البيانات الى المسودة hassan 14 1 51 09-06-18, 03:48 PM
آخر رد: elgokr
  [سؤال] أريد كود لاستيراد ملف اكسل من الحاسوب و نقله الى قاعدة البيانات safox 2 57 09-06-18, 06:04 AM
آخر رد: elgokr
  مكان وضع قاعدة البيانات sql server atefkhalf2004 1 40 08-06-18, 04:03 PM
آخر رد: elgokr

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


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