تقييم الموضوع :
  • 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 ID=@ID"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
تم حل المشكله .. شكــراً
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Wink سؤال في اضافة وسحب اصناف من المخزن khadija_seedi_ali 3 73 08-12-16, 09:07 PM
آخر رد: محمد كريّم
  سؤال حول Combobox noway 2 52 06-12-16, 04:26 AM
آخر رد: amgad525
  [نقاش] الى كل خبير ومبتدأ نقاش بخصوص جعل البرنامج نسخة تجريبية 0theghost0 1 157 30-11-16, 11:21 PM
آخر رد: awidan76
  مساعدة بخصوص Listbox CLARO 3 84 16-11-16, 06:15 PM
آخر رد: silverlight
  [سؤال] CrystalReports بخصوص GroubBy thevirus 1 60 15-11-16, 10:51 PM
آخر رد: السرور
  [VB.NET] استفسار بخصوص استعلام التعديل dark1459 8 117 15-11-16, 12:31 AM
آخر رد: dark1459
Photo بخصوص قراءة الباركود shwehdi4pc 11 297 10-11-16, 11:44 PM
آخر رد: محمود بكرى
  [VB.NET] بخصوص الطباعه لشي محدد adel27 6 134 10-11-16, 05:51 PM
آخر رد: adel27
  [VB.NET] سؤال كيف يمكن معرفة التغير في قاعدة البيانات وليد الزنتاني 2 118 10-11-16, 01:20 AM
آخر رد: وليد الزنتاني
Lightbulb [VB.NET] سؤال حول التعامل مع الماسح الضوئي salhigc 3 124 02-11-16, 04:15 PM
آخر رد: salhigc

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


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