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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغة الفيجوال بيسك VB.NET > قسم اسئلة VB.NET > جلب بينات من الداتا جريد فيور الى فورم 2 تاكست بوكس
نسخة كاملة : جلب بينات من الداتا جريد فيور الى فورم 2 تاكست بوكس
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2

anis

10-03-19, 11:16 PM
(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

11-03-19, 01:32 AM
حسب المشاركة السابقة
غير السطر الأخير الخاص باظهار الفورم بالشكل التالي
form.Show

anis

11-03-19, 11:18 AM
(11-03-19, 01:32 AM)5000 كتب : [ -> ]حسب المشاركة السابقة
غير السطر الأخير الخاص باظهار الفورم بالشكل التالي
form.Show

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

anis

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

11-03-19, 10:26 PM
غير  :

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


لـ :

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

anis

12-03-19, 12:35 PM
(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

anis

15-03-19, 09:41 PM
السلام عليكم اساتذتي الكرام .
   
   ارجو من الله ومنكم ان تتسع صدوركم الرحبة لسؤالي :  كيفية تعديل البينات وحفضها و السؤال الثاني كيفية ادراج او إضافة سجل حديد
    
   مع العلم اني استعمل قاعدة بينات من نوع اكسس
(15-03-19, 09:41 PM)anis كتب : [ -> ]السلام عليكم اساتذتي الكرام .
   
   ارجو من الله ومنكم ان تتسع صدوركم الرحبة لسؤالي :  كيفية تعديل البينات وحفضها و السؤال الثاني كيفية ادراج او إضافة سجل حديد
    
   مع العلم اني استعمل قاعدة بينات من نوع اكسس

رضوان الجماعي

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()
الصفحات : 1 2
منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم لغة الفيجوال بيسك VB.NET > قسم اسئلة VB.NET > جلب بينات من الداتا جريد فيور الى فورم 2 تاكست بوكس