(20-09-20, 08:34 PM)mrfodri كتب : هذا الكود على المرفق في الموضوع مساعدة بخصوص حفظ عدد داخل 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
لم افهم
الكود في الموضوع الاول عدلت فيه كثير لكن ان اضفة شئ فوق شئ سيتلخبط الكود
ما العلاقه بين هدا الكود وما طلبته اخي اصلا المشروع انتهيت منه الان اريد فقط استخراج
المشروع ليعمل علي اي كمبيوتر هدا كود الفورم كامل
هدا ما حدث اخي بعد ان اضفت الكود واستخرجة المشروع من بواسطة publish new
بعد تثبيتي للمشروع والضغط علي stock يظهر كالتالي
وعندما اضغط annuler تطهر مره اخري رسالة الخطء تلك