منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب قسم لغة الفيجوال بيسك VB.NET قسم اسئلة VB.NET [VB.NET] جلب بينات من الداتا جريد فيور الى فورم 2 تاكست بوكس
تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ادوات الموضوع
[VB.NET] جلب بينات من الداتا جريد فيور الى فورم 2 تاكست بوكس
anis غير متصل
عضو جديد
المشاركات : 21
المواضيع 4
الإنتساب : May 2018
السمعة : 0
الشكر: 4
تم شكره 4 مرات في 3 مشاركات
#11
10-03-19, 11:16 PM (آخر تعديل لهذه المشاركة : 10-03-19, 11:32 PM {2} بواسطة anis.)
(25-02-19, 03:03 PM)anis كتب : السلام عليكم . هذه اول مشاركة لى ببرنامجكم الرجاء مساعدتي 
السؤوال : جلب بينات من الداتا جريد فيور على الفورم1 واظهارها علي الفورم 2 بالتابل ديتيلس او تاكست بوكس
(10-03-19, 11:16 PM)anis كتب :
(25-02-19, 03:03 PM)anis كتب : السلام عليكم . هذه اول مشاركة لى ببرنامجكم الرجاء مساعدتي 
السؤوال : جلب بينات من الداتا جريد فيور على الفورم1 واظهارها علي الفورم 2 بالتابل ديتيلس او تاكست بوكس
(26-02-19, 09:17 PM)حريف برمجة كتب : اضغط المجلد كامل ،،

انته ففقط ضغطت ايقونة تشغيل البرنامج .
(10-03-19, 11:16 PM)anis كتب :
(25-02-19, 03:03 PM)anis كتب : السلام عليكم . هذه اول مشاركة لى ببرنامجكم الرجاء مساعدتي 
السؤوال : جلب بينات من الداتا جريد فيور على الفورم1 واظهارها علي الفورم 2 بالتابل ديتيلس او تاكست بوكس
(10-03-19, 11:16 PM)anis كتب :
(25-02-19, 03:03 PM)anis كتب : السلام عليكم . هذه اول مشاركة لى ببرنامجكم الرجاء مساعدتي 
السؤوال : جلب بينات من الداتا جريد فيور على الفورم1 واظهارها علي الفورم 2 بالتابل ديتيلس او تاكست بوكس
(26-02-19, 09:17 PM)حريف برمجة كتب : اضغط المجلد كامل ،،

