تحديث سجل من datagrid على شكل combobox

مشكور اخي hacker

ممكن مثال بسيط مع داتابيز لو حتى access و بكون ممنونك :)

اخ moh1983 الكود بسيط كل الموضوع عبارة عن جدول الحسبات

accname debit credit

وتعمل تحديث للحقول بحمع القيمه الموجوده فى الحقل بالاضافة الى القيمه المدخله من

ال datagrid

بالنسبه للمثال سوف احاول وضع مثال فى اقرب فرصه لاننى مشغول بشده هذه الايام

مشكور اخي و بتمنى منك تضع مثال :) لكني سوف احاول و لكن قللي هل اضع الكود في زر comamnd bottun ام في datagridcurrentcellchanged ؟

حيث اني جربت اضع الكود في الداتاجريد و لكنه كان يزيد الحساب بالقيمة كل مرة اغير فيها مكان الخلية و هذا خطأ اي كل ما غيرت الخلية يزيد و يزيد الم اقل من البداية انها عماية معقدة نوعا ما و لكنني إن شاء الله قربت اصل للحل بس بحاجة لشوية مساعدة منك اخي الفاضل :)

السلام عليكم

الى كل مبرمج في هذا المنتدى ارجو المساعدة للضرورة

قمت بالاتي في حدث currentcellchanged

	 Dim i As Single
		For i = 0 To Dpls2.Tables("sanad_head").Rows.Count - 1'اسم الجدول التابع للسندات
			Dim col2 As Int16 = NDataGrid1.CurrentCell.ColumnNumber
			Dim row2 As Int16 = NDataGrid1.CurrentCell.RowNumber
			Dim acc_name As String = NDataGrid1.Item(0, 0)'اسم الحساب في الداتاجريد
			acc_name = Dpls2.Tables("balance_detail").Rows(i)("d_name").ToString()
			Dim median As String = NDataGrid1.Item(0, 1)'تعريف المدين
			median = Dpls2.Tables("sanad_head").Rows(i)("median").ToString()'تعريف من اين سوف يأخذ القيمة و يضيفها لجدول الحسابات التفصيلية balance detail الذي يوجد فيه ايضا مدين و ودائن 
			Dim credit As String = NDataGrid1.Item(0, 2)'تعريف الدائن على نفس المنوال
			credit = Dpls2.Tables("sanad_head").Rows(i)("creditor").ToString()

			Dim ConnStr2 As New SqlClient.SqlConnection
			ConnStr2.ConnectionString = "server=(local);database=account;trusted_connection=yes"
			Dim sql2 As String = "update balance_detail set median=(select median from balance_detail where d_name='" + acc_name + "')+" + median + "," + "creditor=(select creditor from balance_detail where d_name='" + acc_name + "')+" + credit + " where d_name='" + acc_name + "'"
			Dim adp2 As New SqlClient.SqlCommand(sql2, ConnStr2)
			adp2.Connection.Open()
			adp2.ExecuteNonQuery()
			adp2.Connection.Close()
		Next

الان المشكلة هو انه يعمل جملة update لاسم الحساب الاول في datagridcombobox و ليس اللي انا عامله select ما السبب ؟؟؟؟

ارجوكم هل من حل لهذه المعضلة :unsure:

منتظر ردودكي اخواني :)

على امل الاقي الرد المطلوب :(

السلام عليكم

هذا ثلثين الحل

			Dim col As Int16 = NDataGrid1.CurrentCell.ColumnNumber
			Dim row As Int16 = NDataGrid1.CurrentCell.RowNumber
			Dim median As String = NDataGrid1.Item(0, 1)
			Dim credit As String = NDataGrid1.Item(0, 2)

 Dim ConnStr2 As New SqlClient.SqlConnection
			ConnStr2.ConnectionString = "server=(local);database=account;trusted_connection=yes"

  Dim sqlme As String = "select median from balance_detail where balance_detail_no = '" & NDataGrid1.Item(col, 0) & "'"
			Dim adpme As New SqlClient.SqlCommand(sqlme, ConnStr2)
			adpme.Connection.Open()
			Dim med As String = adpme.ExecuteScalar()
			adpme.Connection.Close()

			Dim sqlme2 As String = "select median from balance_detail where balance_detail_no = '" & NDataGrid1.Item(col, 0) & "'"
			Dim adpme2 As New SqlClient.SqlCommand(sqlme2, ConnStr2)
			adpme2.Connection.Open()
			Dim cre As String = adpme2.ExecuteScalar()
			adpme2.Connection.Close()

			Dim sql2 As String = "update balance_detail set median='" & median & "' + " + med + " , creditor  = '" & credit & "'+ " + cre + "  where balance_detail_no= '" & NDataGrid1.Item(col, 0) & "' "
			Dim adp2 As New SqlClient.SqlCommand(sql2, ConnStr2)
			adp2.Connection.Open()
			adp2.ExecuteNonQuery()
			adp2.Connection.Close()
المشكلة هي انه بيعدل الحسابات بس لما اضيف حساب اخر في الداتاجريد تتغير القيم بشكل عجيب غريب

لا ردود كالعادة :(

فعلا امر محبط