منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] مشكلة فى عرض محتويات DataGridView فى TextBox - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] مشكلة فى عرض محتويات DataGridView فى TextBox (/showthread.php?tid=28638)

مشكلة فى عرض محتويات DataGridView فى TextBox - mr_hso - 16-02-19

قمت بعمل الكود التالي
لكن الكود لا يعمل 
فعندما اقف على صف معين لا يظهر فى ال TextBox
كود :
Imports System.Data.OleDb
Public Class Form1
   Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=db_2050.mdb")
   Dim da As New OleDbDataAdapter()
   Dim dt As New DataTable
   Sub load_data()
       dt.Clear()
       da = New OleDbDataAdapter("select * from banks", con)
       da.Fill(dt)
   End Sub
   Sub save_data()
       Dim save As New OleDbCommandBuilder("select * TO banks", con)
       save.QuoteSuffix = "["
       save.QuoteSuffix = "]"
       da.Update(dt)
       dt.AcceptChanges()
   End Sub
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       load_data()
       DataGridView1.DataSource = dt
   End Sub

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       dt.Rows.Add()
       Dim pos As String = dt.Rows.Count - 1
       dt.Rows(pos).Item(0) = TextBox1.Text
       dt.Rows(pos).Item(1) = TextBox2.Text
       save_data()
       load_data()
   End Sub
(الجزء الذي به المشكلة)
   Private Sub DataGridView1_CellClick(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick
       Dim pos As String = BindingContext(dt).Position
       TextBox1.Text = dt.Rows(pos).Item(1)
       TextBox2.Text = dt.Rows(pos).Item(2)
   End Sub


RE: مشكلة فى عرض محتويات DataGridView فى TextBox - sendbad100 - 16-02-19

السلام عليكم
تم نقل الموضوع لقسم الاسئلة
الرجاء في المرات القادمة مراعات القسم المناسب
شكرا لتعونك

RE: مشكلة فى عرض محتويات DataGridView فى TextBox - أحمد النجار - 16-02-19

غير التالي

كود :
Dim pos As String = BindingContext(dt).Position
TextBox1.Text = dt.Rows(pos).Item(1)
      TextBox2.Text = dt.Rows(pos).Item(2)
الى
كود :
TextBox1.Text = dataGridView1.CurrentRow.Cells(1).Value.ToString

       TextBox2.Text = dataGridView1.CurrentRow.Cells(2).Value.ToString


RE: مشكلة فى عرض محتويات DataGridView فى TextBox - mr_hso - 17-02-19

السلام عليكم
الاستاذ/ [b]sendbad100[/b]  اسف على ذلك الخطاء وسوف اراعي التعليمات فى المرات التالية

الاستاذ/ [b]أحمد النجار[/b]  شكرا على ردك واستجابتك وجزاك الله خير
لكنني جربت الكود الجديد ولم يعمل

RE: مشكلة فى عرض محتويات DataGridView فى TextBox - ابراهيم ايبو - 17-02-19

السلام عليكم اخي الكريم 
استخدم الحدث SelectionChanged  للداتا غرايد فيو

وبرايي افضل على النحو التالي وان شاء الله يعمل معك
 
كود :
Private Sub DataGridView1_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataGridView1.SelectionChanged
       ' عرض البيانات من الداتا غرايد فيو الى مربعات النصوص
       Try
           TextBox1.Text = DataGridView1(0, DataGridView1.CurrentRow.Index).Value.ToString()
           TextBox2.Text = DataGridView1(1, DataGridView1.CurrentRow.Index).Value.ToString()
           TextBox31.Text = DataGridView1(2, DataGridView1.CurrentRow.Index).Value.ToString()
           DateTimePicker1.Text = DataGridView1(3, DataGridView1.CurrentRow.Index).Value.ToString()
       Catch ex As Exception
       End Try
   End Sub


RE: مشكلة فى عرض محتويات DataGridView فى TextBox - mr_hso - 17-02-19

الاخ الفاضل استاذ [b]ابراهيم ايبو[/b]  حاولت مع ذلك الكود لكني لم افلح
لذلك قمت برفع المشروع كامل ليكون امام حضرتك
وشكرا للمساعدة

https://up.top4top.net/downloadf-114371b151-rar.html

RE: مشكلة فى عرض محتويات DataGridView فى TextBox - ابراهيم ايبو - 18-02-19

السلام عليكم اخي الكريم
لم استطع تحمبل مشروعك لسببين
الاول الموقع لايحمل والثاني انني اعمل على (مكنة خباطة قديمة )موديل فيجوال ستوديو 2008 هههههه
اليك المرفق مثال 


RE: مشكلة فى عرض محتويات DataGridView فى TextBox - mr_hso - 18-02-19

(18-02-19, 11:22 AM)ابراهيم ايبو كتب :
السلام عليكم اخي الكريم
لم استطع تحمبل مشروعك لسببين
الاول الموقع لايحمل والثاني انني اعمل على (مكنة خباطة قديمة )موديل فيجوال ستوديو 2008 هههههه
اليك المرفق مثال 

الاخ الكريم ابراهيم ايبو اعزك الله وجزاك خير[b][b][/url][/b][/b]
تم حل المشكلة والفضل لله ثم لحضراتكم
المهم ليس الجهاز انما العقل الذي يديره
اكرمك الله وذادك علما تنفع به الناس
شكرا للسادة اعضاء المنتديى
واخص بالشكر الاساتذة
[b][url=http://vb4arb.com/vb/member.php?action=profile&uid=16358]أحمد النجار[/b]
[b][b]ابراهيم ايبو[/b][/b]

RE: مشكلة فى عرض محتويات DataGridView فى TextBox - nabil.1710 - 18-02-19

جرب هذا الكود اخي فهو يقوم بجمع حقول الداتا جريد الى تكست

 Me.TextBox6.Text = (From row In تقرير_الخزانةDataGridView.Rows Select CDbl(row.Cells(1).Value)).Sum()
        Me.TextBox5.Text = (From row In تقرير_الخزانةDataGridView.Rows Select CDbl(row.Cells(2).Value)).Sum()
        Me.TextBox4.Text = (From row In تقرير_الخزانةDataGridView.Rows Select CDbl(row.Cells(3).Value)).Sum()
        Me.TextBox3.Text = (From row In تقرير_الخزانةDataGridView.Rows Select CDbl(row.Cells(4).Value)).Sum()
        Me.TextBox2.Text = (From row In تقرير_الخزانةDataGridView.Rows Select CDbl(row.Cells(5).Value)).Sum()
        Me.TextBox1.Text = (From row In تقرير_الخزانةDataGridView.Rows Select CDbl(row.Cells(6).Value)).Sum()


بالتوفيق
قم بتغير 

تقرير_الخزانةsum   الى    DataGridView1

RE: مشكلة فى عرض محتويات DataGridView فى TextBox - mr_hso - 26-02-19

اخى العزيز nabil.1710

شكرا لحضرتك

وجزاك الله عني خيرا 

وذادك علماً