انته ففقط ضغطت ايقونة تشغيل البرنامج .
PHP كود :
 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim form As New Form3

        form.الاسمTextBox.Text = Table1DataGridView(1, Table1DataGridView.SelectedRows(0).Index).Value
        form.اللقبTextBox.Text = Table1DataGridView(2, Table1DataGridView.SelectedRows(0).Index).Value
        If (Not String.IsNullOrWhiteSpace(Table1DataGridView(3, Table1DataGridView.SelectedRows(0).Index).Value.ToString)) Then
            form.تاريخ_الولادةDateTimePicker.Value = Convert.ToDateTime(Table1DataGridView(3, Table1DataGridView.SelectedRows(0).Index).Value.ToString)
        End If
        form.مكان_الولادةTextBox.Text = Table1DataGridView(4, Table1DataGridView.SelectedRows(0).Index).Value
        form.الجنسComboBox.Text = Table1DataGridView(5, Table1DataGridView.SelectedRows(0).Index).Value
        form.العمرTextBox.Text = Table1DataGridView(6, Table1DataGridView.SelectedRows(0).Index).Value
        form.رقم_جواز_السفرTextBox.Text = Table1DataGridView(7, Table1DataGridView.SelectedRows(0).Index).Value
        If (Not String.IsNullOrWhiteSpace(Table1DataGridView(8, Table1DataGridView.SelectedRows(0).Index).Value.ToString)) Then
            form.تاريخ_الاصدارDateTimePicker.Value = Convert.ToDateTime(Table1DataGridView(8, Table1DataGridView.SelectedRows(0).Index).Value.ToString)
        End If
        If (Not String.IsNullOrWhiteSpace(Table1DataGridView(9, Table1DataGridView.SelectedRows(0).Index).Value.ToString)) Then
            form.تاريخ_الانتهاءDateTimePicker.Value = Convert.ToDateTime(Table1DataGridView(9, Table1DataGridView.SelectedRows(0).Index).Value.ToString)
        End If
        form.بطاقة_التعريف_الوطنيةComboBox.Text = Table1DataGridView(10, Table1DataGridView.SelectedRows(0).Index).Value
        form.رقم_بطاقة_التعريفTextBox.Text = Table1DataGridView(11, Table1DataGridView.SelectedRows(0).Index).Value
        form.جنسية_اخريComboBox.Text = Table1DataGridView(12, Table1DataGridView.SelectedRows(0).Index).Value
        form.اسم_الابTextBox.Text = Table1DataGridView(13, Table1DataGridView.SelectedRows(0).Index).Value
        form.اسم_الجدTextBox.Text = Table1DataGridView(14, Table1DataGridView.SelectedRows(0).Index).Value
        form.اسم_ولقب_الامTextBox.Text = Table1DataGridView(15, Table1DataGridView.SelectedRows(0).Index).Value
        form.المهنةTextBox.Text = Table1DataGridView(16, Table1DataGridView.SelectedRows(0).Index).Value
        form.الصفةComboBox.Text = Table1DataGridView(17, Table1DataGridView.SelectedRows(0).Index).Value
        form.ايمايلTextBox.Text = Table1DataGridView(18, Table1DataGridView.SelectedRows(0).Index).Value
        form.العنوان_بالاماراتComboBox.Text = Table1DataGridView(19, Table1DataGridView.SelectedRows(0).Index).Value
        form.الهاتف_بالاماراتTextBox.Text = Table1DataGridView(20, Table1DataGridView.SelectedRows(0).Index).Value
        form.العنوان_بتونسTextBox.Text = Table1DataGridView(21, Table1DataGridView.SelectedRows(0).Index).Value
        form.الهاتف_بتونسTextBox.Text = Table1DataGridView(22, Table1DataGridView.SelectedRows(0).Index).Value
        form.الحالة_الاجتماعيةComboBox.Text = Table1DataGridView(23, Table1DataGridView.SelectedRows(0).Index).Value
        form.اسم_ولقب_الزوج_ة_TextBox.Text = Table1DataGridView(24, Table1DataGridView.SelectedRows(0).Index).Value
        form.جنسية_الزوج_ة_TextBox.Text = Table1DataGridView(25, Table1DataGridView.SelectedRows(0).Index).Value
        form.جنسية_اخريComboBox.Text = Table1DataGridView(26, Table1DataGridView.SelectedRows(0).Index).Value
        If (Not String.IsNullOrWhiteSpace(Table1DataGridView(27, Table1DataGridView.SelectedRows(0).Index).Value.ToString)) Then
            form.الصلوحيةDateTimePicker.Value = Convert.ToDateTime(Table1DataGridView(27, Table1DataGridView.SelectedRows(0).Index).Value.ToString)
        End If
        If (Not String.IsNullOrWhiteSpace(Table1DataGridView(28, Table1DataGridView.SelectedRows(0).Index).Value.ToString)) Then
            form.انتهاء_الصلوحيةDateTimePicker.Value = Convert.ToDateTime(Table1DataGridView(28, Table1DataGridView.SelectedRows(0).Index).Value.ToString)

        End If
        form.الملاحظاتTextBox.Text = Table1DataGridView(29, Table1DataGridView.SelectedRows(0).Index).Value

        Form3.Show()
        Me.Hide() 


الملفات المرفقة صورة/صور
               
