منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب قسم لغة الفيجوال بيسك 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,324
المواضيع 81
الإنتساب : May 2018
السمعة : 522
الشكر: 13917
تم شكره 5687 مرات في 2270 مشاركات
#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
الشكر: 233
تم شكره 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()

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] حفظ تنسيق الفورم ثم تطبيقة علي فورم اخر فيجوال بيسك abo ragab 7 1,208 09-07-25, 12:45 AM
آخر رد: abo ragab
  [VB.NET] تكست بوكس EMADW 3 451 09-05-25, 05:09 PM
آخر رد: princelovelorn
  [VB.NET] استدعاء داتا كريت فيو من فورم اخر EMADW 1 419 16-04-25, 06:10 PM
آخر رد: مصمم هاوي
  [VB.NET] عدم ظهور فورم نهى على خليل 0 291 02-04-25, 02:59 PM
آخر رد: نهى على خليل
  مشكاه غريبه ظهرت لى فى فورم خالد كامل1 1 327 15-02-25, 02:11 PM
آخر رد: خالد كامل1
  كود لتغير لون الخط فى التكست بوكس خالد كامل1 1 339 31-01-25, 06:22 PM
آخر رد: أبو خالد الشكري
  [كود] كود تغيير حجم النص في التكست بوكس hassan 8 8,789 30-01-25, 02:33 AM
آخر رد: خالد كامل1
  مساعدة في استيراد البيانات من الليست بوكس fireswored1 4 464 22-01-25, 08:43 PM
آخر رد: fireswored1
  [VB.NET] تعبئة كومبو بوكس بقواعد البيانات الموجوده علي السيرفر Mustafa Shaker 6 4,098 23-12-24, 03:59 PM
آخر رد: aljzazy
  ابغي ارجع قيمة الداتا قراد فيو من جديد عندي مشكله khalidalwdi 3 631 05-12-24, 02:21 AM
آخر رد: aljzazy

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


يقوم بقرائة الموضوع: