تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] مشكلة فى عرض محتويات DataGridView فى TextBox
#1
قمت بعمل الكود التالي
لكن الكود لا يعمل 
فعندما اقف على صف معين لا يظهر فى ال 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
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم
تم نقل الموضوع لقسم الاسئلة
الرجاء في المرات القادمة مراعات القسم المناسب
شكرا لتعونك
الرد }}}
تم الشكر بواسطة: mr_hso
#3
غير التالي

كود :
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
الرد }}}
#4
السلام عليكم
الاستاذ/ [b]sendbad100[/b]  اسف على ذلك الخطاء وسوف اراعي التعليمات فى المرات التالية

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

لكنني جربت الكود الجديد ولم يعمل
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري , sendbad100
#5
السلام عليكم اخي الكريم 
استخدم الحدث 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
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







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


https://up.top4top.net/downloadf-114371b151-rar.html
الرد }}}
تم الشكر بواسطة:
#7
السلام عليكم اخي الكريم
لم استطع تحمبل مشروعك لسببين
الاول الموقع لايحمل والثاني انني اعمل على (مكنة خباطة قديمة )موديل فيجوال ستوديو 2008 هههههه
اليك المرفق مثال 


الملفات المرفقة
.rar   Khaled.rar (الحجم : 81.67 ك ب / التحميلات : 34)
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
تم الشكر بواسطة: princelovelorn , mr_hso , elgokr
#8
(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]
الرد }}}
تم الشكر بواسطة: elgokr , elgokr
#9
جرب هذا الكود اخي فهو يقوم بجمع حقول الداتا جريد الى تكست

 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
الرد }}}
تم الشكر بواسطة: asemshahen5 , mr_hso , elgokr
#10
اخى العزيز nabil.1710

شكرا لحضرتك

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

وذادك علماً
الرد }}}
تم الشكر بواسطة: elgokr



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


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