20-09-20, 08:34 PM
هذا الكود على المرفق في الموضوع مساعدة بخصوص حفظ عدد داخل datagridview
كود :
Imports System.Data.OleDb
Public Class Form1
Dim con As New OleDbConnection(" Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\client.mdb")
Dim da As New OleDbDataAdapter
Dim dt As New DataTable
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If IO.File.Exists(My.Settings.s1) = False Then
Dim OpenFileDialog1 As New OpenFileDialog
OpenFileDialog1.Filter = "database|*.mdb"
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.Cancel Then Close()
My.Settings.s1 = OpenFileDialog1.FileName
End If
con = New OleDbConnection(" Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" & My.Settings.s1 & "")
da = New OleDbDataAdapter("select*from stock ", con)
dt = New DataTable
da.Fill(dt)
DataGridView1.DataSource = dt
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
dt.Rows.Add()
Dim last As Integer = dt.Rows.Count - 1
dt.Rows(last).Item("num_pro") = TextBox1.Text
dt.Rows(last).Item("nom_pro") = TextBox2.Text
dt.Rows(last).Item("alkmiya") = TextBox3.Text
dt.Rows(last).Item("t_j_dh") = TextBox4.Text
dt.Rows(last).Item("t_b_dh") = TextBox5.Text
Dim save As New OleDbCommandBuilder
save = New OleDbCommandBuilder(da)
da.Update(dt)
dt.AcceptChanges()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
'For i As Integer = 0 To dt.Rows.Count - 1
' dt.Rows(i).Item("alkmiya") = dt.Rows(i).Item("alkmiya") - TextBox6.Text
'Next
Dim i As Integer = DataGridView1.CurrentRow.Index
dt.Rows(i).Item("alkmiya") = dt.Rows(i).Item("alkmiya") - TextBox6.Text
da.UpdateCommand = New OleDb.OleDbCommandBuilder(da).GetUpdateCommand()
da.Update(dt)
dt.AcceptChanges()
End Sub
End Class