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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال - حول الطباعة المباشرة لتقارير الكريستال lysalh65@gmail.com 7 131 منذ 11 ساعة مضت
آخر رد: elgokr
  سؤال عن حقل primry key في sql server hglogtd 6 121 21-09-18, 05:43 AM
آخر رد: mero5000
  سؤال حول امر الطباعة الفورية Osama Bayoumy 4 172 19-09-18, 06:55 PM
آخر رد: elgokr
  سؤال عن كود التأكد من صلاحيات المستخدم nagoma 10 227 17-09-18, 10:43 PM
آخر رد: حريف برمجة
  سؤال كريستال ريبورتى لولبى lysalh65@gmail.com 4 94 17-09-18, 10:37 PM
آخر رد: lysalh65@gmail.com
  [VB.NET] استفسار :- بخصوص تغيير اسم ال Button بعد الضغط dubai.eig 10 189 17-09-18, 10:53 AM
آخر رد: dubai.eig
  للمرة الثانية بخصوص برنامج تصنيع فى ورشة salah mansour 9 206 15-09-18, 09:50 PM
آخر رد: 911
  سؤال حول الباركود alipro 5 137 12-09-18, 08:19 AM
آخر رد: elgokr
  سؤال حول جملة for DOX.1 3 84 12-09-18, 07:53 AM
آخر رد: elgokr
  بخصوص برنامج تصنيع....هام salah mansour 5 157 12-09-18, 12:55 AM
آخر رد: salah mansour

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


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