+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] جلب بينات من الداتا جريد فيور الى فورم 2 تاكست بوكس (/showthread.php?tid=28758)
الصفحات:
1
2
RE: جلب بينات من الداتا جريد فيور الى فورم 2 تاكست بوكس - anis - 10-03-19
(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()
RE: جلب بينات من الداتا جريد فيور الى فورم 2 تاكست بوكس - 5000 - 11-03-19
حسب المشاركة السابقة
غير السطر الأخير الخاص باظهار الفورم بالشكل التالي
form.Show
RE: جلب بينات من الداتا جريد فيور الى فورم 2 تاكست بوكس - anis - 11-03-19
(11-03-19, 01:32 AM)5000 كتب : حسب المشاركة السابقة
غير السطر الأخير الخاص باظهار الفورم بالشكل التالي
form.Show
شكرا استاذي الفاضل على سرعة استجابتكم لطلبي .
لكن بقى المشكل كما هو
RE: جلب بينات من الداتا جريد فيور الى فورم 2 تاكست بوكس - anis - 11-03-19
(11-03-19, 11:18 AM)anis كتب :(11-03-19, 01:32 AM)5000 كتب : حسب المشاركة السابقة
غير السطر الأخير الخاص باظهار الفورم بالشكل التالي
form.Show
شكرا استاذي الفاضل على سرعة استجابتكم لطلبي .
لكن بقى المشكل كما هو
هل يوجد كود يجب وضعه بالفورم 3 ؟؟؟
RE: جلب بينات من الداتا جريد فيور الى فورم 2 تاكست بوكس - asemshahen5 - 11-03-19
غير :
PHP كود :
form.الاسمTextBox.Text = Table1DataGridView(1, Table1DataGridView.SelectedRows(0).Index).Value
لـ :
كود :
Form.الاسمTextBox.Text = Table1DataGridView.CurrentRow.Cells(1).ValueRE: جلب بينات من الداتا جريد فيور الى فورم 2 تاكست بوكس - anis - 12-03-19
(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
ألف الف الف شكر وتقدير . الله يجازيك خير .
والله مشكورين .
(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
ألف الف الف شكر وتقدير . الله يجازيك خير .
والله مشكورين .
كود حفظ التعديل وكود الادراج او اضافة سجل جديد - anis - 15-03-19
السلام عليكم اساتذتي الكرام .
ارجو من الله ومنكم ان تتسع صدوركم الرحبة لسؤالي : كيفية تعديل البينات وحفضها و السؤال الثاني كيفية ادراج او إضافة سجل حديد
مع العلم اني استعمل قاعدة بينات من نوع اكسس
(15-03-19, 09:41 PM)anis كتب : السلام عليكم اساتذتي الكرام .
ارجو من الله ومنكم ان تتسع صدوركم الرحبة لسؤالي : كيفية تعديل البينات وحفضها و السؤال الثاني كيفية ادراج او إضافة سجل حديد
مع العلم اني استعمل قاعدة بينات من نوع اكسس
RE: جلب بينات من الداتا جريد فيور الى فورم 2 تاكست بوكس - رضوان الجماعي - 24-09-22
اخي الحبيب على ما يبدوا انك تهت وذلك لضغط الحاصل عليك ما الومك نهائين ولكن هذا جيد جدا لانه سيعلمك من اخطاء التجربة الكثير لا شئ ياتي من فراغ
وهذه طريقه اخرى تمكنك من نقل الخلية التي تريد الى التكست بكس الذي تريد
اولا قم بتعريف المتغير في مديول كا التالي
Public Pateint_ID As Integer
بعدها في البتن الذي ينقلك الى الفورم التالي قم بكتابة الكود التالي وسيقوم بنسخ الذي التي تحددها انت من الدتاجريد
Clinic_servis.TextBox_id.Text = Gridpateint.CurrentRow.Cells("Pateint_ID").Value.ToString()
Clinic_servis.Show()