[sayyad]

(27-02-20, 09:36 PM)alsalamoni كتب :

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

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

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

(27-02-20, 01:30 AM)alsalamoni كتب : لا يوجد لدي سورس ولكن لدي الفكرة واعطيتك اياها

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

كود :

       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

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

العفو اخي