16-02-19, 02:04 AM
قمت بعمل الكود التالي
لكن الكود لا يعمل
فعندما اقف على صف معين لا يظهر فى ال TextBox
لكن الكود لا يعمل
فعندما اقف على صف معين لا يظهر فى ال 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