البحث
الرد }}}
تم الشكر بواسطة:
5000 غير متصل
عضو مبدع
المشاركات : 100
المواضيع 0
الإنتساب : Mar 2019
السمعة : 17
الشكر: 0
تم شكره 109 مرات في 75 مشاركات
#12
11-03-19, 01:32 AM
حسب المشاركة السابقة
غير السطر الأخير الخاص باظهار الفورم بالشكل التالي
form.Show
البحث
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو
anis غير متصل
عضو جديد
المشاركات : 21
المواضيع 4
الإنتساب : May 2018
السمعة : 0
الشكر: 4
تم شكره 4 مرات في 3 مشاركات
#13
11-03-19, 11:18 AM
(11-03-19, 01:32 AM)5000 كتب : حسب المشاركة السابقة
غير السطر الأخير الخاص باظهار الفورم بالشكل التالي
form.Show

شكرا استاذي الفاضل على سرعة استجابتكم لطلبي .
لكن بقى المشكل كما هو  Sad
البحث
الرد }}}
تم الشكر بواسطة:
anis غير متصل
عضو جديد
المشاركات : 21
المواضيع 4
الإنتساب : May 2018
السمعة : 0
الشكر: 4
تم شكره 4 مرات في 3 مشاركات
#14
11-03-19, 12:45 PM
(11-03-19, 11:18 AM)anis كتب :
(11-03-19, 01:32 AM)5000 كتب : حسب المشاركة السابقة
غير السطر الأخير الخاص باظهار الفورم بالشكل التالي
form.Show

شكرا استاذي الفاضل على سرعة استجابتكم لطلبي .
لكن بقى المشكل كما هو  Sad

هل يوجد كود يجب وضعه بالفورم 3 ؟؟؟ 
البحث
الرد }}}
تم الشكر بواسطة:
asemshahen5 غير متصل
مراقب منتدى
المشاركات : 2,329
المواضيع 81
الإنتساب : May 2018
السمعة : 522
الشكر: 14039
تم شكره 5671 مرات في 2269 مشاركات
#15
11-03-19, 10:26 PM (آخر تعديل لهذه المشاركة : 11-03-19, 10:27 PM {2} بواسطة asemshahen5.)
غير  :

PHP كود :
form.الاسمTextBox.Text = Table1DataGridView(1, Table1DataGridView.SelectedRows(0).Index).Value 


لـ :

كود :
Form.الاسمTextBox.Text = Table1DataGridView.CurrentRow.Cells(1).Value
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر





الموقع البحث
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو , elgokr
anis غير متصل
عضو جديد
المشاركات : 21
المواضيع 4
الإنتساب : May 2018
السمعة : 0
الشكر: 4
تم شكره 4 مرات في 3 مشاركات
#16
12-03-19, 12:35 PM (آخر تعديل لهذه المشاركة : 12-03-19, 12:37 PM {2} بواسطة anis.)
(11-03-19, 10:26 PM)asemshahen5 كتب : غير  :

PHP كود :
form.الاسمTextBox.Text = Table1DataGridView(1, Table1DataGridView.SelectedRows(0).Index).Value 


لـ :

كود :
Form.الاسمTextBox.Text = Table1DataGridView.CurrentRow.Cells(1).Value

ألف الف الف شكر وتقدير . الله يجازيك خير .
والله مشكورين .  Heart
(12-03-19, 12:35 PM)anis كتب :
(11-03-19, 10:26 PM)asemshahen5 كتب : غير  :

PHP كود :
form.الاسمTextBox.Text = Table1DataGridView(1, Table1DataGridView.SelectedRows(0).Index).Value 


لـ :

كود :
Form.الاسمTextBox.Text = Table1DataGridView.CurrentRow.Cells(1).Value

