الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

اختيار خليه من داتا قريد فيو

مغلق
بدأه وداع في 26 مايو 2007 · 10 رد · 2,293 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

كنت استخدم داتا قريد في 2003

وكان تحديد خليه معينه عن طريق كود



Dim pt As System.Drawing.Point = DataGrid4.PointToClient(Cursor.Position)
Dim hit As DataGrid.HitTestInfo = DataGrid4.HitTest(pt)
If hit.Type = DataGrid.HitTestType.RowHeader Then
FillDataGrid(DataGrid4.Item(DataGrid4.CurrentRowIndex, 0), DataGrid4.Item(DataGrid4.CurrentRowIndex, 1))
End If

End Sub
 Private Sub DataGrid4_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DataGrid4.MouseUp

والان استخدم 2005 لكن تحديد الخليه لم يكن بنفس طريقه اختلفت حاولت تغيير مايلزم لكن مافيش فيده

هل من الممكن طريقه التي احدد بها خليه واخذ قيمتها من داتا قريد فيو ؟؟؟

دمتم بخير

#2

تحديد الخلية في 2005 اسهل مما تتوقعين , على سبيل المثال في حدث الضغط على اي خلية سنظهر قيمتها داخل textbox

Private objCell As Object = Nothing
Private Sub MainDataGridView_CellClick( _
	ByVal sender As Object, _
	ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) _
	Handles MainDataGridView.CellClick
		objCell = Me.MainDataGridView.CurrentCell.Value
		Me.txtGetData.Text = objCell.ToString
	End Sub

بالتوفيق إن شاء الله.

في المثال يتضح المقال

#3

مره شكرا ياسيدي جربت انا قبل قولك الحدث

Me.MainDataGridView.CurrentCell

ولم اعلم انها لها تكمله

شاكره لك سيدي

....................................................

شيء اخر لو انا واقف بصف في داتا قريد فيو ودي اخذ قيمة ثاني خانه من رو اللي وقفت عنه وشلون ممكن تصير؟

#4

وداع كتب:
مره شكرا ياسيدي جربت انا قبل قولك الحدث

Me.MainDataGridView.CurrentCell

ولم اعلم انها لها تكمله

شاكره لك سيدي

...............................................

شيء اخر لو انا واقف بصف في داتا قريد فيو ودي اخذ قيمة الاولى من صف هذا

وارسالها الى فورم اخر

جربت وضع قيمه التي اقف عندها في متغيير عام في موديل وسميته

sg1

ما شاهدته انه عند انتقال الى فورم طلبت طباعه الرقم مخزن بالقيمه

sg1

يطلع لي الرقم اي ان قيمه بها شيء ما نفس اللي انا واقف عنده

الى هنا والموضوع تمام المشكله :

وعندما استخدمتها في جمله سيليكت لا يخرج لي شي يخبرني انه لا يوجد قيمة تحقق شرط ؟

مع انني متاكده انها موجوده

فكرت ربما يكون في طريقه اخذ قيمه

وجربت بها طريقتين مره عن طريق متغيير عام نفسه

ومره


MessageBox.Show(sg1)

If sG1 IsNot Nothing Then
ocon.ConnectionString = "Data Source=HAJAR;Initial Catalog=company;Integrated Security=True"


s = "select goal.G_No,goal.Description,goal.time_exe,goal.Percentage_Exe,Dimantion.D_NO,Dimantion.D_Name " _
& "from goal inner join Dimantion on goal.D_NO=Dimantion.D_NO " _
& "where goal.make_g <> '" & CByte(1) & "' and goal.G_no= '" & Integer.Parse(Form7.DataGridView1.CurrentCell.Value) & "'
Dim adpt As New System.Data.SqlClient.SqlDataAdapter(s, ocon)
Dim D As New DataSet()
adpt.Fill(D)
Dim t1 As DataTable
t1 = D.Tables(0)
m = t1.Rows.Count
ومره بطريقه 
  goal.G_no= '" & Integer.Parse(sG1) & "' "
