[aldery]

(27-02-20, 01:40 AM)alsalamoni كتب :

(27-02-20, 01:34 AM)aldery كتب :

(27-02-20, 01:30 AM)alsalamoni كتب :

(27-02-20, 01:27 AM)aldery كتب :

(27-02-20, 01:07 AM)alsalamoni كتب : في الفورم Form4 اعمل متغير Public للمعرف مع عمل استعلام في حدث تحميل الفورم مثل

كود :

Public id As Integer

Private Sub Form4_Load(sender As Object, e As EventArgs) Handles MyBase.Load
' كود الاستعلام عن البيانات بواسطة id
' تعبئة الادوات بالبيانات الناتجة من الاستعلام
End Sub

في فورم الداتاجريد افتح الفورم Form4 بهذا الكود

كود :

Dim frm As New Form4
frm.id = DataGridView1.CurrentRow.Cells(0).Value
frm.ShowDialog

أخي ولو عذبتك معي هل ممكن ترسل لي سورس بشكل مفصل لم استطع أظهار غير id 

لدي textbox عدد 6 + PictureBox1

لا يوجد لدي سورس ولكن لدي الفكرة واعطيتك اياها

ولكن ممكن تضع مشروعك ليتم التعديل عليه من الاعضاء

كود :

       Dim frm As New Form4
       frm.id = dgvbooks1.CurrentRow.Cells(0).Value
       frm.full1 = dgvbooks1.CurrentRow.Cells(1).Value
       frm.ShowDialog()

كود :

Public Class Form4
   Public id As Integer
   Public full1 As Integer
   Private Sub Form4_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       TextBox1.Text = id
       TextBox2.Text = full1
   End Sub
End Class

بهذا الشكل تقصد أم خطأ

تمام ولا داعي ل Public full1 As Integer

يبقي ان تضيف كود الاستعلام داخل Form4_Load مثل

كود :

Private Sub Form4_Load(sender As Object, e As EventArgs) Handles MyBase.Load
dim da as new sqldataadapter("select * from table where id=" & id,conn)
dim dt as new datatable
da.fill(dt)
dim r as datarow=dt.rows(0)
textbox1.text=r("id")
textbox2.text=r("name")
textbox3.text=r("mothername")
'
'
end sub

شكراً لكم و جزاك الله خيراً