ألف الف الف شكر وتقدير . الله يجازيك خير .
والله مشكورين .  Heart
تحية خاصة لكافة أعضاء الفريق .  Heart Heart Heart
البحث
الرد }}}
تم الشكر بواسطة: elgokr , asemshahen5
anis غير متصل
عضو جديد
المشاركات : 21
المواضيع 4
الإنتساب : May 2018
السمعة : 0
الشكر: 4
تم شكره 4 مرات في 3 مشاركات
#17
15-03-19, 09:41 PM (آخر تعديل لهذه المشاركة : 15-03-19, 09:45 PM {2} بواسطة anis.)
السلام عليكم اساتذتي الكرام .
   
   ارجو من الله ومنكم ان تتسع صدوركم الرحبة لسؤالي :  كيفية تعديل البينات وحفضها و السؤال الثاني كيفية ادراج او إضافة سجل حديد
    
   مع العلم اني استعمل قاعدة بينات من نوع اكسس
(15-03-19, 09:41 PM)anis كتب : السلام عليكم اساتذتي الكرام .
   
   ارجو من الله ومنكم ان تتسع صدوركم الرحبة لسؤالي :  كيفية تعديل البينات وحفضها و السؤال الثاني كيفية ادراج او إضافة سجل حديد
    
   مع العلم اني استعمل قاعدة بينات من نوع اكسس


الملفات المرفقة صورة/صور
   
البحث
الرد }}}
تم الشكر بواسطة:
رضوان الجماعي غير متصل
عضو مبدع
المشاركات : 109
المواضيع 14
الإنتساب : Mar 2021
السمعة : 4
الشكر: 235
تم شكره 88 مرات في 57 مشاركات
#18
24-09-22, 06:37 PM
اخي الحبيب على ما يبدوا انك تهت وذلك لضغط الحاصل عليك ما الومك نهائين ولكن هذا جيد جدا لانه سيعلمك من اخطاء التجربة الكثير لا شئ ياتي من فراغ
وهذه طريقه اخرى تمكنك من نقل الخلية التي تريد الى التكست بكس الذي تريد
اولا قم بتعريف المتغير في مديول كا التالي
Public Pateint_ID As Integer
بعدها في البتن الذي ينقلك الى الفورم التالي قم بكتابة الكود التالي وسيقوم بنسخ الذي التي تحددها انت من الدتاجريد
Clinic_servis.TextBox_id.Text = Gridpateint.CurrentRow.Cells("Pateint_ID").Value.ToString()
Clinic_servis.Show()

اللهم اني قد نذرت نفسي لمساعدت الاخرين فوفقني وكن لي معين
جاهز لمساعدة اي حد يحتاج لمساعدتي
طبيب اعشق البرمجة . 
البحث
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة فى جمع عمود فى داتا جريد فيو احمد خطاب 3 160 06-03-24, 07:49 PM
آخر رد: احمد خطاب
  حذف الاسطر الفارغه من الداتا جريد فيو اليوم السابع 3 2,378 03-03-24, 12:57 AM
آخر رد: مصمم هاوي
  تظليل التكست بوكس عند وضع المؤشر مصمم هاوي 2 159 02-03-24, 08:48 AM
آخر رد: مصمم هاوي
  بحث بالكومبو بوكس لا ى جزء من النص Lathe1 3 476 28-02-24, 02:59 AM
آخر رد: معاند الحظ
  كيفية جمع أرقام عمود فى الداتا جريد فيو بناءاً على بيانات معينة heem1986 5 236 25-02-24, 11:26 PM
آخر رد: heem1986
  كيفية تنفيذ امر عند التعليم على checkbox بالداتا جريد فيو heem1986 2 162 21-02-24, 01:37 AM
آخر رد: heem1986
  كيفية تنفيذ أمر عرض بيانات من فورم ثان مصمم هاوي 7 336 19-02-24, 12:28 AM
آخر رد: مصمم هاوي
  [VB.NET] مشكلة التاريخ في الداتا قريد فيو مبرمج صغير 1 6 404 24-01-24, 10:12 PM
آخر رد: annagui
  [سؤال] كيفية انشاء فورم داخل مشروعى عاصم النجار 2 314 05-01-24, 12:36 AM
آخر رد: HALIM ELEULMA
  [VB.NET] فتح فورم بعد تحقق الشرط h2551996 2 381 18-12-23, 10:56 PM
آخر رد: h2551996

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


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