+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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] إرسال البيانات من التكست بوكس إلى الداتا قريد (/showthread.php?tid=45969)
إرسال البيانات من التكست بوكس إلى الداتا قريد - أبووسم - 27-04-23
السلام عليكم
لدي اسماء مخزنة في قاعدة البيانات استعرضها في الفورم بشكل طبيعي
أريد فقط عند اختيار موظف وتظهر بياناته في التكست بوكس ، وعند الضغط على البوتين المحدد تتجه البيانات المحددة إلى الداتا قريد حتى استطيع مستقبلاً أن ارسلها إلى ملف أكسل أو اطبعها.
RE: إرسال البيانات من التكست بوكس إلى الداتا قريد - aljzazy - 27-04-23
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
For i As Integer = 0 To dgv_employees.Rows.Count - 1
If dgv_employees.Rows(i).Cells(0).Value = ID.Text Then
MsgBox("هذا الموظف سبق وتم اضافته من قبل")
Exit Sub
End If
Next
Dim x As Integer
dgv_employees.Rows.Add()
x = dgv_employees.Rows.Count - 1
dgv_employees(0, x).Value = ID.Text
dgv_employees(1, x).Value = Name_Emp.Text
dgv_employees(2, x).Value = ID_Emp.Text
dgv_employees(3, x).Value = grade_Emp.Text
End SubRE: إرسال البيانات من التكست بوكس إلى الداتا قريد - أبووسم - 27-04-23
الف شكر استاذي الفاضل صبحي
و الله يعطيك العافية
RE: إرسال البيانات من التكست بوكس إلى الداتا قريد - أبووسم - 28-04-23
أستاذ صبحي ممكن طلب اخر
كيف احذف احد الصفوف؟
RE: إرسال البيانات من التكست بوكس إلى الداتا قريد - aljzazy - 28-04-23
(28-04-23, 12:27 AM)أبووسم كتب :ضعها في اي حدثأستاذ صبحي ممكن طلب اخركود :
If Not dgv_employees.CurrentRow.IsNewRow Then
dgv_employees.Rows.Remove(dgv_employees.CurrentRow)
End If
كيف احذف احد الصفوف؟
كود :
If Not dgv_employees.CurrentRow.IsNewRow Then
dgv_employees.Rows.Remove(dgv_employees.CurrentRow)
End IfRE: إرسال البيانات من التكست بوكس إلى الداتا قريد - أبووسم - 28-04-23
الف شكر استاذنا الفاضل و لك تحياتي