وكلاهما خرج بنفس نتيجه ان لايوجد من يحقق الشرط !!!!

      
      

      
    

  

    
    

      
#5
        
        

      
اقتباس
شيء اخر لو انا واقف بصف في داتا قريد فيو ودي اخذ قيمة ثاني خانه من رو اللي وقفت عنه وشلون ممكن تصير؟
في نفس الحدث الضغط على الخلية نقوم بالتالي 
   
	 Dim Value As String = _
		MainDataGridView(1, e.RowIndex).FormattedValue.ToString
		Me.txtGetData.Text = Value
الخانة الاولى في الـ MainDataGridView تكون للعامود فختاري اما رقم العامود 1 يعني الخانة الثانية أو اسم العامود بين علامتي
التنصيص مثل "Product" بالتوفيق.

      
      

      
في المثال يتضح المقال

    

  

    
    

      
#6
        
        

      
جزاك الرحمن فردوسه 
اخي كيف يمكن ارسال القيمة الى فورم اخر في تكست بوكس ؟؟؟

      
      

      
    

  

    
    

      
#7
        
        

      
اقتباس
اخي كيف يمكن ارسال القيمة الى فورم اخر في تكست بوكس ؟؟؟
اختي استخدمي البحث فهذا السؤال قد أُجيب عليه من قبل. 
بالتوفيق إن شاء الله.

      
      

      
في المثال يتضح المقال

    

  

    
    

      
#8
        
        

      
اذا كنت تقصد هذا الموضوع 
انتقال من فورم لفورم
فقد جربت ما ذكر 
1_ جعلت الفورم الاول قلوبل  ومن ثم اسدعيته بالكود 
 G_no.Text = f.DataGridView1.Item(0, G).Value
2_ قمت بارسالها مباشره من حدث الضغط على داتا في فورم  ولم يفد 
وهناك بالاعلى محاولتين اخريتان 
........................................
انا بوضح اكثر انا عندي فورم 1 فيها داتا قريد فيو اذا وقف بصف وضغطت كليك يسار يفتح ContextMenuStrip
فيها خيار اذا ضغط عليه يقوم بفتح فورم جديده مع بقاء الاولى كذلك مفتوحه 
 وفي فورم ثانيه تكست بوكس تاخذ قيمه قمة اول خانه  من صف اللي واقفه عليه بداتا قريد فيو الموجوده في في فورم 1  
اتمنى قدرت اوضح وش بغيت انا ، وابين لك انو جربت ما ذكر هنا 
دمت بخير

      
      

      
    

  

    
    

      
#9
        
        

      
السلام  عليكم ....
----------------
انا لم أفهم شيء من كلامك ... ولكن حاولت  وأن شاء الله تكون محاولتي ناجحة  ...  اولا   اذا أردتي نسخ قيمة من    dataGridView إلى TextBox
Textbox1.Text = Me.DataGridView1.Rows(0).Cells(0).Value
أو 
Textbox2.Text= Me.DataGridView1.Rows(0).Cells("ColumnName").Value
أما أذا أردتي نسخ القيمة من إلى فورم أخر  فأليك الكود التالي  
Dim  form2 as new form2
form2.textbox1.text = DataGridView1.Item(e.columnindex, e.RowIndex).Value
يوجد  مثالين  في المرفقات  .... 
والسلام  خير ختام
multipleforms.zip
multipleforms4.zip

      
تم تعديل هذه المشاركة بواسطة فلسطيننا في 27 مايو 2007 في 20:58

      

      
رَبِّ لَا تَذَرْنِي فَرْداً وَأَنتَ خَيْرُ الْوَارِثِينَ

    

  

    
    

      
#10
        
        

      
فلسطيننا
مره شكرا ياسيدي لكن ما كان مشكلتي اكتشفت انها ليس في ارسال القيمه وانما في تفريغ داتا في رو 
واكتشفت انه شيء غبي اللي حايس دنيا 
واستخدمت احدها  مره شكرا لكل من ساعدني

      
      

      
    

  

    
    

      
#11
        
        

      
يا أخواني الكرام جزاكم الله خير لا تكتبوا موضوعين في موضوعٍ واحد.
و إلا سأضطر لقفله حتى لا تضيع أجوبتكم المباركة في غياهب هذا الموضوع ويفقدها كثيرواً من الناس .
الرجاء عدم تكرار ذلك و جزاكم الله خير .

      
      

      
في المثال يتضح المقال

    

  

    
    
 هذا الموضوع مغلق.

    
 مواضيع مشابهة