تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] سؤال بخصوص كود برمجي
#1
Star 
  مدرج كود لكيفيه اختيار عناصر من DataGridView و عرض بياناته في فورم اخر بالنقر المزدوج عليها من DataGridView ..
لم يشتغل معي .. اريد ان اعرف المشكله ان امكن ؟؟
 Private Sub DataGridView1_DoubleClick(sender As Object, e As EventArgs) Handles DataGridView1.DoubleClick
        If (DataGridView1.RowCount > 0) Then

            Dim sql As String = "select p_name,(select c_name from t_clinic where c_id=t_patiants.c_id)as c_name,(select D_name from t_doctor where D_id=t_patiants.d_id)as d_name,p_birthday  from t_patiants  '" + DataGridView1.CurrentRow.Cells(0).Value.ToString + "'"
            Dim cont As New SqlCommand(sql, Class1.con)
            Dim dr As SqlDataReader

            Class1.con.Open()
            Try
                dr = cont.ExecuteReader
                If dr.HasRows Then
                    dr.Read()
                    Form3.Show()
                    Form3.Button4.Enabled = True
                    Form3.Button1.Enabled = True
                    Form3.Button3.Enabled = False
                    Form3.Button5.Enabled = False
                    Form3.p_id = dr("d_id").ToString

                    Form3.TextBox1 = dr("p_name")
                    Form3.ComboBox2.Text = dr("c_name").ToString
                    Form3.ComboBox1.Text = dr("d_name").ToString
                    Form3.DateTimePicker1.Text = dr("p_birthday").ToString

                End If
            Catch ex As Exception
                MsgBox("error", MsgBoxStyle.Exclamation)
                MsgBox(ex.Message)
            End Try
            Class1.con.Close()
        End If
            End Sub
الرد
تم الشكر بواسطة:
#2
أخي العزيز، السلام عليكم ورحمة الله وبركاته
أنت تريد عرض جملة من البيانات من DataGridView إلى أدوات تحكم أخرى موجودة في Form آخر أليس كذلك؟
طيب، إذا كان كذلك، من المفترض استدعاء هذه البيانات إلى أدوات التحكم الأخرى من خلال قيمة مميزة أو معرِّفة.

أرجو الرد، لاستكمال المعالجة

   

وهذا هو الكود:
PHP كود :
Private Sub DataGridView1_CellDoubleClick(ByVal sender As System.ObjectByVal e As System.Windows.Forms.DataGridViewCellEventArgsHandles DataGridView1.CellDoubleClick
        If Me
.DataGridView1.CurrentRow.Cells(0).Selected True Then

            Dim cmd 
As New OleDbCommand("Select * From Person Where [email protected]"con)
 
           con.Open()
 
           cmd.Parameters.AddWithValue("@ID"Me.DataGridView1.CurrentRow.Cells(0).Value)
 
           Dim dr As OleDbDataReader
            dr 
cmd.ExecuteReader

            While dr
.Read
                Form2
.Show()
 
               Form2.txtID.Text dr.Item("ID")
 
               Form2.txtFname.Text dr.Item("Fname")
 
               Form2.txtLname.Text dr.Item("Lname")
 
               Form2.txtAddress.Text dr.Item("Address")
 
           End While

 
           dr.Close()
 
           con.Close()



 
       End If 
إسرائيل إلى زوال ... وسوف تثبت الأيام ذلك ... قريباً إن شاء الله.
الرد
تم الشكر بواسطة:
#3
[attachment=8927][attachment=8927][attachment=8927]نعم القصد كما ارفقت في الصوره اخي ..
و قد قمت بارفاق هده البيانات في هده الخطوه ..

  Form3.p_id = dr("d_id").ToString

                    ("Form3.TextBox1 = dr("p_name"
                    Form3.ComboBox2.Text = dr("c_name").ToString
                    Form3.ComboBox1.Text = dr("d_name").ToString
                    Form3.DateTimePicker1.Text = dr("p_birthday").ToString


ارفقت رساله الخطأ بالملف

هدا هو الخطأ


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة:
#4
الافضل ارفاق مثال ليتم التعديل عليه .
الرد
تم الشكر بواسطة:
#5
تم حل المشكله .. شكــراً
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال عن الجمل الشرطية القديمة ZaerAllail 3 65 18-06-18, 06:13 PM
آخر رد: sendbad100
  سؤال عن الاكمال التلقائي لصندوق النص hatem555 5 73 18-06-18, 08:25 AM
آخر رد: elgokr
  سؤال سرييع !! hichem1 1 43 16-06-18, 01:24 AM
آخر رد: elgokr
Smile سؤال في ما يخص جمع كمية الاصناف على DataGridView kalammoufid 3 64 14-06-18, 07:54 PM
آخر رد: elgokr
  سؤال محيرني hichem1 3 74 09-06-18, 01:45 AM
آخر رد: elgokr
  سؤال سريع عن كود البحث maram2423 12 175 08-06-18, 04:31 AM
آخر رد: elgokr
  مساعدة بخصوص التاريخ تلقائيا ahmedfa71 3 80 07-06-18, 03:53 PM
آخر رد: elgokr
  سؤال في الطباعة الى الوورد وهج الصحراء 2 59 05-06-18, 10:02 PM
آخر رد: عبدالله الدوسري
Wink سؤال لاساتذتنا الكرام اريد طريقة لاستبدال النقطة "." بالفاصلة "," . kalammoufid 2 69 05-06-18, 04:43 PM
آخر رد: kalammoufid
Exclamation [سؤال] السلام عليكم وكل عام وانتم بالف خير لدي سؤال حول ربط vb.net بالتلفاز وتشغيله واطفاءه MOHAMED.1212 2 56 03-06-18, 09:41 AM
آخر رد: عبدالله الدوسري

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم